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ランキング
-
下記マクロでMsgBox "空白です...
-
在庫管理表に使うエクセルの関...
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
職場の人から聞かれており、こ...
-
PDFの請求明細をエクセルにしたい
-
エクセルで表
-
Excel関数-文字列で自動作成さ...
-
Microsoft Officeの中古は信用...
-
Excelデータをコピペして、ペー...
-
Excelで50個のセルに同じ文字を...
-
エクセルで会社の従業員のデー...
-
エクセルの関数について教えて...
-
エクセルの表で1年間の曜日を...
-
スプレッドシート、Excelでの数...
-
Excelで、項目の種類ごとにカウ...
-
「問題が発生しました」ですと?
-
LOOKUP関数を使えばいいのでし...
-
Excel:一部のフォントでセルの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報