软件:EXCEL
版本:2016
目前使用核取方块回传到储存格产生TRUE或FALSE
想借此去自动改变工作表单的颜色表示状态
使用下列VBA程式码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AA$29" Then
Select Case Target.Value
Case "FALSE"
Me.Tab.Color = vbRed
Case "TRUE"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
储存格$AA$29是核取方块回传TRUE或FALSE的储存格
但这个程式码只有自行输入true或false后，按ENTER才会有反应
利用核取方块回传的数值没有反应
请问要如何修改呢？谢谢

追踪一下

把"TRUE"和"FALSE"改为True和False试试看(字串变成布林值)不然就是核取方块不会触发Worksheet_Change事件，把code放CheckBox_Click事件试试看

哇，要重写有点难，毕竟这程式码是google抓来的XDD，我再研究看看，谢谢