Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1382 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   >解決いたしましので報告とお礼申し上げます。
どんな風に解決したのでしょうか？
読んでいる人もいます。
謎解きはされないのですか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1382 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free