質問編集履歴
4
イメージ画像を添付いたしました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -8,7 +8,23 @@
|
|
|
8
8
|
|
|
9
9
|
シート内で文字検索をし、検索結果のセルを特定の数だけ移動したセルを取得し、新規作成した別のシートに値を貼り付ける作業を全シート行いたいです。
|
|
10
10
|
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
21
|
+
|
|
22
|
+
|
|
23
|
+
|
|
24
|
+
|
|
11
25
|
ステップインを行うと問題なくプログラムが実行されますが、実行のみを行うと貼付が行われないので原因が知りたいです。
|
|
26
|
+
|
|
27
|
+
ただ、コピーは実行されているみたいです。
|
|
12
28
|
|
|
13
29
|
|
|
14
30
|
|
3
タイトルを変更いたしました。
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
ステップインを行うと問題なくプログラムが実行されるが、実行を行うとうまく動かない
|
test
CHANGED
|
@@ -5,6 +5,8 @@
|
|
|
5
5
|
|
|
6
6
|
|
|
7
7
|
VBAでプログラムを作成しています、
|
|
8
|
+
|
|
9
|
+
シート内で文字検索をし、検索結果のセルを特定の数だけ移動したセルを取得し、新規作成した別のシートに値を貼り付ける作業を全シート行いたいです。
|
|
8
10
|
|
|
9
11
|
ステップインを行うと問題なくプログラムが実行されますが、実行のみを行うと貼付が行われないので原因が知りたいです。
|
|
10
12
|
|
2
ご指摘ありがとうございます。書式を整えました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -13,6 +13,8 @@
|
|
|
13
13
|
### 該当のソースコード
|
|
14
14
|
|
|
15
15
|
|
|
16
|
+
|
|
17
|
+
```vba
|
|
16
18
|
|
|
17
19
|
Sub test()
|
|
18
20
|
|
|
@@ -46,9 +48,7 @@
|
|
|
46
48
|
|
|
47
49
|
ActiveSheet.Name = copysheet
|
|
48
50
|
|
|
49
|
-
|
|
50
|
-
|
|
51
|
-
|
|
51
|
+
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
@@ -126,6 +126,8 @@
|
|
|
126
126
|
|
|
127
127
|
End Sub
|
|
128
128
|
|
|
129
|
+
```
|
|
130
|
+
|
|
129
131
|
|
|
130
132
|
|
|
131
133
|
### 試したこと
|
|
@@ -134,12 +136,16 @@
|
|
|
134
136
|
|
|
135
137
|
|
|
136
138
|
|
|
139
|
+
```vba
|
|
140
|
+
|
|
137
141
|
Worksheets(2).Activate
|
|
138
142
|
|
|
139
143
|
Cells(x, "c") = Worksheets(y).Name
|
|
140
144
|
|
|
141
145
|
|
|
142
146
|
|
|
147
|
+
```
|
|
148
|
+
|
|
143
149
|
上のどちらかににブレークポイントを設置し、実行すればステップインをした時と同様に実行結果が得られますが、
|
|
144
150
|
|
|
145
151
|
ここ以外にブレークポイントを設置する、またはデバックせずにそのまま実行するとうまく貼り付けが実行されてくれません。
|
1
試したことについてご指摘をいただきましたので編集いたしました。説明が下手で申し訳ございませんが、よろしくお願いいたします。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -132,10 +132,14 @@
|
|
|
132
132
|
|
|
133
133
|
|
|
134
134
|
|
|
135
|
-
|
|
135
|
+
|
|
136
136
|
|
|
137
137
|
Worksheets(2).Activate
|
|
138
138
|
|
|
139
139
|
Cells(x, "c") = Worksheets(y).Name
|
|
140
140
|
|
|
141
|
+
|
|
142
|
+
|
|
143
|
+
上のどちらかににブレークポイントを設置し、実行すればステップインをした時と同様に実行結果が得られますが、
|
|
144
|
+
|
|
141
|
-
|
|
145
|
+
ここ以外にブレークポイントを設置する、またはデバックせずにそのまま実行するとうまく貼り付けが実行されてくれません。
|