質問編集履歴
4
イメージ画像を添付いたしました。
title
CHANGED
File without changes
|
body
CHANGED
@@ -3,7 +3,15 @@
|
|
3
3
|
|
4
4
|
VBAでプログラムを作成しています、
|
5
5
|
シート内で文字検索をし、検索結果のセルを特定の数だけ移動したセルを取得し、新規作成した別のシートに値を貼り付ける作業を全シート行いたいです。
|
6
|
+
|
7
|
+

|
8
|
+
|
9
|
+

|
10
|
+
|
11
|
+

|
12
|
+
|
6
13
|
ステップインを行うと問題なくプログラムが実行されますが、実行のみを行うと貼付が行われないので原因が知りたいです。
|
14
|
+
ただ、コピーは実行されているみたいです。
|
7
15
|
|
8
16
|
### 該当のソースコード
|
9
17
|
|
3
タイトルを変更いたしました。
title
CHANGED
@@ -1,1 +1,1 @@
|
|
1
|
-
|
1
|
+
ステップインを行うと問題なくプログラムが実行されるが、実行を行うとうまく動かない
|
body
CHANGED
@@ -2,6 +2,7 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
VBAでプログラムを作成しています、
|
5
|
+
シート内で文字検索をし、検索結果のセルを特定の数だけ移動したセルを取得し、新規作成した別のシートに値を貼り付ける作業を全シート行いたいです。
|
5
6
|
ステップインを行うと問題なくプログラムが実行されますが、実行のみを行うと貼付が行われないので原因が知りたいです。
|
6
7
|
|
7
8
|
### 該当のソースコード
|
2
ご指摘ありがとうございます。書式を整えました。
title
CHANGED
File without changes
|
body
CHANGED
@@ -6,6 +6,7 @@
|
|
6
6
|
|
7
7
|
### 該当のソースコード
|
8
8
|
|
9
|
+
```vba
|
9
10
|
Sub test()
|
10
11
|
|
11
12
|
|
@@ -22,9 +23,8 @@
|
|
22
23
|
|
23
24
|
Worksheets("コピー元").Copy after:=Worksheets(1)
|
24
25
|
ActiveSheet.Name = copysheet
|
26
|
+
|
25
27
|
|
26
|
-
'Set copycell = ActiveSheet.Cells(6, "i")
|
27
|
-
|
28
28
|
x = 6
|
29
29
|
|
30
30
|
For y = 1 To Worksheets.Count
|
@@ -62,12 +62,15 @@
|
|
62
62
|
Worksheets(2).Activate
|
63
63
|
|
64
64
|
End Sub
|
65
|
+
```
|
65
66
|
|
66
67
|
### 試したこと
|
67
68
|
|
68
69
|
|
70
|
+
```vba
|
69
71
|
Worksheets(2).Activate
|
70
72
|
Cells(x, "c") = Worksheets(y).Name
|
71
73
|
|
74
|
+
```
|
72
75
|
上のどちらかににブレークポイントを設置し、実行すればステップインをした時と同様に実行結果が得られますが、
|
73
76
|
ここ以外にブレークポイントを設置する、またはデバックせずにそのまま実行するとうまく貼り付けが実行されてくれません。
|
1
試したことについてご指摘をいただきましたので編集いたしました。説明が下手で申し訳ございませんが、よろしくお願いいたします。
title
CHANGED
File without changes
|
body
CHANGED
@@ -65,7 +65,9 @@
|
|
65
65
|
|
66
66
|
### 試したこと
|
67
67
|
|
68
|
-
|
68
|
+
|
69
69
|
Worksheets(2).Activate
|
70
70
|
Cells(x, "c") = Worksheets(y).Name
|
71
|
+
|
72
|
+
上のどちらかににブレークポイントを設置し、実行すればステップインをした時と同様に実行結果が得られますが、
|
71
|
-
|
73
|
+
ここ以外にブレークポイントを設置する、またはデバックせずにそのまま実行するとうまく貼り付けが実行されてくれません。
|