質問編集履歴
1
コード内容の追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -44,6 +44,36 @@
|
|
|
44
44
|
|
|
45
45
|
|
|
46
46
|
|
|
47
|
+
### コード内容
|
|
48
|
+
|
|
49
|
+
```
|
|
50
|
+
|
|
51
|
+
Private Sub Worksheet_Change(ByVal Target As Range)
|
|
52
|
+
|
|
53
|
+
'Updateby Extendoffice
|
|
54
|
+
|
|
55
|
+
selectedNa = Target.Value
|
|
56
|
+
|
|
57
|
+
If Target.Column = 5 Then
|
|
58
|
+
|
|
59
|
+
selectedNum = Application.VLookup(selectedNa, Sheets("仕入先情報").Range("dropdown"), 2, False)
|
|
60
|
+
|
|
61
|
+
If Not IsError(selectedNum) Then
|
|
62
|
+
|
|
63
|
+
Target.Value = selectedNum
|
|
64
|
+
|
|
65
|
+
End If
|
|
66
|
+
|
|
67
|
+
End If
|
|
68
|
+
|
|
69
|
+
End Sub
|
|
70
|
+
|
|
71
|
+
|
|
72
|
+
|
|
73
|
+
```
|
|
74
|
+
|
|
75
|
+
|
|
76
|
+
|
|
47
77
|
|
|
48
78
|
|
|
49
79
|
### 補足情報（FW/ツールのバージョンなど）
|