Excel VBA質問箱 IV

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

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


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

【72734】ユーザーフォーム上のComboBoxで ume 12/9/12(水) 16:42 質問[未読]
【72735】Re:ユーザーフォーム上のComboBoxで ichinose 12/9/12(水) 18:25 発言[未読]
【72736】Re:ユーザーフォーム上のComboBoxで ume 12/9/13(木) 13:57 お礼[未読]

【72734】ユーザーフォーム上のComboBoxで
質問  ume E-MAIL  - 12/9/12(水) 16:42 -

引用なし
パスワード
   ユーザーフォーム1上のComboBoxでB1を選んだ際に、
同じくユーザーフォーム1のCheckBox1.Value = Trueにすることは
可能でしょうか
お力になっていただける方、よろしくお願いいたします


Private Sub UserForm_initialize()
  ComboBox2.RowSource = "Sheet1!B1:B13"
End Sub


Sub iftest()
If ComboBox2 = "Sheet1!B1" Then
  UserForm1.CheckBox1.Value = True
End Sub

【72735】Re:ユーザーフォーム上のComboBoxで
発言  ichinose  - 12/9/12(水) 18:25 -

引用なし
パスワード
   こんばんは。

>ユーザーフォーム1上のComboBoxでB1を選んだ際に、
>同じくユーザーフォーム1のCheckBox1.Value = Trueにすることは
>可能でしょうか
>お力になっていただける方、よろしくお願いいたします
>
>
>Private Sub UserForm_initialize()
>  ComboBox2.RowSource = "Sheet1!B1:B13"
>End Sub
ComboBox2でメンバを選択した時点で何が選択されたかをチェックするには、

ComboBox2のChangeイベントで行います。


Private Sub ComboBox2_Change()
  
End Sub

では、Sheet1のセルB1の値が選択されたということを
どのようにして確認できるか?

ComboBox2の Listindexというプロパティの値をよく調べてください。


Private Sub ComboBox2_Change()
  Msgbox ComboBox2.ListIndex
End Sub

このコードでメンバを選択した時、どのような値が返されるかを
考察してください。選択したメンバとListIndexとの関係が
分かれば、後は、簡単です よね?

【72736】Re:ユーザーフォーム上のComboBoxで
お礼  ume E-MAIL  - 12/9/13(木) 13:57 -

引用なし
パスワード
   ichinoseさん こんにちは
下記で解決できました^^

Private Sub ComboBox2_Change()

  If ComboBox2.Text = Worksheets("Sheet1").Range("B1").Value Then
  UserForm1.CheckBox1.Value = True
  UserForm1.CheckBox2.Value = True
  UserForm1.CheckBox3.Value = True


いつもありがとうございます^^

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