數(shù)組動(dòng)態(tài)擴(kuò)展、字典綜合應(yīng)用：訂單金額達(dá)標(biāo)插入贈(zèng)品！2、我們準(zhǔn)備采用數(shù)組+字典的方式來(lái)解決，以訂單編號(hào)為key，把每個(gè)訂單的數(shù)據(jù)存到一個(gè)數(shù)組里，裝入字典，再把符合條件的訂單數(shù)據(jù)（數(shù)組）進(jìn)行擴(kuò)展，添加贈(zèng)品記錄，再存入字典。2、循環(huán)arr，把訂單編號(hào)相同的數(shù)據(jù)裝入一個(gè)數(shù)組temp，以訂單編號(hào)為key，存到字典dic，同時(shí)，設(shè)置一個(gè)字典dSum，以訂單號(hào)為key，以金額匯總為item，用來(lái)判斷是否需要添加贈(zèng)品。

VBA操作ACCESS數(shù)據(jù)庫(kù)，總共分三步：我們?cè)俳⒁粋€(gè)啟用宏的EXCEL工作簿，名稱隨意，我們這里取名為“20241019-VBA操作ACCESS數(shù)據(jù)庫(kù).xlsm“。準(zhǔn)備工作完成，下面我們就分別說(shuō)明：1、建立數(shù)據(jù)庫(kù)連接：使用ADO（ActiveX Data Objects）連接ACCESS數(shù)據(jù)庫(kù)，我們可以手動(dòng)勾選這個(gè)庫(kù)，在VBA編輯器中，點(diǎn)擊工具->引用，選擇Microsoft ActiveX Data Objects 6.1 Library，以便前期綁定，也可以不勾選，那必須使用后期綁定。

往來(lái)賬清賬勾對(duì)，字典實(shí)例詳解，把多個(gè)單元格區(qū)域組合裝入字典。5、我們循環(huán)字典的key，把item取出到一個(gè)Range對(duì)象rng，然后循環(huán)rng的所有行區(qū)域，把借、貸方金額進(jìn)行匯總，如果借、貸方匯總金額相等，則把rng的第6列打上“y”，如果借、貸方匯總不等，再逐個(gè)比較每一行的借、貸方金額，把借、貸相同的打上“y” 。4、在勾對(duì)處理時(shí)，我們是循環(huán)字典的key，這里也可以直接循環(huán)字典的item。

Sub billCheck() Dim ws As Worksheet, rng As Range, row As Range, Area As Range Dim cArea As Range, dArea As Range, cRow As Range, dRow As Range Dim lRow As Long Dim lCol As Integer Dim cTotal As Double, dTotal As Double Dim dic As Object, dkey Dim bgColor1 As Double, bgColor2 As Double bgColor1 = RGB(173, 255, 47) bgColor2 = RGB(255, 235, 205) Set ws = ThisWorkbook.

（5）dic(dkey)=dic(dkey)+1，將dkey進(jìn)行計(jì)數(shù)。如果不存在dkey，則右邊的dic(dkey)取不到值，則dic(dkey)=1，如果存在dkey，則把原來(lái)的dic(dkey)加1。If dic.exists(dkey) Then dic(dkey) = dic(dkey) + 1Else dic(dkey) = 1End If.If dic.exists(key1) Then If dic(key1).exists(key2) Then If dic(key1)(key2).exists(key3) Then x = dic(key1)(key2)(key3) End If End IfEnd If.

PDF24，這款PDF工具大全，堪稱PDF界的瑞士軍刀！PDF免費(fèi)工具軟件推薦大家好，我是冷水泡茶，對(duì)于PDF文件，大家肯定并不陌生，在文件資料的流轉(zhuǎn)過(guò)程中，很多情況下都是采用PDF格式，主要原因我想應(yīng)該是它格式固定，不能輕易被修改吧。當(dāng)然，PDF文件也并非不能修改，大名鼎鼎的ADOBE公司有款收費(fèi)軟件是專門(mén)用于PDF文件編輯的，那就是Adobe Acrobat Pro系列。工具真是多，有PDF合并、分割、壓縮、編輯、簽名、轉(zhuǎn)換、閱讀等等......

別再炒股啦，去南極終極探險(xiǎn)吧！家里人做旅游，推薦一款極具誘惑的、令人神往的南極探險(xiǎn)行程大家好，我是冷水泡茶，有旅游計(jì)劃的朋友可以關(guān)注一下，不限于今天推薦的行程，價(jià)格優(yōu)惠，服務(wù)周到。您的終極探險(xiǎn)—“前進(jìn)號(hào)”之“南極三島”！*“福克蘭群島Falkland Islands”—更多的人文景觀及亞南極生物圈，跳巖企鵝，麥哲倫企鵝！

VBA批量循環(huán)打印獎(jiǎng)狀：根據(jù)原表數(shù)據(jù)和獎(jiǎng)狀模板，逐份打印所有學(xué)生獎(jiǎng)狀，數(shù)組、字典應(yīng)用。1、原表：學(xué)生評(píng)優(yōu)名單表。2、我們先把原表數(shù)據(jù)裝入數(shù)組arr，再循環(huán)arr處理數(shù)據(jù)。1、其實(shí)，我們也可以不用字典，也就是不必把數(shù)據(jù)裝入字典后再去循環(huán)打印，我們可以在循環(huán)arr原表數(shù)據(jù)的時(shí)候，立即進(jìn)行打印，但是呢，把數(shù)據(jù)裝入字典感覺(jué)踏實(shí)一點(diǎn)，有時(shí)候除了批量打印以外，有可能還需要個(gè)別打印，用字典處理好數(shù)據(jù)比較方便一點(diǎn)。

