檢查銀行分類賬和銀行對賬單。
大家好，我是用冷水泡茶的，這兩天在論壇上看到求助帖，【求助】請幫忙看看這一段怎麼修改**如何修改流水搭配的問題。
*別看，我們來看看他的**，是這樣的：
他的要求是（原文如此）：
好久沒去論壇了，最近遇到了查銀行對賬單明細和金蝶出口的問題，想問問大家怎麼處理，上面有一段**，但是這一段**只能查一下1個信用資料雙方的信用資料是否相同， 如果有，很明顯相同的資料是以前的日期，但是我想要的效果是左邊的借方，信用資料日期，和右邊的借方、貸方、日期來檢查重複值，即將日期金額一起核對，當日期金額一致時， 算是重複，兩邊對應的資料都清空了，金額匹配了，希望不會因為千分之一號沒有千分之一號而不匹配，非常感謝！他的要求是清除相同日期和金額的資料，使帳戶未付款。 但我不認為這是一件好事。
我認為我們最好標記與檢查匹配的記錄，檢查完成後，未標記的資料不會到達。 另外，根據同一日期進行檢查不是太嚴格，感覺也沒什麼必要。
儘管如此，我還是寫了乙個**來清除他要求的相同記錄：
sub check() dim ws as worksheet dim arr() dim lastrow as long dim lastcol as long set ws = sheets("sheet1") with ws lastrow = .usedrange.rows.count lastcol = .usedrange.columns.count arr = .range("a4:m" & lastrow).值以 for i = 1 到 ubound（arr） if arr（i， 3） 此外，我根據自己的想法重新設計了表格，採用標記相同金額的方式，不分日期，並製作了乙個簡單的銀行對賬明細記錄支票支票小工具，與大家分享：
基本思路和實施過程。
1、重新設計標題，規範字段：企業借方、企業信用、leftcheck、銀行借方、銀行信用、rightcheck，這些都是關鍵字段，不能修改。
左邊是企業銀行日記賬：
右邊是銀行對賬單：
2.在檢查它之前，我們必須清除現有的複選標記。 讓我們單擊“檢查”並執行對賬過程。 勾選後，點選“未到達”，將未標記的資料複製到“未到達”表中，用於編制銀行餘額對賬單。 我們自動檢查後，還可以手動檢查，手動標記一對多，甚至多對多的記錄（在左勾、右勾中填寫內容），然後提取未結賬。
3.檢查檢查過程：
1） 將詳細資料載入到陣列 arr 中。 資料包括標頭。 為了增加靈活性（可以插入列），一方面我們指定標題字段不能修改，另一方面，我們以變數的形式表示關鍵列
with ws lastrow = .usedrange.rows.count lastcol = .usedrange.columns.count arr = .range(.cells(3, 1), cells(lastrow, lastcol)).value leftdebitpos = pxy(arr, "公司借記", 2) leftcreditpos = pxy(arr, "企業貸款人", 2) rightdebitpos = pxy(arr, "銀行借記", 2) rightcreditpos = pxy(arr, "銀行貸款人", 2) leftcheckpos = pxy(arr, "leftcheck", 2) rightcheckpos = pxy(arr, "rightcheck", 2)end with
（2）圓形陣列，比較左右對應貸方的金額，如果相同，勾選每個右側的欄目並填寫內容，什麼內容不重要，一開始我用的是“”，後來因為除錯**，改成了顯示對方的行號。 如果您找到相同的金額，您將進入下乙個週期。
if leftdebit = rightcredit then 'arr(i, leftcheckpos) = "√" 'arr(j, rightcheckpos) = "√" arr(i, leftcheckpos) = "r-" & j + 2 arr(j, rightcheckpos) = "l-" & i + 2 goto nextforend if（3）將結果寫入陣列中，並用顏色標記選中的記錄：
ws.range("a3").resize(ubound(arr), ubound(arr, 2)) = arrcall colorchecked(ws, leftcheckpos, rightcheckpos)**的顏色本來就是在這個過程中寫的，但是不知為什麼，總有問題，後來我試著在乙個過程中單獨列出來，基本是一樣的**，但是很正常，有點亂。
4. 生成未結賬款詳細資訊的過程。
1） 將選中的“清單”載入到陣列 arr 中。
2）迴圈陣列，提取leftcheck和rightcheck的空記錄，並將它們儲存在陣列arrtem中。
3） 將結果寫入“未結賬”表。容錯是在這裡完成的，如果沒有“未到達”的表，我們建立乙個新錶，如果有，我們清除內容。
5、今天的案例應該說有一定的實用性，特別是對於銀行流水較多的單位，沒有財務軟體支援自動對賬，可以減少人工核對的工作量。
6、當然，這個案例在功能上，還有很大的深挖空間，我準備繼續做下去，今天就先發出去，一方面這個功能可以使用，也沒必要追求完美，另一方面， 這是為了更新 *** 文章：
1）一對多匹配。
這主要是指企業賬戶中有合併的銀行單據的情況，反過來，乙個銀行流入的金額對應多個企業銀行明細的金額，不能說沒有，只能說非常罕見（我以前在集團公司工作， 有按部門劃分的資金，經常會出現一筆款項屬於多個部門的情況，在做賬賬時，又要按照部門劃分成幾個金額，導致銀行對賬非常麻煩。）
我們的財務人員在辦理賬務時，要根據實際情況決定是否需要合併銀行單據填寫記賬憑證。 如果經常給銀行對賬造成困難，那麼我們應該盡量根據銀行單據逐一輸入銀行賬戶的金額。 如果在大多數月份，銀行單據都能完整記錄，賬面存款餘額和對賬單餘額往往可以一致，那麼，對於同一型別的業務，也應該可以製作乙份合併單據，比如銀行手續費，幾毛錢，就沒有必要一次性做。
2）直接生成《銀行存款餘額對賬單》。
a） 將上個月“銀行存款結餘對賬表”中的未結賬目閱讀到“核對表”中，並參與勾選。
b） 閱讀“企業銀行存款分類賬”，並根據清單的相關欄位以固定格式將其整理成Excel文件。手動複製和貼上也可以。
c） 閱讀“銀行對賬單”，該對賬單是網上銀行衍生的電子**，處理方法同上。
d） 對賬完成後，在“對賬單”第二行按“銀行賬戶”名稱，加上“月份”，另存為單獨檔案。
今天就到這裡！有關完整的**，請參閱第二條推文。
~~~end~~~
如果你喜歡它，喜歡它，點選它，發表評論，分享它！感謝您的支援！
本文首發於2024年10月12日，以我的名義***Excel直播學習與應用（VBA程式設計實踐），更多文章和案例，請搜尋關注！案例檔案分享說明：請關注我同名的vx***vba程式設計實踐）了解如何獲取檔案，免費！