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

回答編集履歴

3

誤記載の修正

2016/08/02 11:15

投稿

jawa
jawa

スコア3020

answer CHANGED
@@ -139,9 +139,17 @@
139
139
  ただ、Copy&Pasteはクリップボードを上書きしてしまうので個人的にはあまりお勧めしません。
140
140
 
141
141
  >'Paste'メソッドをつけなくても貼り付けできるという記事
142
- で紹介されている方法は、クリップボードを使用せず、セルの値を複写することができます。
142
+ で紹介されている方法
143
-
144
143
  ```
145
- 'クリップボードを消費しないコピー
146
144
  rng1.Copy rng2
147
145
  ```
146
+ では、クリップボードを使用せず、セルの値を複写することができます。
147
+  **⇒ 間違いでした。Pasteの記述を省略して一行化できるだけでクリップボードは使用されます。**
148
+
149
+ クリップボードを使用しない方法は、セルの値だけのコピーでよければ
150
+ ```
151
+ rng.Value = rng1.Value
152
+ ```
153
+ で実現できます。
154
+
155
+ 書式や色もコピーしたい、となると、Value以外のプロパティもそれぞれ写してあげる必要があります。

2

tuiki

2016/08/02 11:15

投稿

jawa
jawa

スコア3020

answer CHANGED
@@ -93,4 +93,55 @@
93
93
 
94
94
  Next 略称
95
95
  End Sub
96
- ```
96
+ ```
97
+
98
+
99
+ 追記に関して
100
+ ---
101
+ まとめて書いているコードを分解してあげると原因が掴みやすくなりますよ。
102
+
103
+ エラーとなるコードを以下のように分解して、デバッグ実行(F8)で1行ずつ処理を追ってみましょう。
104
+ どこでエラーになりましたか?
105
+ ```
106
+ Sub セルコピー貼り付け_その2()
107
+
108
+ 'Worksheets("データ一覧").Range("B4").Copy
109
+ 'Worksheets("USA").Range("B11").Paste
110
+
111
+ Dim sht1 As Worksheet
112
+ Dim sht2 As Worksheet
113
+
114
+ Dim rng1 As Range
115
+ Dim rng2 As Range
116
+
117
+ Set sht1 = Worksheets("データ一覧")
118
+ Set sht2 = Worksheets("USA")
119
+
120
+ Set rng1 = sht1.Range("B4")
121
+ Set rng2 = sht2.Range("B11")
122
+
123
+ rng1.Copy
124
+ rng2.Paste
125
+
126
+ End Sub
127
+ ```
128
+
129
+ デバッグ実行するとわかると思いますが、エラーになるのはPasteしている部分です。
130
+ Range型にはPasteメソッドは用意されていません。
131
+
132
+ Copy&Pasteで実行するなら
133
+ ```
134
+ rng1.Copy
135
+ sht2.Paste Destination:=rng2
136
+ ```
137
+ のような感じになります。
138
+
139
+ ただ、Copy&Pasteはクリップボードを上書きしてしまうので個人的にはあまりお勧めしません。
140
+
141
+ >'Paste'メソッドをつけなくても貼り付けできるという記事
142
+ で紹介されている方法は、クリップボードを使用せず、セルの値を複写することができます。
143
+
144
+ ```
145
+ 'クリップボードを消費しないコピー
146
+ rng1.Copy rng2
147
+ ```

1

誤記修正

2016/08/02 09:42

投稿

jawa
jawa

スコア3020

answer CHANGED
@@ -10,8 +10,8 @@
10
10
 
11
11
  もしデータ一覧シートを
12
12
  A列, B列, C列
13
+ BRZL, ブラジル, オリンピック開催される
13
14
  CAN, カナダ,
14
- BRZL, ブラジル, オリンピック開催される
15
15
  JPN, 日本, 母国
16
16
  MXCO, メキシコ, 遊びに行った
17
17
  USA, アメリカ, 留学した