質問：セルが空欄なら斜線を

【´･ω･`】：セルが空欄ならば斜線を引くにはどうしたらよいですかという質問は

　　　　　　本当に定番だな。今回は特にセルを跨がる斜線を引く方法だ。

　　　　　　新しくサンプルを作るのも面倒くさいので前に佐賀県の先生から質問が

　　　　　　来たときに作ったものを再掲しよう。下は佐賀県の高校入試用の調査書だ。

　　　　　　下図の赤枠を見てほしい。

 

 

【´･ω･`】：セルBIの数値を０から１にすると・・・

 

 

【´･ω･`】：セルBIの数値を０から２にすると・・・

 

 

 

【´･ω･`】：セルの普通の斜線は対角線にしかならないので、ワークシートのチェンジイベントを

　　　　　利用してオートシェイプのVisibleプロパティを切り替えている。

 

'------------------------------------------------------------------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$BI$2" Then Exit Sub
   
    Shapes("Line 12").Visible = False
    Shapes("Line 13").Visible = False
   
    If Cells(29, "R").Text = "" And Cells(32, "R").Text = "" Then
        Shapes("Line 12").Visible = True
    ElseIf Cells(32, "R").Text = "" Then
        Shapes("Line 13").Visible = True
    End If
End Sub

'------------------------------------------------------------------------------------------------------------------

Syasen_autoshape01をダウンロード