• ベストアンサー

Excel2007で整数の乱数

皆さまいつも解答していただいて誠にありがとうございます。今回は二回目の乱数の使用なんですが質問させて下さい。 (1)マクロボタンを押します。 (2) U6:U15000の各セルに1~10の乱数をいれます。そうすることによってAA6:AA15000に何らかの記号が各セルに一つずつ入ります。 (3)そのAA6:AA15000に記号が入ってますがAA1:AA15000をコピーしてsheet3のA1:A15000にコピーします。 (4)、(1)に戻って(3)まで行きましてAA1の隣のBB1:BB15000にコピーします。 右隣にコピーしていきます。 よろしくお願いいたします。

質問者が選んだベストアンサー

  • ベストアンサー
  • HohoPapa
  • ベストアンサー率65% (454/691)
回答No.1

>(2) U6:U15000の各セルに1~10の乱数をいれます。 >そうすることによってAA6:AA15000に >何らかの記号が各セルに一つずつ入ります。 どのシートのことでしょうか? マクロがこれらのセル(U6:U15000)に値を埋めることを求めているんですね? それは整数ですか?、小数ですか? 小数なら小数点以下の桁数は? 重複してもいいんですね? U6の値が決まるとAA6に埋まる文字列が決まるように読み取れますが AA6の文字列をどのように求めればいいでしょうか? さらに、 VBAのコーディングで どの部分が不明でしょうか? 仕掛のコードを示してみてください。

961awaawa
質問者

お礼

ご返答ありがとうございますHohoPapaさん。 >どのシートのことでしょうか? シートはどのシートでも使えるようにしたいです。 マクロがこれらのセル(U6:U15000)に値を埋めることを求めているんですね? それは整数ですか?、小数ですか? 小数なら小数点以下の桁数は? 重複してもいいんですね? 本当に質問べたですよねw 申し訳ないです。乱数って使ったこと無いので……1~10でお願いします。 U6の値が決まるとAA6に埋まる文字列が決まるように読み取れますが AA6の文字列をどのように求めればいいでしょうか? そうなんです。記号ができるんです。 質問を少し訂正します。

