带有 If-else 条件的一行 VBA 语句表达式

Question

我正在创建一个类似 VBA 的表达式。

Replace([EmailAddress], "@domain.com", , , "", , )

[EmailAddress] 实际上由一个字符串组成，例如“john.doe@domain.com”。所以从表达式生成的结果将是“john.doe”

我想设置一个条件，如果从表达式返回的结果超过 20 个字符，结果返回将为“john.d”。

基本去掉符号“.”后第一个字符后面的所有字符

这个想法是这样的：

Variable a = Replace([EmailAddress], "@domain.com", , , "", , )

If len(a) > 20 then
  an expression that remove all the characters after the symbol "."         and first letter

else
  a

End if

我不确定我是否有意义，因为我不是程序员，也不确定使用的这些 VBA 语法是否正确。我认为应该有一个单行表达式来适应所有这些条件。

如果有人可以帮助指导我，我真的很感激。

Answer 1

下面是一个接受电子邮件地址的简短 VBA 函数。如果那里有一个“@”，它将获取它左侧的文本。如果此文本长度超过 20 个字符并带有“.”在其中，然后获取“。”左侧的所有文本，加上“。”和下一个字符。

Function fRemoveDomain(strDomain As String) As String
    If InStr(strDomain, "@") > 0 Then
        fRemoveDomain = Left(strDomain, InStr(strDomain, "@") - 1)
        If (Len(fRemoveDomain) > 20) And (InStr(fRemoveDomain, ".") > 0) Then
            fRemoveDomain = Left(fRemoveDomain, InStr(fRemoveDomain, ".") + 1)
        End If
    End If
End Function

问候，

Answer 2

假设您的电子邮件输入始终遵循格式，即括号中的所有内容都可以是不包含@或.的字符串，则此UDF应该可以解决问题：

• [name].[name]@[domain].com

---

Public Function DOMAIN(Target As String) As String

If Len(Split(Target, "@")(0)) > 20 Then
    Domain = Split(Target, ".")(0) & "." & Left(Split(Target, ".")(1), 1)
Else
    Domain = Split(Target, "@")(0)
End If

End Function

---

您可以直接在工作表上调用您的 UDF，如下所示：

或者像这样的宏：

---

---

您也可以避免将 VBA 与

一起使用

=IF(LEN(MID(A2,1,SEARCH("@",A2)-1))>20,MID(A2,1,FIND(".",A2)+1),MID(A2,1,SEARCH("@",A2)-1))