[حل شده] پاک کردن چند 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]

تشکر فراوان