带你入门VBA（2004第一期）

兰色幻想

以下是引用[I]wuyun_sz88[/I]在2006-6-5 17:53:00的发言：[BR]

Function ABC(X as Range)

。。。

End Function

X是一个区域范围，用什么函数，可以得出这个X的行数、列数。

X.Row即表示该引用单元格的行数 X.Column表示该引用单元格的列数

ljx63426

这样的上课方法，再笨的人也会看懂，希望兰老师继续讲下去，在这里到了很多东东，多多谢了！！！

vincent1981

终于有个老师了！大家都发了做好了程序，我都不懂，有人教教也许可以懂点皮毛吧！不会太菜了啊

sotirio

想学。可是怎么入手呀？

kpjob

对VBA很兴趣，现在又有时间,学习一个

笛声依旧

偶然之中知道了EXCEL HOME；偶然之中知道了兰色幻想；偶然之中获悉“EXCEL VBA基础入门”，惊叹老师的教学方法和为人之道！佩服！！

昨天特意搜寻老师的帖子，才来到此处，现已阅完63页，感觉前10页确实是VBA的入门之道，深入简出，誉教于乐，脍炙人口，劳逸结合......但后面多页，由于很多人七嘴八舌，问题也各方各面，让老师很难顺着自己的教学思路进行下去。感觉有点乱了！明白了老师开始时申明为什么只收1名弟子的原因了！

总结：后面多页我的收获不大，前面10页收获颇丰！

建议：老师继续教授下去，同学们登陆观看学习，由老师的嫡传弟子提问，老师解答，一问一答一授，这样授课才能由浅至深，由易到难，清清楚楚，一目了然，这样大家才能真正学到知道自己要的东西，大家才能顺利由入门弟子成长为老师的高足！。而老师也能顺利进行下去！相信同学中也不泛高手，请高手们高抬贵手，不要和老师抢着回答问题，也不要把自己工作中的问题在此向老师发问，如确有工作应用中的问题可至其他版面向老师提问！因为此地本非常适合我等菜鸟的茁壮成长！请各位同学中之高手慈悲为怀！！！！！

再祝老师身体健康！！工作顺利！！

哈哈哈哈

努力加油一下!

lts8823

刚来报道，正在学习

hner

按颜色求和计数

Function sumcolor(Region As Range, ColorCondition As Range, Flag As Boolean)

'flag为真时，按颜色求和。否则，按颜色计数
Dim FlagRange As Range
For Each FlagRange In Region
  If FlagRange.Interior.Color = ColorCondition.Interior.Color Then
      s = s + FlagRange.Value
      t = t + 1
  End If
Next FlagRange
If Flag = True Then
   sumcolor = s
Else
   sumcolor = t
End If
End Function

hner

QUOTE:

以下是引用Angellong在2006-5-10 17:17:00的发言：

我来的太晚了。 看了49页前面的帖子，也完成了“单元格表示过关题”和“变量过关题”，在做“语句使用过关题”的时候出现了问题。下面是我得代码：

Sub CYS()
Dim x As Integer
Dim y As Integer
Dim c As Integer
Dim d As Integer

For x = 1 To 12
  For y = 1 To 7
    If Cells(x, y).Interior.ColorIndex = 6 Then
    c = Range("a65536").End(xlUp).Row

  '这里用cells(c,1)不对，应该用c+1
    Cells(c, 1).Value = Cells(x, y).Value
    End If
  Next y
Next x

d = Range("a65536").End(xlUp).Row
Cells(d, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(12, 1), Cells(d, 1)))

End Sub

运行的结果是 把a列的数据都删除了（就剩下a1没有删掉），这是为什么啊？如果上面那个6换成27 就什么反应因都没有，也不报错，这是为什么啊？兰老师还过来吗？能不能帮我看看？

[em04][em04][em04]

谢谢！

Sub CYS()
'在区域a1:g12中按颜色求和，要求将满足颜色条件的值，放在a12以后并求和
Dim x As Integer
Dim y As Integer
Dim c As Integer
Dim d As Integer
'读取区域中的每个单元格，这里最好使用for each语句速度更快
For x = 1 To 12
    For y = 1 To 7
        '读取区域中的每个单元格颜色，如果和a3的颜色一样，那么将该值放在a列最后一个非空单元格下面
        If Cells(x, y).Interior.Color = Range("a3").Interior.Color Then
            'c为a列最后一个非空单元格，这里的c随着循环运行而不断地变化
            c = Range("a65536").End(xlUp).Row
            '注意这里使用c+1，因为要将满足条件的结果放在最后一个非空单元格下面
            Cells(c + 1, 1).Value = Cells(x, y).Value
        End If
    Next y
Next x
d = Range("a65536").End(xlUp).Row
'最后求和
Cells(d + 1, 1).Value = Application.WorksheetFunction.Sum(Range(Cells(13, 1), Cells(d, 1)))
End Sub