VBA PostCode format Validation problem!! - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA PostCode format Validation problem!!

返回列表下一主題上一主題發帖

[發問] VBA PostCode format Validation problem!!

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2014-11-18 10:02 | 顯示全部帖子

本帖最後由 stillfish00 於 2014-11-18 10:13 編輯

回復 1# hildaliu
寫了一個Function判斷，另外根據wiki多加了判斷條件GIR NLL

Function IsUKPostcode(sText As String) As Boolean
Dim oRegexp As Object
Set oRegexp = CreateObject("vbscript.regexp")
With oRegexp
.ignoreCase = False
.Pattern = "([A-Z]{1,2}\d(\d|[A-Z])?|GIR) \d[A-Z]{2}"
End With
IsUKPostcode = oRegexp.Test(sText)
End Function

複製代碼

test

Sub Test()
Dim ar, x
ar = Array("F22 5BQ", "FJ29 1GH", "FJ00", "E0 3KK")
For Each x In ar
If Not IsUKPostcode(CStr(x)) Then MsgBox "這是不正確的郵編:" & x
Next
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-11-18 10:49 | 顯示全部帖子

回復 2# stillfish00
不好意思，2# pattern 稍微改一下，以匹配整個字串而不是字串包含郵遞區號，這樣比較合理。
.Pattern = "^([A-Z]{1,2}\d(\d|[A-Z])?|GIR) \d[A-Z]{2}$"

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

3^#

發表於 2014-11-19 09:45 | 顯示全部帖子

Sub Validation()
If IsUKPostcode(Range("H19").Text) Then
MsgBox "valid post code"
Else
MsgBox " invalid post code"
End If
End Sub

複製代碼

回復 5# hildaliu

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。

返回列表下一主題上一主題