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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2023-11-25 16:19 | 只看該作者

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

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

＜金千里會計．EXCEL會計帳＞
原放在中華電信的隨意窩供人下載，因該部落格網頁已停止服務，
經改寫部份程式碼，在此台灣唯一EXCEL園地〔麻辣家族〕繼續提供下載。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
本會計帳檔案特點：
◆免安裝、下載解壓縮即可使用。
◆只要懂EXCEL就會使用，若懂得會計的老闆也可以自已動手來記帳。
◆可以直接在「隨身碟」或「讀卡機」中執行，帶著走也方便。
◆利用VBA寫成，須自行啟用巨集的安全性的設定。
◆本檔案適用于〔買賣業〕，若是其他行業請先測試，若是覺得可以使用再決定。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
★★★注意事項（非常重要）必看★★★
◆EXCEL有時會有不知原因而自行關閉或發生錯誤，
　或者使用者不小心的操作而誤刪，請務必隨時複製備份。

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

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

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

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

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

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

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

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

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

◆每張報表底下都有簡單說明，請詳細閱讀。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＜檔案下載１＞

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

樓主熱帖

shan0948

中學生 Rank: 2

帖子: 133
主題: 27
精華: 0
積分: 198
點名: 289
作業系統: Windows XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-21
最後登錄: 2024-11-20

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

2^#

發表於 2023-11-25 19:00 | 只看該作者

回復 1# 准提部林

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

TOP

cypd

中學生 Rank: 2

帖子: 240
主題: 41
精華: 0
積分: 313
點名: 50
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-11-17

3^#

發表於 2023-11-27 00:08 | 只看該作者

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

TOP

shuo1125

中學生 Rank: 2

帖子: 121
主題: 8
精華: 0
積分: 170
點名: 62
作業系統: win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2021-1-21
最後登錄: 2024-8-20

4^#

發表於 2023-11-28 10:02 | 只看該作者

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

5^#

發表於 2023-11-29 08:10 | 只看該作者

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

回復 1# 准提部林
謝謝論壇,謝謝前輩分享金千里會計．EXCEL會計帳

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

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

回復 6# Andy2483

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

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

TOP

Andy2483