麻烦朋友们解释一下excel中的一段VBA代码,谢谢-CSDN论坛

⋅一段vba代码翻译成c#,麻烦朋友们帮忙看看我翻译的对不对，分不够可以加 ⋅麻烦朋友们解释一下excel中的一段VBA代码,谢谢 ⋅麻烦朋友们解释一下excel中的一段代码,谢谢 更多帖子 关注空间博客 laohuchiren 本版专家分：1 结帖率 99.16%: D4和C4是excel当中的列

E4=IF(OR(0.7*D4>C4,C4>=1.3*D4),50,IF(AND(1.3*D4>C4,C4>=D4),50+40*(1.3*D4-C4)/D4/0.3,IF(AND(D4>C4,C4>=0.7*D4),90+10*(D4-C4)/D4/0.3,-1)))

麻烦朋友们帮忙解释一下这段代码的意思，谢谢，分部够可以再加

0 2009-10-26 18:16:57

回复数 10 只看楼主引用举报楼主

⋅路过 ⋅建议缩短大乌龟的封禁时间，建议缩短版主们的封禁最长时间的权限 ⋅[已处理]个人空间打不开 更多帖子 关注空间博客 getemail 本版专家分：8114 红花 2009年10月 VB大版内专家分月排行榜第一 黄花 2010年9月 VB大版内专家分月排行榜第二: up

0 2009-10-26 18:21:44

只看TA 引用举报 #1 得分 5

flyingdragon168 本版专家分：1485: 对Excel公式，简单的还行，复杂的不行。
帮顶一下吧。

0 2009-10-26 18:35:38

只看TA 引用举报 #2 得分 5

⋅此用户还没有发表过任何帖子 关注空间博客 lb_bn 本版专家分：1362: 如果  0.7乘D4的值大于C4 或 C4大于或等于1.3乘D4的值，则E4的值等于50
如果  1.3*D4大于C4并且C4大于D4，则E4的值等于50加上40*(1.3*D4-C4)/D4/0.3
如果  D4大于C4并且C4大于或等于0.7*D4，则E4的值等于90+10*(D4-C4)/D4/0.3
其余情况下，则E4的值等于 -1

0 2009-10-26 18:38:28

只看TA 引用举报 #3    得分 15

⋅此用户还没有发表过任何帖子 关注空间博客 lb_bn 本版专家分：1362: 如果  0.7乘D4的值大于C4 或 C4大于或等于1.3乘D4的值，则E4的值等于50
如果  1.3*D4大于C4并且C4大于或等于D4，则E4的值等于50加上40*(1.3*D4-C4)/D4/0.3
如果  D4大于C4并且C4大于或等于0.7*D4，则E4的值等于90+10*(D4-C4)/D4/0.3
其余情况下，则E4的值等于 -1

0 2009-10-26 18:40:00

只看TA 引用举报 #4    得分 15

⋅有没有熟悉或者销售MEMS仿真软件的？ ⋅有感而发！VB版太不给力了！ ⋅转让工控板卡 更多帖子 关注空间博客 贝隆 本版专家分：75692 红花 2013年8月 VB大版内专家分月排行榜第一 2013年3月 VB大版内专家分月排行榜第一 2012年10月 VB大版内专家分月排行榜第一 2012年9月 VB大版内专家分月排行榜第一 2012年8月 VB大版内专家分月排行榜第一 2012年7月 VB大版内专家分月排行榜第一 2012年6月 VB大版内专家分月排行榜第一 2012年5月 VB大版内专家分月排行榜第一 2012年4月 VB大版内专家分月排行榜第一 2012年3月 VB大版内专家分月排行榜第一 2012年2月 VB大版内专家分月排行榜第一 2012年1月 VB大版内专家分月排行榜第一 2011年12月 VB大版内专家分月排行榜第一 2011年11月 VB大版内专家分月排行榜第一 2011年10月 VB大版内专家分月排行榜第一 2011年9月 VB大版内专家分月排行榜第一 2011年8月 VB大版内专家分月排行榜第一 2011年7月 VB大版内专家分月排行榜第一 黄花 2011年1月 VB大版内专家分月排行榜第二 2010年10月 VB大版内专家分月排行榜第二 蓝花 2013年1月 VB大版内专家分月排行榜第三 2012年12月 VB大版内专家分月排行榜第三 2011年6月 VB大版内专家分月排行榜第三 2011年2月 VB大版内专家分月排行榜第三 2010年12月 VB大版内专家分月排行榜第三 2010年11月 VB大版内专家分月排行榜第三 2009年7月 VB大版内专家分月排行榜第三: 跟着大胡子UP

