|
Hirofumiさま、
ひゃぁ〜、ほんとうに、その通りですね!
質問の仕方すら、おぼつかず、再三、ご迷惑をおかけしまして、申し訳ございませんでした(-人-;)
本当に、ありがとうございます!!
おかげで、動きました!!!
以下、コードになります。
'コンボボックスから選ぶだけで、Vlookup関数を使わずに、商品一覧から、連動して入力する
' ★以下のステートメントはモジュール先頭に1回だけ宣言する
' 多分、此れを幾つも宣言した為
' 「End Sub、End Function または End Property以降には、コメントのみが記述できます。」
' が出たと思います
Option Explicit
Private Sub cbo商品一覧1_Change()
Dim lngRow As Long
'cbo商品一覧1のListIndexを取得
lngRow = cbo商品一覧1.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'17は17行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 17, lngRow + 5
End Sub
Private Sub cbo商品一覧2_Change()
Dim lngRow As Long
'cbo商品一覧2のListIndexを取得
lngRow = cbo商品一覧2.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'18は18行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 18, lngRow + 5
End Sub
Private Sub cbo商品一覧3_Change()
Dim lngRow As Long
'cbo商品一覧3のListIndexを取得
lngRow = cbo商品一覧3.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'19は19行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 19, lngRow + 5
End Sub
Private Sub cbo商品一覧4_Change()
Dim lngRow As Long
'cbo商品一覧4のListIndexを取得
lngRow = cbo商品一覧4.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'20は20行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 20, lngRow + 5
End Sub
Private Sub cbo商品一覧5_Change()
Dim lngRow As Long
'cbo商品一覧5のListIndexを取得
lngRow = cbo商品一覧5.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'21は21行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 21, lngRow + 5
End Sub
Private Sub cbo商品一覧6_Change()
Dim lngRow As Long
'cbo商品一覧6のListIndexを取得
lngRow = cbo商品一覧6.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'22は22行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 22, lngRow + 5
End Sub
Private Sub cbo商品一覧7_Change()
Dim lngRow As Long
'cbo商品一覧7のListIndexを取得
lngRow = cbo商品一覧7.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'23は23行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 23, lngRow + 5
End Sub
Private Sub cbo商品一覧8_Change()
Dim lngRow As Long
'cbo商品一覧8のListIndexを取得
lngRow = cbo商品一覧8.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'24は24行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 24, lngRow + 5
End Sub
Private Sub cbo商品一覧9_Change()
Dim lngRow As Long
'cbo商品一覧9のListIndexを取得
lngRow = cbo商品一覧9.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'25は25行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 25, lngRow + 5
End Sub
Private Sub cbo商品一覧10_Change()
Dim lngRow As Long
'cbo商品一覧10のListIndexを取得
lngRow = cbo商品一覧10.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'26は26行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 26, lngRow + 5
End Sub
Private Sub cbo商品一覧11_Change()
Dim lngRow As Long
'cbo商品一覧11のListIndexを取得
lngRow = cbo商品一覧11.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'27は27行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 27, lngRow + 5
End Sub
Private Sub cbo商品一覧12_Change()
Dim lngRow As Long
'cbo商品一覧12のListIndexを取得
lngRow = cbo商品一覧12.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'28は28行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 28, lngRow + 5
End Sub
Private Sub cbo商品一覧13_Change()
Dim lngRow As Long
'cbo商品一覧13のListIndexを取得
lngRow = cbo商品一覧13.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'29は29行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 29, lngRow + 5
End Sub
Private Sub cbo商品一覧14_Change()
Dim lngRow As Long
'cbo商品一覧14のListIndexを取得
lngRow = cbo商品一覧14.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'30は30行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 30, lngRow + 5
End Sub
Private Sub cbo商品一覧15_Change()
Dim lngRow As Long
'cbo商品一覧15のListIndexを取得
lngRow = cbo商品一覧15.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'31は31行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 31, lngRow + 5
End Sub
Private Sub cbo商品一覧16_Change()
Dim lngRow As Long
'cbo商品一覧16のListIndexを取得
lngRow = cbo商品一覧16.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'32は32行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 32, lngRow + 5
End Sub
Private Sub cbo商品一覧17_Change()
Dim lngRow As Long
'cbo商品一覧17のListIndexを取得
lngRow = cbo商品一覧17.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'33は33行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 33, lngRow + 5
End Sub
Private Sub cbo商品一覧18_Change()
Dim lngRow As Long
'cbo商品一覧18のListIndexを取得
lngRow = cbo商品一覧18.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'転記 以下のプロシージャ呼び出しで
'34は34行目を意味します
'また、lngRow + 5はComboBoxのListIndex+5を意味します
Posting 34, lngRow + 5
End Sub
'★下記プロシージャは、上記イベントプロシージャと同じシートモジュールに記述
Private Sub Posting(lngWrite As Long, lngRow As Long)
'転記
With Worksheets("MT_商品")
Me.Cells(lngWrite, "B").Value = .Cells(lngRow, "A").Value
Me.Cells(lngWrite, "C").Value = .Cells(lngRow, "B").Value
Me.Cells(lngWrite, "D").Value = .Cells(lngRow, "C").Value
Me.Cells(lngWrite, "E").Value = .Cells(lngRow, "D").Value
Me.Cells(lngWrite, "F").Value = .Cells(lngRow, "E").Value
Me.Cells(lngWrite, "H").Value = .Cells(lngRow, "F").Value
Me.Cells(lngWrite, "J").Value = .Cells(lngRow, "G").Value
Me.Cells(lngWrite, "K").Value = .Cells(lngRow, "H").Value
Me.Cells(lngWrite, "P").Value = .Cells(lngRow, "I").Value
Me.Cells(lngWrite, "Q").Value = .Cells(lngRow, "J").Value
End With
End Sub
|
|