取引先紐づけ@VBA試作

vba試作.txt

Option Explicit


Public Sub sample()


'プログラム2｜シート設定
Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("取引先マスタ")
Set ws2 = ThisWorkbook.Worksheets("記入用")

'プログラム3｜各シートの最終行を取得
Dim cmax1 As Long, cmax2 As Long
cmax1 = ws1.Range("A65536").End(xlUp).Row
cmax2 = ws2.Range("A65536").End(xlUp).Row

'プログラム4｜データをリセット
 'ws2.Range("B5").ClearContents
 If Not cmax2 = 7 Then: ws2.Range("B8:D" & cmax2).ClearContents
 

    'プログラム6｜取引先を取得
    Dim torihiki As String
    torihiki = ws2.Range("B5").Value

 'プログラム7｜取引先が空欄か判定
Dim flag As Boolean ' BooleanのDefault値はFalse
    If torihiki = "" Then: flag = True

'プログラム8｜変数の初期化
Dim n As Long: n = 8
    
 'プログラム9｜条件に合致した行を抽出
Dim i As Long
For i = 2 To cmax1
    

        

    If flag = False Then
       If ws1.Range("A" & i) <> torihiki Then: GoTo Continue
    End If
    
    'プログラム10｜条件に合致した行のデータのみを対象して分析
    ws2.Range("B" & n & ":D" & n).Value = ws1.Range("A" & i & ":C" & i).Value
    n = n + 1
    
'プログラム11｜プログラム9で条件に合致しなかった場合、ここへジャンプ
Continue:
    Next
       
End Sub