エクセル　別シートへのコピーを，セルの色や太字斜体までやりたい。

解決済

質問者：ss9
質問日時：2002/11/24 22:33
回答数：4件

Ｔ関数を使って，シート１からシート２へ同じ文字をコピーしています。
その時に，そのセルの色や，太字，斜体などは，コピーすることができませんよね。なんとか，そのセルの色や太字，斜体などもコピーしたいのですが，そんなことは可能でしょうか。お教えください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.3ベストアンサー

回答者： misatoanna
回答日時：2002/11/25 00:02

残念ながら、一般関数ではセルの属性そのものを取り入れることはできません。

#1さんのおっしゃるように、いわゆるコピペしか方法はありません。

どうしてもということでしたら、ＶＢＡの世界です。
Sheet1 の A1 を Sheet2 の B3 にコピーする場合、マクロ自動記録機能を使えば、
次のようなマクロが取得できます。
Sub Macro1()
Sheets("Sheet1").Select
Range("A1").Select
Selection.Copy
Sheets("Sheet2").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

これを応用して――
Sub Macro1()
Sheets("Sheet1").Select
ActiveCell.Copy
Sheets("Sheet2").Select
ActiveCell.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

とすれば――
Sheet1 のコピー元セルをクリックしてから Sheet2 のコピー先のセルをクリックし、このマクロを実行することによって、コピー元のすべての情報がコピー先セルに引き継がれます。
Sheet2 にマクロボタンを作成し、このマクロを登録しておけば処理も簡単ですね。

- 1
- 件

通報する

この回答へのお礼

ありがとうございます。
やはり，マクロの世界となってしまいますね。
関数がないかなあと思っていたのでした。
これでやってみます。
ありがとうございました。

通報する

お礼日時：2002/11/26 22:46

No.4

回答者： kazuhiko5681
回答日時：2002/11/25 04:24

初めまして。

簡単に実行することが出来るマクロを組んでみました。シート１の内容を同じブックのシート２にコピー＆ペーストできるように組んであります。

・データの入っているブックを立ち上げ、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を開き、画面左上のVBAProjectと書かれている下のThisWorkbookと書かれている上でダブルクリックし、表示された右側の白い部分に下記のコードをコピー＆ペーストする。

Sub Test
Worksheets(1).Cells.copy Destination:=Worksheets(2).Cells
End Sub

メニューバーからツール→マクロ→マクロと順にクリックし、出てきたダイアログボックスの広い白いボックスの中に書かれているThisWOrkbook.Testと書かれている文字の上でクリックして上の狭いボックスの中に同じ文字が入力されているのを確認後、実行ボタンを押す。

これで、マクロが走り、動作を確認することが出来ます。

不具合・ご不明な点等がございましたら、お気軽にお知らせ下さい。