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

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

VB > VBA

收藏回复

[问题点数：100分，结帖人laohuchiren]

⋅一段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)))

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

2009-10-26 18:16:57

点赞只看楼主引用举报楼主收起

展开阅读全文

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

2009-10-26 18:21:44

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

⋅急求水晶報表9.0在某些型號的激光打印機打印時字體不正常的解決方法! ⋅[已受理] 怎麼老取消我的押寶贏分？ ⋅怎麼老取消我的押寶贏分？ 更多帖子 关注私信空间博客 flyingdragon168 本版专家分：1485: 对Excel公式，简单的还行，复杂的不行。
帮顶一下吧。

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

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

2009-10-26 18:40:00

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

⋅有没有熟悉或者销售MEMS仿真软件的？ ⋅有感而发！VB版太不给力了！ ⋅转让工控板卡 更多帖子 关注私信空间博客 贝隆 本版专家分：75696 红花 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

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（       条件         ，     真做         ，假做）

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 全部为真才为真

2009-10-26 20:14:02

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

⋅【源码】无聊……发份源码：VB6运用【内联汇编代码 + 轻量级COM对象】实现的移位操作 ⋅【源码】VB6中高效的内存访问利器 ⋅遇到两个问题：1是命名管道通讯，客户端连接上了，但写数据“无效句柄”错误；2是用API创建的控件，改变字体颜色和背景颜色起不到作用。 更多帖子 关注私信空间博客 舉杯邀明月 本版专家分：60167 红花 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

2009-10-26 20:14:26

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

如果  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

2009-10-26 20:20:01

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

⋅一段vba代码翻译成c#,麻烦朋友们帮忙看看我翻译的对不对，分不够可以加 ⋅麻烦朋友们解释一下excel中的一段VBA代码,谢谢 ⋅麻烦朋友们解释一下excel中的一段代码,谢谢 更多帖子 关注私信空间博客 laohuchiren 本版专家分：1: 谢谢各位了

2009-10-26 22:41:22

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

收起

收藏回复

laohuchiren

等级：

关注私信 TA的帖子

EXCEL VBA中的类: VBA类：隐者的秘密前言...所以写这篇文章，主要有两点促成，一是前段时间，我的一位朋友因为考试的需要，向我问起类，不忍心那殷切期望的眼神，被迫勉为其难，说是讲解，不如说一起学，热度尤存，尚未全忘...

各种Excel VBA的命令: 本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 密码正确时执行 Else: MsgBox "密码错误，即将退出！" 此行与第2行共同设置...", vbYesNo) If X = vbYes Then Close 本示例

关于VBA对数据透视表的操作使用: 小弟不才，初来乍到EH论坛...在学习VBA学习E表的过程中，对于数据透视表的操作，这两天处处碰壁。...希望能以此使其他的朋友在刚接触VBA数据透视表的时候，能少走我走过的弯路。主要还是描述性的介绍相关的语法含义

VBA加载宏制作攻略: 本文所述加载宏是指使用EXCEL VBA制作的加载宏，这类文件的后缀默认为xla，因此又称XLA加载宏。内容划分为五部分，第一部分为概述，简单介绍加载宏的一般知识；第二部分至第四部分介绍制作加载宏函数、过程和事件...

Excel催化剂开源第43波-Excel选择对象Selection在.Net开发中的使用: Excel的二次开发有一极大的优势所在，...所以熟练处理选择对象，尤其关键，而在VBA里的使用方法，来到.Net中特别是C#语言下，就需要另外的代码处理，希望此篇的分享给VBA转VSTO的朋友们带来一些帮助指引。在VBA中...

Excel催化剂开源第20波-条件格式版聚光灯功能，行列标示方便阅读: Excel聚光灯功能，辅助数据查看，选择区域下的高亮显示所在行列位置，此功能已被广大Excel开发者研究得十分透彻，各种版本的聚光灯流转在网络里，同样地也是一大堆的VBA代码，难找.Net的现成代码，且大部分代码两级...

word宏、宏编程以及VBA: 如完成一个一打开word文件同时要打开某个文件的功能，必须要自己编写一段称之为宏的脚本。具体做法是在菜单栏点击开发工具-宏，"宏"弹出的对话框输入宏名，然后按"创建"按钮会打开visual ...

