Excel VBA質問箱 IV

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

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


37166 / 76732 ←次へ | 前へ→

【44740】Re:これを簡単にするには
回答  neptune  - 06/11/30(木) 15:48 -

引用なし
パスワード
   ▼新米T さん:
こんにちは

先ず、どのような環境、O/Sかは判りませんが、このような沢山のコントロール
の使用を止めるべきです。
いつ、Bookがこけても良いよと言う覚悟なら良いですけど。
目いっぱいリソース食っているはずですから、
Windowsと勝負しているようなもんです。


沢山のコントロールを扱う手法はいくつかありますが、
""を代入するだけならfor each が楽と思います。
べた書きで間違いがあるかもしれませんが、こんな感じです。
dim obj as object

for each obj in Me.controls
  if typename(obj)="TextBox" then
   obj.value=""
  end if
next

これでTextBoxに""が代入されます。

後は、UserFormオブジェクトのControlsコレクションのAddメソッドのHelpに
コントロールの名前が書かれていますから参考にしてください。

※重ねて言いますが、仕様を見直すことを強くお勧めします。
0 hits

【44734】これを簡単にするには 新米T 06/11/30(木) 15:14 質問
【44736】Re:これを簡単にするには Jaka 06/11/30(木) 15:31 発言
【44742】Re:これを簡単にするには 新米T 06/11/30(木) 16:01 お礼
【44740】Re:これを簡単にするには neptune 06/11/30(木) 15:48 回答
【44747】Re:これを簡単にするには 新米T 06/11/30(木) 16:28 お礼
【44754】Re:これを簡単にするには 新米T 06/11/30(木) 17:36 質問
【44771】Re:これを簡単にするには neptune 06/11/30(木) 23:14 発言
【44813】Re:これを簡単にするには 新米T 06/12/1(金) 20:53 お礼

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