No.3ベストアンサー
- 回答日時:
つぎの方法でできます。
反復計算を利用した方法です。
(1)ツール→オプション→計算方法 で、「自動」と「反復計算」にチェックを入れ、最大反復回数を1にする。
(2)E1に、=IF($H$1>=ROW(E1),IF(ISNUMBER(E1),E1,A$1),"")
(3)E1をF1,G1にコピー
(4)H1に、=IF(I1=0,0,H1+1)
(5)I1に、0
(6)E2に、=IF($H$1>ROW(E2),IF(ISNUMBER(E2),E2,A$1),"")
(7)E2を、E2~G100(など、必要なだけ)コピー
(8)D1に、=IF(ROW(D1)<$H$1,ROW(D1),"")
(9)D1を、D2~D100(など、必要なだけ)コピー
(10)ここで、I1を1に変える。
(11)F9を必要な回数押すと乱数が記録される。
(12)I1を0に戻すとリセットされる。
早々のご解答有難う御座います。
出来ました。私のやりたかった通りです。
ただ、1回目と2回目に同じ数字が入りますが
全然問題ありません。
自分で解決してみたいと思います。
ただ今、関数の勉強中ですので、また質問すると思いますが、よろしくお願いします。
有難う御座いました。
No.4
- 回答日時:
>A1~C1 に0~9の乱数を発生[=RANDBETWEEN(0,9)]させ
マクロは以下のとおりなのですが、この乱数には、癖があったような気がします。
思ったよりも出方が決まっているということです。これは、PCのランダム発生のメカニズムで、そのつど初期化しないと、決まった型になってしまうのだったと思います。
出来れば、乱数発生を(初期化=Randomizeしながら)、マクロで行うほうが良いかもしれません。
とりあえず、様子をみてください。
シートタブのところで、右クリック-コードの表示で、クリック
後は、以下を貼り付けてください。
Private Sub Worksheet_Calculate()
Dim ary
Dim rng As Range
Application.EnableEvents = False
ary = Range("A1:C1").Value
Set rng = Range("D65536").End(xlUp)
If Not IsEmpty(rng) Then
Set rng = rng.Offset(1)
rng.Value = Application.CountA(Range("D:D")) + 1 & "回目"
Else
Range("D1").Value = 1 & "回目"
End If
rng.Offset(, 1).Resize(, 3).Value = ary
Set rng = Nothing
Erase ary
Application.EnableEvents = True
End Sub
早々のご解答有難う御座います。
関数を十分理解した上で、マクロの勉強をしたいと
思っています。
ただ今、関数の勉強中です。
いただきましたコードもノートに記載しておき、
マクロの勉強の際に、役立てたいと思います。
有難う御座いました。
No.2
- 回答日時:
マクロで例えば10回計算させるなら以下のようなコードでできます。
Sub Sample()
For i = 1 To 10
Range("A1:C1").Copy
Range("E50000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues
Calculate
Next i
End Sub
早々のご解答有難う御座います。
関数を十分理解した上で、マクロの勉強をしたいと
思っています。
いただきましたコードもノートに記載しておき、
マクロの勉強の際に、役立てたいと思います。
有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルでエラーを無視して一番左側のセルの値を返したい 2 2023/07/27 13:06
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
- Excel(エクセル) excelにて、ある固定値から連番を振りたいが、上限値が異なる連番を振る処理を複数回行いたい場合 6 2022/10/22 11:01
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) 別シートに毎回異なるデータをコピーする 7 2022/06/24 09:02
- 数学 確率の計算式と答えを教えて欲しいです。 オンラインゲームでキューブというシステムがあり、キューブを一 2 2022/12/30 01:07
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- その他(プログラミング・Web制作) プログラミング pythonの問題について 2 2022/04/19 00:41
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで 自動的に◯や数字を...
-
【マクロ】2回実行したら、エ...
-
エクセルのツールバーから数値...
-
特定の文字列を含む、住所を抽...
-
Excel 2019 [オプション]の[リボンのユ...
-
祝日と土曜、日曜の合計をカウ...
-
EXCELの散布図で日付が1900年に...
-
マイクロソフトのPADを使ってい...
-
絶対参照
-
エクセルでCtrl+Tでテーブルの...
-
【マクロ】名前を保存する際に...
-
エクセルのクイックアクセスツ...
-
【マクロ】VLOOKUPにて参照元に...
-
Excel分数の表示について
-
【EXCEL】画像の黄色部分の抽出...
-
DATE関数で現在の年齢を出した...
-
Excelについて
-
マクロエクセルのブロック解除
-
Excelピボットテーブルの1行目
-
REGEXREPLACE関数について、
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報