Hỏi câu lệnh làm việc với Name objects

[TrungChinhs]

Chào các bạn! Trong sheet1 mình có nhóm Text Box được đặt name là TeBo trong hộp Refers to: hiển thị là ="Group5". Muốn Copy TeBo dán vào vị trí B5 của Sheet2 phải dùng câu lệnh như thế nào ? (mình dùng [TeBo].Copy nhưng không được).
Xin các bạn vui lòng chỉ giúp. Thanks!

 

[ndu96081631]

Chào các bạn! Trong sheet1 mình có nhóm Text Box được đặt name là TeBo trong hộp Refers to: hiển thị là ="Group5". Muốn Copy TeBo dán vào vị trí B5 của Sheet2 phải dùng câu lệnh như thế nào ? (mình dùng [TeBo].Copy nhưng không được).
Xin các bạn vui lòng chỉ giúp. Thanks!

Vừa có name lại có Refer to.. tự nhiên tôi nghĩ đến Name trong Define Name
Nhưng TextBox thì liên quan gì đến Name nhỉ
Chưa hiểu lắm! Bạn có thể gữi file lên không?

 

[TrungChinhs]

cảm ơn bạn Ndu! mình đã bổ sung File vào bài trên, mong các bạn xem giúp. Thanks!

 

[Po_Pikachu]

Bạn có thể dùng Textbox của Control Toolbox để làm việc này mà không cần text box của Excel đâu! Bạn xem file của mình nha! http://www.mediafire.com/?thrnty4uxty Thân.

 

[ndu96081631]

cảm ơn bạn Ndu! mình đã bổ sung File vào bài trên, mong các bạn xem giúp. Thanks!

Xem trò này cũng "ngộ" quá ha!
Bạn thử code này xem:

Sub CopyTebo()
   Sheet1.Shapes(Evaluate("Tebo")).Copy
   Sheet2.[B5].PasteSpecial xlPasteAll
End Sub

 

[TrungChinhs]

Cảm ơn Ndu! code này rất hay kể cả Sheet 1 ẩn vẫn không ảnh hưởng gì ?

Mình định ứng dụng cách này để tạo phần chữ ký hoặc chú thích ở dưới các bảng tính, cách làm như sau:
- Tạo 1 nhóm Text box (mỗi thành phần ký 1 text box)
- Chỉnh sửa Text box: xoá đường viền, viết tên cơ quan đơn vị, ký tên, đóng dấu... định dạng cho vừa ý;
- Group (gom nhóm) Text box
- Đặt tên và cất vào một sheet nào đó, ẩn đi.
- Dùng BVA tìm ô cuối cùng của cột đầu tiên và dán text box này vào như vậy bạn luôn có sẵn phần ký ở ngay cuối bảng, bất kỳ bảng tính dài hay ngắn.

Tôi đã làm thành công rồi. Các bạn thử xem vô cùng tiện lợi.
Chúc thành công.

 

[Po_Pikachu]

Bác nên copy dữ liệu thôi chứ copy Object nhiều quá sẽ làm nặng máy đó. Điều này là tối kỵ trong lập trình đó bác à! Hãy tìm cách đặt các hộp text của mình làm sao cho có lợi nhất đừng quá lạm dụng các Object nha bác! (Vài lời khuyên) Chúc bác thành công! Thân.

 

[le tin]

Bạn Trung Chinh có thể gởi email cho mình 1 mẫu đẻ tham khảo không
Cảm ơn trước

 

[TrungChinhs]

Tôi gửi các bạn file ví dụ này gồm có 2 chức năng tự tạo khung chữ ký và tự xác định vùng in. Các bạn tham khảo và sửa giúp cho code gọn hơn nhé.
Chú ý: sheet ChuKy tôi đang ẩn; các bạn xoá khung chữ ký và cho bảng TongHop thay đổi số dòng sau đó xem khung chữ ký và xem vùng in mới.
Chúc thành công !