تشخیص فیلدی که داده های آن از چندین space تشکیل شده

[eb_1345]

دستتون درد نکنه استاد پست پنج رو هم عرض کرده بودم برامون با if و بررسی تمام موارد در یک فیلد یا تکس بنویسین بعنوان یه فانکشن عمومی در برنامه هامون استفاده کنیم

حالا ان شاءالله تا بعداً استاد در صورت تمایل خواستن یک فانکشن عمومی تهیه کنن عنایت داشته باش که برای استفاده از کتابخانه RegExp در قسمت رفرنس ها مطابق تصویر ضمیمه تیک آیتمی که با فلش مشخص کرده ام بزنی!

Dim rex As RegExp

Set rex = New RegExp

With rex

    .Pattern = "\S"

    .Global = True

    .MultiLine = True

    MsgBox .Test(" a b   c  ")

    MsgBox .Test("abc" + vbTab + "d")

    MsgBox .Test("abc" + vbCrLf + "d")

    MsgBox .Test(vbNull)

    MsgBox .Test("     ")

    MsgBox .Test("")

    MsgBox .Test(vbTab)

    MsgBox .Test(vbCr)

    MsgBox .Test(vbLf)

    MsgBox .Test(vbCrLf)

    MsgBox .Test(vbFormFeed)

    MsgBox .Test(vbVerticalTab)

End With