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

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

投稿者 : 横浜太郎投稿日時 : 2017/10/13(Fri) 13:55:01 OS : Windows 7 EXCEL : Excel 2010

ＶＢＡで、テキストボックス（オブジェクト）を作成し、そのテキストボックスにセル参照を入力したいです。
セル（Ｗ１）からセル（Ｗ１０００）までのセル参照「”＝Ｗ１”」～「”＝Ｗ１０００”」を、テキストボックス１０００個にそれぞれ入力したいです。

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

[返信 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」）でお願いしたいです。
ご教示の程、よろしくお願い致します。

当掲示板について

Excel VBA に関する掲示板です。Excel VBA に関する質問や疑問、それに対する解決方法など気軽に投稿してください。
記事内ではHTMLのタグは使用できません。
記事は一度投稿すると修正できません。内容を訂正したい場合は返信で対応してください。
Sub〜End Sub、Function〜End Function は自動的にプログラムコードとみなし、枠で囲って見やすくします。
Excel VBA とは関係ないことや、他人が不快に思うようなことなど、管理人が適当でないと判断した記事は削除する場合があります。

返信入力フォーム

( 処理日時 : 2026-04-05 05:16:29 )