Đổi tên hộp văn bản của điều khiển Biểu mẫu Excel

Đổ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

Popular posts from this blog

Điều tôi muốn làm trong Excel 2010 là tạo một nút tùy chỉnh và gắn nó vào thanh công cụ Truy nhập nhanh và chạy một macro cụ thể.

Excel 2016 - mở tất cả các tệp trong MỘT phiên bản

Mở tài liệu Excel và Word từ Outlook Lỗi - Không đủ bộ nhớ