Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5892 / 76732 ←次へ | 前へ→

【76445】Re:【76410】値のコピペの続き
質問  こずえ  - 14/12/3(水) 14:42 -

引用なし
パスワード
   マナさん
正常に動きました。有難うございます。

重ね重ねすみません。
下記のモジュールの意味を教えて頂きたいのですが
教えてください。
宜しくお願い致します。

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

2 hits

【76437】【76410】値のコピペの続き こずえ 14/12/2(火) 12:15 質問[未読]
【76441】Re:【76410】値のコピペの続き マナ 14/12/2(火) 21:32 発言[未読]
【76442】Re:【76410】値のコピペの続き マナ 14/12/2(火) 21:56 発言[未読]
【76445】Re:【76410】値のコピペの続き こずえ 14/12/3(水) 14:42 質問[未読]
【76447】Re:【76410】値のコピペの続き マナ 14/12/3(水) 22:09 発言[未読]
【76448】Re:【76410】値のコピペの続き マナ 14/12/3(水) 22:28 発言[未読]
【76449】Re:【76410】値のコピペの続き こずえ 14/12/4(木) 8:27 お礼[未読]

5892 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free