教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA セル操作】セルのパターン(Interior.Pattern)を設定する方法を教えて!

f:id:m_kbou:20210815153434p:plain

セルのパターンを設定するにはInterior.Patternプロパティを使用します。パターンは全部で19種類あります。このセルのパターンを設定する方法について紹介します。

 

 

構文

記述方法は以下の通りとなります。

Range(”[セル範囲]”).Interior.Pattern =[パターンの種類]

[説明]:

セルのパターンを設定するには「Range(”[セル範囲]”).Interior.Pattern =[パターンの種類]」と記述します。[セル範囲]にはパターンを設定するセル範囲を記述し、「”」(ダブルクォーテーション)で囲みます。Interior.Patternの後の[パターンの種類]にはセルに設定するパターンを記述します。内容を纏めると、「指定した[セル範囲]に、指定した[パターンの種類]を設定して下さい。」との意味になります。(※パターンの設定は、セルの書式設定画面のパターンの種類の選択と同じ意味です。)

f:id:m_kbou:20210815153449p:plain

パターンの種類については、以下一覧を参考にして下さい。

f:id:m_kbou:20210815153502p:plain

[記述例]:

Range("A1").Interior.Pattern = xlGray50
Range("A1").Interior.Pattern = xlDown
Range("A1").Interior.Pattern = xlLightVertical
Range("A1").Interior.Pattern = xlNone

 

使い方

使い方について具体的に説明します。

パターン:50%灰色に設定する方法

パターン:50%灰色に設定する方法について説明します。

[プログラミング例]:

Sub 灰色50パーセント()
  Range("A1").Interior.Pattern = xlGray50
  MsgBox "パターン:50%灰色に設定しました。"
End Sub

内容は、「A1セルに50%灰色のパターンを設定し、最後にMsgBoxで”パターン:50%灰色に設定しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210815153519p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<50%灰色>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210815153625p:plain

②結果は以下の様になります。A1セルが50%灰色のパターンに設定され、MsgBoxで「パターン:50%灰色に設定しました。」が表示されます。

f:id:m_kbou:20210815153638p:plain

パターン:50%灰色に設定する方法についての説明は以上です。

 

パターン:左上から右下までの濃い対角線に設定する方法

パターン:左上から右下までの濃い対角線に設定する方法について説明します。

[プログラミング例]:

Sub 左上から右下までの濃い対角線()
  Range("A1").Interior.Pattern = xlDown
  MsgBox "パターン:左上から右下までの濃い対角線に設定しました。"
End Sub

内容は、「A1セルに左上から右下までの濃い対角線のパターンを設定し、最後にMsgBoxで”パターン:左上から右下までの濃い対角線に設定しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210815153533p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<左上から右下までの濃い対角線>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210815153653p:plain

②結果は以下の様になります。A1セルが左上から右下までの濃い対角線のパターンに設定され、MsgBoxで「パターン:左上から右下までの濃い対角線に設定しました。」が表示されます。

f:id:m_kbou:20210815153708p:plain

パターン:左上から右下までの濃い対角線に設定する方法についての説明は以上です。

 

パターン:明るい縦線を設定する方法

パターン:明るい縦線を設定する方法について説明します。

[プログラミング例]:

Sub 明るい縦線()
  Range("A1").Interior.Pattern = xlLightVertical
  MsgBox "パターン:明るい縦線に設定しました。"
End Sub

内容は、「A1セルに明るい縦線のパターンを設定し、最後にMsgBoxで”パターン:明るい縦線に設定しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210815153548p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<明るい縦線>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210815153726p:plain

②結果は以下の様になります。A1セルが明るい縦線のパターンに設定され、MsgBoxで「パターン:明るい縦線に設定しました。」が表示されます。

f:id:m_kbou:20210815153739p:plain

パターン:明るい縦線を設定する方法についての説明は以上です。

 

パターン:塗りつぶしなしに設定する方法

パターン:塗りつぶしなしに設定する方法について説明します。

[プログラミング例]:

Sub 塗りつぶしなし()
  Range("A1").Interior.Pattern = xlNone
  MsgBox "パターン:塗りつぶしなしに設定しました。"
End Sub

内容は、「A1セルのパターンを塗りつぶしなし設定し、最後にMsgBoxで”パターン:塗りつぶしなしに設定しました。”のメッセージを表示して下さい。」との意味になります。

f:id:m_kbou:20210815153602p:plain

※上記の記述例は、VBE(VBA記述画面)に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。

[実行例]:

①<塗りつぶしなし>ボタンをクリックします。このボタンには上記のプログラミング例のプログラムが登録されています。(※ボタンの作り方やボタンにプログラムを割り当てるにはこちらを参考にして下さい。)

f:id:m_kbou:20210815153752p:plain

②結果は以下の様になります。A1セルの設定されているパターンが解除され、MsgBoxで「パターン:塗りつぶしなしに設定しました。」が表示されます。

f:id:m_kbou:20210815153803p:plain

パターン:塗りつぶしなしに設定する方法についての説明は以上です。

 

[サンプル]:

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

 

おわりに

今回はセルのパターンを設定する方法について説明しました。是非参考にして下さい。