【´・ω・`】:セルが空欄ならば斜線を引くにはどうしたらよいですかという質問は
本当に定番だな。今回は特にセルを跨がる斜線を引く方法だ。
新しくサンプルを作るのも面倒くさいので前に佐賀県の先生から質問が
来たときに作ったものを再掲しよう。下は佐賀県の高校入試用の調査書だ。
下図の赤枠を見てほしい。
【´・ω・`】:セルBIの数値を0から1にすると・・・
【´・ω・`】:セルBIの数値を0から2にすると・・・
【´・ω・`】:セルの普通の斜線は対角線にしかならないので、ワークシートのチェンジイベントを
利用してオートシェイプの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
'------------------------------------------------------------------------------------------------------------------
最近のコメント