EXCEL中單元格的顏色統(tǒng)計

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

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

3、代表字體顏色，換成38代表背景顏色用EXCEL來根據(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)計單元格數(shù)量，其格

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

6、lEndFunction1、建立Excel對象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錯。)6、objExcelApp.QuitsetobjExcelAppstrAddr&TempTable.xls保存Excel文件筆者測試時保存成功，頁面報退出Excel操作一定要退出Nothing操作操作Excel生成數(shù)據(jù)表1、在一個范圍內(nèi)插入數(shù)據(jù)objExcelSheet.Range(B3:k3).Value=Array(67,87,5,9,7,45H,45,54,1、在一個范圍內(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、選中一個范圍單元格左邊畫粗線條單元格右邊畫粗線條單元格上邊畫粗線條單元格下邊畫粗線條單元格設(shè)定背景色合并單元格插入行插入列2、在一個單元格內(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圖標題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è)置好背景顏色的單元格.如你上面講的紅.黃.藍視圖,工具欄,窗體打上勾.在窗體工具條上點擊按鈕在工作表上

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

13、olorIndex=5EndIfNextaEndSub這也是自動生出來的.請注意:復制此段代碼時,不要將第一句Sub按鈕1_單擊()和最后一句EndSub這兩句復制選中中間的代碼將它粘貼進去就可以了.如果想判斷顏色后,不想再要這些背景顏色的話,將它修改一下就可以了.如下面: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這樣只要你點擊一下工作表上你拉出來的這個按鈕.就會完成你的要求我這個代碼還是粗糙了一點.如果哪位高手有更好的方法也可以貼出來.權(quán)當是一次VBA編寫練習.如果不想要單元格的字體顏色設(shè)置.可將這些類似的刪除.:a.Font.ColorIndex=3如果是單元格內(nèi)一開始設(shè)置的字體顏色.但單元格內(nèi)并末輸

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