Excel VBA 質問スレッド No.40 (未解決)

テキストボックスを作成し、連続するセル参照をそこに入力

投稿者 : 横浜太郎     投稿日時 : 2017/10/13(Fri) 13:55:01     OS : Windows 7     EXCEL : Excel 2010
VBAで、テキストボックス(オブジェクト)を作成し、そのテキストボックスにセル参照を入力したいです。
セル(W1)からセル(W1000)までのセル参照「”=W1”」~「”=W1000”」を、テキストボックス1000個にそれぞれ入力したいです。

ご教示の程、よろしくお願いします。

[返信 1] Re : テキストボックスを作成し、連続するセル参照をそこに入力
投稿者 : スズキ     投稿日時 : 2017/10/16(Mon) 14:00:55
テキストボックスを配置するのはユーザーフォームでしょうか?
とりあえずその前提でサンプル作成してみました。

フォーム上にCommandButton1というボタンを配置しておいて、
そのボタンを押すとフォーム上にテキストボックス1000個作成します。
フォームの大きさやテキストボックスの位置は必要に応じて変更してください。

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 1000

With UserForm1.Controls.Add("Forms.TextBox.1")
.Top = (i - 1) * 18 + 5
.Left = 5
.Value = "W" & i
End With

Next i

End Sub

[返信 2] Re : テキストボックスを作成し、連続するセル参照をそこに入力
投稿者 : 横浜太郎     投稿日時 : 2017/10/19(Thu) 11:51:12
スズキ様、回答ありがとうございます。

テキストボックスを配置するのは、エクセルのシートです。
言葉足らずで申し訳ございません。
そして、できれば、ボタンは配置したくないので、マクロの状態(ショートカットキー「q」)でお願いしたいです。
ご教示の程、よろしくお願い致します。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-07-18 02:21:38 )

Page
Top