他のシートのセルを参照しながらセルの書式を維持するにはどうすればよいですか？

一般的に、セルは他のセルを参照する際には値のみ保持しますが、この記事では、VBAコードを使用して別のセルを参照しながらセルの値と書式を維持する方法を紹介します。また、参照先のセルが変更されると、そのセルの値や書式も以下のように変更されます。

VBAを使用して別のセルを参照しながらセルの書式を維持する

VBAを使用して別のセルを参照しながらセルの書式を維持する

この作業を行うには、以下のコードを実行するだけです。

1. 使用するワークブックを有効にし、 Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを有効にし、参照セルを配置するシート名をダブルクリックします。 Project-VBAProject ペインで空白のスクリプトを表示します。この場合、私はセル A1 を Sheet1で参照したいと考えています。スクリーンショットをご覧ください：

2. 以下のコードをスクリプトに貼り付け、VBAコード内で必要なセル参照を指定します。

VBA: 別のセルを参照しながら書式と値を維持する

Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then              'Range("A1") the reference cell
        Target.Copy
        ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
                    'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
        Application.CutCopyMode = False
        Target.Select
    End If
    Application.EnableEvents = True
End Sub

注釈: A1は参照セルであり、Sheet2のB1 は参照セルにリンクし、Sheet1のA1と同じ値と書式を持つセルです。

その後、Sheet1のセルA1の値や書式を変更すると、Sheet2のセルB1は参照セルを2回クリックすることで変更されます。

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！