Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13484 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【5061】コンボボックス YOPPY 03/4/20(日) 11:42 質問
【5068】コード見ないと・・・ こう 03/4/20(日) 23:30 発言
【5183】Re:コード見ないと・・・ YOPPY 03/4/24(木) 15:24 質問
【5209】Re:コード見ないと・・・ Jaka 03/4/25(金) 15:35 回答
【5210】Re:コード見ないと・・・ YOPPY 03/4/25(金) 16:04 お礼
【5061】コンボボックス
質問  YOPPY  - 03/4/20(日) 11:42 -
引用なし
パスワード
   ユーザーフォームにいくつかのコンボボックスと
その内容をシートに転記するコマンドボタンがあります。
コマンドボタンを押したところある一定のコンボボックスだけ
空欄だったはずなのに，Initializeで指定している一番下のセルの内容が表示されます。
なぜなんでしょう？
どなたか教えてください。
【5068】コード見ないと・・・
発言  こう E-MAIL  - 03/4/20(日) 23:30 -
引用なし
パスワード
   >コマンドボタンを押したところある一定のコンボボックスだけ
>空欄だったはずなのに，Initializeで指定している一番下のセルの内容が表示されます。
MSの不良(仕様)でなければ，BUGの可能性があるかも知れませんが，
コードを見ないことには解析や回答ができません。
差し障りなければ環境やコードを見せてください。
【5183】Re:コード見ないと・・・
質問  YOPPY  - 03/4/24(木) 15:24 -
引用なし
パスワード
   連絡が遅くなりまして申し訳ありません。

If UserForm1.ComboBox1.Value = "" And UserForm1.ComboBox2.Value = "" And _
　　　 UserForm1.ComboBox3.Value = "" Then GoTo TAIIKUSITU
　　　
　　　 If UserForm1.ComboBox1.Value = "" Then
　　　 MsgBox "使用区分を選択してください!"
　　　 Exit Sub
　　　 ElseIf UserForm1.ComboBox2.Value = "" Then
　　　 MsgBox "利用時間を選択してください！"
　　　 Exit Sub
　　　 ElseIf UserForm1.ComboBox3.Value = "" Then
　　　 MsgBox "面数を選択してください！"
　　　 Exit Sub
　　　 End If
コンボボックス１〜３すべて空欄で上記の処理を行うと
１と3には指定しているセルの一番下の内容が表示され，
メッセージボックス”利用時間を選択してください！”となってしまいます・・・。
なぜなんでしょう？
【5209】Re:コード見ないと・・・
回答  Jaka  - 03/4/25(金) 15:35 -
引用なし
パスワード
   ▼YOPPY さん：
> If UserForm1.ComboBox1.Value = "" And UserForm1.ComboBox2.Value = "" And _
>　　　 UserForm1.ComboBox3.Value = "" Then GoTo TAIIKUSITU
>　　　
>　　　 If UserForm1.ComboBox1.Value = "" Then
>　　　 MsgBox "使用区分を選択してください!"
>　　　 Exit Sub
>　　　 ElseIf UserForm1.ComboBox2.Value = "" Then
>　　　 MsgBox "利用時間を選択してください！"
>　　　 Exit Sub
>　　　 ElseIf UserForm1.ComboBox3.Value = "" Then
>　　　 MsgBox "面数を選択してください！"
>　　　 Exit Sub
>　　　 End If
>コンボボックス１〜３すべて空欄で上記の処理を行うと
>１と3には指定しているセルの一番下の内容が表示され，
>メッセージボックス”利用時間を選択してください！”となってしまいます・・・。
>なぜなんでしょう？

こんにちは。
すみません、これだけだと良くわかりません。

>If UserForm1.ComboBox1.Value = "" And UserForm1.ComboBox2.Value = "" And _
　　　 UserForm1.ComboBox3.Value = "" Then GoTo TAIIKUSITU

↑のコードに、ブレークポイントをもうけてステップ実行して見てください。
【5210】Re:コード見ないと・・・
お礼  YOPPY  - 03/4/25(金) 16:04 -
引用なし
パスワード
   すみません！
上記コードの上に
Dim mysheet As String
If UserForm1.ComboBox1.Value = "一般" Then
　　mysheet = "一般"
　　ElseIf UserForm1.ComboBox1.Value = "高校生以下" Then
　　mysheet = "高校生"
　　Else： UserForm1.ComboBox1.Value = "プロ"
　　mysheet = "プロ"
　End If
このような記述があり，”Else”が原因でした。
お騒がせして申し訳ございませんでした。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13484 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free