関連するQ&A

  • Excel2007で乱数をつくりコピペしたいのです

    Excel2007で乱数をつくりコピペしたいです (1)、マクロボタンを押します。 (2)、1~10の数字を乱数で(U6:U15000)に表示(同じ数字が連なっても大丈夫)したらAA3に数値ができあがります。 (3)、(U6:U15000)に出来た乱数をsheet5のC6から下にコピペして、 (4)、(2)でAA3に数値ができあがるのでそれをsheet5のC4にコピペします。 (5)、(1)に戻ってマクロボタンを押すと(2)(3)(4)と行くのですがコピペする場所はCから一つ右隣のDと、マクロボタンを押す度に右隣にコピペしたいです。 ご協力お願いいたします。

  • Excel2007で乱数を利用して

    乱数を利用して抜き出したいです 0~9の数字記号がありまして、その内のいずれかがセルA~AJの各セルに入ってます。 セルA~AJは1~36番目と言うことなんで数字1~36を乱数で被ることなく6個をとり その6個を利用してセルA~AJの数字記号を抜き出してセルQ6~V6に表したいです。 マクロボタンを押す度に別の乱数でまた抜き出しては次のQ7~V7へと、違う乱数を使っては下へ下へと表示したいです。 よろしくお願いいたします。

  • Excelマクロ 別シートへ連続コピペの方法

    Excelマクロ初心者です。 現在以下のような作業をマクロを組もうとしています。 シート1のA3:A9の数値をコピー→シート1の右隣のシート(仮にシート2とします)のC3:C9へペースト→シート1へ戻りB3:B9の数値をコピー→隣の隣のシート(仮シート2の右隣のシート)のC3:C9へペースト というのをシート1のAA3:AA9まで繰り返したいです。 こういうマクロを組むのは可能なのでしょうか? もし組めるとしたらどのように組めばいいか教えて頂きたいです。 よろしくお願いします。

  • Excel住所録に写真画像を取込む方法を教えて?

    Excel2007で作った住所リストのDBのセルに、顔写真などのjpeg画像を取り込みたいのですが、他のQ&Aサイトにおける似た質問での解答例などを見ても、マクロを使わず“画像としての貼り付けは可能”なようですが、実際自分で試すと思うような結果が得られません。 高級なテクニックなど備わっていない中級レベルの者にも手順が理解できるように、具体にわかりやすく教えていただけたら、助かります。 たとえば、「DBlist」シートのA1からA5までの各セルにAA_aa,BB_bb,CC_cc,DD_dd,EE_eeの名前データがあり、 同シートのC1からC5までのセルに、「JpegData」シートのA1からA7までのセル欄にそれぞれがランダムにセル内貼り付けコピーされたjpeg画像(phAA_aa,phBB_bb,…,phGG_ggのファイル名を持つ画像が順不同で並んでいる)を、 名前に該当するセル欄に正しく読み込みコピー貼り付けする処理が、マクロを使わずC列にどういった関数処理式をあてはめればよいのでしょうか。 そしてそれは、、「DBlist」シートのA1からA6までの名前リストの順番が、たとえば≪A,B,C,F,E,D≫などと変わった場合でも、画像が連動してC列で正しく入れ替えられるのでしょうか。 慣れない質問で画像も添付できず、まどろっこしい表現で申し訳ございませんが、よろしくご教示ください。

  • 発生させた乱数を用いての作業

    こんにちは 今回乱数発生で300個の乱数を作りました その乱数の二乗を新しいシートに出したいのですが、 単純にひとつの値をコピーして、それを二乗してオートフィル とやっても同じ値しか出てきません コピーする段階で、Sheet1のA1 のコピーという感じでできればいいのですが 単純に乱数の値しかコピーしてくれません。 どうすればできるのでしょうか? どうか教えてください

  • Excel2007で必要でないデータ

    必要でないデータを可視化したいとおもいまして質問させて頂き御協力お願いします。 (1)、まずU3~AF3のセルを空にします。U3~AF3のセルの1つずつに記号として扱われるア、イ、ウ、エ、オ、カ、キ、ク、ケ、コ、と空白のいずれかが入ります。 (2)、(1)でU3~AF3に入ったそれらの記号を利用して記号のアイウエオカキクケコの中から消します。 (3)、(2)で消されずに余った記号をセルAH3から右に向かって各セルに1つずつ入れます。 (4)、(1)に戻り違う記号が入ります。(2)にいき(3)についたらセルAH3の下のセルAH4から右に向かって…をマクロボタンを押す度に繰り返したいです。

  • Excel2007で質問です。

    sheet1にセルD3から下に向かってデータが2000個以上入ってます。 (1)マクロボタンを押します。 (2)D列で任意の行番号の値(今回は1000行目)をコピーします。 (3)sheet2,sheet3,sheet4のN6に(2)をペイストします。 (4)、(1)に戻りマクロボタンを押します。 (5)、(2)に行きまして、1つ下の1001行目をコピーします。 (6)、(3)に行きN6の下のN7にペイストします。 これをマクロボタンを押す度に繰り返したいです。

  • Excel2007で質問です

    U3~AF3のセルの1つずつにアイウエオカキクケコのいずれかがランダムに入ります。 ランダムに入ったそれらを利用してアイウエオカキクケコの記号から消して残った記号をセルAHから右に向かって各セルに1つずつ入れます。 先程の残った記号の入ったAHから右のセル群を今度はsheet1に行きましてA1から下に向かって入れたいです。 誰か教えて下さい。

  • エクセル2007で複数ファイル間コピーマクロ

    エクセルでマクロを組もうとしていますが、初歩的なことでつまづいており、ぜひ助けを頂けたらと思います。 VBA言語はほとんどわかりませんが、エクセルでマクロを組んでいます。 一つのワークブック内での登録は問題なく行えるのですが、ワークブック間のコピペをマクロに登録するとうまくいかず困っています。 やりたいことは以下のようなことです。 file.Aのsheet1のA1セル ⇒ file.AAのsheet1のA1セル へコピー file.Bのsheet1のA1セル ⇒ file.BBのsheet1のA1セル へコピー     ・     ・     ・     ・ file.Zのsheet1のA1セル ⇒ file.ZZのsheet1のA1セル へコピー VBAを確認すると、ワークブック名が指定されているため、うまく次のファイルに移行できずにいるようです。 以下が黄色でハイライトされます。 Windows("file.A").Activate 初歩的なことだとは思うのですが、なかなか検索で答えが引っ張りだせないので、A-Zのファイルをコピペできるマクロにするにはどのようにしたら可能なのか教えてください。 よろしくお願いします。

  • Excel2000のマクロが上手くいきません

    はじめまして、よろしくお願いします。 仕事で下記のような条件のマクロを作っています。 全くの初心者ですが、 いろんなHPを見て例文を書き写したりしながらなんとか作ってみたのですが、 ですが、どうしても上手く実行されません。 お恥ずかしい話ですが、 ものすごく根本的な簡単なミスをしているだと思うのですが、 どの部分が間違っているかも正直分からなくなってきました。 ご教授いただければ幸いです。 「AAファイルのS1シートのA2~B10をBBファイルのS2シートA2~B10へコピーし、 BBのS2シートB2~B10までの中でデータの入っていない行は削除する」 マクロはBBファイルに書き込んでいます。 また、AAとBBの両方を開いて実行もしています。 Sub Workbooks("AA.xls").Worksheets("S1").Range("A2:B10").Copy _ Workbooks("BB.xls").Worksheets("S2").Range("A2") Application.ScreenUpdating = False On Error Resume Next With Columns("A2:A10") .SpecialCells(xlCellTypeConstants).EntireRow.Hidden = True .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True .SpecialCells(xlCellTypeVisible).EntireRow.Delete .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub お手数おかけいたしますが、よろしくお願いいたします。

専門家に質問してみよう