VBA中这类代码怎么写？

WYS67 · 发表于 2018-12-8 22:45

本帖最后由 WYS67 于 2018-12-9 08:29 编辑

自定义函数中，类似于函数公式 =IF(数据源<>"",原公式，"")的代码怎么写？

原贴在 http://club.excelhome.net/thread-1450509-1-1.html第二个附件里出现的情况。

WYS67 · 发表于 2018-12-8 23:01

有没有老师愿意告诉我：在自定义函数中，计算功能与函数公式 =IF(数据源<>"",原公式，"")的VBA代码怎么写？
也就是：只有在数据源不为空时，显示公式计算结果；否则，显示为空

zhshspark · 发表于 2018-12-8 23:47

你真正的意思是什么我不太理解，通常我是这样的，要看你公式的返回值是什么类型，比如说是整形，则
function GetValue(DataSource as object) as integer
if isnull(DataSource) then
GetValue=0
else
GetValue=公式
end if
end function

午夜怨曲 · 发表于 2018-12-9 01:23

if 数据源<>"" then
原公式需要执行的……
else
数据源=""

lsc900707 · 发表于 2018-12-9 08:11

自己举个实例或者上个附件吧，要不别人怎么解答？

WYS67 · 发表于 2018-12-9 08:26

lsc900707 发表于 2018-12-9 08:11
自己举个实例或者上个附件吧，要不别人怎么解答？

版主老师：原贴在 http://club.excelhome.net/thread-1450509-1-1.html  里：
   第一张和第三张截图下面多余的“0” 这个应该严格按照--当数据源的中间和下方，没有可供提取的有效数字时【有中文、英文，符号就是没有数字，或者为空白】，结果输出列的对应区域必须同步屏蔽为空白。

也就是：应当采取类似于函数公式 =IF(数据源<>"",原公式，"")的方式处理才对！
  恳请老师看看在代码的哪一行加进去？

		自动登录	找回密码
密码			免费注册

[求助] VBA中这类代码怎么写？

评分

最新热点 /1