返回列表 上一主題 發帖

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

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

本帖最後由 准提部林 於 2024-3-24 10:14 編輯

<金千里會計.EXCEL會計帳>
原放在中華電信的隨意窩供人下載,因該部落格網頁已停止服務,
經改寫部份程式碼,在此台灣唯一EXCEL園地〔麻辣家族〕繼續提供下載。

==============================
本會計帳檔案特點:
◆免安裝、下載解壓縮即可使用。
◆只要懂EXCEL就會使用,若懂得會計的老闆也可以自已動手來記帳。
◆可以直接在「隨身碟」或「讀卡機」中執行,帶著走也方便。
◆利用VBA寫成,須自行啟用巨集的安全性的設定。
◆本檔案適用于〔買賣業〕,若是其他行業請先測試,若是覺得可以使用再決定。

==============================
★★★注意事項(非常重要)必看★★★
◆EXCEL有時會有不知原因而自行關閉或發生錯誤,
 或者使用者不小心的操作而誤刪,請務必隨時複製備份。

◆本會計檔是〔一年一帳〕,所以跨年度時,必須另開新帳,
 亦即同一檔案內,不可以有〔不同年度〕的會計分錄。
 一般是利用年底〔資產負債表〕的會計科目開新年度帳。

◆檔案中雖有〔年度結轉〕可使用,但因各使用者各有不同狀況,
 可能有結轉不成功或不完全的問題,建議〔手動開帳〕較妥當。

◆跨年手動開新帳,可先在〔日記帳〕中執行〔刪除全部分錄〕,
 以產生一個空白檔案(這可以保留原有的會計科目及設定),再來做開帳的分錄。

◆檔案中的〔日記帳〕有〔匯出/匯入〕功能,請隨時執行匯出,
 當檔案使用一段時間發生問題,可重新使用空白檔案,再利用此匯出檔執行匯入。

◆程式碼非常複雜,且各有串連,可說牽一髮動全身,
 所以若想自行更改程式碼,須慎重考慮是否會有問題發生。

◆若有需要從別處複製文字或內容至本檔案時,禁止直接〔貼上〕,
 請使用〔選擇性貼上.貼上值〕,避免破壞格式而不能使用。

◆關於〔附表〕檔案,因各人需求不同,須自行設計檔案。

◆為要產生〔月份別損益表〕,務必在〔庫存列表〕中輸入各月份的〔期末庫存金額〕。

◆在年底時,必須建立〔期末庫存〕的分錄傳票,如以下例子:
 借:商品盤存      2,500,000.00
   貸:期末庫存      2,500,000.00

◆每張報表底下都有簡單說明,請詳細閱讀。

==============================
<檔案下載1>
金千里會計(OP版2003).rar (782.54 KB)
__2024.03.24 修正:會計傳票的[現金收入/現金支出/轉帳傳票]錯置問題 
 若已使用中,可自行更改//按 Ctrl+z, 解開保護,在〔會計傳票〕工作表H4儲存格修改如下//
 =CHOOSE(MAX(bType+1,1),"會計傳票","現金收入傳票","現金支出傳票","轉帳傳票")
 
★檔案純供下載使用,不另作客製服務。
★程式碼若有遺漏或BUG,會不時提供修改版供下載,
 使用者可用日記帳的〔匯出/匯入〕方式置換新版本。

==============================

回復 1# 准提部林


    感謝准大的無私分享,這檔案對小弟非常有用,感恩准大了!

TOP

讚喔!!
非常實用的會記記帳工具
推~~

TOP

回復 1# 准提部林
感謝准大無私分享,結構完整,功能齊全。
您的精緻/高效/創新的程式碼其設計和實現方式總是令人讚嘆....

TOP

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

回復 1# 准提部林
    謝謝論壇,謝謝前輩分享 金千里會計.EXCEL會計帳
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

本帖最後由 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

回復 6# Andy2483


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

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

TOP

回復 7# 准提部林


    謝謝前輩指導,這很多知識都是沒看過的,謝謝前輩
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

這個會計小工具很實用
如果是個人使用的話非常的方便
對於買賣、記帳
謝謝樓主的分享

TOP

總算找到版大的資訊,之前檔案都沒了,感謝還能在這找到救星

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題