Office之家_PDF教程/Word教程/Excel教程大全

excel 统计有颜色的单元格个数

时间:2010-11-12 18:41   来源:http://www.officejia.com   浏览:
    • excel 统计有颜色的单元格个数10例如:A列有红黄绿三种颜色各N个,统计绿色单元格个数
    • 这个是可以实现的 ,不过你要安装最新版的EXCEL 2007  就可以做到
       
       

        2003不行吗?从网上看有个get.cell函数,但不会用

        顺便再说一句,颜色使用格式条件填充的

        A列有红黄绿三种颜色各N个(颜色是用格式条件填充的),统计绿色单元格个数

        所有的单元格内容都是数值

    • Public Sub Mxbing1984()
      R = 0
      Y = 0
      G = 0
      x = Range("A65535").End(xlUp).Row
      For i = 1 To x
       Cells(i, 1).Select
       If Selection.Font.ColorIndex = 3 Then
        R = R + 1
       End If
       If Selection.Font.ColorIndex = 6 Then
        Y = Y + 1
       End If
       If Selection.Font.ColorIndex = 10 Then
        G = G + 1
       End If
      Next
      Sheet2.Cells.Clear
      Sheet2.Cells(1, 1).Value = "紅色"
      Sheet2.Cells(1, 2).Value = R
      Sheet2.Cells(2, 1).Value = "黃色"
      Sheet2.Cells(2, 2).Value = Y
      Sheet2.Cells(3, 1).Value = "綠色"
      Sheet2.Cells(3, 2).Value = G
      End Sub
      統計A列字體的顏色,紅色單元格個數R,黃色Y,綠色G,結果將放在Sheet2工作表
      如果統計的是單元格的背景色,則把代碼的Font改成Interior即可.

        大哥,能详细点吗,本人VBA不会用

        1.按Alt+F11進入VBA編輯器
      2.選擇VBA菜單插入->模塊
      3.粘貼如上代碼
      4.關閉VBA編輯器
      5.Alt+F8執行
      6.結果就在Sheet工作表

        不灵啊,大哥, 紅色1黃色0綠色0只能输出1个格

        你在Cells(i, 1).Select後面加一句msgbox Selection.Font.ColorIndex 先記下你設置的顏色編號
      我的紅色是3,黃色是6,綠色是10,在把像這樣的Selection.Font.ColorIndex = 3句子裏面的(3,6,10)
      改成你得到的數字,我再把代碼改一下吧,改成,你的A列有幾種顏色就統計這幾種顏色的數量吧

        Public Sub mxbing1984()
      Sheets(1).Select
      Sheet2.Cells.Clear
      Sheet2.Cells(1, 1).Value = "CNo"
      x = Range("A65535").End(xlUp).Row
      For i = 1 To x
      Sheet1.Cells(i, 1).Select
      Sheet2.Cells(i + 1, 1).Value = Selection.Font.ColorIndex
      Next

      Dim Rst As String
      Dim cnn As ADODB.Connection
      Dim rs As ADODB.Recordset
      Set cnn = New ADODB.Connection
               With Sheet2
                With cnn
                   .Provider = "microsoft.jet.oledb.4.0"
                   .ConnectionString = "Extended Properties=Excel 5.0;" + "Data Source=" + ThisWorkbook.FullName
                   .Open
               End With
              Set rs = New ADODB.Recordset
               Sql = "select Cno,Count( Cno) As VNo From [Sheet2$] Where cno<>-4105 Group By Cno "
               rs.Open Sql, cnn, adOpenKeyset, adLockBatchOptimistic
               Sheet2.Cells.Clear
               Sheet2.Cells(1, 1).Value = "Cno"
               Sheet2.Cells(1, 2).Value = "Vno"
               Sheet2.Range("A2").CopyFromRecordset rs
            End With
            rs.Close
            cnn.Close
            Set rs = Nothing
            Set cnn = Nothing
         Sheets(2).Select
         Y = Sheet2.Range("A65535").End(xlUp).Row
      For i = 2 To Y
        Sheet2.Cells(i, 1).Select
        Selection.Interior.ColorIndex = Sheet2.Cells(i, 1).Value
        Sheet2.Cells(i, 1).Value = ""
      Next
      End Sub
      這段代碼統計Sheet1工作表A列出了黑色的其他顏色出現的次數
      (需要設定引用)
      VBA->設定引用項目->Microsoft Axtivex Data Objects 2.0 Library

本文来自:Office之家 原文地址:http://www.officejia.com/excel/wenda/20101112_18390.html 欢迎转载或收藏,但请注明出处,感谢您的支持!

Excel教程目录:用户  图案  窗口  定位  最小值  重复数据  偶数  问题  资料  数据分析 

顶一下
(0)
0%
踩一下
(0)
0%
更多
网友评论

    还没有人发言,您是第一个,来说两句吧!

用户名:
最近更新 | 关于我们 - 联系我们 - 广告服务 - 友情链接 - 网站地图 - 版权声明