查看完整版本 : EXCEL 問題

smileeverydays 2017-9-16 03:30 PM

EXCEL 問題

想問EXCEL 可否自動依時限跳入指定版面?


工作表1 = 過場版面   工作表2 = 資料輸入版面

Private Sub Workbook_Open()        <--當活頁簿開啟
Sheets("工作表1").Visible= True     <-- "工作表1出現 ; "工作表2"隱藏  
Sheets("工作表2").Visible= xlSheetVeryHidden
Application.Wait Now + 3 / 86400     <-- 3秒過後
Sheets("工作表2").Visible= True         <-- "工作表2出現 ; "工作表1"隱藏  
Sheets("工作表1").Visible= xlSheetVeryHidden
End Sub

但問題當我"工作表2"修改資料儲存時,再開啟活頁簿就停在係"工作表2"
我想再開時係番"工作表1" ,自動等3秒再開"工作表2"        

係米要加下面2個??   請問可5可以幫下我
Application.Calculation = xlManual'關閉重算
Application.Calculation = xlAutomatic'開啟重算

[[i] 本帖最後由 smileeverydays 於 2017-9-16 05:02 PM 編輯 [/i]]

tom.care 2017-9-16 09:39 PM

Excel 不是編程,請移玉到軟件新資及心得交流
[url]http://computer.discuss.com.hk/forumdisplay.php?fid=256[/url]

daisukemoi 2017-9-16 11:25 PM

[quote]原帖由 [i]tom.care[/i] 於 2017-9-16 10:39 PM 發表 [url=http://computer.discuss.com.hk/redirect.php?goto=findpost&pid=467939630&ptid=26930424][img]http://computer.discuss.com.hk/images/common/back.gif[/img][/url]
Excel 不是編程,請移玉到軟件新資及心得交流
[url=http://computer.discuss.com.hk/forumdisplay.php?fid=256]http://computer.discuss.com.hk/forumdisplay.php?fid=256[/url] [/quote]

Excel VBA 是編程
請先看清楚

kanpanlo 2017-9-17 02:19 PM

vba 絕對是編程啦、base VB

bickey 2017-9-18 05:45 PM

Private Sub Workbook_BeforeClose(Cancel As Boolean)
' Your code
End Sub

smileeverydays 2017-9-18 07:28 PM

試左 但係唔得
Before_Close 變左 關閉之前先行個程式
都唔該你先:loveliness:

cpfynot 2017-9-19 04:25 AM

[quote]原帖由 [i]smileeverydays[/i] 於 2017-9-18 07:28 PM 發表 [url=http://computer.discuss.com.hk/redirect.php?goto=findpost&pid=468040882&ptid=26930424][img]http://computer.discuss.com.hk/images/common/back.gif[/img][/url]
試左 但係唔得
Before_Close 變左 關閉之前先行個程式
都唔該你先:loveliness: [/quote]
唔係將個sub改做Before_Close
而係加多個Before_Close嘅sub

例子:
Private Sub Workbook_BeforeClose(Cancel As Boolean)        Sheets("工作表1").Visible = True        Sheets("工作表2").Visible = xlSheetVeryHiddenEnd Sub

smileeverydays 2017-9-19 05:37 PM

大致整到啦  謝謝!

[color=#0000ff]STEP1[/color]
我係桌面有個EXCEL "工作表1"  有個按鈕,按下就會連結到資料夾連一個EXCEL
Sub enter_Click()
Workbooks.Open "[color=#ff0000]路徑[/color]" & varCellvalue &".xlsm"
End Sub

[color=#0000ff]STEP2[/color]
然後資料夾入面另一個EXCEL [color=#ff0000] 路徑[/color]
"工作表1" 係過場版面  ;  "工作表2"係一大堆資料
Private Sub Workbook_Open()
Sheets("工作表2").Visible= xlSheetVeryHidden
Application.Wait (Now +TimeValue("00:00:5"))
Sheets("工作表2").Visible= True
Sheets("工作表2").Select
End Sub            

但問題唔知係米"工作表2"太多資料 ,修改資料儲存後
熄哂再開 ,循環   [color=#0000ff]STEP1 ,都會係 "工作表2" LAG一LAG閃一閃 先行 STEP2[/color]

試過"工作表2"刪到得番1行資料就無野好暢順...

[[i] 本帖最後由 smileeverydays 於 2017-9-19 05:41 PM 編輯 [/i]]

smileeverydays 2017-9-19 06:49 PM

無野啦 原來係我加太多圖片 所以LAG:smile_27:
THANKS ~

kimbaby1234 2017-10-26 02:09 PM

*** 作者被禁止或刪除 內容自動屏蔽 ***

ae86forum 2017-10-26 04:29 PM

[quote]原帖由 [i]tom.care[/i] 於 2017-9-16 21:39 發表 [url=http://www.discuss.com.hk/redirect.php?goto=findpost&pid=467939630&ptid=26930424][img]http://www.discuss.com.hk/images/common/back.gif[/img][/url]
Excel 不是編程,請移玉到軟件新資及心得交流
[url]http://computer.discuss.com.hk/forumdisplay.php?fid=256[/url] [/quote]

你係咪好得閒?

tom.care 2017-10-27 12:14 AM

[quote]原帖由 [i]ae86forum[/i] 於 2017-10-26 04:29 PM 發表 [url=http://computer.discuss.com.hk/redirect.php?goto=findpost&pid=469955950&ptid=26930424][img]http://computer.discuss.com.hk/images/common/back.gif[/img][/url]
你係咪好得閒?
[/quote]
呢個冬天我有時間,係咪有 freelance ?
頁: [1]
查看完整版本: EXCEL 問題