Public Type SyainData 'Dataの構造体（ユーザー定義型）を宣言 Id As Long Name As String Kinzoku As Long Syozoku As String Yakusyoku As String End Type - Public Sub test() Dim i As Long Dim WrkSyainData() As SyainData If GetSyainData(WrkSyain…

Public Sub test() Dim i As Long Dim WrkRange As Variant If ChkNumber(Range("syain_id"), 3) Then '---- Trueで実行 WrkRange = Sheets("SyainMST").UsedRange For i = 1 To UBound(WrkRange) If WrkRange(i, 1) = Range("syain_id") Then Range("syain_…

Public Sub test() Dim i As Long Dim WrkRow As Long Dim WrkCol As Long Dim WrkRange As Variant With Sheets("SyainMST") WrkRow = .Cells(Rows.Count, 1).End(xlUp).Row WrkCol = .Cells(1, Columns.Count).End(xlToLeft).Column WrkRange = .Range("A1…