バックナンバー検索ツールのユーザーフォームをデザイン

Private Sub Workbook_Open()
        If 検索コントロール.Visible Then Exit Sub
        検索コントロール.Show vbModeless
End Sub

Private Sub Worksheet_Activate()
        If 検索コントロール.Visible Then Exit Sub
        検索コントロール.Show vbModeless
End Sub

Option Explicit

Private Sub UserForm_Initialize()
'テキストボックスの初期化
        検索コントロール.Controls("期間年から").Value = ""
        検索コントロール.Controls("期間年まで").Value = ""
        検索コントロール.Controls("期間月から").Value = ""
        検索コントロール.Controls("期間月まで").Value = ""
        検索コントロール.Controls("期間日から").Value = ""
        検索コントロール.Controls("期間日まで").Value = ""
End Sub

Private Sub 期間入力_Click()
'テキストボックス入力値を変数に代入
        fdatey = 検索コントロール.Controls("期間年から").Value
        tdatey = 検索コントロール.Controls("期間年まで").Value
        fdatem = 検索コントロール.Controls("期間月から").Value
        tdatem = 検索コントロール.Controls("期間月まで").Value
        fdated = 検索コントロール.Controls("期間日から").Value
        tdated = 検索コントロール.Controls("期間日まで").Value
        
        On Error Resume Next
'期間の片側入力を禁止
        If (fdatey = "" And tdatey <> "") Or _
            (fdatey <> "" And tdatey = "") Or _
            (fdatem = "" And tdatem <> "") Or _
            (fdatem <> "" And tdatem = "") Or _
            (fdated = "" And tdated <> "") Or _
            (fdated <> "" And tdated = "") Then GoTo stepA
'年の異常値指定を禁止
        If (fdatey = "" And tdatey = "") Then
            fdatey = ""
            tdatey = ""
        ElseIf Val(fdatey) > Val(tdatey) Then
            GoTo stepA
        ElseIf Not (Val(fdatey) > 1900 And Val(fdatey) < 2050 And _
                    Val(tdatey) > 1900 And Val(tdatey) < 2050) Then
            GoTo stepA
        End If
'月の異常値指定を禁止
        If (fdatem = "" And tdatem = "") Then
            fdatem = ""
            tdatem = ""
        ElseIf Val(fdatem) > Val(tdatem) Then
            GoTo stepA
        ElseIf Not (Val(fdatem) >= 1 And Val(fdatem) <= 12 And _
                    Val(tdatem) >= 1 And Val(tdatem) <= 12) Then
            GoTo stepA
        End If
'日の異常値指定を禁止
        If (fdated = "" And tdated = "") Then
            fdated = ""
            tdated = ""
        ElseIf Val(fdated) > Val(tdated) Then
            GoTo stepA
        ElseIf Not (Val(fdated) >= 1 And Val(fdated) <= 31 And _
                    Val(tdated) >= 1 And Val(tdated) <= 31) Then
            GoTo stepA
        End If
        
Exit Sub
stepA:
        MsgBox "期間は年月日を正しく入力をしてください。", _
                vbExclamation, "検索コントロール"
        検索コントロール.Controls("期間年から").Value = ""
        検索コントロール.Controls("期間年まで").Value = ""
        検索コントロール.Controls("期間月から").Value = ""
        検索コントロール.Controls("期間月まで").Value = ""
        検索コントロール.Controls("期間日から").Value = ""
        検索コントロール.Controls("期間日まで").Value = ""
        
        On Error GoTo 0
End Sub

Private Sub 雑誌名検索_Click()
        myKEY = 検索コントロール.Controls("検索雑誌名").Value
        Module2.雑誌名検索
End Sub

Private Sub 雑誌コード検索_Click()
        myKEYb = 検索コントロール.Controls("検索雑誌コード").Value
        Module2.雑誌NO検索
End Sub

Private Sub 送品取込_Click()
        Module1.送品予定表転記
End Sub

Private Sub 送品まとめ_Click()
        Module1.データをまとめる
End Sub

Private Sub 検索表示CR_Click()
        Module2.検索結果クリア
End Sub

Private Sub 送品まとめCR_Click()
        Module1.データまとめクリア
End Sub

Private Sub 日々送品表削除_Click()
        Module1.送品予定表削除
End Sub