回復 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
回復 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鈕呢?無理的要求真是不好意思
請再辛苦你囉!謝謝再三!!
回復 10#register313
前輩!謝謝!!以隱藏與取消為例
Sub 隱藏()
[Z:AT].EntireColumn.Hidden = True
End Sub
Sub 取消隱藏()
[Z:AT].EntireColumn.Hidden = False
End Sub
需要點選兩個(按鈕)儲存格來
來達到隱藏與取消的功能
若加入[AE3]參照就可以點選同一儲存格
而用前輩所教導用CheckBox勾選
方式就可省略[AE3]參照不是更好嗎?
但是依前輩CheckBox勾選方式
與原來檔案以點選儲存格的方式
是有些格格不入的感覺呢?
再舉例 密碼程式
Sub 密碼()
Again:
ZZ = Application.InputBox("輸入密碼", "請輸入開啟密碼", Type:=1)
[AE2] = ZZ
If ZZ = False Then End
If ZZ = 0 Then End
If [AE1] <> [AE2] Then MsgBox "密碼錯誤, 請重新輸入 ！！": GoTo Again
If [AE1] = [AE2] Then
[Z:AT].EntireColumn.Hidden = False
ActiveWindow.ScrollColumn = 15
End Sub
小弟因為不懂程式只能用此笨方式來作
因此[AE1]與[AE2]儲存格就是多餘的
若以前輩的功力應該不須要用[AE1]與[AE2]儲存格
做為參照照樣可以達到密碼程式功能不是嗎?
可否再指導這個密碼程式怎麼寫才正確呢?
不好意思請再辛苦你囉!謝謝再三!!
回復 14#GBKEE
良師!辛苦囉!
這個取消隱藏程式小弟已經找到如下
Sub 取消隱藏()
Set myRng = [Z:AT]
With myRng.EntireColumn
.Hidden = Not .Hidden
End With
Set myRng = Nothing
[B7].Select
End Sub
謝謝再三!!
發表於 2011-12-20 21:15
| 
