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 -

引用なし
パスワード
   またまたお願い致します。

例えば、テキストボックスが100個ありそのテキスト全てに0を表示させたい場合、
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さんへ

早速の御回答、ありがとうございます。
こちらのExcel97でも、動作の確認を致しました。
これでかなりの圧縮が出来そうです。
本当にありがとうございました。

8760 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free