اعمال شرط همزمان به چند تکست باکس

**Nima** · 2013/12/16, 15:01

با سلام
به لینک زیر مراجعه کنید

http://forum.exceliran.com/showthread.php?t=3148&p=15274&viewfull=1#post15274

مطالب و موضوعات مطرح شده درباره امكانات ويژوال بيسيك در اكسل را در اين قسمت مطرح ميگردد.

**sma519** · 2013/12/17, 09:37

با سلام

تو فایل پیوستی شرط برای تک تک تکست باکس ها جداگانه تعریف شده. اگه تعدادشون زیاد باشه، کار مشکل میشه. آیا راه حل ساده تری نیست؟

ممنون

**Alireza** · 2013/12/17, 10:00

سلام
بهر حال تکست باکسها لازم به تعریف دارند در بعضی موارد برای کوتاه کردن ماکرو میشه از آرایه ها یا از حلقه ها استفاده کرد

**Nima** · 2013/12/17, 10:10

با سلامشما میتونید از یک حلقه استفاده کنید مثل کد زیر:

کد:

For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" Then
        If cCont = "" Then
msgBox "همه تکستباکسهارا پر کنید"
 ......
end if
end if
next

**MEYTI** · 2013/12/17, 11:39

با سلام و با تشکر از نیما عزیز
یه مشکلی که کد بالا داره با توجه به اینکه مسیج باکس داخل حلقه است برای هر شمارنده حلقه یکبار پیام نمایش داده میشه
شما دوست عزیز در این جور مواقع برای اشاره به چندین کنترل خاص بهتر از خاصیت TAG کترل استفاده کنید در قسمت PROPERTIES هر کنترل خاصیت TAG ان کنترل را میتوان مشخص کرد که من در اینجا تگ کنترلهای مورد نظر را A قرار دادم و بعد با حلقه به این گروه تگ اشاره کردم
کد زیررا ملاحظه فرمایید

کد:

Dim T As Boolean

For Each CTL In Me.Controls

 If CTL.Tag = "A" And CTL.Value = "" Then

T = False

Exit For

Else
T = True
    End If

Next CTL

If T = True Then
MsgBox "ثبت انجام شد"

Else

MsgBox ("یکی از تکست باکها خالی می باشد")
End If

**امين اسماعيلي** · 2013/12/17, 21:19

با درود
ممنون از اقا نیما و مهدی جان

اگر کد اقا نیما رو هم به این صورت بنویسیم فکر نکنم مشکلی پیش بیاد

کد:

Private Sub CommandButton1_Click()
For Each cCont In Me.Controls
    If TypeName(cCont) = "TextBox" And cCont = "" Then
        
MsgBox "Please fill all textbox"
 Exit Sub
 End If
Next
'"""""""""""""""""""""
MsgBox "All data complete"
End Sub

اینو واسه یه button نوشتیم. همون کد نیما جان با یکم تغییر