Excel2007で広範囲のセルに乱数を入れる

sheet5の広範囲のセル(L6:BXI10000 )に1~5の数字を不規則に極力短時間で隙間なく埋める方法ってあります...

kkkkkm さんからの 回答

  • 2019/09/12 18:53
  • 回答No.1
kkkkkm

ベストアンサー率 53% (547/1024)

Excel(エクセル) カテゴリマスター
Application.ScreenUpdating = False
はいれても変わらないともいますので一応コメントにしています。

Sub Test()
Dim mData(1 To 9995, 1 To 65) As Variant
Dim i As Long, j As Long
' Application.ScreenUpdating = False
Randomize
For i = 1 To 9995
For j = 1 To 65
mData(i, j) = Int(5 * Rnd + 1)
Next j
Next i
Range("L6").Resize(9995, 65).Value = mData
' Application.ScreenUpdating = True
End Sub
お礼コメント
961awaawa

お礼率 81% (264/325)

こんばんはkkkkkm さん。いつもヘルプありがとうございます。所で65とはどういう意味になりますか?
投稿日時:2019/09/12 23:11
関連するQ&A
  • excelで、セルの色を他のシートのセルと同じにする。 オフィス系ソフト

    EXCELで、Sheet2のセルA1の色を、関数か条件付書式を用いて自動的にSheet1のセルA1と同じにできますか? マクロは使いません。 Winxp & excel2003 です。宜しくお願いします。...

  • 【Excel】別シートの入力結果でセルの色を変える オフィス系ソフト

    使用ソフトはExcel2010です。 ある商品が、何日に、どの種類がどれだけ売れたのかを視覚化し、最近よく売れている商品や全く売れていない商品を見極めるというシチュエーションです。 ここでは仮に1~10の商品があるとします。 sheet1のA1~A10にそれぞれ商品1~10の数字を記入します。 次にsheet2のA2~A11にそれぞれ商品1~10の数字を、B1、C1、D2という順に日付を入力します。 商品1~10の数字と日付がマトリックスになるかっこうです。 そして例えば3/27に商品1と3と4が売れたのであれば、sheet2の3/27の商品1と3と4のセルに10を入力します。 注文があったがキャンセルになった場合は5を入力します。 問い合わせだけがあった場合は3を入力します。 同様の作業を1週間繰り返します。 そして1週間が経過したとき、sheet1のB2~B10のセル(商品1~10の番号が入力された隣のセル)に sheet2に入力された値の合計に従って数字が入るようにしたいのです。 例えば、商品1が一週間に3日売れた日があった場合、sheet2にの1行には合計30の数値が入力されます。 sheet2で合計30という数値を上回った際にsheet1のB1セル(商品1の隣のセル)に3という数字を入れたいのです。 他の例ですと、例えば商品2に問い合わせが9回入ったとします。そうするとsheet2の2行には合計27の数字が入ります。この場合、2.7という数字がsheet1のB2のセル(商品2の隣のセル)入力されるようにしたいのです。 そしてその際、3以上なら赤、2.6~3.0未満ならオレンジ、2.1~2.6未満なら黄色、1.6~2.1未満なら青、1.0~1.6未満なら水色、というように数値に従って色分けされるようにしたいのです。 実際には商品は約300で、期間は1週間ではなく月単位となります。 上手く説明できず申し訳ございませんが、どなたかお教えいただけないでしょうか。...

  • ExcelVBAで複数範囲した色セルと、条件で別セルも同色になるように... Visual Basic

    ▼Excel2003を利用でSheet1とSheet2を使っての質問です▼ 下記に簡単に事例を記載いたします。(※実際にはデータが沢山あります) ★Sheet1にはA1~G3範囲横7列縦3行の表があり、表中にはA1、B1、C1、D1が空白でその次からは1~17までの数字が横列に沿って順次入っています。G3セルが最後の数字の17となっています。 横7列に入っている数字はA1、A2、A3、A4空白のセル以外は列毎にセル背景色が異なり全部で7色入っています。 ★次にSheet2に新たにA1~D4範囲内に表を作り、順次セルに数字値を入力し、例えばSheet2のA1セルが1だったら、そのSheet2のA1セル背景色をSheet1の表中の1が入力されているセルと同じ背景色にしたいです。 以上の課題をExcelVBAを使って解決したいのですがご存じの方いらっしゃいましたらVBAでどうプログラミング表現すれば良いか教えていただければ幸いです。 ちなみに私自身はExcelVBAを一度も使ったことがなく初心者です。 恐縮ながらもよろしくお願い申し上げます。...

  • excelのセルの色を変える オフィス系ソフト

    excel2000でsheet1にある列のうち たとえば sheet1のセルA1の値が「Z-1」だったら sheet2のセルB1を赤に塗りつぶす ってことはマクロでできますか? できなければVBAでどのようなコードになるのか教えていただけませんでしょうか?...

  • シート順のオートフィルの設定に関して(excel) その他MS Office製品

    excelでsheetを複数用いた場合のオートフィルの設定に関して質問です。  sheet10のB2のセルを「=sheet1!K3」としてその隣の列のC2が「=sheet2!K3」となっていくようにオートフィルを行いたいのですが、実際に行うとC2が「=sheet1!L3」になり、sheet1内での処理になってしまいます。 どのような設定を行えば、セルの場所が同じでsheetの番号だけ異なるようなオートフィルの設定にできますか?(sheet1からsheet9までデータが入力されています。) どなたかご存知の方がいらっしゃいましたら、よろしくお願いします。 使用しているのはexcel2010です。...

ページ先頭へ