一招制胜 | WPS表格——VBA系列之VBScript.RegExp应用案例(第一篇)(基础篇)

⭐场景：VBScript.RegExp的具体应用。

📢具体要求：根据给定的原始内容，判断是否为手机号码，如果是，返回”符合”，否则返回”不符合”。最终效果如右侧标准所示。

📌说明：本文属于基础知识的应用，建议高手大神可以直接跳过忽略。

步骤1：先打开WPS软件，新建一份表格，并输入相应的内容。如下图所示：我们来实际操作一下。

步骤2：点击【工具】，【开发工具】，【查看代码】，然后点击【插入】，【模块】，然后输入具体代码，如下所示：

Option Explicit

Sub test()

Dim d As Object

Dim i As Range

Set d = CreateObject("VBScript.RegExp")

d.Pattern = "^1[3-9]\d{9}$"

For Each i In Range("A2:A15")

If d.Test(i.Value) Then

i.Offset(0, 1).Value = "符合"

Else

i.Offset(0, 1).Value = "不符合"

End If

Next

With Range("B2").Resize(14, 1)

.Borders.LineStyle = xlContinuous

.Font.Bold = True

.Font.Color = RGB(0, 112, 192)

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

End With

End Sub

然后点击【运行】，就可以得到所要的结果。如下所示：

以上就是今天要分享的内容，欢迎大家评论区留言，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!