【代碼】VBA批量循環(huán)打印獎(jiǎng)狀：根據(jù)原表數(shù)據(jù)和獎(jiǎng)狀模板，逐份打印所有學(xué)生獎(jiǎng)狀，數(shù)組、字典應(yīng)用。

2、我們寫(xiě)一個(gè)自定義函數(shù)getScore，設(shè)置三個(gè)參數(shù)，1題分，2標(biāo)準(zhǔn)答案，3學(xué)生答案。（2）再判斷一下肯定錯(cuò)誤的答案，學(xué)生答案的選項(xiàng)比標(biāo)準(zhǔn)答案多，用Len函數(shù)取得兩個(gè)答案的長(zhǎng)度進(jìn)行比較。我看有人是這么做的，循環(huán)標(biāo)準(zhǔn)答案中的每個(gè)字符，如果包含于學(xué)生答案中，則得一次分，然后把學(xué)生答案中已經(jīng)得分的選項(xiàng)去掉（用Replace函數(shù)），最后，再判斷一下學(xué)生答案的長(zhǎng)度是否大于0，如果大于0，則表明有錯(cuò)誤選項(xiàng)，得0分。

山東高考數(shù)學(xué)多選題判分解決方法。考試多選題判分|完整代碼1、在工作表“Sheet1”里，命令按鈕點(diǎn)擊事件，工作表Change事件，調(diào)用判分過(guò)程：Value For i = 2 To UBound(arr) arr(i, 4) = getScore(6, CStr(arr(i, 3)), CStr(arr(i, 2))) Next rng.Row Cells(currRow, 4) = getScore(6, CStr(Cells(currRow, 3)), CStr(Cells(currRow, 2))) End If End IfEnd Sub2、在myModule里，getScore自定義函數(shù)，根據(jù)相應(yīng)參數(shù)得出分?jǐn)?shù)：

Application.逐級(jí)匯總（數(shù)組、字典）：財(cái)務(wù)同學(xué)看過(guò)來(lái)，科目余額表逐級(jí)匯總我在結(jié)尾的時(shí)候，提到想使用工作表Change事件實(shí)現(xiàn)自動(dòng)匯總的，但考慮到可能會(huì)再次觸發(fā)工作表的Change事件，造成死循環(huán)。EnableEvents = True這段代碼是寫(xiě)在工作表的Change事件里的，也可以寫(xiě)到mySumByLevel中，在過(guò)程開(kāi)頭設(shè)置為FALSE，過(guò)程結(jié)束設(shè)置為T(mén)RUE，也可以更準(zhǔn)確一點(diǎn)，寫(xiě)在向工作表寫(xiě)入數(shù)據(jù)的前后位置，也就是可能觸發(fā)工作表Change事件的位置。

我在處理相關(guān)科目余額的時(shí)候，如果是要根據(jù)這個(gè)余額去編制財(cái)務(wù)報(bào)表，我一般是只導(dǎo)出末級(jí)科目，然后根據(jù)末級(jí)科目對(duì)應(yīng)到一級(jí)科目，再根據(jù)一級(jí)科目匯總。4、我們循環(huán)arr，判斷每一個(gè)科目代碼，如果它在dic中的值是FALSE，那么，說(shuō)明它是一個(gè)匯總科目，我們就再循環(huán)arr，把以這個(gè)科目代碼開(kāi)頭的所有末級(jí)科目對(duì)應(yīng)的金額加起來(lái)，就是這個(gè)匯總科目的金額，把這個(gè)匯總金額寫(xiě)入arr的第3列。

合并工作表：按指定字段合并文件夾下所有Excel文件、CSV文件，包含所有子文件夾。合并文件夾下所有Excel文件、CSV文件，包含所有子文件夾遞歸處理所有子文件夾大家好，我是冷水泡茶，昨天在論壇上看到一個(gè)求助貼：[求助] 請(qǐng)老師幫忙合并這兩個(gè)提取數(shù)據(jù)的VBA，每天做重復(fù)的工作太煩人了具體需求：第１個(gè)（１選擇文件夾數(shù)據(jù)合并）優(yōu)點(diǎn)可以選擇文件夾，不用將VBA文件復(fù)制到要匯總的文件內(nèi)。

DisplayAlerts = TrueEnd SubPrivate Sub ProcessFolder(ByVal folderPath As String, ByRef arrTem()) Dim FSO As Object Dim folder As Object Dim file As Object Dim subfolder As Object Dim colName As String Dim arr(), i As Long Dim wb As Workbook Dim ws As Worksheet, wstemp As Worksheet Dim preLine As Long, currLine As Long, currCol As Integer Set FSO = CreateObject("Scripting.

我們先看一下數(shù)據(jù)表格，1、教師安排表：2、課時(shí)安排表，每個(gè)年級(jí)各個(gè)科目的課時(shí)數(shù)量，還有一個(gè)“折算系數(shù)”，有點(diǎn)新鮮： 3、教師工作量表，他原來(lái)已經(jīng)能夠統(tǒng)計(jì)相關(guān)數(shù)據(jù)，但是還想要一個(gè)“任教班級(jí)和科目明細(xì)”，數(shù)據(jù)來(lái)自“教師課時(shí)統(tǒng)計(jì)”4、教師課時(shí)統(tǒng)計(jì)表，每個(gè)教師、每個(gè)班級(jí)、每個(gè)學(xué)科的課時(shí)明細(xì)數(shù)據(jù)，原來(lái)需求中是根據(jù)這張表來(lái)統(tǒng)計(jì)“教師工作量”的，但今天我們不用這張表。