teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問VBAでのIE制御におけるボタン操作

編集履歴

回答編集履歴

1

訂正と整理

2020/05/27 02:51

投稿

tosi
tosi

スコア553

test CHANGED
@@ -1,6 +1,6 @@
1
1
  2点問題があると思います。下記へ変更してやってみて下さい。
2
2
 
3
- 1.("img")訂正--->("IMG")
3
+ ~~1.("img")訂正--->("IMG")~~
4
4
 
5
5
  2.msgbox "ok"を追加して一旦画面を止める。
6
6
 
@@ -10,9 +10,9 @@
10
10
 
11
11
  Debug.Print inputTags2.uniqueNumber & " - " & inputTags2.src
12
12
 
13
- ========================================================
13
+ '========================================================
14
14
 
15
-
15
+ '----------------------------
16
16
 
17
17
  '「洪水」ボタンをクリック
18
18
 
@@ -22,98 +22,102 @@
22
22
 
23
23
  set inputTags2 = ie.document.getElementsByTagName("IMG")
24
24
 
25
-
26
-
27
- ========================================================
25
+ '========================================================
28
26
 
29
27
  ＜下記は参考です＞
30
28
 
31
29
  画面ボタンが選択されて動く状態が見えると思います。
32
30
 
31
+ ```ここに言語を入力
32
+
33
+ '(Test_Sample_Miniature)
34
+
33
- '------------------------------
35
+ '----------------------------------
34
36
 
35
37
  '「洪水」ボタンをクリック部分を変更
36
38
 
37
- '-------------------------------------------------------
39
+ '----------------------------------
38
40
 
39
- Dim inputTag_Kozui As IHTMLElement
41
+ Dim inputTag_Kozui As IHTMLElement
40
42
 
41
- Dim inputTag_Dosha As IHTMLElement
43
+ Dim inputTag_Dosha As IHTMLElement
42
44
 
43
- Dim inputTag_Tsunami As IHTMLElement
45
+ Dim inputTag_Tsunami As IHTMLElement
44
46
 
45
- Dim inputTag_Douro As IHTMLElement
47
+ Dim inputTag_Douro As IHTMLElement
46
48
 
47
-
48
49
 
49
- Set inputTags = ie.document.getElementsByTagName("IMG")
50
50
 
51
- For Each inputTag In inputTags
51
+ Set inputTags = ie.document.getElementsByTagName("IMG")
52
52
 
53
- '
53
+ For Each inputTag In inputTags
54
54
 
55
- '(デバック用記述)
55
+ '
56
56
 
57
- Debug.Print inputTag.uniqueNumber & " - " & inputTag.src
57
+ '(デバック用記述)
58
58
 
59
- '
59
+ Debug.Print inputTag.uniqueNumber & " - " & inputTag.src
60
60
 
61
- Select Case True
61
+ '
62
62
 
63
- Case InStr(inputTag.src, "image/skin/kouzui.png") > 0
63
+ Select Case True
64
64
 
65
- Set inputTag_Kozui = inputTag
65
+ Case InStr(inputTag.src, "image/skin/kouzui.png") > 0
66
66
 
67
- Case InStr(inputTag.src, "image/skin/dosha.png") > 0
67
+ Set inputTag_Kozui = inputTag
68
68
 
69
- Set inputTag_Dosha = inputTag
69
+ Case InStr(inputTag.src, "image/skin/dosha.png") > 0
70
70
 
71
- Case InStr(inputTag.src, "image/skin/tsunami.png") > 0
71
+ Set inputTag_Dosha = inputTag
72
72
 
73
- Set inputTag_Tsunami = inputTag
73
+ Case InStr(inputTag.src, "image/skin/tsunami.png") > 0
74
74
 
75
- Case InStr(inputTag.src, "image/skin/douro.png") > 0
75
+ Set inputTag_Tsunami = inputTag
76
76
 
77
- Set inputTag_Douro = inputTag
77
+ Case InStr(inputTag.src, "image/skin/douro.png") > 0
78
78
 
79
- End Select
79
+ Set inputTag_Douro = inputTag
80
80
 
81
- Next
81
+ End Select
82
82
 
83
- --------
83
+ Next
84
+
85
+
84
86
 
85
87
  '画面選択
86
88
 
87
- '-------------------------------------------------------
89
+ '----------------------------------
88
90
 
89
- Dim strNo As String
91
+ Dim strNo As String
90
92
 
91
- Do
93
+ Do
92
94
 
93
- strNo = InputBox("No：1～4", "処理選択", 1)
95
+ strNo = InputBox("No：1～4", "処理選択", 1)
94
96
 
95
- Select Case strNo
97
+ Select Case strNo
96
98
 
97
- Case "1"
99
+ Case "1"
98
100
 
99
- inputTag_Kozui.Click
101
+ inputTag_Kozui.Click
100
102
 
101
- Case "2"
103
+ Case "2"
102
104
 
103
- inputTag_Dosha.Click
105
+ inputTag_Dosha.Click
104
106
 
105
- Case "3"
107
+ Case "3"
106
108
 
107
- inputTag_Tsunami.Click
109
+ inputTag_Tsunami.Click
108
110
 
109
- Case "4"
111
+ Case "4"
110
112
 
111
- inputTag_Douro.Click
113
+ inputTag_Douro.Click
112
114
 
113
- Case Else
115
+ Case Else
114
116
 
115
- Exit Do
117
+ Exit Do
116
118
 
117
- End Select
119
+ End Select
118
120
 
119
- Loop
121
+ Loop
122
+
123
+ ```