求着色行数公式写在N3到W3里

wzlwdj

求着色行数公式写在N3到W3里.zip (3.64 KB, 下载次数: 6)

2011-3-9 17:01 上传

点击文件名下载附件

wzlwdj

2.白萝卜皮
    白萝卜皮的功效：含有芥辣素，可以消炎，杀菌，有顺气、化痰、止咳作用；可以治疗风热感冒，可以消水肿（孕妇也可以消脚肿，消水肿必须单独吃萝卜皮）。
    白萝卜皮主要作用于肺；胡萝卜主要作用于脾胃。
    胡萝卜皮的功效：帮助小孩开胃，助消化，化痰。
    胡萝卜和白萝卜不能混在一起吃。
    所有的生的食物都是阴性的，煮熟可以增加阳性，但不会改变食物本身的属性。

請勿回覆與主題無關話語 piny

[ 本帖最后由 piny 于 2011-3-9 18:02 编辑 ]

wzlwdj

wzlwdj

有请您看看.zip (3.62 KB, 下载次数: 17)

2011-3-10 21:01 上传

点击文件名下载附件

chqyz

看不懂你的第一问，要求是什么，规律是什么

qdjhyu

应该到“ExcelVBA程序开发”论坛吧？

wzlwdj

就是统计着色的行数

chqyz

原帖由 wzlwdj 于 2011-3-10 21:35 发表
就是统计着色的行数

要用VBA来解决了，这方面我比较菜

KLJ_5413

对于第一问,先编写一个函数:
Function RCC(ar As Range, rng As Range)
Application.ScreenUpdating = False
     RCC = 0
     For i = 1 To ar.Rows.Count
        For j = 1 To ar.Columns.Count
            If ar(i, j).Interior.ColorIndex = rng.Interior.ColorIndex Then
               RCC = RCC + 1
               Exit For
            End If
        Next j
     Next i
Application.ScreenUpdating = True   
End Function

然后在:
N3单元格输入公式 =RCC(N4:W15,P4)&"行"  即可。