Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

22848 / 76732

←次へ　｜　前へ→


	【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

0 hits

▼

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

≪