Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9956 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24645】複数のTextBoxのデータを消したいのですが… kobakoba 05/4/30(土) 16:29 質問[未読]
【24646】Re:複数のTextBoxのデータを消したいのです... つん 05/4/30(土) 16:34 回答[未読]
【24647】Re:複数のTextBoxのデータを消したいのです... つん 05/4/30(土) 16:40 発言[未読]
【24648】Re:複数のTextBoxのデータを消したいのです... kobakoba 05/4/30(土) 16:43 お礼[未読]
【24645】複数のTextBoxのデータを消したいのです...
質問  kobakoba  - 05/4/30(土) 16:29 -
引用なし
パスワード
   TextBoxが１から１００まであります。
それをForNextやDoLoopを使って中のデータを消すことは出来るのでしょうか？
今は１００行使って一つずつ消しています。
初心者なので分かりやすい回答をお願いいたします。
【24646】Re:複数のTextBoxのデータを消したいので...
回答  つん E-MAIL  - 05/4/30(土) 16:34 -
引用なし
パスワード
   ▼kobakoba さん：
こんにちは＾＾

>TextBoxが１から１００まであります。
>それをForNextやDoLoopを使って中のデータを消すことは出来るのでしょうか？
>今は１００行使って一つずつ消しています。
>初心者なので分かりやすい回答をお願いいたします。

テキストボックスの名前が連番になってるなら、
以下のやりかたで出来ると思います。

　　Dim i As Long
　　
　　For i = 1 To 100
　　　　Me.Controls("TextBox" & i).Value = ""
　　Next i

これはフォーム上の場合ね。
【24647】Re:複数のTextBoxのデータを消したいので...
発言  つん E-MAIL  - 05/4/30(土) 16:40 -
引用なし
パスワード
   シート上だったら

Worksheets("Sheet1").OLEObjects("TextBox" & i).Object.Value = ""
【24648】Re:複数のTextBoxのデータを消したいので...
お礼  kobakoba  - 05/4/30(土) 16:43 -
引用なし
パスワード
   つんさんこんにちわ

ありがとうございました！出来ました！

これで醜いプログラムからおさらばできます。

プログラムまで書いていただき本当に助かりました。

ありがとうございました。

初心者なのでまた分からないことがあったら書き込みしますので

そのときはまたよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9956 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free