質問編集履歴

1

書式の改善、画像の挿入

2021/12/28 05:33

投稿

hkok96
hkok96

スコア3

test CHANGED
@@ -1 +1 @@
1
- ドロップダウンリストの処理のため、vlookupでの範囲を別シートにしたら1004のエラーが発生
1
+ vlookupでの範囲を別シートにすると『実行時エラー '1004' :WorkSheetFunction クラス VLookup プロパティを取得できません。』が発生
test CHANGED
@@ -12,15 +12,7 @@
12
12
 
13
13
  "examplelist"
14
14
 
15
- 1 リンゴ
16
-
17
- 2 バナナ
18
-
19
- 3 マンゴー
20
-
21
- 4 オレンジ
22
-
23
- 5 パイナップル
15
+ ![イメージ説明](bad9861512d943cd430f8a42efaa6d94.png)
24
16
 
25
17
 
26
18
 
@@ -40,7 +32,13 @@
40
32
 
41
33
   vlookup関数で選択した値とそれに紐づく値の切り替えをしたいが、範囲指定がうまくいかず、『実行時エラー '1004' :WorkSheetFunction クラスの VLookup プロパティを取得できません。』が発生して処理が停止する。
42
34
 
35
+  ```ここに言語を入力
36
+
43
-  >>selectedNum = WorksheetFunction.VLookup(selectedNa, tbl, 1, False) で処理が止まるので、"tbl"に問題がありそう。
37
+ selectedNum = WorksheetFunction.VLookup(selectedNa, tbl, 1, False)
38
+
39
+ ```
40
+
41
+ で処理が止まるので、"tbl"に問題がありそう。
44
42
 
45
43
 
46
44
 
@@ -49,6 +47,8 @@
49
47
 
50
48
 
51
49
  (VBA)
50
+
51
+ ```ここに言語を入力
52
52
 
53
53
  Private Sub Worksheet_Change(ByVal Target As Range)
54
54
 
@@ -78,6 +78,8 @@
78
78
 
79
79
  End If
80
80
 
81
+ ```
82
+
81
83
  End Sub
82
84
 
83
85
 
@@ -88,13 +90,7 @@
88
90
 
89
91
  ローカルウィンドウで式を見たところ、以下のようになった。
90
92
 
91
- + : tbl : : Range/Range
92
-
93
- : selectedNa : "マンゴー" : Variant/String
94
-
95
- : selectedNum : Empty 値 : Variant/Empty
93
+ ![イメージ説明](1f3e291f2350544eddfb335d2c3dc1d3.png)
96
-
97
-
98
94
 
99
95
  WorksheetFunction.VLookupをapplication.vlookupに変更してみた。
100
96