پاک کردن چند tex box

[razemana]

با سلام و وقت بخیر
من میخوام چند tex box رو با دستور پاک کنم یه حلقه for ایجاد کردم در قسمت "TextBox i" مشکل میخوره انگار. ممنون میشم راهنمایی بفرمایید.با تشکر
Sub textbox()
For i = 1 To 20
ActiveSheet.Shapes.Range(Array("TextBox i")).Select
Selection.Delete
Next
End Sub

[M_ExceL]

با سلام و وقت بخیر
من میخوام چند tex box رو با دستور پاک کنم یه حلقه for ایجاد کردم در قسمت "TextBox i" مشکل میخوره انگار. ممنون میشم راهنمایی بفرمایید.با تشکر
Sub textbox()
For i = 1 To 20
ActiveSheet.Shapes.Range(Array("TextBox i")).Select
Selection.Delete
Next
End Sub
سلام،
اگر منظورتون تکست باکس های داخل فرم هست، کد زیر رو استفاده کنید :


Sub Clear_Click()
Dim txb As Control
For Each txb In Me.Controls
If TypeName(txb) = "TextBox" Then
txb.Value = ""
End If
Next txb
End Sub

در غیر این صورت فایل نمونتون رو قرار بدید متناسب با فایلتون انجام بدیم.

[razemana]

نه tex box داخل فرم نیست . من تو یه شیت بیست تا text box ایجاد کردم حالا میخوام همه رو یکجا حذف کنم

[M_ExceL]

نه tex box داخل فرم نیست . من تو یه شیت بیست تا text box ایجاد کردم حالا میخوام همه رو یکجا حذف کنم
کد زیر رو تست کنید :


Sub M_E()
On Error Resume Next
For i = 1 To 20
ActiveSheet.Shapes("TextBox " & i).Delete
Next i
End Sub

یا حق.

[razemana]

تشکر فراوان