- 帖子
- 6
- 主題
- 1
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- Windows10
- 軟體版本
- OFFICE2016 Excel 2016
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2018-12-6
- 最後登錄
- 2018-12-17
|
[發問] 下拉式選單, 依據選擇的項目不同, 執行不同的巨集
目前要製作一個下拉式選單, 當下拉式選單選擇A項目, 就執行A巨集, 選擇B項目就執行B巨集,
A巨集和B巨集都只是顯示和隱藏特定的欄位, 目前卡在製作下拉式選單後只能執行一個巨集,
不管是用資料驗證還是ActiveX製作的下拉式選單都用同樣的問題,
有研究和查詢使用worksheet_change來撰寫程式, 還是無法執行多個巨集, 圖解和巨集如下請各位前輩指點, 謝謝
Private Sub Workbook_SheetChange(ByVal Target As Range)
Target = Range("A1")
Applicion.Run AMP_100
Applicion.Run Pre_Qual
Applicion.Run GPU
Applicion.Run Class1
End Sub
_______________________________________________________________________________
Sub AMP_100()
Rows("1:1619").EntireRow.Hidden = False
End Sub
________________________________________________________________________________
Sub Pre_Qual()
Rows("1:1619").EntireRow.Hidden = False
Rows("7:1377").EntireRow.Hidden = True
Rows("1404:1619").EntireRow.Hidden = True
End Sub
_________________________________________________________________________________
Sub GPU()
Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("178").EntireRow.Hidden = False
Rows("216").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("228").EntireRow.Hidden = False
Rows("334").EntireRow.Hidden = False
Rows("378").EntireRow.Hidden = False
Rows("341").EntireRow.Hidden = False
Rows("487").EntireRow.Hidden = False
Rows("494").EntireRow.Hidden = False
Rows("531").EntireRow.Hidden = False
Rows("640").EntireRow.Hidden = False
Rows("647").EntireRow.Hidden = False
Rows("684").EntireRow.Hidden = False
Rows("793").EntireRow.Hidden = False
Rows("800").EntireRow.Hidden = False
Rows("837").EntireRow.Hidden = False
Rows("946").EntireRow.Hidden = False
Rows("953").EntireRow.Hidden = False
Rows("990").EntireRow.Hidden = False
Rows("1033").EntireRow.Hidden = False
Rows("1040").EntireRow.Hidden = False
Rows("1080").EntireRow.Hidden = False
Rows("1132").EntireRow.Hidden = False
Rows("1139").EntireRow.Hidden = False
End Sub
____________________________________________________________________________
Sub Class1()
Rows("7:1619").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1185").EntireRow.Hidden = False
Rows("226").EntireRow.Hidden = False
Rows("1193").EntireRow.Hidden = False
Rows("1378").EntireRow.Hidden = False
Rows("1404").EntireRow.Hidden = False
Rows("1425").EntireRow.Hidden = False
Rows("1432").EntireRow.Hidden = False
Rows("1454").EntireRow.Hidden = False
Rows("1472").EntireRow.Hidden = False
Rows("1492").EntireRow.Hidden = False
Rows("1495").EntireRow.Hidden = False
Rows("1533").EntireRow.Hidden = False
Rows("1558").EntireRow.Hidden = False |
|
發表於 2018-12-14 08:12
| 