0 2009-10-26 19:22:22

只看TA 引用举报 #5 得分 5

⋅mysql 客户端不用安装连接 ⋅sql server 2008 用 win server 哪个版本好？ ⋅DPI是100%界面还错位？会是什么原因？ 更多帖子 关注空间博客 jhone99 本版专家分：64057 红花 2010年10月 VB大版内专家分月排行榜第一 2010年9月 VB大版内专家分月排行榜第一 2010年8月 VB大版内专家分月排行榜第一 2008年12月 VB大版内专家分月排行榜第一 黄花 2011年7月 VB大版内专家分月排行榜第二 2010年7月 VB大版内专家分月排行榜第二 2009年12月 VB大版内专家分月排行榜第二 2009年11月 VB大版内专家分月排行榜第二 2009年10月 VB大版内专家分月排行榜第二 2009年8月 VB大版内专家分月排行榜第二 2008年11月 VB大版内专家分月排行榜第二 2008年10月 VB大版内专家分月排行榜第二 2008年9月 VB大版内专家分月排行榜第二 蓝花 2010年6月 VB大版内专家分月排行榜第三 2009年9月 VB大版内专家分月排行榜第三 2009年3月 VB大版内专家分月排行榜第三 2009年2月 VB大版内专家分月排行榜第三 2009年1月 VB大版内专家分月排行榜第三

先看大的逻辑

E4=IF(OR(0.7*D4>C4,C4>=1.3*D4),50,IF(AND(1.3*D4>C4,C4>=D4),50+40*(1.3*D4-C4)/D4/0.3,IF(AND(D4>C4,C4>=0.7*D4),90+10*(D4-C4)/D4/0.3,-1)))

   if（        条件         ，真做，   假做                                                                                           ）





                                  IF(AND(1.3*D4>C4,C4>=D4),50+40*(1.3*D4-C4)/D4/0.3,IF(AND(D4>C4,C4>=0.7*D4),90+10*(D4-C4)/D4/0.3,-1))

                                  if（         条件       ，          真做         ，           假做                                 ）





                                                                                    IF(AND(D4>C4,C4>=0.7*D4),90+10*(D4-C4)/D4/0.3,-1)

                                                                                    if（       条件         ，     真做         ，假做）

0 2009-10-26 20:03:48

只看TA 引用举报 #6 得分 20

⋅mysql 客户端不用安装连接 ⋅sql server 2008 用 win server 哪个版本好？ ⋅DPI是100%界面还错位？会是什么原因？ 更多帖子 关注空间博客 jhone99 本版专家分：64057 红花 2010年10月 VB大版内专家分月排行榜第一 2010年9月 VB大版内专家分月排行榜第一 2010年8月 VB大版内专家分月排行榜第一 2008年12月 VB大版内专家分月排行榜第一 黄花 2011年7月 VB大版内专家分月排行榜第二 2010年7月 VB大版内专家分月排行榜第二 2009年12月 VB大版内专家分月排行榜第二 2009年11月 VB大版内专家分月排行榜第二 2009年10月 VB大版内专家分月排行榜第二 2009年8月 VB大版内专家分月排行榜第二 2008年11月 VB大版内专家分月排行榜第二 2008年10月 VB大版内专家分月排行榜第二 2008年9月 VB大版内专家分月排行榜第二 蓝花 2010年6月 VB大版内专家分月排行榜第三 2009年9月 VB大版内专家分月排行榜第三 2009年3月 VB大版内专家分月排行榜第三 2009年2月 VB大版内专家分月排行榜第三 2009年1月 VB大版内专家分月排行榜第三: 再看细节

E4=IF(OR(0.7*D4>C4,C4>=1.3*D4),50,IF(AND(1.3*D4>C4,C4>=D4),50+40*(1.3*D4-C4)/D4/0.3,IF(AND(D4>C4,C4>=0.7*D4),90+10*(D4-C4)/D4/0.3,-1)))

*************************
OR(0.7*D4>C4,C4>=1.3*D4)
或的关系
0.7*D4>C4 和 C4>=1.3*D4 有一个为真即为真
————————————————————————
AND(1.3*D4>C4,C4>=D4)
和的关系
1.3*D4>C4 和 C4>=D4 全部为真才为真
————————————————————————
AND(D4>C4,C4>=0.7*D4)
和的关系
D4>C4 和 C4>=0.7*D4 全部为真才为真

0 2009-10-26 20:14:02

只看TA 引用举报 #7 得分 15

