[[20140825184759]]　『comboboxのコントロール』（KISS）　ページの最後に飛ぶ

『comboboxのコントロール』（KISS）

いつもお世話になっております
お手数かけて申し訳ございませんが
ご教授お願いいたします

現在下記のコードでcombobox2のチェンジで3-5をコントロールしています
combobox2は同じデータで　combobox3　4　5変更する場合

新規にcombobox4に郵便番号xxx-xxxxxを入力すと
sheet"郵便番号一覧"からcombobox5に住所を自動転記する方法を
ご伝授して頂けないでしょうか

sheet"郵便番号一覧のA段には郵便番号　B段には住所が入っています
下記の様に書こうと思ったのですけ
Private Sub ComboBox4_Change()のComboBox5.Value = .List(.ListIndex, 1)所でエラー出てしまいます
当然と言えば当然なんですけど
私の理解力が低い為お手上げ状態です

大変お手数をおかけしますが
よろしくお願いいたします

Private Sub UserForm_Initialize()

Dim r As Range

    Set r = Worksheets("業者一覧").Range("A2:A1000")
    ComboBox2.List = r.Value
    ComboBox3.List = r.Offset(, 1).Value
    ComboBox4.List = r.Offset(, 2).Value
  ComboBox5.List = r.Offset(, 3).Value

Private Sub ComboBox2_Change()
Dim idx As Long

    idx = ComboBox2.ListIndex
    ComboBox3.ListIndex = idx
    ComboBox4.ListIndex = idx
    ComboBox5.ListIndex = idx
End Sub

追加しようとしたコード

Dim i As Long

    With Sheets("郵便番号一覧").Range("A1").CurrentRegion
    v = .Resize(.Rows.Count - 1, 2).Offset(1).Value
    End With
    For i = 1 To UBound(v, 1)
    v(i, 1) = Right(String(7, "0") & v(i, 1), 7)
    Next i
    With ComboBox4
    .List = v
    End With

Private Sub ComboBox4_Change()

 With ComboBox4
        If .ListIndex < 0 Then
            ComboBox5.Value = Empty
        Else
            ComboBox5.Value = .List(.ListIndex, 1)
        End If
        End With
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

以前リストボックスの質問されたときにも感じたのですが、
最初から複数列表示では駄目なのでしょうか。

（マナ） 2014/08/25(月) 19:42

これです。
複数列表示しておけば、連動は不要?

[[20140811180952]] 13:38 『リストボックス連動』（KISS）
（マナ） 2014/08/25(月) 20:08

マナ様
アドバイス有難うございます

基本は発注書作成で
1枚のユーザーフォームで
新規取引先には取引先登録及び発注書作成　
又既存取引業者様対しては選択で発注書作成

みたいなこと出来ないかと言われて格闘している次第です

リストボックス使用の場合
業者取引登録する手間がめんどくさいと言われて
出来ればで動いてるだけですので良いのですけれどね

マナ様の言われている通り
その通りです　本当はリストボックスで処理で終わらせたいのが
私の気持ちですけどね
私の中では　「リストボックス連動」質問時で終わらせたかったのは
本心です

当初
「リストボックス連動」質問時のときは
登録項目を作っていたので
リストボックスで処理をしようと考えていたのですけどね

（KISS） 2014/08/27(水) 09:17

コメント返信：

[ 一覧(最新更新順) ]

[[20140825184759]] 『comboboxのコントロール』（KISS） ページの最後に飛ぶ

[[20140825184759]]　『comboboxのコントロール』（KISS）　ページの最後に飛ぶ