Excel VBA質問箱 IV

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

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


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

73998 / 76732

←次へ　｜　前へ→


	【7205】Re:

Jaka - 03/8/26(火) 15:39 -


	引用なし

	パスワード

多分これが原因？

ComboBoxの1番上のindex、-1の所はテキスト形式になっている見たいですので、たとえ数字が入っていてもセルに記入されているセルの値とは別扱いになる様です。
で、テキストに入っている数字をセルと同じ様に扱うには、Cint、val等などで数字に変換するか、数字宣言した変数に入れる必要があります。
うまく説明できませんが．．．。

B1:B5に1,2,3,4,5といれ、下記コードを試して見ると良く解ると思います。

Private Sub UserForm_Initialize()
　　ComboBox1.List = Range("B1:B5").Value
End Sub

Private Sub CommandButton1_Click()
　　Dim 変数Log As Long, 変数val As Variant
　　If ComboBox1.List(ComboBox1.ListIndex) = Range("A1").Value Then
　　　 MsgBox "ComboBox1.ListとA1は、同じ"
　　Else
　　　 MsgBox "ComboBox1.ListとA1は、違う"
　　End If
　　変数Log = ComboBox1.Value
　　変数val = ComboBox1.Value
　　If ComboBox1.Value = Range("A1").Value Then
　　　 MsgBox "ComboBox1.Value とA1は、同じ"
　　Else
　　　 MsgBox "ComboBox1.Value とA1は、違う"
　　End If
　　If 変数Log = Range("A1").Value Then
　　　 MsgBox "変数Log.Value とA1は、同じ"
　　Else
　　　 MsgBox "変数Log.Value とA1は、違う"
　　End If
　　If 変数val = Range("A1").Value Then
　　　 MsgBox "変数val.Value とA1は、同じ"
　　Else
　　　 MsgBox "変数val.Value とA1は、違う"
　　End If
End Sub

0 hits

▼

【7186】コンボボックス sibira 03/8/26(火) 9:30