Excel VBA質問箱 IV

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

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


3959 / 13644 ツリー ←次へ | 前へ→

【59259】コンボボックスに関して ふうか 08/12/3(水) 22:06 質問[未読]
【59260】Re:コンボボックスに関して かみちゃん 08/12/3(水) 22:12 発言[未読]
【59261】Re:コンボボックスに関して ふうか 08/12/3(水) 22:21 お礼[未読]

【59259】コンボボックスに関して
質問  ふうか  - 08/12/3(水) 22:06 -

引用なし
パスワード
   コンボボックスを使いたくて自分なりにサイトを見て、下記の様に
作ったのですが思ったように動きません。
デバックで確認すると変数には文字が入ってcase文でも一致してる
と思うのですが、全然原因が分かりません・・・・・

やりたい事はクリックイベントでリストから選んだ物に対しての行
動を行いたいだけです。
「間違い及び修正点」を指摘して頂きたいです。

よろしくお願いします。

Private Sub CommandButton1_Click()

  Dim p_name As String
  Dim ma As String
  Dim mb As String
  Dim mc As String
  
  ma = "ma"
  mb = "mb"
  mc = "mc"
  
  p_name = ComboBox1
  
  Select Case p_name
    Case p_name = ma
      TextBox2 = Range("B2")
      TextBox3 = Range("C2")
      TextBox4 = Range("D2")
    Case ComboBox1 = mb
      TextBox2 = Range("B3")
      TextBox3 = Range("C3")
      TextBox4 = Range("D3")
    Case ComboBox1 = mc
      TextBox2 = Range("B4")
      TextBox3 = Range("C4")
      TextBox4 = Range("D4")
  End Select

End Sub


Private Sub UserForm_Initialize()

  ComboBox1.AddItem "ma"
  ComboBox1.AddItem "mb"
  ComboBox1.AddItem "mc"


End Sub

【59260】Re:コンボボックスに関して
発言  かみちゃん  - 08/12/3(水) 22:12 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>やりたい事はクリックイベントでリストから選んだ物に対しての行
>動を行いたいだけです。
>「間違い及び修正点」を指摘して頂きたいです。

>  Select Case p_name
>    Case p_name = ma
>    Case ComboBox1 = mb
>    Case ComboBox1 = mc
>  End Select

Select Case ステートメントの使い方がおかしいです。

  Select Case p_name

    Case "ma" 'p_name が"ma"の場合

    Case "mb" 'p_name が"mb"の場合

    Case "mc" 'p_name が"mc"の場合

  End Select

としてみてください。

【59261】Re:コンボボックスに関して
お礼  ふうか  - 08/12/3(水) 22:21 -

引用なし
パスワード
   ありがとうございます!できました!
早い回答で助かりました。
この流れで色々試したいと思います。

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