質問するログイン新規登録

質問編集履歴

4

イメージ画像を添付いたしました。

2019/07/29 00:50

投稿

aberudain
aberudain

スコア7

title CHANGED
File without changes
body CHANGED
@@ -3,7 +3,15 @@
3
3
 
4
4
  VBAでプログラムを作成しています、
5
5
  シート内で文字検索をし、検索結果のセルを特定の数だけ移動したセルを取得し、新規作成した別のシートに値を貼り付ける作業を全シート行いたいです。
6
+
7
+ ![C,I,J列に値を貼りつけたいです。](c38726d405c7646655a77158851d7d2c.png)
8
+
9
+ ![コピーする箇所です。同じ形式の表がシート内にいくつかありますが、シートごとに表の数は異なります。](0eeeec95e8b891aedb30b132341656a2.png)
10
+
11
+ ![貼り付けイメージです。](d15a2edc6610efc250065e6b282ffff0.png)
12
+
6
13
  ステップインを行うと問題なくプログラムが実行されますが、実行のみを行うと貼付が行われないので原因が知りたいです。
14
+ ただ、コピーは実行されているみたいです。
7
15
 
8
16
  ### 該当のソースコード
9
17
 

3

タイトルを変更いたしました。

2019/07/29 00:49

投稿

aberudain
aberudain

スコア7

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

ご指摘ありがとうございます。書式を整えました。

2019/07/29 00:32

投稿

aberudain
aberudain

スコア7

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

試したことについてご指摘をいただきましたので編集いたしました。説明が下手で申し訳ございませんが、よろしくお願いいたします。

2019/07/25 07:33

投稿

aberudain
aberudain

スコア7

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
+ ここ以外にブレークポイントを設置またはデバックせずそのまま実行するとうまく貼付けが実行されてくれません。