|
マナさん
正常に動きました。有難うございます。
重ね重ねすみません。
下記のモジュールの意味を教えて頂きたいのですが
教えてください。
宜しくお願い致します。
Sub try1b()
Dim i As Long
'長整数型
Dim v As Variant
'どんなデータでも格納できる型
If WorksheetFunction.CountA(Range("B7,C4")) < 2 Then
もし、"B7"か"C4"がゼロだったらMsgBox。?
MsgBox "【住所または社名が入力されてません。】"
Else
MsgBox "【住所 社名が差出票にセットされました。】"
End If
With Sheets("メニュー")
.Range("B7").Value = .Range("C4").Value
v = .Range("C3:C4").Value
End With
With Sheets("Sheet2")
For i = 10 To 163 Step 51
'10から163でStep 51?
.Cells(i, "C").Resize(2).Value = v
Next
For i = 216 To 303 Step 29
.Cells(i, "C").Resize(2).Value = v
Next
End With
End Sub
|
|