|
▼つん さん:
>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
>
>としてるのでしょう?
>中で、シートを参照してない・・・・よね????
すいません単純な間違いをいていまいた。
ところで,テキストボックスの配列かはできるのですか。
お手数ですが教えてください。
|
|