Excel VBA質問箱 IV

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

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


3044 / 76735 ←次へ | 前へ→

【79330】Re:RANDBETWEENについて
発言  カリーニン  - 17/7/18(火) 22:57 -

引用なし
パスワード
   ワークシート関数を直接使う場合は↓のように書きます。

Sub test2()
Dim c As Range
Dim r As Range
Set r = Worksheets("Sheet1").Range("B2:U21")
For Each c In r
 c.Value = WorksheetFunction.RandBetween(0, 1)
Next c
Set r = Nothing
End Sub

0 hits

【79327】RANDBETWEENについて あああああ 17/7/18(火) 22:27 質問[未読]
【79328】Re:RANDBETWEENについて カリーニン 17/7/18(火) 22:41 発言[未読]
【79329】Re:RANDBETWEENについて カリーニン 17/7/18(火) 22:44 発言[未読]
【79330】Re:RANDBETWEENについて カリーニン 17/7/18(火) 22:57 発言[未読]
【79331】Re:RANDBETWEENについて カリーニン 17/7/18(火) 23:06 発言[未読]
【79332】Re:RANDBETWEENについて カリーニン 17/7/18(火) 23:51 発言[未読]
【79333】Re:RANDBETWEENについて あああああ 17/7/19(水) 23:22 お礼[未読]
【79334】Re:RANDBETWEENについて カリーニン 17/7/26(水) 0:20 発言[未読]

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