【EXCEL/VBA】条件に合う行を別シートに参照したい

《楽天シート》のD列に1～3が入力されたとき、
《クレジット詳細シート》の5行目の(1)(2)(3)に対応するところに
黄：利用日
緑：商品名
青：利用金額
がそれぞれ参照されるようにしてたいです。

例：
《楽天シート》のD4に1が入力されたとき、
《クレジット詳細シート》には
A6黄→2018/2/11
B6緑→あ
C6青→1000
が参照される

というような感じです。

よろしくお願いいたします。

行動規範の内容に同意します

回答1件

以下のコードをコピペしてください

VBA
1
2Option Explicit
3
4'ワークシート内で変更があったら
5Private Sub Worksheet_Change(ByVal Target As Range)
6    
7    'セル内("D4:D9"の間)で変更があったら
8    If Not Intersect(Target, Range("D4:D9")) Is Nothing Then
9    
10        Select Case Target.Value
11        Case 1
12            Call keisan(1, Target.Row)
13            Exit Sub
14        Case 2
15            Call keisan(4, Target.Row)
16            Exit Sub
17        Case 3
18            Call keisan(7, Target.Row)
19            Exit Sub
20        Case Else
21            Cells(Target.Column, Target.Row) = ""
22        End Select
23        
24    End If
25    
26End Sub
27
28Private Sub keisan(IntVal As Integer, IntRow As Integer)
29    
30    Dim cdef As Integer
31    cdef = 1
32    
33    Dim c As Integer
34    Dim r As Integer
35    
36    '列
37    For c = IntVal To IntVal + 2
38        
39        '行
40        For r = 6 To 18
41        
42            If Sheets(2).Cells(c)(r).Value = "" Then
43                Sheets(2).Cells(c)(r) = Cells(cdef)(IntRow)
44                cdef = cdef + 1
45                Exit For
46            End If
47            
48        Next
49            
50    Next
51    
52End Sub