ようこそ ゲスト さん、新規登録（無料）して気になる疑問を解決しませんか？
はじめての方へ｜ヘルプ｜FAQ

質問
質問者：mogurakantoku 【Ｅxcel】セルに入れた数字だけ同じことを繰り返す【VBA】
困り度：
  • 暇なときにでも
 A1のセルに数値を入れ、マクロを実行させたときに
A1に入れた数値だけ同じ行動を行うというプログラムを作りたいのですが、
うまくいきません。

VBAで実行させたいです。

Sub Macro1()
c = 1
For a = 1 To 54
Cells(2, 2) = a
b = Int(54 * Rnd + 1)
If Cells(10, b) = 0 Then Cells(10, b) = c: c = c + 1: Cells(1, a) = b Else a = a - 1
Next a
End Sub

未だたたき台なプログラムですが、これを元に作成できないでしょうか？
質問投稿日時：08/07/02 17:51
質問番号：4146169
この質問に対する回答は締め切られました。

回答

良回答20pt
回答者：hallo-2007 やりたいことがよくわかりませんが
A1に54　と入れてあって

Sub Macro1()
c = 1
d = Range("A1").Value'ここに追加しました。
For a = 1 To d'A1の回数になります。
Cells(2, 2) = a
b = Int(54 * Rnd + 1)
If Cells(10, b) = 0 Then Cells(10, b) = c: c = c + 1: Cells(1, a) = b Else
'a = a - 1　ここの意味がわからなかったの外してあります。
Next a
End Sub

作動させてみて違ったらすみません。
種類：アドバイス
どんな人：一般人
自信：参考意見
回答日時：08/07/02 18:06
回答番号：No.1
この回答へのお礼ありがとうございます。
a=a-1を入れたのはランダムでも以前出た数値を抜かすために入れていました。
このページのトップへ