问等效于Excel中的IF(OR())公式的VBA
EN

Stack Overflow用户

提问于 2013-10-31 07:29:13

回答 1查看 988关注 0票数 0

在Excel中，我有一个使用IF()和OR()函数的函数。我希望在Access VBA中编写一个等价的函数。我该如何编写这方面的代码？

=IF(OR($X9=1,$X9=2,$X9=3),Y9-1,Y9)

我打算使用这个if功能作为一个模块：

Function iyear(month as string, year as string) as string

因此，在这种情况下，$X9将是月份，Y9将是一年。

vba

ms-access

回答 1

Stack Overflow用户

回答已采纳

发布于 2013-10-31 08:27:47

在VBA里，你可以做这样的事情

Function iyear(month As Long, year As Long) As Long
    If month = 1 Or month = 2 Or month = 3 Then
        iyear = year - 1
    Else
        iyear = year
    End If
End Function

Sub Main()
    MsgBox "month = 1, year = 2013" & vbNewLine & "iyear returns: " & iyear(1, 2013) & vbNewLine & vbNewLine & _
            "month = 4, year = 2013" & vbNewLine & "iyear returns: " & iyear(4, 2013)
End Sub

票数 3

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/19700597

复制

相似问题

问等效于Excel中的IF(OR())公式的VBA
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问等效于Excel中的IF(OR())公式的VBAEN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问等效于Excel中的IF(OR())公式的VBA
EN