Excelマクロ（VBA)で作る管理システム②

Sub サブ_日付増減(Tani As String, Zougen As Integer)'===日付テキストボックスの値を変える
    Dim Mydate As Date
    If IsDate(txt日付.Text) = True Then'日付テキストボックスの日付が日付データならば
        Mydate = DateAdd(Tani, Zougen, txt日付.Text)'DateAdd関数
        txt日付.Text = Format(Mydate, "yyyy/m/d")
    Else
        txt日付.Text = Format(Date, "yyyy/m/d")
    End If

End Sub
'===「年」スピンボタンをクリック===
Private Sub spnNen_SpinDown()
    サブ_日付増減 "yyyy", -1'日付増減プロシージャへ（引数：年の表示形式と-1）
End Sub
Private Sub spnNen_SpinUp()
    サブ_日付増減 "yyyy", 1'日付増減プロシージャへ（引数：年の表示形式と+1）
End Sub

'===「月」スピンボタンをクリック===
Private Sub spnTuki_SpinDown()'日付増減プロシージャへ（引数：月の表示形式と-1）
    サブ_日付増減 "m", -1
End Sub
Private Sub spnTuki_SpinUp()'日付増減プロシージャへ（引数：月の表示形式と+1）
    サブ_日付増減 "m", 1
End Sub

'===「日」スピンボタンをクリック===
Private Sub spnHi_SpinDown()'日付増減プロシージャへ（引数：日の表示形式と-1）
    サブ_日付増減 "d", -1
End Sub
Private Sub spnHi_SpinUp()
    サブ_日付増減 "d", 1'日付増減プロシージャへ（引数：日の表示形式と+1）
End Sub

'===初期設定(ユーザーフォームのイニシャライズ）
Private Sub UserForm_Initialize()
    txt日付.Text = Format(Date, "yyyy/mm/dd")'日付テキストボックスに今日の日付を設定
End Sub

Private Sub spnNen_SpinUp()
    サブ_日付増減 "yyyy", 1
End Sub

Private Sub cmb検索_Click()
    Dim data As Variant
    Dim str As String
    Dim i As Long
    Dim Code As String
'解説①
    str = txtバーコード.Text 'バーコード入力欄の内容を変数に格納
    
    If str = "" Then 'バーコード欄が空欄ならば
        MsgBox "バーコードを入力してください"
        Exit Sub
    End If
    
    str = StrConv(str, vbNarrow) '文字列変数を半角に変換
'解説② 
    With Sheets("商品マスタ") '商品マスタシートのフィルタ解除
        If .AutoFilterMode Then
            .Range("A1").AutoFilter
        End If
        data = .Range("A5").CurrentRegion '商品マスタシートのデータベースを配列に格納
    End With
    
    Application.ScreenUpdating = False
'解説③    
    With Sheets("検索") '検索シートに配列を格納
         .Cells.Clear
         .Range("A1", .Cells(UBound(data), UBound(data, 2))) = data
         
         '昇順に並べ替え
         .Range("A1").CurrentRegion.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes
  
 '解説④  
        'A列のバーコードとバーコード欄を照合して、含まれていなければ削除のループ
        For i = UBound(data) To 2 Step -1
            Code = StrConv(.Cells(i, 1), vbNarrow) '半角に変換
             
            If InStr(Code, str) = 0 Then '検索バーの数字がリストの数字になければ
                .Cells(i, 1).EntireRow.Delete '行の削除
            End If
        Next i
        Erase data
        data = .Range("A1").CurrentRegion '検索シートの削除済みデータを配列変数に格納
        
    End With
  '解説⑤  
    With ListBox1 '配列変数をリストボックスに反映
        .ColumnCount = -1
        .List = data
        .SetFocus
    End With
    
    Application.ScreenUpdating = True
    
End Sub

str = txtバーコード.Text 'バーコード入力欄のデータを変数に格納

With Sheets("商品マスタ") '商品マスタシートのフィルタ解除
        If .AutoFilterMode Then
            .Range("A1").AutoFilter
        End If
        data = .Range("A5").CurrentRegion '商品マスタシートのデータベースを配列に格納
    End With

With Sheets("検索") '検索シートに配列を格納
         .Cells.Clear
         .Range("A1", .Cells(UBound(data), UBound(data, 2))) = data
         
         '昇順に並べ替え
         .Range("A1").CurrentRegion.Sort key1:=.Range("A1"), order1:=xlAscending, Header:=xlYes


'A列のバーコードとバーコード欄を照合して、含まれていなければ削除のループ
        For i = UBound(data) To 2 Step -1
            Code = StrConv(.Cells(i, 1), vbNarrow) '半角に変換
             
            If InStr(Code, str) = 0 Then '検索バーの数字がリストの数字になければ
                .Cells(i, 1).EntireRow.Delete '行の削除
            End If
        Next i
        Erase data
        data = .Range("A1").CurrentRegion '検索シートの削除済みデータを配列変数に格納

With ListBox1 '配列変数をリストボックスに反映
        .ColumnCount = -1'表示列数
        .List = data'参照範囲はdata配列変数
        .SetFocus
    End With