自動実行に関する知恵袋：OCRソフトで情報処理

【質問】

マクロの初心者で苦戦しています。条件によって斜線を引くマクロと、それが自動実行されるマクロですが、うまく作動しません。構文は以下のとおりです。どなたかご教授していただけないでしょうか。A１セルの値（４つ）によって、C4セルに斜線を引くマクロです。A1セルは、自動実行の知恵袋を語ると、隣のシートからVlookup関数で参照し、「○」「△」「□」「×」の値が入ります。OCRのソフトの情報処理に関連する説明をすると、「○」のときは、斜線「△」のときは、斜線「□」のときは、何もしない。「×」のときは、何もしない。自動実行の知恵袋に考察を加えると、以下、自分でつくってみた構文です。よろしくお願いいたします。OCRのソフトの情報処理といえば、Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target = "○" Then Range("C4").Borders(xlDiagonalUp).LineStyle = xlContinuous ElseIf Target.Row = 1 And Target = "△" Then Range("C4").Borders(xlDiagonalUp).LineStyle = xlContinuous Else Range("C4").Borders(xlDiagonalUp).LineStyle = xlNone End IfEnd Sub

【解答】

こんばんは huruyan12さんWorksheet_Changeでは関数の変化を捉えられないその他、もろもろを修正してみましたPrivate Sub Worksheet_Calculate()If TypeName(Range("a1").Value) <> "String" Then Exit SubIf Range("a1").Value = "○" Or Range("a1").Value = "△" ThenRange("C4").Borders(xlDiagonalUp).LineStyle = xlContinuousElseRange("C4").Borders(xlDiagonalUp).LineStyle = xlNoneEnd IfEnd Sub参考まで