抛砖引玉，VBA编写的简单VBA程序解释器，期待您的进一步完善与改进(最新：进化5)

lbl016

请帮我简化这个公式：l4=IF(N4="书记",700,IF(N4="主任",600,IF(N4="文书",500,IF(YEAR(J4)<2008,0,IF(OR(YEAR(J4)=2008,YEAR(J4)=2009),K4*0.03,IF(OR(K4<100,K4>2000),0,HLOOKUP((K4),{100,200,300,400,500,1000,1500,2000;30,30,35,40,45,45,45,45},2,0)))))))

kevinchengcw

原帖由 lbl016 于 2010-3-30 07:54 发表
请帮我简化这个公式：l4=IF(N4="书记",700,IF(N4="主任",600,IF(N4="文书",500,IF(YEAR(J4)

工作表公式？！还是数组公式！你找到我的软肋了，这个恐怕帮不到你了，你发到函数与公式版块看一下，那里很多公式应用方面的高手应该能帮到你

kevinchengcw

原帖由 lbl016 于 2010-3-30 00:41 发表
这个代码：[信息卡!g5].Formula = "=sum(h8:h30)"能否直接显示数值不显示公式呢,

这个代码在我这里直接显示数值，你检查一下你的设置，在选项里有一个项目中有“显示公式”的这一项，把前面的勾去掉，就不会显示公式了，我的是07版，不记得03版的在哪里里

huajy

下载完，回家慢慢看，感谢楼主无私分享！
这里的学习气氛真的好，老师说的清楚，学生听的仔细，

onlylover

这个对我太有用了，正想学点VBA

zch8691160

If i > 8 And allSheet.Cells(i, 1).Value = allSheet.Cells(i - 1, 1).Value _    '如果  i>8 并且  allSheet的<单元格>坐标(i,1 )的值= allSheet的<单元格>坐标(i-1,1 )的值_
                And allSheet.Cells(i, 2).Value = allSheet.Cells(i - 1, 2).Value _    ' 并且  allSheet的<单元格>坐标(i,2 )的值= allSheet的<单元格>坐标(i-1,2 )的值_
                And allSheet.Cells(i, 3).Value = allSheet.Cells(i - 1, 3).Value Then    ' 并且  allSheet的<单元格>坐标(i,3 )的值= allSheet的<单元格>坐标(i-1,3 )的值 则执行
                    '
我将此段代码复制到VBA程序解释器_进化_3翻译注释后，放入原来的宏代码中，执行宏时提示这三句语句出错，帮我看看错在哪？

kevinchengcw

原帖由 zch8691160 于 2010-3-30 14:19 发表
If i > 8 And allSheet.Cells(i, 1).Value = allSheet.Cells(i - 1, 1).Value _    '如果  i>8 并且  allSheet的坐标(i,1 )的值= allSheet的坐标(i-1,1 )的值_
                And allSheet.Cells(i, 2).Value = a ...

这是一句，用了分行写法，分行结尾用"_"来标示，后面不能再接东西了，你把他合成一句再来解释试一下
像这样
If i > 8 And allSheet.Cells(i, 1).Value = allSheet.Cells(i - 1, 1).Value And allSheet.Cells(i, 2).Value = allSheet.Cells(i - 1, 2).Value And allSheet.Cells(i, 3).Value = allSheet.Cells(i - 1, 3).Value Then

[ 本帖最后由 kevinchengcw 于 2010-3-30 15:09 编辑 ]

wxydjq

好东西啊，顶下一步 楼主辛苦了~

Backflip

支持一个，把关键字都翻译了，不简单的工作

guojiare

收藏学习，谢谢楼主了！