Excel VBA質問箱 IV

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

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


61956 / 76732 ←次へ | 前へ→

【19387】Re:2577がらみの追加質問 その3
質問  ととりん  - 04/10/29(金) 23:52 -

引用なし
パスワード
   また、わからないことが出てきましたので、教えてください。

前の表にさらに項目を追加し、次のように変更しました。
  A      B         C    D 
1 東京都    渋谷区     1丁目  番地
2 東京都    世田谷区    2丁目  マンション名
3 東京都    新宿区     3丁目  号室
4 東京都            4丁目
5 東京都            5丁目
6 東京都            6丁目
7 茨城県    つくば市    1丁目  マンション名
8 茨城県    水戸市     2丁目  号室
9 茨城県    ひたちなか市    
  .        .       .
  .        .       .
  .        .       .


コンボボックスの下に、3つのテキストボックスを配置します。
ラベルは、ラベル4、ラベル5、ラベル6、テキストボックスはテキストボックス4
テキストボックス5、テキストボックス6とします。

ラベルの表示が東京都と茨城県では違うので、これもコンボボックス1で
選択された内容に応じてラベルの表示を変更したいと思います。
そこで、次のコードを加えました。

Private Sub ComboBox1_Change()
  Dim func_str As String
  Dim StrLabel As String
    
  func_str = "=if(a1=""" & ComboBox1.Text & _
        """,if(b1="""","" "",b1),"""")"
  Call set_combo_item(ComboBox2, func_str)
  func_str = "=if(a1=""" & ComboBox1.Text & _
        """,if(c1="""","" "",c1),"""")"
  Call set_combo_item(ComboBox3, func_str)

  StrLabel = ComboBox1.Text
  Select Case StrLabel
    Case "東京都"
      Label4 = "番地"
    Case "茨城県"
      Label4 = "マンション名"
  End Select

  StrLabel = ComboBox1.Text
  Select Case StrLabel
    Case "東京都"
      Label5 = "マンション名"
    Case "茨城県"
      Label5 = "号室"
  End Select
  
  StrLabel = ComboBox1.Text
  Select Case StrLabel
    Case "東京都"
      Label6 = "号室"
  End Select

End Sub

上記のコードでも動作はできるのですが、実際の内容はA列の項目が2つではなく
もっと沢山あるので、コードが長くなってしまいます。
そこで、もっと簡潔にまとめる方法があれば教えてください。

また、テキストボックス6が不要の時(上記の場合はコンボボックス1が茨城県
の時は不要)は非表示にする方法がありましたら、あわせて教えてください。

よろしくお願いします。

0 hits

【19312】2577がらみの追加質問 ととりん 04/10/28(木) 4:58 質問
【19314】Re:2577がらみの追加質問 ichinose 04/10/28(木) 8:12 発言
【19336】Re:2577がらみの追加質問 ととりん 04/10/28(木) 15:24 お礼
【19346】Re:2577がらみの追加質問 その2 ととりん 04/10/28(木) 18:36 質問
【19353】Re:2577がらみの追加質問 その2 ichinose 04/10/28(木) 22:24 発言
【19354】Re:2577がらみの追加質問 その2 追伸 ichinose 04/10/28(木) 22:31 発言
【19357】Re:2577がらみの追加質問 その2 追伸 ととりん 04/10/28(木) 23:26 お礼
【19387】Re:2577がらみの追加質問 その3 ととりん 04/10/29(金) 23:52 質問
【19395】Re:2577がらみの追加質問 その3 ichinose 04/10/30(土) 16:11 発言
【19401】Re:2577がらみの追加質問 その3 ととりん 04/10/31(日) 11:12 お礼

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