1、EXCEL中單元格的顏色統(tǒng)計(jì)其實(shí)，這個(gè)問題要用到一個(gè)特別的函數(shù)：get.cell解決這個(gè)問題的思路是，你首先得讓系統(tǒng)知道你每種顏色的代碼是多少。得到這個(gè)代碼就用到這個(gè)函數(shù)。設(shè)你要統(tǒng)計(jì)的單元格在A列，B列為空列，操作如下：1，點(diǎn)插入，名稱，定義，彈出的窗口第一行名稱名內(nèi)寫入一個(gè)自定義的名稱名字，可以是中文也可以是英文，比如XX,最下邊一行的引用位置一行內(nèi)填入：=get.cell(63.A1)確定。在B1中輸入=XX，光標(biāo)指向B1單元格右下角的小黑點(diǎn)，光標(biāo)變成小黑實(shí)心十字時(shí)，雙擊左鍵。完成填充。這樣操作以后，在B列中會(huì)出現(xiàn)各個(gè)單元格中底色的代碼。用countif()函數(shù)對(duì)你要統(tǒng)計(jì)的單元進(jìn)行統(tǒng)計(jì)，如

2、：=countif($B$1:$B$100,5)這個(gè)統(tǒng)計(jì)公式意思是統(tǒng)計(jì)至中顏色代碼是的單元格有多少個(gè)。用輔助列可以做到假設(shè)列A為原數(shù)據(jù)列，選擇列B為第一輔助列在插入-名稱-定義里定義一個(gè)名稱，X=GET.CELL(24,SHEET1!A1)在B1中輸入=X這樣你就會(huì)看到列B中有對(duì)應(yīng)的列A顏色返回的數(shù)值，假定黑色格子的顏色數(shù)值為1再利用一輔助列C，在列C輸入公式=IF(OR(B:B=1,B:B=57,B:B=0),A:A+3,A:A)，即可得所需變更后的全部數(shù)值列最后便是利用選擇性拷貝的方法，將C列的值復(fù)制到A列，就可以完成全部操作了注意：1、GET.CELL(24,SHEET1!A1)其中24

3、代表字體顏色，換成38代表背景顏色用EXCEL來根據(jù)單元格的顏色來計(jì)數(shù)和求和步驟1：打開你的excel；步驟2:按Alt+F11鍵步驟3：VisualBasic編輯器菜單欄：插入模塊步驟4：粘貼下面這段函數(shù)FunctionCountcolor(colAsRange,countrangeAsRange)DimicellAsRangeApplication.VolatileForEachicellIncountrangeIficell.Interior.ColorIndex=col.Interior.ColorIndexThenCountcolor=Countcolor+1EndIfNextice

4、llEndFunction步驟5：保存步驟6：粘貼下面這段函數(shù)FunctionSumcolor(colAsRange,sumrangeAsRange)DimicellAsRangeApplication.VolatileForEachicellInsumrangeIficell.Interior.ColorIndex=col.Interior.ColorIndexThenSumcolor=Application.Sum(icell)+SumcolorEndIfNexticellEndFunction步驟7：保存并關(guān)閉VisualBasic編輯器。使用函數(shù)countcolor統(tǒng)計(jì)單元格數(shù)量，其格

5、式為：countcolor(所要統(tǒng)計(jì)的顏色所在單元格，統(tǒng)計(jì)的區(qū)域)注：括號(hào)內(nèi)為參數(shù)，下同。使用函數(shù)sumcolor來求和(所要統(tǒng)計(jì)的顏色所在單元格，統(tǒng)計(jì)的區(qū)域)/若是字體顏色FunctionSumfontcolor(colAsRange,sumrangeAsRange)DimicellAsRangeApplication.VolatileForEachicellInsumrangeIficell.Font.ColorIndex=col.Font.ColorIndexThenSumfontcolor=Application.Sum(icell)+SumfontcolorEndIfNexticel

6、lEndFunction1、建立Excel對(duì)象setobjExcelApp=CreateObject(Excel.Application)objExcelApp.DisplayAlerts=false不顯示警告objExcelApp.Application.Visible=false不顯示界面2、新建Excel文件objExcelApp.WorkBooks.addsetobjExcelBook=objExcelApp.ActiveWorkBooksetobjExcelSheets=objExcelBook.WorksheetssetobjExcelSheet=objExcelBook.Shee

7、ts(1)3、讀取已有Excel文件strAddr=Server.MapPath(.)objExcelApp.WorkBooks.Open(strAddr&TempletTable.xls)setobjExcelBookobjExcelApp.ActiveWorkBooksetobjExcelBooksetobjExcelSheetsobjExcelBook.WorksheetssetobjExcelSheetsobjExcelBook.WorksheetssetobjExcelSheetobjExcelBook.Sheets(1)setobjExcelSheetobjExcelBook.Sh

