讓程式自動辨識

myleoyes

各位前輩你們好!
         前輩!!小弟是利用[AE3]參照來讓
         AA鈕具有隱藏與取消功能
         請問是否也可以在省略[AE3]參照
         之下讓AA鈕也同樣有隱藏與取消功能
         不知程式為何?
         請知道的前輩,不吝賜教謝謝再三!!

myleoyes

回復 1# myleoyes
殆勢啦!忘了附程式
Sub AA()
       If [AE3] = "" Then
       : [Z:AT].EntireColumn.Hidden = False : [AE3] = 1
       ElseIf [AE3] = 1 Then [AE3] = "": [Z:AT].EntireColumn.Hidden = True
       End If
       [B7].Select
End Sub

register313

回復 2# myleoyes
   用CheckBox勾選

1. Private Sub CheckBox1_Click()
   
2. 
   
3.    If CheckBox1 = True Then
   
4.       [Z:AT].EntireColumn.Hidden = False
   
5.       Else: [Z:AT].EntireColumn.Hidden = True
   
6.    End If
   
7.    [B7].Select
   
8. 
   
9. End Sub

複製代碼

Book2.zip (7.92 KB)

下載次數: 6

2011-12-20 22:44

myleoyes

回復 3# register313
前輩!非常的謝謝!!程式可以
        但應檔案要執行的程式很多
        所以按鈕也不少因此小弟以下列方式取代按鈕
        Private Sub Worksheet_SelectionChange(ByVal T As Range)
           Select Case T(1).Address(0, 0)
            Case "A2"
                 分析
            Case "B2"
                  隱藏與取消(AA鈕)     
          End Select
          End Sub
          因此前輩所教的方式雖好,
          可是會破壞原檔案的完整性
          是否請前輩依上陳列方式
          教導AA鈕呢?無理的要求真是不好意思
          請再辛苦你囉!謝謝再三!!

register313

回復 4# myleoyes
    是這樣嗎?

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2.    Select Case T.Address
   
3.      Case "$A$2"
   
4.            Call 分析
   
5.      Case "$B$2"
   
6.            Call 隱藏
   
7.      Case "$C$2"
   
8.            Call 取消隱藏
   
9.      Case Else
   
10.   End Select
    
11. End Sub

複製代碼

1. Sub 分析()
   
2.     MsgBox "執行分析程式"
   
3. End Sub
   
4. Sub 隱藏()
   
5.     [Z:AT].EntireColumn.Hidden = True
   
6. End Sub
   
7. Sub 取消隱藏()
   
8.    [Z:AT].EntireColumn.Hidden = False
   
9. End Sub

複製代碼

Book1.zip (7.79 KB)

下載次數: 4

2011-12-21 23:05

GBKEE

回復 4# myleoyes
但應檔案要執行的程式很多 , 所以按鈕也不少因此小弟以下列方式取代按鈕
應附檔上來看看程式的規律在哪裡!!

myleoyes

回復 5# register313
前輩!非常的謝謝!!
       附檔請看因為裡面的程式很多
       小弟所學習的程式又有限,因此程式會雜亂不堪
       希望將不必要的參照或多餘的按鈕與程式
       省略這是小弟想要的

myleoyes

回復 6# GBKEE
良師!久違嚕!謝謝!!
          檔案已附上請看需求如上
           隱藏與取消

myleoyes

回復 5# register313
前輩!殆勢!趕時又忘掉!

register313

回復 9# myleoyes

看了檔案實在不了解你要的功能
是不是再說明清楚