エクセルでマクロを書いているのですが
Rand()関数を使用しようとするとエラーが起きてしまいます。。
アドインは全てインストールしているのですが、原因がわかりません。
知っている方しましたら、ご教授お願い致します。
■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
Private Sub btnCreate_Click()
'ループ用の行数。
maxQuestion = 30
'ランダム用の最大値
maxRowCnt = ActiveSheet.UsedRange.Rows.Count
For i = 1 To maxQuestion
'ランダムでコピーし貼り付け
Sheets("Answer").Select
rndm = Int(rand() * (maxRowCnt - 1) + 1)
Sheets("Answer").Range("A" & rndm & ":" & "C" & rndm).Select
Selection.Copy
Sheets("Question").Select
Range("A" & i).Select
ActiveSheet.Paste
delCol = Int(rand() * (2 - 1) + 1)
If (delCol = 1) Then
Sheets("Question").Cells(i, 1).Value = ""
Else
Sheets("Question").Cells(i, 2).Value = ""
End If
Next i
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) ExcelVBAでDo Until loopのネスト、IF文を使って一致する物と一致しない物としたい 11 2022/12/24 17:46
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
貼り付けをマクロで禁止させたい。
-
あみだくじの横線の本数の求め方
-
エクセルのselect case で 100...
-
excel2000でのマクロ記録
-
ゾンビエクセル・・・(Exc...
-
VBAで写真参照→写真サイズ変...
-
マクロでエクセル内のアウトラ...
-
不明なコマンドです("FROM")。...
-
Access2010 「演算子がありませ...
-
【ExcelVBA】sheet作成時にマク...
-
オペランドが足りませんとコメ...
-
エクセル/マクロ Exit Subが実...
-
Excel2010でふりがなが漢字にな...
-
エクセルの文字間スペースを入...
-
VBA シートの切り替えができな...
-
pythonでrequestsが使えない
-
mfc42.dllファイルってなんです...
-
マクロ実行ボタンがコピー出来ない
-
VBAでシートコピー後、シート名...
-
WordPressをインストールしてい...
おすすめ情報