麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] VBA PostCode format Validation problem!! [打印本頁]

作者: hildaliu 時間: 2014-11-18 08:54 標題: VBA PostCode format Validation problem!!

請問有什麼方法用Excel VBA  驗證英國郵政編碼,
字母+數字的長度是 5 -7 digit
郵政編碼是應該採用以下格式：
LN space  NLL
LNN space  NLL
LLN space  NLL
LNL  space  NLL
LLNL space  NLL
LLNN space  NLL
L是英文字母，N是英文。如果條件不正確，會顯示Msgbox "這是不正確的郵編"
我不知道怎樣用 VBA  驗證以上的格式,因為格式太多
希望有高手可以幫助我,給我一個解決方案. 謝謝!

作者: stillfish00 時間: 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

複製代碼

作者: stillfish00 時間: 2014-11-18 10:49

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

作者: hildaliu 時間: 2014-11-18 20:39

回復 2# stillfish00

感謝您的幫助!
你可以為我解釋這代碼是如何操作?
我不是十分明白
非常感謝!

作者: hildaliu 時間: 2014-11-18 21:49

回復 2# stillfish00

如果我是想驗証我的excel order form sheet 裡的range （h19）customer post code
那vba 要怎樣寫？
我是想按button來驗證post code

Sub validation

If range（h19）= IsUkpostcode then
Msgbox "valid post code"
Else
Msgbox" invalid post code"

End sub

我上面的code是不對的，我不知道怎樣修改
我是新手，在學vba
麻煩到你，不好意思

作者: hildaliu 時間: 2014-11-18 22:10

回復 stillfish00

如果我是想驗証我的excel order form sheet 裡的range （h19）customer post code ...
hildaliu 發表於 2014-11-18 21:49

i just tried this code , is this correct or not?

Sub UK_Postcodes()
Dim RegExp As Object, Collection As Object, RegMatch As Object
Dim Myrange As Range, C As Range, Outstring As String
Set RegExp = CreateObject("vbscript.RegExp")
With RegExp
.Global = False
.Pattern = "^([A-Z]{1,2}\d(\d|[A-Z])?|GIR) \d[A-Z]{2}$"
End With
Set Myrange = Range("h19")
Outstring = ""
Set Collection = RegExp.Execute(ActiveCell.Value)
For Each RegMatch In Collection
Outstring = Outstring & RegMatch
Next
If Range("h19").Value <> "" And Range("h19").Value = Outstring Then
MsgBox "Valid UK Postcode"
Else
MsgBox "Invalid UK Postcode"
End If
Set Collection = Nothing
Set RegExp = Nothing
Set Myrange = Nothing
End Sub

複製代碼

作者: stillfish00 時間: 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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)