麻辣家族討論版版 » Excel程式區 » 讓程式自動辨識

返回列表下一主題上一主題發帖

讓程式自動辨識

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-12-20 21:15 | 只看該作者

讓程式自動辨識

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

樓主熱帖

收藏

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2011-12-20 21:18 | 只看該作者

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

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

3^#

發表於 2011-12-20 22:44 | 只看該作者

回復 2# myleoyes
用CheckBox勾選

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
[Z:AT].EntireColumn.Hidden = False
Else: [Z:AT].EntireColumn.Hidden = True
End If
[B7].Select
End Sub

複製代碼

Book2.zip (7.92 KB)

高中生 Rank: 3 Rank: 3

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

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

4^#

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

回復 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鈕呢?無理的要求真是不好意思
      請再辛苦你囉!謝謝再三!!

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^#

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

本帖最後由 register313 於 2011-12-21 23:05 編輯

回復 4# myleoyes
是這樣嗎?

Private Sub Worksheet_SelectionChange(ByVal T As Range)
Select Case T.Address
Case "$A$2"
Call 分析
Case "$B$2"
Call 隱藏
Case "$C$2"
Call 取消隱藏
Case Else
End Select
End Sub

複製代碼

Sub 分析()
MsgBox "執行分析程式"
End Sub
Sub 隱藏()
[Z:AT].EntireColumn.Hidden = True
End Sub
Sub 取消隱藏()
[Z:AT].EntireColumn.Hidden = False
End Sub

複製代碼

Book1.zip (7.79 KB)

超級版主 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兔年全勤獎章

6^#

發表於 2011-12-22 15:28 | 只看該作者

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

高中生 Rank: 3 Rank: 3

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

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

7^#

發表於 2011-12-22 21:54 | 只看該作者

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

高中生 Rank: 3 Rank: 3

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

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

8^#

發表於 2011-12-22 22:05 | 只看該作者

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

高中生 Rank: 3 Rank: 3

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

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

9^#

發表於 2011-12-22 22:10 | 只看該作者

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

LeoV56.rar (19.04 KB)

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

10^#

發表於 2011-12-23 10:53 | 只看該作者

回復 9# myleoyes

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

靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。

返回列表下一主題上一主題