Excel VBA質問箱 IV

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

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


8741 / 76732 ←次へ | 前へ→

【73559】Re:コンボボックスと複数のテキストボックスの連動について
発言  UO3  - 13/1/21(月) 10:59 -

引用なし
パスワード
   ▼チロル さん:

こんにちは

ヨコから失礼します。
操作としてコンボボックスリストから選ばず、コンボボックスに直接入力していません?
もし、その場合、リストにない数字を打ち込んでも(しかも1文字打ち込むだけで)
Changeイベントが発生します。
それが、リストにある値ならOKですが、なかった場合はりすととの紐つけができませんので
エラーになります。

Private Sub bunrui_Change()
  With bunrui
    If .ListIndex >= 0 Then
      TextBox1.Value = .Column(1)
      TextBox2.Value = .Column(2)
    End If
  End With
End Sub

こうしてみるとどうでしょうか?

1,484 hits

【73554】コンボボックスと複数のテキストボックスの連動について チロル 13/1/20(日) 23:22 質問
【73555】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 0:34 発言
【73558】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 10:36 質問
【73559】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 10:59 発言
【73560】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 11:04 発言
【73561】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 12:13 発言
【73562】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 12:30 発言
【73565】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 12:49 発言
【73566】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 12:56 発言
【73563】Re:コンボボックスと複数のテキストボック... kanabun 13/1/21(月) 12:44 発言
【73567】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 13:15 お礼
【73564】Re:コンボボックスと複数のテキストボック... UO3 13/1/21(月) 12:47 発言
【73568】Re:コンボボックスと複数のテキストボック... チロル 13/1/21(月) 13:35 お礼

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