新規記事の投稿を行うことで、非表示にすることが可能です。
●テスト●てすと
2022年10月14日
Excel VBA カーソルでキャラ移動 イベントプロシージャ
Option Explicit
Dim pastTarget As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a3") = "Lv.001"
Range("a4") = "HP:30/MP:20"
Range("a5") = "--"
If Target = "" Then
If pastTarget <> "" Then
' MsgBox (pastTarget)
Range(pastTarget).Interior.ColorIndex = 0
Range(pastTarget) = ""
End If
Target.Interior.Color = ColorConstants.vbYellow
Target = "o(^^)/"
'確認用
Range("a1") = Target.Address
pastTarget = Target.Address
End If
End Sub
Dim pastTarget As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("a3") = "Lv.001"
Range("a4") = "HP:30/MP:20"
Range("a5") = "--"
If Target = "" Then
If pastTarget <> "" Then
' MsgBox (pastTarget)
Range(pastTarget).Interior.ColorIndex = 0
Range(pastTarget) = ""
End If
Target.Interior.Color = ColorConstants.vbYellow
Target = "o(^^)/"
'確認用
Range("a1") = Target.Address
pastTarget = Target.Address
End If
End Sub