Excel VBA: کپی کردن و یا حذف یک TextBox بر روی یک Sheet
کپی یک TextBox در یک شیت
Sub copy_textboxInSheet(row1 As Integer, col1 As Integer)
Sheet2.Shapes("TextBox 1").Copy
Application.Goto Reference:=Worksheets("Sheet2").Cells(row1, col1), Scroll:=True
Sheet2.Paste
End Sub
سطر و ستون را بصورت عددی به این تابع بدهید تا در مکان مورد نظر textBox 1 را کپی نماید.
نکته: بین کلمه TextBox و عدد 1 که هر دو مربوط به نام TextBox می باشد یک فاصله قرار دارد و اگر آن را بچرخانید نقطه موس و بالا را در نظر می گیرد.
حذف همه TextBox ها از یک شیت بجز TextBox 1
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
If tb.Name <> "TextBox 1" Then
tb.Delete
End If
Next
End Sub
نکته: این تابع غیر از TextBox 1 بقیه را حذف می نماید.
حذف همه TextBox ها از یک شیت
Sub del_textboxInSheet()
Dim tb As Object
For Each tb In ActiveSheet.TextBoxes
tb.Delete
Next
End Sub