K25~K236が空白ではなくその行のG列が空白の場合は、そのシートの見出しが赤くなるマクロのコードを教えてください。

Visual Basic | Excel30閲覧

ベストアンサー

0

ブックが開いたときにチェックする場合: ThisWorkbookモジュール: Private Sub Workbook_Open() Call ■シート1.見出し赤 ’call sheets("シート名").見出し赤 End Sub ■シート1(シート名) シートモジュール: Sub 見出し赤() Dim WS As Worksheet Set WS = Me Dim aAS Dim cK As Long, cG As Long cK = WS.Cells(1, "K").Column cG = WS.Cells(1, "G").Column aAS = WS.Cells(1, 1).Resize(236, cK).Value Dim i As Long For i = 25 To 236

ThanksImg質問者からのお礼コメント

ありがとうございました。

お礼日時:5/10 22:17