| |
▼ichinose さん：
こんばんは。今朝お答えを頂いたdonaです。
今日さっそく実践してみました。
教えていただいたコードを実行した後、自分で少し変更してみました。
変更した点は、
===============================================================
Range("a1:a3").Value = Application.Transpose(Array("abc", "def", "ghi"))
===============================================================
の部分を
===============================================================
Range("a1:a3").Value = Application.Transpose(Array((a1.Text, (a2.Text), (a3.Text)))
===============================================================
のように変更してみました。
"abc""def""ghi"の部分の関数は、任意で変更されるのでこのようにしました！
ＶＢＡの文法？的に、正しいのかはわからないですが･･･
今度は、これをランダムで選択できるようにしたいと思います。
また、行き詰まったら質問させていただきたいと思います。
今回は本当にありがとうございました。（誤字脱字など、あるかと思いますが、ご容赦ください）
|
|
dona
- 06/2/24(金) 20:49 -
