菜鸟谈VBA最最基础入门《原创》

qa201 · 发表于 2010-8-15 15:17

谢谢您为我们大家提供了这么好的入门教程！！

root_feng · 发表于 2010-8-15 17:30

绝对适合我这个需要最最最最基础的VBA新人

tjx77 · 发表于 2010-8-16 09:21

跟着叶枫学就是好，易懂。

yy2514 · 发表于 2010-8-16 10:07

楼主对VBA的分析太透彻了，我一直想要学习VBA，看到楼主的教程，我太高兴了！

语过添情 · 发表于 2010-8-16 13:39

我的数据都在一个sheet上，一个订单号会有2条数据，我需要找到并标注“已勾对”字样，请问这个怎么用VBA实现呢？
我是新手，请指教，谢谢

一个表内的勾对.rar (6.54 KB, 下载次数: 60)

sunuy888 · 发表于 2010-8-16 14:09

谢谢启蒙-*学习了

tjx77 · 发表于 2010-8-16 15:19

学的过程中不懂的怎么办？能及时的回答吗？

richierenyi · 发表于 2010-8-16 16:02

天哪。。。看的头都晕了。。。我还是英文版的2007的。。。。找了半天。。。
感觉又回到了C++时代。。

ggsmart · 发表于 2010-8-16 16:09

在已使用的行内进行循环。
调用sumif函数，判断是否数值相减为0,满足条件的填入"已勾对“

Sub ggsmart()
Dim i As Long, xrow As Long, rng As Range, cel As Range, jf As Double, df As Double
xrow = Range("A1").CurrentRegion.Rows.Count
Set rng = Range("B2:B" & xrow)
For i = 2 To xrow
Set cel = Cells(i, "B")
jf = Application.WorksheetFunction.SumIf(rng, cel, rng.Offset(0, 1))
df = Application.WorksheetFunction.SumIf(rng, cel, rng.Offset(0, 2))
If jf = df Then
cel.Offset(0, 3) = "已勾对"
Else
cel.Offset(0, 3) = ""
End If
Next
End Sub

复制代码

[ 本帖最后由 ggsmart 于 2010-8-16 16:18 编辑 ]

ggsmart · 发表于 2010-8-16 16:19

原帖由 tjx77 于 2010-8-16 15:19 发表
学的过程中不懂的怎么办？能及时的回答吗？

尽量解答！

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

请问老师，勾对功能怎么实现