Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8760 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【31347】テキストボックス等の一括入力 green 05/11/18(金) 9:53 質問[未読]
【31348】Re:テキストボックス等の一括入力 Blue 05/11/18(金) 10:02 回答[未読]
【31351】Re:テキストボックス等の一括入力 green 05/11/18(金) 10:34 お礼[未読]
【31347】テキストボックス等の一括入力
質問  green  - 05/11/18(金) 9:53 -
引用なし
パスワード
   またまたお願い致します。

例えば、テキストボックスが１００個ありそのテキスト全てに０を表示させたい場合、
TextBox1=0
TextBox2=0
TextBox3=0
　　・
　　・
　　・
と、現在はしているのですが、例えば、
For i=1 to 100
　 TextBox i =0
Next i
このような感じに出来るテクニックはあるのでしょうか？
お願い致します。
【31348】Re:テキストボックス等の一括入力
回答  Blue  - 05/11/18(金) 10:02 -
引用なし
パスワード
   エクセルのバージョンによるかもしれませんが、

　　For i = 1 To 100 Step 1
　　　　Me.Controls("TextBox" & CStr(i)).Text = "0"
　　Next

でどうでしょうか？(Excel2002ではできた)
【31351】Re:テキストボックス等の一括入力
お礼  green  - 05/11/18(金) 10:34 -
引用なし
パスワード
   Blueさんへ

早速の御回答、ありがとうございます。
こちらのＥｘｃｅｌ９７でも、動作の確認を致しました。
これでかなりの圧縮が出来そうです。
本当にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8760 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free