質問しつれいします。
エクセルVBAでマクロを作っているのですが、
分からないところがあるのでご指導の程お願いしたいです。
テキストボックスを複数つくり、それに順に値を
当てはめていくのですが、それを一つのループでしたいと
考えています。
例えば、text1というオブジェクト名のテキストボックスに
text1.value = ○○
という風に、text20まで数字の部分だけ変えてループ関数で値を当てはめていきたいのですが、どうすればいいか分かりません。
変数に"text"という文字列と数字部分を結合したものをあてはめて
数字部分だけループ時に加算していき、
変数.value = ○○
という形で実現したいと思い色々試してみましたが、エラーが出てうまくできません。
わかる方がいらっしゃいましたら是非お教え願えませんでしょうか。
お願いいたします。
No.4
- 回答日時:
こんにちは。
テキストボックス って何でしょうか?
Excelでは、テキストボックス と言われても、3つもあるので、それを特定できないと思います。
なお、このように数字によるループは、確実に、自分で設計した場合に限ります。そうでなければ、#3 さんのような、For Each ~ In スタイルにしたほうが安全です。
Sub TestOleObjects()
'コントロールツール
Dim i As Integer
With ActiveSheet
For i = 1 To 20
.OLEObjects("TextBox" & i).Object.Value = i
Next i
End With
End Sub
Sub TestSpes()
'オートシェイプ
Dim i As Integer
With ActiveSheet
For i = 1 To 20
.Shapes("Text Box " & i).DrawingObject.Text = i
Next i
End With
End Sub
'ユーザーフォームモジュール
Private Sub CommandButton1_Click()
'ユーザーフォーム
Dim i As Integer
For i = 1 To 20
Me.Controls("TextBox" & i).Text = i
Next
End Sub
回答ありがとうございます^^
わかりにくい記述で申し訳ございません><
それぞれのパターンで丁寧に記述していただき助かります。
今後の参考にさせて頂きます!
ありがとうございました^^
No.3
- 回答日時:
Sub test04()
i = 1
Dim ct As Object
For Each ct In ActiveSheet.OLEObjects 'Shapes
MsgBox ct.Name
ct.Object.Value = Cells(i, "A")
ct.Object.BackColor = RGB(255, 255, 0)
i = i + 1
Next
End Sub
そのシートのA列にテキストがセットされているとした場合の例。
テスト済み。2002.
回答ありがとうございます^^
VBA初心者なのでちょっとわからない記述がありますが
今後の参考にさせて頂きます^^
ありがとうございました!
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(プログラミング・Web制作) python質問 1 2023/08/14 11:54
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- C言語・C++・C# プログラミングの問題です。至急教えてください。 /***から***/の部分をプログラミングにしてほし 1 2022/10/13 11:48
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- その他(プログラミング・Web制作) pythonにおける単方向リストの実装について 4 2022/07/13 12:34
- JavaScript カラーミーショップのsectionループ内で、[引数][戻り値]ありの関数的な処理を行いたいです。 1 2022/05/07 19:39
- Java Java 南京錠 2 2023/02/04 11:46
- Excel(エクセル) エクセル 関数について質問です。 2 2022/10/03 11:14
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
至急!尿検査前日にオナニーし...
-
検便についてです。 便は取れた...
-
腕を見たら黄色くなってる部分...
-
口の中に黒い血の塊
-
値が入っているときだけ計算結...
-
2つの数値のうち、数値が小さい...
-
勃起する時って痛いんですか? ...
-
これって喉仏ですか? 私は女性...
-
EXCELで条件付き書式で空白セル...
-
精子が黄色?
-
【Excelで「正弦波」のグラフを...
-
MIN関数で空白セルを無視したい...
-
Excelで""で囲む方法
-
舌の裏の痛みのないプツプツの...
-
リンク先のファイルを開かなく...
-
エクセルのラベルの値(文字列...
-
エクセル指定した範囲からラン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
至急!尿検査前日にオナニーし...
-
白血球が多いとどんな心配があ...
-
尿検査前日に自慰行為した時の...
-
検便についてです。 便は取れた...
-
彼女のことが好きすぎて彼女の...
-
腕を見たら黄色くなってる部分...
-
勃起する時って痛いんですか? ...
-
尿検査の前日は自慰控えたほう...
-
精子が黄色?
-
中出しをするとお腹が痛い・・・。
-
EXCELで条件付き書式で空白セル...
-
口の中に黒い血の塊
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
納豆食べた後の尿の納豆臭は何故?
-
EXCELで式からグラフを描くには?
-
小数点以下を繰り上げたものを...
-
excelでsin二乗のやり方を教え...
-
エクセル指定した範囲からラン...
おすすめ情報