• 締切済み

エクセル教えて!(1)ファイル名変更(2)ランダム

エクセルで教えてください!初心者なもので、行き詰まり困っています。 どなたか、お教えいただけないでしょうか。 Aファイルでランダム表示したデーターをBファイルに「値をコピー」するマクロを作り、 Aファイル上にボタンを作りました。 自分のフォルダ内で操作していたところ、うまく動きましたが 2つのファイルをコピーして人にあげたら、うまくいきません。 原因は、コピーされるBファイルが、もともとの私のファイルを選択しており、 変更できていないからです。 (1)コピー先にあるBファイルに保存する様指定するにはどうしたらいいですか? 次に、1~12の数字をランダム表示する件について、3つのセルをひとくくりにしたいのですが、 A1  12 A2  12 A3  12 のように値が重複することがあります。重複しないようにランダム表示することはできませんか? 数式は、=ROUND(RAND()*11,0) としました。 申しわけありませんが、どうかお力をお貸しください! お願いします。

みんなの回答

noname#204879
noname#204879
回答No.2

無重複ランダムの件、 添付図参照 C1: =RAND() A1: =RANK(C1,C$1:C$12)

yochi_ayumu
質問者

お礼

すごいです!思ったとおりになりました! ありがとうございました。 私にできる簡単な操作を教えていただき、 とても助かりました。 心から感謝します!ありがとうございました!

  • a_a-no
  • ベストアンサー率0% (0/0)
回答No.1

とりえあえず1のご質問のみで申し訳ありませんが・・・ 記録されたマクロを開いて以下の文を追加してください。 cdir = ThisWorkbook.Path & "\" '現在開いているパスをcdirに取得 Fname = cdir & "B.xls"      'Fnameに名前を設定します あとはマクロ中の x:\xxxxxxx\B.xls を Fname に変更すれば動くと思います。 ブックAとBは同じフォルダでないと動作しません。 上記xはイメージで実際には別なパスが入っています。 ご参考までに

yochi_ayumu
質問者

お礼

素晴らしい方法ですね! 全く知らなかったので、動いた時には感動しました。 おかげで保存場所を変えても、データがついてきてくれるようになりました! 具体的に教えていただいたので、とてもよくわかりました。 本当にありがとうございました!

関連するQ&A