|
本帖最后由 temp11111 于 2012-2-6 12:32 编辑
arttk 发表于 2011-4-7 08:35 ![](static/image/common/back.gif)
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
各位老師
請問這顆按鈕是怎麼弄出來的
我使用表單的方式或是ACTIVE控制項皆無法達到
我是參考這篇 [求助]已经解决,谢谢了,求点选单元格即变色的VBA 與 行列变色代码(外部網站)http://hi.baidu.com/soup5258/blog/item/2e3f7c5538f2e54ed1090694.html
要把它改成勾選變色不勾選還原
目前遇到2個問題
1. 勾選方塊不知道怎麼做出來
2. 取消勾選自動將變色的範圍拿掉 ..不用另外點選儲存格
- Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
- If CheckBox1.Value = True Then
- CheckBox1.Caption = "勾選啟用點選列變色"
- On Error Resume Next
- Cells.FormatConditions.Delete
- With Target.EntireRow.FormatConditions
- 'With Target.EntireColumn.FormatConditions
- .Delete
- .Add xlExpression, , "TRUE"
- .Item(1).Interior.ColorIndex = 6
- End With
- End If
- If CheckBox1.Value = False Then
- CheckBox1.Caption = "取消變色"
- On Error Resume Next
- Cells.FormatConditions.Delete
- With Target.EntireColumn.FormatConditions
- .Delete
- .Add xlExpression, , "TRUE"
- .Item(1).Interior.ColorIndex = 0
- End With
- End If
- End Sub
复制代码
謝謝!!
|
|