0

赤いフォントでフォーマットされたセルがあります。ユーザーがセルをクリックするか、キーボードでセルに移動したときに、フォーマットを黒いフォントに変更したいと思います。

セルは「Q15」です。どのシートに関係なく、ワークブック内の「Q15」のすべてのインスタンスにコードを適用したいと思います。

「ThisWorkbook」に以下を入力しました。すべてのワークシートで「Q15」を参照していることを指定するにはどうすればよいですか?

Private Sub Worksheet_Change(ByVal Target as Range) 
    Target.Font.ColorIndex = 1
End Sub
4

1 に答える 1

1

ThisWorkbook moduleコードを追加する必要がある正しい場所です。

ただし、別の種類のイベントを使用する必要があります。次の（完全な）コードで使用します。

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

    If Target.Address = "$Q$15" Then

        Target.Font.ColorIndex = 1

    End If
End Sub
于 2013-08-16T18:03:43.740 に答える