|
▼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"の部分の関数は、任意で変更されるのでこのようにしました!
VBAの文法?的に、正しいのかはわからないですが・・・
今度は、これをランダムで選択できるようにしたいと思います。
また、行き詰まったら質問させていただきたいと思います。
今回は本当にありがとうございました。(誤字脱字など、あるかと思いますが、ご容赦ください)
|
|