標題:
[分享]
金千里會計．EXCEL會計帳-[麻辣家族〕
[打印本頁]
作者:
准提部林
時間:
2023-11-25 16:19
標題:
金千里會計．EXCEL會計帳-[麻辣家族〕
本帖最後由 准提部林 於 2024-3-24 10:14 編輯
＜金千里會計．EXCEL會計帳＞
原放在中華電信的隨意窩供人下載，因該部落格網頁已停止服務，
經改寫部份程式碼，在此台灣唯一EXCEL園地〔麻辣家族〕繼續提供下載。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
本會計帳檔案特點：
◆免安裝、下載解壓縮即可使用。
◆只要懂EXCEL就會使用，若懂得會計的老闆也可以自已動手來記帳。
◆可以直接在「隨身碟」或「讀卡機」中執行，帶著走也方便。
◆利用VBA寫成，須自行啟用巨集的安全性的設定。
◆本檔案適用于〔買賣業〕，若是其他行業請先測試，若是覺得可以使用再決定。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
★★★注意事項（非常重要）必看★★★
◆EXCEL有時會有不知原因而自行關閉或發生錯誤，
或者使用者不小心的操作而誤刪，請務必隨時複製備份。
◆本會計檔是〔一年一帳〕，所以跨年度時，必須另開新帳，
亦即同一檔案內，不可以有〔不同年度〕的會計分錄。
一般是利用年底〔資產負債表〕的會計科目開新年度帳。
◆檔案中雖有〔年度結轉〕可使用，但因各使用者各有不同狀況，
可能有結轉不成功或不完全的問題，建議〔手動開帳〕較妥當。
◆跨年手動開新帳，可先在〔日記帳〕中執行〔刪除全部分錄〕，
以產生一個空白檔案（這可以保留原有的會計科目及設定），再來做開帳的分錄。
◆檔案中的〔日記帳〕有〔匯出／匯入〕功能，請隨時執行匯出，
當檔案使用一段時間發生問題，可重新使用空白檔案，再利用此匯出檔執行匯入。
◆程式碼非常複雜，且各有串連，可說牽一髮動全身，
所以若想自行更改程式碼，須慎重考慮是否會有問題發生。
◆若有需要從別處複製文字或內容至本檔案時，禁止直接〔貼上〕，
請使用〔選擇性貼上．貼上值〕，避免破壞格式而不能使用。
◆關於〔附表〕檔案，因各人需求不同，須自行設計檔案。
◆為要產生〔月份別損益表〕，務必在〔庫存列表〕中輸入各月份的〔期末庫存金額〕。
◆在年底時，必須建立〔期末庫存〕的分錄傳票，如以下例子：
借：商品盤存 2,500,000.00
貸：期末庫存 2,500,000.00
◆每張報表底下都有簡單說明，請詳細閱讀。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＜檔案下載１＞
[attach]37617[/attach]
__2024.03.24 修正：會計傳票的[現金收入/現金支出/轉帳傳票]錯置問題
若已使用中，可自行更改／／按 Ctrl+z, 解開保護，在〔會計傳票〕工作表H4儲存格修改如下／／
=CHOOSE(MAX(bType+1,1),"會計傳票","現金收入傳票","現金支出傳票","轉帳傳票")
★檔案純供下載使用，不另作客製服務。
★程式碼若有遺漏或BUG，會不時提供修改版供下載，
使用者可用日記帳的〔匯出／匯入〕方式置換新版本。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
作者:
shan0948
時間:
2023-11-25 19:00
回復
1#
准提部林
感謝准大的無私分享，這檔案對小弟非常有用，感恩准大了！
作者:
cypd
時間:
2023-11-27 00:08
讚喔!!
非常實用的會記記帳工具
推~~
作者:
shuo1125
時間:
2023-11-28 10:02
回復
1#
准提部林
感謝准大無私分享，結構完整，功能齊全。
您的精緻/高效/創新的程式碼其設計和實現方式總是令人讚嘆....
作者:
Andy2483
時間:
2023-11-29 08:10
本帖最後由 Andy2483 於 2023-12-1 07:12 編輯
回復
1#
准提部林
謝謝論壇,謝謝前輩分享 金千里會計．EXCEL會計帳
作者:
Andy2483
時間:
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
作者:
准提部林
時間:
2023-11-30 12:37
回復
6#
Andy2483
謝謝詳細的註解~~
這檔案開始寫的時候, 初入EXCEL, 公式只會MATCH,VLOOKUP...等基本用法,
VBA也是用錄製取得再改寫, 陸續再進階而已, 所以都是淺而易懂的!!!
本帖目的不是以學習程式碼為主要, 而是對於"會計帳"的操作使用, 若有心得可以提供出來!!!
避免本帖回覆文字太多太長, 造成閱讀的耗時,
若有興趣將整個程式碼加入註解, 建議以附檔方式上傳為宜!!!
作者:
Andy2483
時間:
2023-11-30 13:00
回復
7#
准提部林
謝謝前輩指導,這很多知識都是沒看過的,謝謝前輩
作者:
ianlcc
時間:
2024-3-5 10:05
這個會計小工具很實用
如果是個人使用的話非常的方便
對於買賣、記帳
謝謝樓主的分享
作者:
nicole1012
時間:
2024-3-13 09:41
總算找到版大的資訊,之前檔案都沒了,感謝還能在這找到救星
作者:
alex06695
時間:
2024-3-22 21:39
我在使用的時候，似乎有發現這版本有一個BUG
KEY傳票的時候，系統會自動判斷該張是現金支出傳票或現金收入傳票
這功能的判斷是相反的。
還請版大大協助確認，是否有這樣的問題
作者:
准提部林
時間:
2024-3-24 10:12
回復
11#
alex06695
謝謝提醒這重要的bug，公式少算了１位，改了／／附件已更新：
若已使用中，可自行更改／／
按
Ctrl+z
, 解開保護，在〔會計傳票〕工作表H4儲存格修改如下／／
=CHOOSE(MAX(bType
+1
,1),"會計傳票","現金收入傳票","現金支出傳票","轉帳傳票")
作者:
alex06695
時間:
2024-3-24 11:35
回復 12# 准提部林
感謝大大回復
這EXCEL真的對我們的工作幫助很大
萬分感謝
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
