Ｐａｇｅ 474 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シートコピー時の書式の変化について masa 02/12/20(金) 19:22 ┗Re:シートコピー時の書式の変化について masa 02/12/20(金) 19:30 ┗Re:シートコピー時の書式の変化について ハマゾウ 02/12/21(土) 1:43 ┗Re:シートコピー時の書式の変化について masa 02/12/22(日) 14:35 ─────────────────────────────────────── ■題名 ： シートコピー時の書式の変化について ■名前 ： masa ■日付 ： 02/12/20(金) 19:22 -------------------------------------------------------------------------
| 初めて質問させていただきます。 シートをコピーする時、メニューから操作した場合はセルの書式（表示形式）も そのままコピーされるのですが、マクロを使用した場合は勝手に書式が変更されて しまいます。 マクロは以下の通りです。 Sub Macro1() ActiveSheet.Copy After:=Sheets(1) End Sub コピーもとの書式（表示形式）は「ユーザー定義（m/d/yyyy）」で、 コピーされた方の書式は「日付（yyyy/m/d)」になってしまいます。 書式をそのままコピーしたい場合は、どのようにすれば良いのでしょうか。 ご指導宜しくお願いいたします。 |
| すみません。書き忘れていました。 Excel2000、OSはWin2000です。 改めて宜しくお願いいたします。 |
| ▼masa さん： 特定の書式だけが変化するようですがその理由はわかりません。 以下のコードだと書式も保持されます。 Sub test() Dim ActSheet As String ActSheet = ActiveSheet.Name Sheets.Add Sheets(ActSheet).Cells.Copy Destination:=ActiveSheet.Range("a1") End Sub |
| ▼ハマゾウ さん： 教えていただいた処理でうまくいきました。ありがとうございます。 でも書式が勝手に変わってしまうのはなぜでしょうね。仕様なのでしょうか。 |