Excel VBA質問箱 IV

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

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


1384 / 13646 ツリー ←次へ | 前へ→

【74793】コントロールの値を一括消去の方法 ghat 13/9/16(月) 10:43 質問[未読]
【74795】Re:コントロールの値を一括消去の方法 γ 13/9/16(月) 14:24 発言[未読]
【74797】Re:コントロールの値を一括消去の方法 [名前なし] 13/9/16(月) 16:01 お礼[未読]
【74798】Re:コントロールの値を一括消去の方法 γ 13/9/16(月) 16:29 発言[未読]

【74793】コントロールの値を一括消去の方法
質問  ghat  - 13/9/16(月) 10:43 -

引用なし
パスワード
   早速ですが下記コードで UserForm1のTextBox等の値を消去しようとしましたがOptionButtonとCheckBoxの値が消去されません。
消去できるコードをご教示いただければうれしく思います。よろしくお願いします。


Option Explicit
Public Sub dtClear()
Dim ctrl As Control
 
 For Each ctrl In UserForm1.Controls 
  If TypeName(ctrl) = "TextBox" Then
    ctrl.Value = ""
  End If
  If TypeName(ctrl) = "OptionButton" Then
    ctrl.Value =False
  End If  
 If TypeName(ctrl) = "CheckBox" Then
    ctrl.Value = False
  End If  
 Next
End Sub

【74795】Re:コントロールの値を一括消去の方法
発言  γ  - 13/9/16(月) 14:24 -

引用なし
パスワード
   >OptionButtonとCheckBoxの値が消去されません。
私の手元では消去されました。
コードは正しいように思います。

そのプロシージャが実行されていることはどうやって確認されましたか?
If TypeName(ctrl) = "TextBox" Then
の行にブレークポイントを置いて、
そこで停止して、以降をステップ実行してみて下さい。
想定とどのように違いますか?

【74797】Re:コントロールの値を一括消去の方法
お礼  [名前なし]  - 13/9/16(月) 16:01 -

引用なし
パスワード
   ▼γ さん:
早速の回答ありがとうございました。
解決いたしましので報告とお礼申し上げます。

【74798】Re:コントロールの値を一括消去の方法
発言  γ  - 13/9/16(月) 16:29 -

引用なし
パスワード
   >解決いたしましので報告とお礼申し上げます。
どんな風に解決したのでしょうか?
読んでいる人もいます。
謎解きはされないのですか?

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