VBA入门系列讲座: 这是一个vba教程，大家有没有更好的，给看一下不知道怎样贴文件，只好这样发了VBA教程1.1VBA是什么　直到90年代早期,使应用程序自动化还是充满挑战性的领域.对每个需要自动化的应用程序,人们不得不学习一种不同的...

Excel催化剂开源第25波-Excel调用百度AI，返回AI结果: 少不了各种AI接口的使用场景，普通开发者只需聚焦在自己的业务场景上，这些AI底层技术，只需类似水煤电一般去BAT这些大厂那里去消费即可，作一个AI接口的消费者，将AI的能力接入到自己的应用中，这也是一个不错的...

[vba]-Excel VBA命令（转）: [vba]-Excel VBA命令（转）本示例为设置密码窗口 (1) If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误，即将退出！" '...

个人永久性免费-Excel催化剂功能第40波-工资、年终奖个人所得税计算函数: 学Excel的表哥表姐们必定有接触过个人所得税的案例学习，在计算个人所得税这个需求上，大家的层次也是很多种多样，当然Excel催化剂推荐的方式仍然是经过封装后的简单明了的自定义函数的方式，此篇已为财务人事表哥...

个人永久性免费-Excel催化剂功能第48波-拆分工作薄内工作表，堪称Excel界的单反...: 然后想通过批量操作，把每个工作表都另存为一个工作薄文件，这个批量拆分工作薄，绝大多数插件都有此功能，就如懂点VBA的高级用户也常常有点不屑于用插件来完成，自己写向行VBA代码都已经可以实现。今天Excel催化剂...

Visio_2016: visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用

Linux 声卡驱动程序: 3期的声卡驱动更详细，推荐。熟悉内核声卡驱动框架

Xshell6完美破解版，亲测可用: Xshell6破解版，亲测可用，分享给大家。直接解压即可使用

2019全国大学生数学建模竞赛C题原版优秀论文: 2019全国大学生数学建模竞赛C题原版优秀论文，PDF原版论文，不是图片合成的，是可编辑的文字版。共三篇。 C044.pdf C137.pdf C308.pdf

EndNoteX9 汉化+原版_破解版安装包: EndNote X9最新版，包括汉化版本和原版本，汉化方法： 1、双击[ENX9Inst.msi]安装EndNote X9，安装时选择试用，安装完成后不要运行EndNote； 2、如果想使用汉化版，可以将CHS文件夹里的[EndNote.exe]拷贝到EndNote的安装目录下，替换原文件即可汉化、破解。 3、如果想使用英文版，可以将ENG文件夹里的[EndNote.exe]拷贝到EndNote的安装目录下，替换原文件即可直接破解。注意：不论用的是英文版还是中文版，替换之后即可破解，无需输入序列号。

JavaWEB商城项目(包括数据库): 功能描述:包括用户的登录注册,以及个人资料的修改.商品的分类展示,详情,加入购物车,生成订单,到银行支付等!另外还有收货地址的和我的收藏等常用操作.环境(JDK 1.7 ,mysql 5.5,Eclipse mars2 ).

jdk1.8 64位官方正式版 jdk-8u91-windows: jdk1.8 64位官方正式版 jdk-8u91-windows

QT/C++从新手到老手系列之QT中级篇: 本阶段主要带领同学们完成以下几个方面的学习：文件、目录、输入输出、典型案例演示，QT自定义外观设计、样式表设计与实现、绘制模式、典型案例演示，XMl原理、接口设计、SAX、DOM等，数据库基本原理、Sqlite、mysql接口、可视化工具、QSqlQueryModel、QSQLtableModel、QSQLrelationModel等，XML、SQL典型应用程序增删改查等。本阶段主要带领同学们完成以下几个方面的学习：文件、目录、输入输出、典型案例演示，QT自定义外观设计、样式表设计与实现、绘制模式、典型案例演示，XMl原理、接口设计、SAX、DOM等，数据库基本原理、Sqlite、mysql接口、可视化工具、QSqlQueryModel、QSQLtableModel等

相关热词 c# 不能序列化继承类 c# char* 调用 c# 开发dll模板 c#添加控件到工具箱 c#控制台组合数编程计算猴子吃桃问题c# c# wpf 背景透明随机抽取号码软件c# c# 开发环境 c# 属性和字段