讓程式自動辨識

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

11^# 跳轉到 »

發表於 2011-12-23 17:37 | 只看該作者

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

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

12^#

發表於 2011-12-23 21:14 | 只看該作者

回復 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

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

13^#

發表於 2011-12-23 21:43 | 只看該作者

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

14^#

發表於 2011-12-24 16:09 | 只看該作者

回復 13# myleoyes
太複雜了.

TOP

myleoyes

高中生 Rank: 3 Rank: 3

帖子: 463
主題: 116
精華: 0
積分: 580
點名: 0
作業系統: Vista
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2010-5-4
最後登錄: 2017-11-13

論壇贊助勳章論壇榮譽勳章

15^#

發表於 2011-12-24 20:54 | 只看該作者

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

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]