４桁の数字がすべて同じかどうか調べる方法

Question

お世話になっております。

VBAでデータチェックをしているのですが、10桁数字のうち、先頭4文字が同じ数字の場合はエラーとする方法を考えています。（例：1111,2222,3333等）もちろん４数字を１文字ずつ比較して同じであればという考え方はありますが、それだとデータ数が多いため時間がかかると思い、何か一気にできる方法はないかとご相談させていただきました。
正規表現での方法などでもしよい方法がありましたらご教示いただけると幸いです。
どうぞよろしくお願いいたします。

Answer 1

先頭4文字だけ切り出して数値変換して、1111で割ってあまりが0かをチェックする、というのはどうでしょうか？

Comments

[poporon7]

回答ありがとうございます！
なるほど素晴らしいです！確かにそれだと一瞬で判定できますね。
まったく思いつきませんでした。
大変助かりました。もうこの方法にします。ありがとうございました！

Answer 2

もう解決されてしまいましたが下記の関数validationは先頭4文字が同じ数字のときFalseを返します。

Function validation(ByVal s As String)
    Dim re As Object
    Set re = CreateObject("VBScript.RegExp")
    re.Pattern = "^(\d)\1{3}"
    validation = Not re.test(s)
End Function

Sub test()
    MsgBox (validation("1234567890"))
    MsgBox (validation("5555987654"))
End Sub

Comments

[poporon7]

これは便利ですね！
正規表現ではこのように表記するのですね！
調べてもわからなかったのでとても勉強になりました。
ご回答感謝いたします。ありがとうございました。