標題: 如何自動存檔 [打印本頁]

---

作者: lucky12345    時間: 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)
該如何做.........謝謝您的指導

---

作者: register313    時間: 2012-3-8 08:17

回復 1# lucky12345

ThisWorkbook.Save

---

作者: lucky12345    時間: 2012-3-8 14:12

register313大
可以了  謝謝您

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)