设置一个选项按钮，选中了就使得代码事件发生

CCTV20082008

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column > 6 Then Exit Sub
    n = Target.Row
    Cells.Interior.ColorIndex = xlColorIndexNone
    Range(Cells(n, 1), Cells(n, 6)).Interior.ColorIndex = 8
End Sub
这是高亮代码
假设我要在sheet1 设置一个选项按钮，选中了就使得代码事件发生， 不选中就使得代码失效 使得 Worksheet_SelectionChange 事件不发生
怎么样才可以实现呢

arttk

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

temp11111

arttk 发表于 2011-4-7 08:35
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

各位老師
請問這顆按鈕是怎麼弄出來的
我使用表單的方式或是ACTIVE控制項皆無法達到
我是參考這篇 [求助]已经解决,谢谢了,求点选单元格即变色的VBA 與 行列变色代码(外部網站)http://hi.baidu.com/soup5258/blog/item/2e3f7c5538f2e54ed1090694.html
要把它改成勾選變色不勾選還原
目前遇到2個問題
1. 勾選方塊不知道怎麼做出來
2. 取消勾選自動將變色的範圍拿掉 ..不用另外點選儲存格

1. 
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
   
3. If CheckBox1.Value = True Then
   
4.     CheckBox1.Caption = "勾選啟用點選列變色"
   
5.         On Error Resume Next
   
6.         Cells.FormatConditions.Delete
   
7.         With Target.EntireRow.FormatConditions
   
8.         'With Target.EntireColumn.FormatConditions
   
9.         .Delete
   
10.         .Add xlExpression, , "TRUE"
    
11.         .Item(1).Interior.ColorIndex = 6
    
12.         End With
    
13. End If
    
14. 
    
15. If CheckBox1.Value = False Then
    
16.     CheckBox1.Caption = "取消變色"
    
17.         On Error Resume Next
    
18.         Cells.FormatConditions.Delete
    
19.         With Target.EntireColumn.FormatConditions
    
20.         .Delete
    
21.         .Add xlExpression, , "TRUE"
    
22.         .Item(1).Interior.ColorIndex = 0
    
23.         End With
    
24. End If
    
25. End Sub
    

复制代码

謝謝!!

temp11111

a.... 還是這個問題要另開新帖才可以阿 {:soso_e132:}

Zamyi

1. Dim b As Boolean
   
2. Private Sub CheckBox1_Change()
   
3. If CheckBox1 Then CheckBox1.Caption = "取消勾选暂停宏" Else CheckBox1.Caption = "勾选启用宏"
   
4. b = CheckBox1
   
5. End Sub
   
6. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
7. If Not b Then Exit Sub
   
8. Target = "123"
   
9. End Sub
   

复制代码

temp11111

Zamyi 发表于 2012-2-6 17:35

老師 對不起
請問如何加一個按鈕呢?
我試過這兩種..不知道怎了連結宏
這樣子無法測試


再次感謝老師 謝謝

temp11111

先睡了 ~再請各位老師抽空幫幫忙 謝謝!!