No.3ベストアンサー
- 回答日時:
>重複しない乱数
各列でって事なら
Sub Test()
Dim i As Long, j As Long, 乱数 As Long
Dim v(1 To 20) As Boolean
Randomize
For i = 6 To 12
For j = 5 To 20
Do
乱数 = Int((Rnd * 20) + 1)
Loop While v(乱数)
v(乱数) = True
Cells(j, i).Value = 乱数
Next j
Erase v
Next i
End Sub
No.4
- 回答日時:
表現が曖昧になっちゃってる。
解釈は、少なくとも 2つ。
1) 1から20 の乱数は、整数と書いてないから小数も OK
2) 1から20 は、整数だけど、F5 から L20 に全部数字を入れるのではなくて、ランダムにセルを選んで 20個いれる。
No.1
- 回答日時:
どうぞ。
Sub MakeRandInt()
Dim i As Integer, j As Integer
For i = 5 To 20
For j = 6 To 12
Cells(i, j).Value = Int(Rnd() * 20 + 1)
Next j
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセル・セルに数式を入力してセル指定計算 2 2023/04/21 12:46
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/10/25 17:10
- Visual Basic(VBA) VBAでfunctionを利用しようとしたときに「引数は省略できません」というエラーが出ます 1 2022/10/15 16:30
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Excel(エクセル) エクセルで教えて下さい。 2 2022/05/18 13:00
- 英語 第5文型及び第4文型で同じ動詞が反復する場合のその動詞の省略の可否について 7 2022/09/27 11:02
- Excel(エクセル) Excel2019 列と列(2列)の数値の重複を調べたい 1 2023/05/11 13:35
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力したセル番地をメッセージ...
-
特定のセルが空白だったら、そ...
-
Excelで指定した日付から過去の...
-
VBAでセル同士を比較して色付け
-
【Excel】指定したセルの名前で...
-
EXCELで変数をペーストしたい
-
Excelのプルダウンで2列分の情...
-
【VBA】カーソルのある行の1行...
-
指定した条件で行セルを非表示...
-
任意フォルダから画像をすべて...
-
【Excel】セルの背景色、文字色...
-
【Excel VBA】指定行以降をクリ...
-
エクセルマクロでアニメを作る...
-
DataGridViewで右寄せ左寄せが...
-
テキストボックスに入力したデ...
-
重複しない乱数
-
置換文字を連番で振りたい
-
特定の文字を条件に行挿入とそ...
-
ExcelVBA:オートフィルタをかけ...
-
Excel2013,2016 マクロの動作が...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報