返回列表 上一主題 發帖

如何自動存檔

lucky12345

帖子
107 
主題
27 
精華
0 
積分
138 
點名
0  
作業系統
vista 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北縣 
註冊時間
2010-5-2 
最後登錄
2026-9-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-3-8 07:11 | 只看該作者

如何自動存檔

Private Sub Worksheet_Calculate()
Application.EnableEvents = False
    If UCase([b60000]) = "K" Then
         [G59281:bk60000] = [ G60001:bk60720].Value
    End If
Application.EnableEvents = True
End Sub
請教各位大大      當 [G59281:bk60000] 複製到[ G60001:bk60720].
順便自動存檔一次  = (ctrl+s)
該如何做.........謝謝您的指導
收藏 分享
目前小學生期待他日進國中

lucky12345

帖子
107 
主題
27 
精華
0 
積分
138 
點名
0  
作業系統
vista 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台北縣 
註冊時間
2010-5-2 
最後登錄
2026-9-28 
3#
發表於 2012-3-8 14:12 | 只看該作者
register313大
可以了  謝謝您
目前小學生期待他日進國中

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

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

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-3-8 08:17 | 只看該作者
回復 1# lucky12345

ThisWorkbook.Save

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題