VBA将字符串放在正在执行函数的单元格中

Question

我有一个单元格，我试图根据输入参数显示不同的字符串，但我不明白如何返回/打印字符串到单元格。没有语法错误，但单元格只是保持空白。下面是我的代码:

Function Email(Region As String) As String
If Region = Atlantic Then
Email = "[e-mail]"
ElseIf Region = West Then
Email = "[e-mail]"
ElseIf Region = Pacific Then
Email = "[e-mail]"
ElseIf Region = Ontario Then
Email = "[e-mail]"
ElseIf Region = Atlantic Then
Email = "[e-mail]"
ElseIf Region = Quebec Then
Email = "[e-mail]"
Else: Region = "x"
End If
End Function

Answer 1

这是基于您正在测试文字字符串的假设。"Atlantic",你没有一个变量或其他地方的字符串返回函数称为Atlantic。

---

修复您现有的代码，它最终看起来像这样-(注意，我已经删除了第二次大西洋检查)-

Function Email(Region As String) As String
If Region = "Atlantic" Then
Email = "[e-mail]"
ElseIf Region = "West" Then
Email = "[e-mail]"
ElseIf Region = "Pacific" Then
Email = "[e-mail]"
ElseIf Region = "Ontario" Then
Email = "[e-mail]"
ElseIf Region = "Quebec" Then
Email = "[e-mail]"
Else: Email = "x"
End If
End Function

更容易阅读的方法是使用Select Case:

Function Email(Region As String) As String
Select Case Region
Case "Atlantic"
Email = "[e-mail]"
Case "West"
Email = "[e-mail]"
Case "Pacific"
Email = "[e-mail]"
Case "Ontario"
Email = "[e-mail]"
Case "Quebec"
Email = "[e-mail]"
Case Else
Email = "x"
End Select
End Function