質問編集履歴
1
必要と思われる部分のみに編集しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,7 +1,12 @@
|
|
|
1
1
|
こんにちは
|
|
2
2
|
|
|
3
|
+
前提条件
|
|
3
|
-
|
|
4
|
+
既に他のエクセルファイルで選択した範囲をコピーして有る状態
|
|
5
|
+
|
|
6
|
+
マクロの開始
|
|
7
|
+
A1にクリップボード内のデータを貼り付けたい
|
|
8
|
+
|
|
4
|
-
|
|
9
|
+
マクロ化したいのですが、下のように打つとコピーしても、
|
|
5
10
|
クリップボードが空ですと、メッセージボックスが出てきます。
|
|
6
11
|
しかし、手入力でA1を選択して、貼り付けすると、
|
|
7
12
|
コピーした範囲がペーストされます。
|
|
@@ -14,8 +19,7 @@
|
|
|
14
19
|
'
|
|
15
20
|
|
|
16
21
|
'
|
|
17
|
-
|
|
22
|
+
|
|
18
|
-
Selection.ClearContents
|
|
19
23
|
Range("A1").Select
|
|
20
24
|
Dim CB As Variant, i As Long
|
|
21
25
|
CB = Application.ClipboardFormats
|
|
@@ -29,9 +33,7 @@
|
|
|
29
33
|
Exit For
|
|
30
34
|
End If
|
|
31
35
|
Next i
|
|
32
|
-
|
|
36
|
+
|
|
33
|
-
Range("A1:AA43").Select
|
|
34
|
-
Selection.PrintOut Copies:=1, Collate:=True
|
|
35
37
|
End Sub
|
|
36
38
|
|
|
37
39
|
コード
|