Question

我需要一个宏来查找如下字符：＆＃34;大写＆＃34;＆＃34;小写＆＃34;＆＃34;大写＆＃34;

我试过这个：

If character like "[A-Z]", "[a-z]", "[A-Z]" then......

括号在不同的位置，它不起作用。

请让我知道我做错了什么

Answer 1

? "AcK" like "[A-Z][a-z][A-Z]" '>> True

? "ACK" like "[A-Z][a-z][A-Z]" '>> False

Answer 2

使用公式可以吗？

=IF (  AND    (ISNUMBER(FIND((MID(B4,1,1)),$D$4,1)),
               ISNUMBER(FIND((MID(B4,2,1)),$D$5,1)),
               ISNUMBER(FIND((MID(B4,3,1)),$D$4,1))                       
              ),
       "True",
       "False")

，其中单元格B4包含您正在测试的文本，例如，＆＃34; AcK＆＃34;

  cell D4 contains the string "ABCDEFGHIJKLMNOPQRSTUVWXYZ"

  cell D5 contains the string "abcdefghijklmnopqrstuvwxyz"

Answer 3

如果我理解了你的目标，试着在你的项目中加入这样的函数：

Public Function editString(ByVal nativeString As String) As String

    Dim subStr As String, subStr2 As String

    For j = 1 To Len(nativeString)

        subStr = Mid(nativeString, j, 3)
        If subStr Like "[A-Z][a-z][A-Z]" Then
            subStr2 = Left(subStr, 2) & "," & Right(subStr, 1)
            nativeString = Replace(nativeString, subStr, subStr2)
        End If

    Next j

    editString = nativeString

End Function

...然后通过简单地将它们传递给函数来修改字符串对象：

Public Sub ModifyString()
    Dim newString As String: newString = editString("stAcKoverflow")
End Sub

你应该得到你想要的东西。

如果某些字符然后添加逗号

3 个答案: