Excel VBA 質問スレ Part49©2ch.net

[0935 デフォルトの名無しさん (ｱｳｱｳｳｰ Sa85-mYeN) 2017/08/23(水) 08:18:48.53 ID:EgpJbwY2a]

コードは
private sub worksheet_change（ByVal
target as range）
If target.address〈〉"A1" then exit sub
If Target = "1" then Activesheet.Tab.ColorIndex = 9
If Target = "2" then Activesheet.Tab.ColorIndex = 3
End Sub

初心者ですのでここはこうした方がいいなどアドバイスいただけると幸いです