Excel VBA質問箱 IV

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

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


8745 / 76732 ←次へ | 前へ→

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

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

>別シートに↓のような表を作成し、コンボボックスに3列表示しています。
>
>  A    B       C
>1  1  りんご     青森
>2  2  もも       岡山
>3  3  いちご     福岡
>4  4  さくらんぼ    山形

コードのRowSourceは ↑の説明とちがって Sheet3[F10]からの3列のようですが?

>実行する時に「実行時エラー381 columnプロパティの値が取得できません。」と出て、「 Me.TextBox1.Value = .Column(1)」が黄色に表示されます。

以下だけなら、そのようなエラーは出ず、首尾よくリストされ、ComboBoxで
どれかを選ぶと、TextBoxに リストの2列目と3列目が表示されます。

'---------------------------------------
Option Explicit

Private Sub UserForm_initialize()

  With bunrui
    .ColumnCount = 3
    .RowSource = Sheet3.Range("F10", _
          Sheet3.Range("H250").End(xlUp)) _
          .Address(, , , True)
    .ColumnHeads = True
    .ListWidth = 500
    .ColumnWidths = "50;300;100"
  End With
End Sub

Private Sub bunrui_Change()
  With bunrui
    TextBox1.Value = .Column(1)
    TextBox2.Value = .Column(2)
  End With
End Sub

(Meは不要です)
1,501 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 お礼

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