Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5895 / 76735

←次へ　｜　前へ→


	【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

0 hits

▼

【76437】【76410】値のコピペの続き こずえ 14/12/2(火) 12:15