Excel VBA質問箱 IV

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

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


28714 / 76734 ←次へ | 前へ→

【53312】Re:テキストボックス等の一括消去
発言  ponpon  - 07/12/26(水) 22:19 -

引用なし
パスワード
   すでに、じゅんじゅんさんから回答がありますが、せっかく作ったので
フォームモジュール以外に書く場合は、
MeをUserForm1などに変えてください。

  Dim Txt As Object
  For Each Txt In Me.Controls
    If Txt.Name Like "TextBox*" Then
      Txt.Value = ""
    End If
  Next
テキストボックスの番号がわかっているなら
  Dim i As Integer
  For i = 1 To 15
   Me.Controls("TextBox" & i).Text = ""
  Next

コンボボックスのadditemは、
  Dim i As Integer
  For i = 1 To 6
    With Worksheets("***")
      Me.Controls("ComboBox" & i).List = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
    End With
  Next

2 hits

【53307】テキストボックス等の一括消去 新参者 07/12/26(水) 21:25 質問
【53310】Re:テキストボックス等の一括消去 じゅんじゅん 07/12/26(水) 21:48 発言
【53312】Re:テキストボックス等の一括消去 ponpon 07/12/26(水) 22:19 発言
【53313】Re:テキストボックス等の一括消去 neptune 07/12/26(水) 22:24 回答
【53314】Re:テキストボックス等の一括消去 neptune 07/12/26(水) 22:26 発言
【53322】Re:テキストボックス等の一括消去 新参者 07/12/27(木) 20:34 お礼

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