[[20200210022002]]　『マクロでWorksheet内設置のTextBoxの番号を変数で』（マイン）　ページの最後に飛ぶ

『マクロでWorksheet内設置のTextBoxの番号を変数で扱う』（マイン）

お世話になっております。

シート1に

ActivexのTextBoxを11コ配置しておりその値を

シート2のセルに表示させようとしております。

質問は

TextBox_0～11

の番号部分を変数でループさせようと

sh1.TextBox_(i).Value

や

sh1.Controls("TextBox_" &　i).value

でしてみましたが認識してくれませんでした。

皆さま、コントロールの番号部分を変数で扱う方法を
アドバイスのほどよろしくお願いいたします。

以下がコードです。

  Dim c As Variant, i As Long

  i = 0

  For Each c In Array(24, 27, 32, 41, 50, 60, 68, 80, 84, 88, 93, 106)

        sh2.Range("H" & c) = sh1.TextBox_(i).Value

    i = i + 1

    Next c

＜使用 Excel：Excel2010、使用 OS：unknown ＞

 OLEObjects
 で、検索すればいくつか見つかると思います。
（BJ） 2020/02/10(月) 02:42

sh1.Range("H" & c).Value = sh2.OLEObjects("TextBox" & i).Object.Value
をためしてみてください。
# 書き込みに衝突しました。折角書いたので失礼しますね。
# こんな夜分に.....。お疲れ様です。
（γ） 2020/02/10(月) 02:54

BJさん
Yさん

夜中にありがとうございます。
バッチリできました。

OLEObjects で検索するとわんさかでてきました。
Activexのコントロールは最近取り組み始めたので、わからないことだらけです。

今後とも宜しくお願いします。

（マイン） 2020/02/10(月) 17:51

コメント返信：

[ 一覧(最新更新順) ]

[[20200210022002]] 『マクロでWorksheet内設置のTextBoxの番号を変数で』（マイン） ページの最後に飛ぶ

[[20200210022002]]　『マクロでWorksheet内設置のTextBoxの番号を変数で』（マイン）　ページの最後に飛ぶ