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

wzlwdj · 发表于 2011-3-9 17:01

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

wzlwdj · 发表于 2011-3-9 18:00

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

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

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

wzlwdj · 发表于 2011-3-10 18:46

wzlwdj · 发表于 2011-3-10 21:01

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

chqyz · 发表于 2011-3-10 21:16

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

qdjhyu · 发表于 2011-3-10 21:35

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

wzlwdj · 发表于 2011-3-10 21:35

就是统计着色的行数

chqyz · 发表于 2011-3-10 21:39

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

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

KLJ_5413 · 发表于 2011-3-10 22:30

对于第一问,先编写一个函数:
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)&"行"  即可。

		自动登录	找回密码
密码			免费注册

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

有请 您看看

有请您看看