質問編集履歴
3
コードを見やすく変更しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,9 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
```
|
|
28
|
-
|
|
29
|
-
コード
|
|
30
28
|
|
|
31
29
|
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
|
|
32
30
|
|
|
@@ -145,3 +143,5 @@
|
|
|
145
143
|
|
|
146
144
|
|
|
147
145
|
End Sub
|
|
146
|
+
|
|
147
|
+
```
|
2
コードを見やすくなるように変更しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,9 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
+
VBA
|
|
27
28
|
|
|
29
|
+
コード
|
|
28
30
|
|
|
29
31
|
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
|
|
30
32
|
|
1
エラーが出現する該当コードを太字にしました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -90,7 +90,7 @@
|
|
|
90
90
|
|
|
91
91
|
|
|
92
92
|
|
|
93
|
-
.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")
|
|
93
|
+
**.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")**
|
|
94
94
|
|
|
95
95
|
End With
|
|
96
96
|
|
|
@@ -132,7 +132,7 @@
|
|
|
132
132
|
|
|
133
133
|
With objIE
|
|
134
134
|
|
|
135
|
-
.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")
|
|
135
|
+
**.document.getElementsByName("txt_meigara_comp")(0).Value = Range("A24")**
|
|
136
136
|
|
|
137
137
|
|
|
138
138
|
|