[حل شده] تعریف همه تکست باکس ها

[amirghadiri]

با سلام خدمت همه دوستان عزیز خصوصآاساتید محترم گرامی پاک کردن هرچی تکست باکس فقط در شیت که هست مقدارشان را با وی بی ای بشوند. با تشکر فراوان .

[abootorab]

با سلام خدمت همه دوستان عزیز خصوصآاساتید محترم گرامی پاک کردن هرچی تکست باکس فقط در شیت که هست مقدارشان را با وی بی ای بشوند. با تشکر فراوان .

با درود
دوست عزیز درست متوجه سوالتون نشدم!!

[amirghadiri]

با سلام

در شیت 1 حدود 50 تکست باکس هست حالا اگر بخواهیم مقدار همه تکست باکس را پاک کنیم از طریق vba

[amir_ts]

با سلام
از این کد استفاده کنید.

[LEFT]
Sub Clear_TextBox()
Dim tbx As OLEObject
For Each tbx In ActiveSheet.OLEObjects
If TypeName(tbx.Object) = "TextBox" Then
tbx.Object.Text = ""
End If
Next
End Sub
[/LEFT]