teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問ボタンを押す作業を繰り返すVBAについて

編集履歴

質問編集履歴

5

質問内容を具体的に修正

2020/05/25 09:59

投稿

gudeo
gudeo

スコア0

test CHANGED
File without changes
test CHANGED
@@ -19,10 +19,6 @@
19
19
  上記のようなエクセルでA2セルを選択した状態で登録ボタンを押すと、B2~G2セルの値を取得するようなVBAなのですが、この作業を300回繰り返すVBAを教えて頂けないでしょうか？
20
20
 
21
21
  上記の例でいうとB3~G3,B4~G4,B5~G5の値を取得する作業を300回繰り返したいです。
22
-
23
- 基本的なFor Nextでできると思うのですが、VBAの知識が乏しく大変恐縮なのですがどなたか下記コードを基にしてご教授頂けないでしょうか？
24
-
25
- 何卒、宜しくお願いします。
26
22
 
27
23
 
28
24
 
@@ -65,3 +61,15 @@
65
61
 
66
62
 
67
63
  End Sub
64
+
65
+
66
+
67
+ A2セル選択→登録ボタンクリック、A3セル選択→登録ボタンクリックを繰り返し行いたいのですが、
68
+
69
+ For i = 1 To 300
70
+
71
+ Next i
72
+
73
+ をどの部分に入れたらよいのかと改行する際の方法が分かりません。
74
+
75
+ 宜しくお願いします。

4

コード変更

2020/05/25 09:59

投稿

gudeo
gudeo

スコア0

test CHANGED
File without changes
test CHANGED
@@ -2,7 +2,7 @@
2
2
 
3
3
 
4
4
 
5
- A 　 B 　 C D E F G
5
+ 　　　A 　 B 　 　　 C D E F G
6
6
 
7
7
  1 銘柄コード　銘柄名称　 前日終値　始値　現在値　高値　安値
8
8
 
@@ -28,41 +28,39 @@
28
28
 
29
29
  Private Sub CommandButton1_Click()
30
30
 
31
- a_col = ActiveCell.Column
31
+ a_col = ActiveCell.Column
32
32
 
33
- a_row = ActiveCell.Row
33
+ a_row = ActiveCell.Row
34
34
 
35
- code = Cells(a_row, a_col).Value
35
+ code = Cells(a_row, a_col).Value
36
36
 
37
- If code <> "" Then
37
+ If code <> "" Then
38
38
 
39
- Selection.Offset(0, 1).Select '1行ずらす
39
+ Selection.Offset(0, 1).Select '1行ずらす
40
40
 
41
- Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"
41
+ Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"
42
42
 
43
- Selection.Offset(0, 1).Select '1行ずらす
43
+ Selection.Offset(0, 1).Select '1行ずらす
44
44
 
45
- Selection.Value = "=RSS|'" & code & ".TJ'!前日終値"
45
+ Selection.Value = "=RSS|'" & code & ".TJ'!前日終値"
46
46
 
47
- Selection.Offset(0, 1).Select '1行ずらす
47
+ Selection.Offset(0, 1).Select '1行ずらす
48
48
 
49
- Selection.Value = "=RSS|'" & code & ".TJ'!始値"
49
+ Selection.Value = "=RSS|'" & code & ".TJ'!始値"
50
50
 
51
- Selection.Offset(0, 1).Select '1行ずらす
51
+ Selection.Offset(0, 1).Select '1行ずらす
52
52
 
53
- Selection.Value = "=RSS|'" & code & ".TJ'!現在値"
53
+ Selection.Value = "=RSS|'" & code & ".TJ'!現在値"
54
54
 
55
- Selection.Offset(0, 1).Select '1行ずらす
55
+ Selection.Offset(0, 1).Select '1行ずらす
56
56
 
57
- Selection.Value = "=RSS|'" & code & ".TJ'!高値"
57
+ Selection.Value = "=RSS|'" & code & ".TJ'!高値"
58
58
 
59
- Selection.Offset(0, 1).Select '1行ずらす
59
+ Selection.Offset(0, 1).Select '1行ずらす
60
60
 
61
- Selection.Value = "=RSS|'" & code & ".TJ'!安値"
61
+ Selection.Value = "=RSS|'" & code & ".TJ'!安値"
62
62
 
63
- End If
63
+ End If
64
-
65
-
66
64
 
67
65
 
68
66
 

3

コード変更

2020/05/25 09:02

投稿

gudeo
gudeo

スコア0

