- 帖子
- 561
- 主題
- 160
- 精華
- 0
- 積分
- 725
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- xp
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2014-9-10
- 最後登錄
- 2026-2-12
  
|
3#
發表於 2015-1-30 15:00
| 只看該作者
DEAR SIR
用 VBA
假如 XXX=SHEET4工作表. 於SHEET4增一功能鍵執行如下.
自行變換應用
Sub 開啟SHEET123()
Sheet4.Visible = FALSE 'XXX工作表關閉
Sheet1.Visible = True 'SHEET1工作表開啟
Sheet2.Visible = True 'SHEET2工作表開啟
Sheet3.Visible = True 'SHEET3工作表開啟
SHEET1.SELECT '至'SHEET1工作表
RANGE("A1").SELECT '至A1儲存格
End Sub |
|