Đổi tên hộp văn bản của điều khiển Biểu mẫu Excel
Tôi đang cố gắng đổi tên một hộp văn bản trong biểu mẫu bằng VBA nhưng không thành công. Tôi đã tìm kiếm trên internet nhưng vẫn chưa tìm ra giải pháp. (Có lẽ việc không biết VBA là vấn đề lớn nhất của tôi)
Tôi bắt đầu với tên "TextBox1" (sẽ là sự kết hợp của "TextBox" & Range("B19")), sau khi nhập văn bản, trang tính được sao chép và tôi cần thay đổi tên TextBox từ trang tính gốc thành "TextBox" & Range("B19") + 1
Tôi đã thử cách này nhưng không hiệu quả:
ActiveSheet.OLEObjects("TextBox" & Range("B19")).Object.Name = "TextBox" & Range("B19") + 1
Mọi sự giúp đỡ đều được đánh giá cao.
Cảm ơn,
Larry
Trả lời:
CHÀO,
Hãy thử đoạn mã này.
Sub RenameTextBox()
Ngày 12 tháng 2 năm 2016
Đối với mỗi obj trong ActiveSheet.OLEObjects
Nếu obj.Name = "TextBox" & Range("B19").Value thì
obj.Name = "TextBox" & Range("B19").Value + 1
Kết thúc nếu
Kế tiếp
End Sub
Comments
Post a Comment