Note: The other languages of the website are Google-translated. Back to English

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

通常、セルは他のセルを参照している間だけセル値を保持しますが、この記事では、別のセルを参照しながらセル値と書式を保持するVBAコードを紹介します。セル値と書式は、参照セルが次のように変化すると変化します示されているスクリーンショット。
docは1を参照しながらフォーマットを続けます

VBAで別のセルを参照しながら、セルの書式を維持する


VBAで別のセルを参照しながら、セルの書式を維持する

このジョブを処理するには、以下のコードを実行する必要があります。

1.使用するワークブックを有効にし、を押します Altキー+ F11 有効にするキー アプリケーション用 Microsoft Visual Basic ウィンドウをクリックし、参照セルを配置するシート名をダブルクリックします プロジェクト-VBAProject 空白のスクリプトを表示するペイン。 この場合、セルを参照したい A1 Sheet1。 スクリーンショットを参照してください:
docは2を参照しながらフォーマットを続けます

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 は参照セルであり、 B1 in シート2 は、参照セルにリンクし、Shee1のA1で値と書式を保持するセルです。

次に、Sheet1のセルA1の値または書式を変更すると、参照セルを1回クリックすると、Sheet2のセルBXNUMXが変更されます。


色で数える

場合によっては、複数の色の計算範囲があり、同じ色に基づいて値をカウント/合計することが必要な場合がありますが、どのようにしてすばやく計算できますか?
Kutools for Excel's 色で数える、色ごとに多くの計算をすばやく実行でき、計算結果のレポートを生成することもできます。
色別のドキュメント数

最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (8)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、私はこれがまさに私が探しているものかもしれないと信じています。 参照されているテキストは、参照されているページと同じ色と機能を持っている必要があります。 私の唯一の違いは、私がより広い範囲から引っ張っているということです。 これまでVBAを使用したことがないので、変更する前に確認したいと思いました。 ドキュメント(シート2)から(シート1)ドキュメントにプルしています。 私はこれを行うためにIF式を使用したので、3つの異なる列から値を返し、それらは行にありません。 列はF、H、Jです。 この作業をどのように行うことができるかを理解するのを手伝っていただけませんか。
このコメントは、サイトのモデレーターによって最小化されました
申し訳ありませんが、あなたの問題は少し複雑です、私ははっきりと理解していません。
このコメントは、サイトのモデレーターによって最小化されました
私は同様の問題を扱っています。 列Cに数式があり、同じ行の列Aから値を取得します(ただし、B3がxでなく、A3が空でない場合のみ):

= IF(B3 = "x"; "y"; IF(A3 = ""; "z"; A3))

列Aのセルは次のようになります:OK 2019_12_03
ただし、「OK」は太字で示しています。 このフォーマットを維持したいと思います。
何百ものセルにこれが必要なので、それぞれのセルをクリックしたり、スクリプトを記述したりすることは望ましくありません。 そのような機能が存在する場合、何かアイデアはありますか? 数式に入れることができるある種の「WITHFORMAT()」関数をいただければ幸いです。そのため、次の数式は元の形式を保持します。

= IF(B3 = "x"; "y"; IF(A3 = ""; "z"; WITHFORMAT(A3)))
このコメントは、サイトのモデレーターによって最小化されました
スクリプトをありがとうございました。 参照セルをダブルクリックせずにリンクされたセルを更新する方法があるかどうか教えてください。 ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
これを共有していただきありがとうございます。 あるブック内のセルの範囲を参照し、別のブック内の参照されたセルの値と形式を表示できるVBAスクリプトはありますか?
このコメントは、サイトのモデレーターによって最小化されました
これを共有していただきありがとうございます。 WorksheetA、Sheet1、Range G3:G3000に、WorksheetB、Sheet1、Range G3:G3000で参照したいセルの範囲があります。 WorksheetA、Sheet1、G3:G3000で参照されるセルの値と形式の両方を表示するには、WorksheetB、Sheet1、範囲G3:G3000が必要です。 これを可能にするVBAスクリプトはありますか?
このコメントは、サイトのモデレーターによって最小化されました
いいえtienesunoque sea dentro del mismo archivo
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、参照セルの形式を保持したいと思います。 ただし、VBAを使用しても機能しません。 手伝ってくれませんか。
シート2のB1セルを、シート2、2,3,4,5,6,7、XNUMX、XNUMX、XNUMX、XNUMXのCXNUMXセルの参照セルにします。
私の文書は人々のリストであるため、続きではなく、いくつかの参照セルがあります。
前もって感謝します
ここにはまだコメントが投稿されていません
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護