質問編集履歴
1
必要と思われる部分のみに編集しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -2,9 +2,19 @@
|
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
前提条件
|
|
6
6
|
|
|
7
|
+
既に他のエクセルファイルで選択した範囲をコピーして有る状態
|
|
8
|
+
|
|
9
|
+
|
|
10
|
+
|
|
11
|
+
マクロの開始
|
|
12
|
+
|
|
13
|
+
A1にクリップボード内のデータを貼り付けたい
|
|
14
|
+
|
|
15
|
+
|
|
16
|
+
|
|
7
|
-
|
|
17
|
+
マクロ化したいのですが、下のように打つとコピーしても、
|
|
8
18
|
|
|
9
19
|
クリップボードが空ですと、メッセージボックスが出てきます。
|
|
10
20
|
|
|
@@ -30,9 +40,7 @@
|
|
|
30
40
|
|
|
31
41
|
'
|
|
32
42
|
|
|
33
|
-
|
|
43
|
+
|
|
34
|
-
|
|
35
|
-
Selection.ClearContents
|
|
36
44
|
|
|
37
45
|
Range("A1").Select
|
|
38
46
|
|
|
@@ -60,11 +68,7 @@
|
|
|
60
68
|
|
|
61
69
|
Next i
|
|
62
70
|
|
|
63
|
-
Sheets("ｼｰﾄ").Select
|
|
64
71
|
|
|
65
|
-
Range("A1:AA43").Select
|
|
66
|
-
|
|
67
|
-
Selection.PrintOut Copies:=1, Collate:=True
|
|
68
72
|
|
|
69
73
|
End Sub
|
|
70
74
|
|