|
Hirofumiさま、
ご回答、本当にどうも、ありがとうございました。
お骨折り頂いたのにもかかわらず、出張続きで、あれ以来取り組めず、返信が遅くなり、本当に申し訳ございませんでした。
ご教示頂きましたもののシート名を直しまして、以下のように、記述してみたのですが、プルダウンから選択しましても、転記がされません。
エラーも表示されず、何も、動きませんでした。
コンボボックスの設定は、以下のようにしました。
(オブジェクト名)= cbo商品一覧
BoundColumn = 1
CloumnCount = 8
ColomnWidth = 220;0;0;0;0;0;0;40
LinkedCell = 空欄
ListFillRange = 商品一覧
ListWidth = 260 pt
お手数をおかけしますが、ご教示を、何卒、よろしくお願い致します。
Option Explicit
'コンボボックスから選ぶだけで、Vlookup関数を使わずに、商品一覧から、連動して入力する
Private Sub cbo商品一覧_Change()
Dim lngRowEnd As Long
Dim lngRow As Long
'cbo商品一覧のListIndexを取得
lngRow = cbo商品一覧.ListIndex
'ComboBoxで選択されていない場合
If lngRow = -1 Then
Exit Sub
End If
'最終行位置を取得(B列を最下行から上にデータの在る位置を取得)
lngRowEnd = Me.Cells(Rows.Count, "B").End(xlUp).Row
If IsEmpty(Me.Cells(lngRowEnd, "B")) Then
lngRowEnd = 1
Else
lngRowEnd = lngRowEnd + 1
End If
'転記元行位置を取得
'※ComboBoxのListIndexが転記元Listの先頭行からの行Offsetを示す
'※因って、ListIndexに転記元Listの先頭行行位置を加算すれば転記Listの行が解る
'ListFillRangeが例えば「Sheet2!A5:J7」ならA5の5
lngRow = cbo商品一覧.ListIndex + 5
'転記(値の場合)
With Worksheets("MT_商品")
Me.Cells(lngRowEnd, "B").Value = .Cells(lngRow, "A").Value
Me.Cells(lngRowEnd, "C").Value = .Cells(lngRow, "B").Value
Me.Cells(lngRowEnd, "D").Value = .Cells(lngRow, "C").Value
Me.Cells(lngRowEnd, "E").Value = .Cells(lngRow, "D").Value
Me.Cells(lngRowEnd, "F").Value = .Cells(lngRow, "E").Value
Me.Cells(lngRowEnd, "H").Value = .Cells(lngRow, "F").Value
Me.Cells(lngRowEnd, "J").Value = .Cells(lngRow, "G").Value
Me.Cells(lngRowEnd, "K").Value = .Cells(lngRow, "H").Value
Me.Cells(lngRowEnd, "P").Value = .Cells(lngRow, "I").Value
Me.Cells(lngRowEnd, "Q").Value = .Cells(lngRow, "J").Value
End With
End Sub
|
|