excel编写函数vb_excel编写函数if

本文目录一览：

• 1、EXCEL函数写成VB
• 2、在EXCEL中如何把VB自定义函数变成和EXCEL内部函数一样使用？
• 3、想在excel中插入自定义的函数，用VB应该怎么编写啊？

EXCEL函数写成VB

假定从13行开始共有1000行数据，可以根据具体行数调整1013

另外，日期格式要对，不要写成字符格式

下面程序经过调试通过的，有结果图片

Sub zzh1()

For i = 13 To 1013

If Cells(i, 11).Value = "" Then

  Cells(i, 13).Value = ""

ElseIf Cells(i, 12).Value = "" Then

  Cells(i, 13).Value = Cells(i, 11).Value - Date

Else

  Cells(i, 13).Value = Cells(i, 11).Value - Cells(i, 12).Value

End If

Next

End Sub

在EXCEL中如何把VB自定义函数变成和EXCEL内部函数一样使用？

首先,打开vba编辑器

然后选插入-模块

写入你的函数:

如

Public Function test()

test = 123456

End Function

然后,返回excel编辑,在表格中像excel普通函数一样写=test()

表格中就会显示123456了

当然,这只是一个很简单的测试,具体的功能自己参考VBA手册来完成

想在excel中插入自定义的函数，用VB应该怎么编写啊？

按ctrl+F3，出来定义名称窗口

在当前工作簿的名称随便写，

例如：刘德华

引用位置写入公式

=（31.814*A1+22.853*A2+11.824*A3+11.267*A4+10.384*A5)/88.142

A1单元格输入Q1的值，以此类推

然后再任意单元格输入=刘德华，就可求出结果