質問編集履歴

3

試したことを追加いたしました。

2019/12/17 08:05

投稿

Mkasai
Mkasai

スコア19

test CHANGED
File without changes
test CHANGED
@@ -94,11 +94,141 @@
94
94
 
95
95
 
96
96
 
97
-
97
+ ご回答いただきましたアドバイスにより、はじめのマクロAを作成しているのですが、今の自分のレベルでできたのが、ここまでです。
98
+
98
-
99
+ アドバイスいただけないでしょうか。
100
+
101
+
102
+
103
+ ### 該当のソースコード
104
+
105
+
106
+
107
+ Sub マクロA()
108
+
109
+
110
+
111
+ ' ファイルをひらく Macro
112
+
113
+ '
114
+
115
+ Workbooks.Open Filename:="U:???q????[???????.xlsm"
116
+
117
+
118
+
99
- ここに問題に対して試したことを記載してください。
119
+ '?t?@?C????A?N?e?B?u
120
+
121
+
122
+
123
+
124
+
100
-
125
+ Workbooks.Open "U:???q????[???_????.xlsm"
126
+
101
-
127
+ Workbooks.Open "U:???q????[???????.xlsm"
128
+
129
+
130
+
131
+ Workbooks("?????.xlsm").Activate
132
+
133
+
134
+
135
+ '?w?b?_?[??O???
136
+
137
+
138
+
139
+ Rows("2:" & Rows.Count).ClearContents
140
+
141
+
142
+
143
+
144
+
145
+ '?t?@?C????A?N?e?B?u
146
+
147
+
148
+
149
+
150
+
151
+ Workbooks.Open "U:???q????[???_????.xlsm"
152
+
153
+ Workbooks.Open "U:???q????[???????.xlsm"
154
+
155
+
156
+
157
+ Workbooks("?_????.xlsm").Activate
158
+
159
+
160
+
161
+ '?A?N?e?B?u?Z????s?S???I??
162
+
163
+
164
+
165
+ Rows(ActiveCell.Row).Select
166
+
167
+
168
+
169
+ ' ?t?@?C????J?? Macro
170
+
171
+ '
172
+
173
+ Workbooks.Open Filename:="U:???q????[???????.xlsm"
174
+
175
+
176
+
177
+ '?t?@?C????A?N?e?B?u
178
+
179
+
180
+
181
+
182
+
183
+ Workbooks.Open "U:???q????[???_????.xlsm"
184
+
185
+ Workbooks.Open "U:???q????[???????.xlsm"
186
+
187
+
188
+
189
+ Workbooks("?????.xlsm").Activate
190
+
191
+
192
+
193
+ '?w?b?_?[??O???
194
+
195
+
196
+
197
+ Rows("2:" & Rows.Count).ClearContents
198
+
199
+
200
+
201
+
202
+
203
+ '?t?@?C????A?N?e?B?u
204
+
205
+
206
+
207
+
208
+
209
+ Workbooks.Open "U:???q????[???_????.xlsm"
210
+
211
+ Workbooks.Open "U:???q????[???????.xlsm"
212
+
213
+
214
+
215
+ Workbooks("?_????.xlsm").Activate
216
+
217
+
218
+
219
+ '?A?N?e?B?u?Z????s?S???I??
220
+
221
+
222
+
223
+ Rows(ActiveCell.Row).Select
224
+
225
+
226
+
227
+
228
+
229
+
230
+
231
+ End Sub
102
232
 
103
233
  ### 補足情報(FW/ツールのバージョンなど)
104
234
 

2

ソースコードを追加いたしました

2019/12/17 08:05

投稿

Mkasai
Mkasai

スコア19

test CHANGED
File without changes
test CHANGED
@@ -56,11 +56,31 @@
56
56
 
57
57
 
58
58
 
59
- ```ここに言語名を入力
59
+ Sub ?I???()
60
60
 
61
- ソースコード
61
+ '
62
62
 
63
+ ' ?I??? Macro
64
+
63
- ```
65
+ '
66
+
67
+
68
+
69
+ '
70
+
71
+ Range("A5,B5,C5,D5,E5,A9,B9,C9,D9,E9").Select
72
+
73
+ Range("E9").Activate
74
+
75
+ Selection.Copy
76
+
77
+ Sheets("?????").Select
78
+
79
+ Range("A1").Select
80
+
81
+ ActiveSheet.Paste
82
+
83
+ End Sub
64
84
 
65
85
 
66
86
 

1

試した事を追記させていただきました。

2019/11/27 22:35

投稿

Mkasai
Mkasai

スコア19

test CHANGED
File without changes
test CHANGED
@@ -66,9 +66,13 @@
66
66
 
67
67
  ### 試したこと
68
68
 
69
- |列1|列2|列3|
69
+ マクロの記録で指定したいセルをクリックしてみました。
70
70
 
71
- |:--|:--:|--:|
71
+ 記録の内容をヒントにしてみようと思いましたが、クリックしたセルがSelectになっているだけで、条件を付けたい場合、どのようにしたらいいのか悩んでいます。
72
+
73
+
74
+
75
+
72
76
 
73
77
 
74
78