金千里會計．EXCEL會計帳-[麻辣家族〕 - Excel程式區

1 23

返回列表下一主題上一主題發帖

[分享] 金千里會計．EXCEL會計帳-[麻辣家族〕

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

7^# 跳轉到 »

發表於 2023-11-30 12:37 | 只看該作者

回復 6# Andy2483

謝謝詳細的註解~~
這檔案開始寫的時候, 初入EXCEL, 公式只會MATCH,VLOOKUP...等基本用法,
VBA也是用錄製取得再改寫, 陸續再進階而已, 所以都是淺而易懂的!!!

本帖目的不是以學習程式碼為主要, 而是對於"會計帳"的操作使用, 若有心得可以提供出來!!!
避免本帖回覆文字太多太長, 造成閱讀的耗時,
若有興趣將整個程式碼加入註解, 建議以附檔方式上傳為宜!!!

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1567
主題: 40
精華: 0
積分: 1591
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2026-2-2

6^#

發表於 2023-11-30 08:35 | 只看該作者

本帖最後由 Andy2483 於 2023-12-1 07:14 編輯

回復 1# 准提部林
謝謝論壇,謝謝前輩指導
後學藉此帖學習到活頁簿關閉前的事件,學習心得如下,請前輩再指導
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'↑關閉活頁簿前發生此事件。如果該活頁簿已經變更過，則在系統詢問使用者是否要儲存變更前，即會發生此事件。
https://learn.microsoft.com/zh-t ... orkbook.beforeclose
If Sheets("科目表").Range("vMode").Value <> 0 Then
'↑如果"科目表"的 "vMode"名稱參照的儲存格(科目表!$F$2) 值不是 0?
MsgBox "●請完成或取消【會計科目】的編輯作業！ ", 0 + 48, MsgTitle
'↑跳出提示窗~~
Sheets("科目表").Select: Cancel = True: GoTo 1
'↑令選取 "科目表" 工作表: 令取消關閉活頁簿
'令跳到標示 1的位置繼續執行
End If
1: End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483