作者a3831038 (哭哭杰)
看板Office
标题[算表] 如何使用储存格连动工作表颜色表示状态?
时间Mon Jul 4 17:50:25 2022
软体: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才会有反应
利用核取方块回传的数值没有反应
请问要如何修改呢?谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.238.149.138 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1656928230.A.0F5.html
1F:→ a3831038: 追踪一下07/04 18:02
※ 编辑: a3831038 (36.238.149.138 台湾), 07/04/2022 19:11:16
2F:→ newacc: 把"TRUE"和"FALSE"改为True和False试试看(字串变成布林值) 07/04 22:08
3F:→ newacc: 不然就是核取方块不会触发Worksheet_Change事件,把code放 07/04 22:14
4F:→ newacc: CheckBox_Click事件试试看 07/04 22:14
5F:→ a3831038: 哇,要重写有点难,毕竟这程式码是google抓来的XDD,我 07/05 17:25
6F:→ a3831038: 再研究看看,谢谢 07/05 17:25