- 日時： 2007/08/18 11:37
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：図形の描画,オートシェイプ,吹き出し,矢印 *
***********************************************************************************
元質問：EXCELでのコピー・貼り付けについて - DAI 2005/10/19-11:56 No.4680
セルのコピーを行ってそれを別のセルに貼り付けようとしていますが、うまくいきません。
最後のペーストの部分でエラーが発生します。
.Worksheets("Sheet1").Range("A1").Copy
.Worksheets("Sheet1").Range("E5").Paste
-----------------------------------------------------------------------------------
Excel 上でコピー＆ペースト(貼り付け)を実行する - 花ちゃん 2007/08/18
-----------------------------------------------------------------------------------
> 最後のペーストの部分でエラーが発生します。
だったら、Excel の VBA のヘルプで Paste メソッド の 対象 のところを調べて見て下さい。
こう行った事が起きないように、事前バインディング で接続するようにして下さい。
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(Excel上でのコピー＆ペースト）
'Excel 上でやりたい事をマクロで記録して見て下さい。
'マクロの記録結果
' Range("B2:D6").Select 'セル範囲の "B2:D6" を選択
' Selection.Copy 'コピーを実施
' Range("B14").Select '貼付先 "B14" を選択
' ActiveSheet.Paste '貼付を実施
'上記をVBのコードに直すと下記のようになります。
xlSheet.Range("B2:D6").Copy
xlSheet.Paste Destination:=xlSheet.Range("B14")
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
|
Excel 上でコピー＆ペースト(貼り付け)を実行する（VB6.0 基本編）