返回列表 上一主題 發帖

讓程式自動辨識

回復 9# myleoyes
20~30個儲存格皆為按鈕
20~30個儲存格是指哪裏 ?
請你說明一下規律性!

TOP

回復 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]儲存格
       做為參照照樣可以達到密碼程式功能不是嗎?
       可否再指導這個密碼程式怎麼寫才正確呢?
       不好意思請再辛苦你囉!謝謝再三!!

TOP

回復 11# GBKEE
良師!以範例檔的Sheet15來說
       剛好有40個儲存格皆為按鈕  
       各別分配從A1:D4,E1,F1...等等皆是
       它沒有所謂的規律性只是點選哪一個
       儲存格,哪一個程式就執行
       當然啦!有些程式會一個接一個執行
       至所需的結果,這些程式所寫好囉!
       也可以順利執行,只是太多的參照
       與按鈕常常會忘了點選哪一個
       儲存格,是執行甚麼任務而頭痛哈哈!!
       所以請點選B1,字體成正常顏色
       再點選B1,字體變成隱藏色所顯示的就是
       程式所執行的指令名稱,如此一來
       不管檔案經過多久沒有使用皆可以輕鬆的操作
       所以減少參照與按鈕就會少頭疼這就是本次討論的議題謝謝再三!!

TOP

回復 13# myleoyes
太複雜了.

TOP

回復 14# GBKEE
良師!辛苦囉!
       這個取消隱藏程式小弟已經找到如下
       Sub 取消隱藏()
              Set myRng = [Z:AT]
              With myRng.EntireColumn
               .Hidden = Not .Hidden
              End With
              Set myRng = Nothing
             [B7].Select
       End Sub
            謝謝再三!!

TOP

        靜思自在 : 人生不一定球球是好球,但是有歷練的強打者,隨時都可以揮棒。
返回列表 上一主題