8、eets(1)4、4、另存Excel文件objExcelBook.SaveAs5、objExcelBook.SaveobjExcelBook.SaveAs5、objExcelBook.Save錯(cuò)。)6、objExcelApp.QuitsetobjExcelAppstrAddr&TempTable.xls保存Excel文件筆者測(cè)試時(shí)保存成功，頁面報(bào)退出Excel操作一定要退出Nothing操作操作Excel生成數(shù)據(jù)表1、在一個(gè)范圍內(nèi)插入數(shù)據(jù)objExcelSheet.Range(B3:k3).Value=Array(67,87,5,9,7,45H,45,54,1、在一個(gè)范圍內(nèi)插入數(shù)據(jù)objExc

9、elSheet.Range(B3:k3).Value=Array(67,87,5,9,7,45H,45,54,54,10)3、4、5、6、7、8、9、10、11、選中一個(gè)范圍單元格左邊畫粗線條單元格右邊畫粗線條單元格上邊畫粗線條單元格下邊畫粗線條單元格設(shè)定背景色合并單元格插入行插入列2、在一個(gè)單元格內(nèi)插入數(shù)據(jù)objExcelSheet.Cells(3,1).Value=InternetExplorer四、操作Excel生成Chart圖1、創(chuàng)建Chart圖objExcelApp.Charts.Add2、設(shè)定Chart圖種類objExcelApp.ActiveChart.ChartType=97注

10、：二維折線圖，4；二維餅圖，5；二維柱形圖，513、設(shè)定Chart圖標(biāo)題objExcelApp.ActiveChart.HasTitle=TrueAtestChartobjExcelApp.ActiveChart.ChartTitle.Text=AtestChart4、通過表格數(shù)據(jù)設(shè)定圖形objExcelApp.ActiveChart.SetSourceDataobjExcelSheet.Range(A1:k5),15、直接設(shè)定圖形數(shù)據(jù)(推薦)objExcelApp.ActiveChart.SeriesCollection.NewSeriesobjExcelApp.ActiveChart.Se

11、riesCollection(1).Name=333objExcelApp.ActiveChart.SeriesCollection(1).Values=1,4,5,6,26、綁定Chart圖objExcelApp.ActiveChart.Location17、顯示數(shù)據(jù)表objExcelApp.ActiveChart.HasDataTable=True8、顯示圖例objExcelApp.ActiveChart.DataTable.ShowLegendKey=True我假設(shè)你的工作表已經(jīng)有很多設(shè)置好背景顏色的單元格.如你上面講的紅.黃.藍(lán)視圖,工具欄,窗體打上勾.在窗體工具條上點(diǎn)擊按鈕在工作表上

12、拉出一個(gè)按鈕.在彈出來的指定宏對(duì)話框中點(diǎn)新建這時(shí)會(huì)出現(xiàn)VBA窗口在自動(dòng)生出來的Sub按鈕1_單擊()這是自動(dòng)生出來的DimaAsRangeForEachaInSheets(sheet1).UsedRange在使用過的單元格內(nèi)搜索Ifa.Interior.ColorIndex=6Thena=1000:a.Font.ColorIndex=3如果條件為真,在這個(gè)單元格內(nèi)輸入數(shù)值.并改變字體顏色ElseIfa.Interior.ColorIndex=5Thena=500:a.Font.ColorIndex=6ElseIfa.Interior.ColorIndex=3Thena=100:a.Font.C

13、olorIndex=5EndIfNextaEndSub這也是自動(dòng)生出來的.請(qǐng)注意:復(fù)制此段代碼時(shí),不要將第一句Sub按鈕1_單擊()和最后一句EndSub這兩句復(fù)制選中中間的代碼將它粘貼進(jìn)去就可以了.如果想判斷顏色后,不想再要這些背景顏色的話,將它修改一下就可以了.如下面:Sub按鈕1_單擊()DimaAsRangeForEachaInSheets(sheet1).UsedRangeIfa.Interior.ColorIndex=6Thena.Interior.ColorIndex=0:a=1000:a.Font.ColorIndex=3ElseIfa.Interior.ColorIndex=

14、5Thena.Interior.ColorIndex=0:a=500:a.Font.ColorIndex=6ElseIfa.Interior.ColorIndex=3Thena.Interior.ColorIndex=0:a=100:a.Font.ColorIndex=5EndIfNextaEndSub這樣只要你點(diǎn)擊一下工作表上你拉出來的這個(gè)按鈕.就會(huì)完成你的要求我這個(gè)代碼還是粗糙了一點(diǎn).如果哪位高手有更好的方法也可以貼出來.權(quán)當(dāng)是一次VBA編寫練習(xí).如果不想要單元格的字體顏色設(shè)置.可將這些類似的刪除.:a.Font.ColorIndex=3如果是單元格內(nèi)一開始設(shè)置的字體顏色.但單元格內(nèi)并末輸

15、入數(shù)據(jù).而想用設(shè)定的字體顏色來改變?yōu)閿?shù)值的話,用下面這段代碼.用上面的方法拉出一個(gè)按鈕.Sub按鈕2_單擊()DimaAsRangeForEachaInSheets(sheet1).UsedRange在使用過的單元格內(nèi)搜索Ifa.Font.ColorIndex=6Thena=1000ElseIfa.Font.ColorIndex=5Thena=500ElseIfa.Font.ColorIndex=3Thena=100EndIfNextaEndSub復(fù)制粘貼代碼的方法和上面相同.還有a=100和a=1000以及a=500這個(gè)數(shù)值隨你自己調(diào)整.比如調(diào)整為a=5000等應(yīng)Yiqun_Zhao(藍(lán)帆雨軒Mail:yiqun_zhao.NITTOOSgg.nitto.co.jp)的要求.我寫了一個(gè)自定義的函數(shù).以下為代碼操作方法如下:按ALT+