VBA ExcelでX線を描画する方法

Visual Basic for Applicationsを使用すると、Excelでデータをフォーマット、表示、分析、および操作することができます。 VBAは、作成したコードを使用して、異なるワークブックの何千もの列に対する数学的な操作を含め、手動では困難または不可能な反復タスクを自動的に実行できます。 Excelのスプレッドシート機能の1つでは、セルの境界線を直線または対角線で表すことができ、セルの内側にX線を引くことができます。

VBAの基本

Excelでは、ワークシート、セル、セルの範囲は「オブジェクト」と呼ばれ、色など、操作できるプロパティがあります。オブジェクトにタスクを実行させるVBAコードはマクロと呼ばれ、開発者タブの下にある[ファイル]の下にあるVisual Basicエディタを使用して、[オプション]と[Excelオプション]を選択します。ダイアログボックスの左側[リボンのカスタマイズ]、[メイン]の順に選択し、[開発者]チェックボックスをオンにして[OK]をクリックすると、[開発者]タブが表示されます。マクロはサブルーチンの短縮形である“ sub”で始まり、“ end sub”で終わります。拡張子.xlsmを付けて保存する必要があります。

VBAコマンド

コマンド形式は、ドットで区切られたオブジェクトとそのプロパティまたはメソッドを書き込みます。 Rangeオブジェクトは、セルまたはセルのグループを操作できるようにするために、「選択」および「選択」と共に使用されます。たとえば、コマンド "Range（" A1 "）。value = 3"はセル1を選択し、それに値3を割り当てます。セルA6とC6、そしてその間のすべてを選択するには、 "Range（" A6：C6）と書きます。「）選択してください。」

境界線のプロパティ

境界線は、デフォルトでは黒で太い実線または細い実線または破線を使用できます。対角線は内側または外側の境界線で、前後に移動します。コマンドはそれぞれ "xlDiagonalDown"または "xlDiagonalUp"です。前後の斜めスラッシュを描画するコマンドは“ Selection.Borders（Diagonal Command）.LineStyle = xlContinuous”です。ここで、xlContinuousは実線を意味します。

X線を引く

X線を描画するには、対象となるすべてのセルに前後斜めのスラッシュを作成する必要があります。スクリプトウィンドウを開き、新しいサブを開始して名前を付けてから、1行に「Sub drawDiagonal（）」のようにX行を描画するセルを選択するスクリプトを入力して、3つのセルにそれらを描画することができます。 “ Range（ "A6：C6"）とその下の“”を選択します。選択した各セルにスラッシュを前後に描画するようにスクリプトに指示するには、その下に "Selection.Borders（xlDiagonalDown）.LineStyle = xlContinuous"と "Selection.Borders（xlDiagonalUp）.LineStyle = xlContinuous"と記述する必要があります。「End Sub」と入力すると、サブルーチンが閉じます。 [開発者]タブの[マクロ]をクリックしてから[実行]をクリックすると、セルA6、B6、およびC6にX行が表示されます。