上
●投資・お金系サイト
●テスト●てすと
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
【このカテゴリーの最新記事】
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
-
no image
この記事へのコメント
コメントを書く
この記事へのトラックバックURL
https://fanblogs.jp/tb/11633788
※ブログオーナーが承認したトラックバックのみ表示されます。
この記事へのトラックバック