軟體: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，我再研究看看，謝謝