⋅【源码】无聊……发份源码：VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作 ⋅【源码】VB6中高效的内存访问利器 ⋅遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。 更多帖子 关注空间博客 舉杯邀明月 本版专家分：58267 红花 2019年1月 VB大版内专家分月排行榜第一 2018年12月 VB大版内专家分月排行榜第一 2018年11月 VB大版内专家分月排行榜第一 2018年10月 VB大版内专家分月排行榜第一 2018年7月 VB大版内专家分月排行榜第一 2018年6月 VB大版内专家分月排行榜第一 2018年5月 VB大版内专家分月排行榜第一 2018年4月 VB大版内专家分月排行榜第一 2018年3月 VB大版内专家分月排行榜第一 2018年2月 VB大版内专家分月排行榜第一 2018年1月 VB大版内专家分月排行榜第一 2017年9月 VB大版内专家分月排行榜第一 2017年8月 VB大版内专家分月排行榜第一 2017年7月 VB大版内专家分月排行榜第一 2017年6月 VB大版内专家分月排行榜第一 2017年5月 VB大版内专家分月排行榜第一 2017年4月 VB大版内专家分月排行榜第一 2016年11月 VB大版内专家分月排行榜第一 2016年8月 VB大版内专家分月排行榜第一 2016年7月 VB大版内专家分月排行榜第一 2013年12月 VB大版内专家分月排行榜第一 2013年10月 VB大版内专家分月排行榜第一 2013年9月 VB大版内专家分月排行榜第一 2008年5月 VB大版内专家分月排行榜第一 黄花 2017年12月 VB大版内专家分月排行榜第二 2017年11月 VB大版内专家分月排行榜第二 2017年3月 VB大版内专家分月排行榜第二 2016年12月 VB大版内专家分月排行榜第二 2016年10月 VB大版内专家分月排行榜第二 2013年11月 VB大版内专家分月排行榜第二 蓝花 2019年5月 VB大版内专家分月排行榜第三 2016年3月 VB大版内专家分月排行榜第三 2012年9月 VB大版内专家分月排行榜第三

转换为 VB/VBA 的逻辑(下面的 C4、D4、E4指的是相应单元格的值)：

If ((0.7*D4 > C4) Or (C4 >= 1.3*D4)) Then

    E4 = 50

Else

    IF((1.3*D4 > C4) And (C4 >= D4)) Then

        E4 = 50+40*(1.3*D4-C4)/D4/0.3

    Else

        If ((D4 > C4) And (C4>=0.7*D4)) Then

            E4 = 90+10*(D4-C4)/D4/0.3

        Else

            E4 = -1

        End If

    End If

End If

0 2009-10-26 20:14:26

只看TA 引用举报 #8 得分 10

⋅mysql 客户端不用安装连接 ⋅sql server 2008 用 win server 哪个版本好？ ⋅DPI是100%界面还错位？会是什么原因？ 更多帖子 关注空间博客 jhone99 本版专家分：64057 红花 2010年10月 VB大版内专家分月排行榜第一 2010年9月 VB大版内专家分月排行榜第一 2010年8月 VB大版内专家分月排行榜第一 2008年12月 VB大版内专家分月排行榜第一 黄花 2011年7月 VB大版内专家分月排行榜第二 2010年7月 VB大版内专家分月排行榜第二 2009年12月 VB大版内专家分月排行榜第二 2009年11月 VB大版内专家分月排行榜第二 2009年10月 VB大版内专家分月排行榜第二 2009年8月 VB大版内专家分月排行榜第二 2008年11月 VB大版内专家分月排行榜第二 2008年10月 VB大版内专家分月排行榜第二 2008年9月 VB大版内专家分月排行榜第二 蓝花 2010年6月 VB大版内专家分月排行榜第三 2009年9月 VB大版内专家分月排行榜第三 2009年3月 VB大版内专家分月排行榜第三 2009年2月 VB大版内专家分月排行榜第三 2009年1月 VB大版内专家分月排行榜第三

如果  0.7乘D4的值大于C4 或 C4大于或等于1.3乘D4的值，则E4的值等于50，否则 

                                                                  如果  1.3*D4大于C4并且C4大于D4， 则E4的值等于50加上40*(1.3*D4-C4)/D4/0.3，否则 

                                                                                                                                            如果  D4大于C4并且C4大于或等于0.7*D4，则E4的值等于90+10*(D4-C4)/D4/0.3，否则 

                                                                                                                                    E4的值等于 -1

0 2009-10-26 20:20:01

只看TA 引用举报 #9 得分 10

laohuchiren 本版专家分：1: 谢谢各位了

0 2009-10-26 22:41:22

只看TA 引用举报 #10 得分 0

麻烦朋友们解释一下excel中的一段VBA代码,谢谢 [问题点数：100分，结帖人laohuchiren]