2011-06-08から1日間の記事一覧
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_…