VBAを使用してワークシートマップを作成する - ダミー

ビデオ: Excel VBA ビットマップファイルをワークシートに変換してみた 2024

あなたはよく知られていない（複雑な）Excelワークブックを理解しようとしましたか？どのセルに定数が含まれており、どのセルに値が含まれているかの概要を示すマップを見ると便利です。

アクティブなワークシートのマップを生成するVBAユーティリティを作成できます。マップは新しいワークシート上に生成され、色分けされたセルで構成され、値、テキスト、および数式をすばやく識別できます。

<！ - 1 - >

以下にそのような地図の例を示します。テキストを含むセルは緑色で、数値を含むセルは黄色で、式を含むセルは赤です。このようなマップは潜在的なエラーを発見するのに役立ちます。たとえば、式のブロック内の1つの数式が値で上書きされた場合、そのセルはマップビュー（この例のセルQ11のように）で表示されます。

<！ - 2 - >

QuickMap VBAコード

ワークシートマップを生成するVBAプロシージャを以下に示します。このユーティリティを使用する場合は、コードをコピーしてVBAモジュールに貼り付けます。次に、ワークシートをアクティブにして、QuickMapサブルーチンを実行します。

Sub QuickMap（）Dim FormulaCells VariantとしてDim TextCells VariantとしてDim NumberCells Variantとして領域を薄くするTypeName（ActiveSheet） "Worksheet" Then Exit Sub 'セルのサブセットのオブジェクト変数を作成するエラーの再開次のSet FormulaCells = Range（ "A1"）。 SpecialCells _（xlFormulas、xlNumbers + xlTextValues + xlLogical）TextCells = Range（ "A1"）を設定します。 SpecialCells（xlConstants、xlTextValues）NumberCells = Range（ "A1"）を設定します。 SpecialCells（xlConstants、xlNumbers）On GoTo Go Go 0 '新しいシートを追加してスプレッドシートをフォーマットします。セルで追加する。 ColumnWidth = 2フォント。サイズ= 8. HorizontalAlignment = xlCenterアプリケーション終了。 ScreenUpdating = False '式セルがNot IsEmpty（FormulaCells）である場合、FormulaCellsの各領域に対して行います。 ActiveSheetのある領域。範囲（エリア。住所）。値= "F"。インテリア。 ColorIndex = 3次の領域で終了End If 'テキストセルがNot IsEmpty（TextCells）である場合はTextCellsの各領域に対して行います。 ActiveSheetのある領域。範囲（エリア。住所）。値= "T"。インテリア。 ColorIndex = 4次の領域で終了End If '数値セルがNot IsEmpty（NumberCells）である場合はNumberCellsの各エリアに対して行います。 ActiveSheetのある領域。範囲（エリア。住所）。値= "N"。インテリア。 ColorIndex = 6次の領域で終了End If End Sub

仕組み

<！ - 3 - >

プロシージャはまず、アクティブなシートがワークシートであることを確認します。そうでない場合は、何もしなくてもすぐに終了します。アクティブシートがワークシートの場合、プロシージャは、SpecialCellsメソッドを使用してさまざまなセルタイプを識別することによって、3つのオブジェクト変数を作成します。SpecialCellsメソッドは非常に便利です。あなたがそれに精通していない場合は、Excelのオンラインヘルプファイルでチェックしてください。 On Error Resume Nextを使用していることに注意してください。これは、ワークシートに式がない場合など、セルが限定されない場合に発生するエラーを回避するためです。

次に、新しいワークシートを追加し、セル幅を縮小し、水平方向の配置を中央に設定する。このステップは美容的です。その後、画面の更新を無効にして、少し高速化します。次の3つのコードブロックが細胞を処理する。セルが修飾されていない場合、オブジェクト変数は空です。したがって、サブテストではこれをテストします。次に、ルーチンはRangeオブジェクトの各領域をループし、セルをフォーマットします。サブルーチンのこの部分を簡単にカスタマイズして、異なる書式を適用することができます。

Power Utility Pakアドインをチェックして、このユーティリティのはるかに洗練されたバージョンを確認してください。