[已解决]自定义函数错误

excel用账户

使用的时候提示#value

1. 
   
2. Function mbif()
   
3. 
   
4. Dim i, j, p
   
5. 
   
6. i = Selection.Row
   
7. 
   
8. j = Left(Selection.Offset(0, -4).Address(False, False), 1)
   
9. 
   
10. p = Left(Selection.Offset(0, -2).Address(False, False), 1)
    
11. 
    
12. Selection.Formula = "=if(" & j & i & "=" & p & i & ",12)"
    
13. 
    
14. End Function
    
15. 
    

复制代码

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-11-23 12:24

excel用账户 发表于 2021-11-23 11:47
过程显示正确

祝順心，南無阿彌陀佛！

跳转到最佳答案楼层

林木水

你想设置个什么公式呢，表达清楚要达到什么效果？
其中你这个代码就发现就有几个问题？
1.你设置一个公式mbif，为啥没有任何输出怎么会有值呢
2.在双""里面调用变量，需要一对&，而你" & j & i & "这种是错误的表达，应该" "& j &""& i &" ",双英文引号里面还要使用"& i &"这种格式
3.你使用offset函数，便宜-4列，如果活动区域选择的是E列左边，那就会报错
以下图片是一个正常自定义函数的几个重要部分，可以做参考

excel用账户

林木水 发表于 2021-11-23 11:26
你想设置个什么公式呢，表达清楚要达到什么效果？
其中你这个代码就发现就有几个问题？
1.你设置一个公式 ...

选定一个单元格，对比选定单元格左边第四格和第二格的值，如果相同，返回12。主要是想在单元格内输入一个完整的公式，比如选定I12，那么就在I12输入 =if（E12=G12，12）
公式计算步骤显示结果是正确的，但是值显示是#value
我又更改了一下

1. Function mbif()
   
2. Selection.Formula = "=if(" & Selection.Offset(0, -4).Address(False, False) & "=" & Selection.Offset(0, -2).Address(False, False) & ",12)"
   
3. End Function
   

复制代码

excel用账户

林木水 发表于 2021-11-23 11:26
你想设置个什么公式呢，表达清楚要达到什么效果？
其中你这个代码就发现就有几个问题？
1.你设置一个公式 ...

过程显示正确

AmoKat

Function mbif2(a, c)
    If a.Value = c.Value Then
        mbif2 = 12
    Else
        mbif2 = (1 = 0)
    End If
End Function

'E1 =mbif2(A1,C1)
'下拉右拉

cutecpu

excel用账户 发表于 2021-11-23 11:47
过程显示正确

祝順心，南無阿彌陀佛！

4938613666

要看你的目的是什么，
要是想往单元格里写入公式直接把function改成sub就行了，不需要自己定义个函数
要是就想要用function，直接判断写入结果就行了，无需再往单元格里写入if函数了

excel用账户

cutecpu 发表于 2021-11-23 12:24
祝順心，南無阿彌陀佛！

谢谢