把excel函数指令转换成VBA代码？ vba 数字转字符串

把excel函数指令转换成VBA代码？vba 数字转字符串

excel 公式转化为vba语句

cells(1,1)= Application.IF(原成绩!H11="","",IF(原成绩!H11=0,"0",MAX(IF(ABS(首页!$E$18:$Y$18-原成绩!H11)=MIN(ABS(首页!$E$18:$Y$18-原成绩!H11)),首页!$E$16:$Y$16))))

要想在Excel中用VBA生成带VBA的新Excel文档是不可能的，只能打开该Excel文档用另存为一个新文件的方法：

就是在VBA中写一段另存为的代码：

thisworkbook.SaveAs("NewFilename.xls")

NewFilename是你想另存新档的文件名

EXCELVBA 转化为 VB6.0的代码是最容易的

几个注意点:

1,VB对 EXCEL OEL 的引用,对MS OFFICE 11(12) Object Library的引用要选上．

2,VB与 Excel 对于控件与容器的名称不一致,这个是最大的关注点.

3,VB与 Excel 对于控件的属性名称不一致,这个要重点排查,如文本控件,名称不致,文本内容的属性名不同(TEXT,VALUE)

4,一些常用函数的函数名不同,如CHAR() CHR() ,

5,有些函数 EXCEL没有如 IIF()

6,VB 对窗体的动作函数与EXCEL的响应函数名称不同,这个也要关注.

7,有些东西可能要难一点,比如在EXCEL中你可以使用按钮,动作来控制一个窗口添加或去掉一个控件,但在VB中是不允许的,比如下拉文本框及其中的内容.

既然你要用VBA的话，建议你把你想实现的目的说出来，这样的话可能会有比把你这个公式转换成VBA更好的语句。

看了下你的公式，好像是先根据某个单元格的里数值返回一个特定的值（I!D361&I!E361&I!F361），然后在DBA!$AB$3:$AB$1002这个范围中查找这个值，然后如果找到返回1，反正空

VBA的话可以先用if...then语句解决。