test CHANGED
File without changes
test CHANGED
@@ -67,17 +67,3 @@
67
67
 
68
68
 
69
69
  End Sub
70
-
71
-
72
-
73
-
74
-
75
-
76
-
77
-
78
-
79
-
80
-
81
-
82
-
83
- End Sub

2

コード変更

2020/05/25 08:58

投稿

gudeo
gudeo

スコア0

test CHANGED
File without changes
test CHANGED
@@ -36,27 +36,27 @@
36
36
 
37
37
  If code <> "" Then
38
38
 
39
- Selection.Offset(0 + i, 1).Select '1行ずらす
39
+ Selection.Offset(0, 1).Select '1行ずらす
40
40
 
41
41
  Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"
42
42
 
43
- Selection.Offset(0 + i, 1).Select '1行ずらす
43
+ Selection.Offset(0, 1).Select '1行ずらす
44
44
 
45
45
  Selection.Value = "=RSS|'" & code & ".TJ'!前日終値"
46
46
 
47
- Selection.Offset(0 + i, 1).Select '1行ずらす
47
+ Selection.Offset(0, 1).Select '1行ずらす
48
48
 
49
49
  Selection.Value = "=RSS|'" & code & ".TJ'!始値"
50
50
 
51
- Selection.Offset(0 + i, 1).Select '1行ずらす
51
+ Selection.Offset(0, 1).Select '1行ずらす
52
52
 
53
53
  Selection.Value = "=RSS|'" & code & ".TJ'!現在値"
54
54
 
55
- Selection.Offset(0 + i, 1).Select '1行ずらす
55
+ Selection.Offset(0, 1).Select '1行ずらす
56
56
 
57
57
  Selection.Value = "=RSS|'" & code & ".TJ'!高値"
58
58
 
59
- Selection.Offset(0 + i, 1).Select '1行ずらす
59
+ Selection.Offset(0, 1).Select '1行ずらす
60
60
 
61
61
  Selection.Value = "=RSS|'" & code & ".TJ'!安値"
62
62
 
@@ -67,3 +67,17 @@
67
67
 
68
68
 
69
69
  End Sub
70
+
71
+
72
+
73
+
74
+
75
+
76
+
77
+
78
+
79
+
80
+
81
+
82
+
83
+ End Sub

1

コード追加

2020/05/25 08:57

投稿

gudeo
gudeo

スコア0

test CHANGED
File without changes
test CHANGED
@@ -20,6 +20,50 @@
20
20
 
21
21
  上記の例でいうとB3~G3,B4~G4,B5~G5の値を取得する作業を300回繰り返したいです。
22
22
 
23
- 基本的なFor Nextでできると思うのですが、VBAの知識が乏しく大変恐縮なのですがどなたかご教授頂けないでしょうか？
23
+ 基本的なFor Nextでできると思うのですが、VBAの知識が乏しく大変恐縮なのですがどなたか下記コードを基にしてご教授頂けないでしょうか？
24
24
 
25
25
  何卒、宜しくお願いします。
26
+
27
+
28
+
29
+ Private Sub CommandButton1_Click()
30
+
31
+ a_col = ActiveCell.Column
32
+
33
+ a_row = ActiveCell.Row
34
+
35
+ code = Cells(a_row, a_col).Value
36
+
37
+ If code <> "" Then
38
+
39
+ Selection.Offset(0 + i, 1).Select '1行ずらす
40
+
41
+ Selection.Value = "=RSS|'" & code & ".TJ'!銘柄名称"
42
+
43
+ Selection.Offset(0 + i, 1).Select '1行ずらす
44
+
45
+ Selection.Value = "=RSS|'" & code & ".TJ'!前日終値"
46
+
47
+ Selection.Offset(0 + i, 1).Select '1行ずらす
48
+
49
+ Selection.Value = "=RSS|'" & code & ".TJ'!始値"
50
+
51
+ Selection.Offset(0 + i, 1).Select '1行ずらす
52
+
53
+ Selection.Value = "=RSS|'" & code & ".TJ'!現在値"
54
+
55
+ Selection.Offset(0 + i, 1).Select '1行ずらす
56
+
57
+ Selection.Value = "=RSS|'" & code & ".TJ'!高値"
58
+
59
+ Selection.Offset(0 + i, 1).Select '1行ずらす
60
+
61
+ Selection.Value = "=RSS|'" & code & ".TJ'!安値"
62
+
63
+ End If
64
+
65
+
66
+
67
+
68
+
69
+ End Sub