|
▼ema さん:
>Sheet4(入力画面)
> A B
>1 月 1月
>2 CD 101
>3 顧客名 しめい ←CDを入力するとvlookupで検索します
>4 金額 10,000
>
>Sheet2(データベース)
> A B C D・・・・・・N
>1 CD 顧客名 1月 2月・・・・・12月
>2 101 しめい 10,000
>
CDにダブりはなく、ユニークなものとします。
Sub test()
Dim FR As Variant
Dim ws2 As Worksheet, ws4 As Worksheet
Dim myCol As Long
Set ws2 = Sheets("Sheet2")
Set ws4 = Sheets("Sheet4")
myCol = Replace(ws4.Range("B1").Value, "月", "") + 2
FR = Application.Match(ws4.Range("B2").Value, ws1.Range(ws1.Cells(1, "A"), ws1.Cells(Rows.Count, 1).End(xlUp)), 0)
If Not IsError(FR) Then
ws1.Cells(FR, myCol).Value = ws4.Range("B4").Value
Else
MsgBox "そのCDはありません"
End If
End Sub
|
|