|
VBA超初心者 さん、こんにちは
>テキストボックスの値を配列に入れたいのですが,うまくいきません。
>ボックスの名前をBox1〜Box10 として以下のようなマクロを書いてみましたけど
>うまくいきません。
>何か根本的な間違いをしているとおもうのですが良くわかりません。
>
>Dim MyTextBox(1 To 10) As Object
>Dim ISNG(1 to 10) As Single : Dim ICNT As Integer
>ThisWorkbook.Sheets(MySheet).Activate
>With ActiveSheet
>For ICNT = 1 To 10
> Set MyTextBox(1) = Controls("Box" & ICNT)
> ISNG(ICNT) = MyTextBox(ICNT).Text
>Next ICNT
>End With
Set MyTextBox(1) = Controls("Box" & ICNT)
ここなんですが、MyTextBox(1) じゃなくて、
MyTextBox(ICNT)なんじゃないですか?
ところで、なんで
With ActiveSheet
・・・
End With
としてるのでしょう?
中で、シートを参照してない・・・・よね????
|
|