Tôi có một đa dạng trong một biểu mẫu người dùng. Trong thời gian chạy, người dùng có thể chọn thêm x số trang bất kỳ lúc nào. Các yếu tố của mỗi trang sẽ giống nhau. Tôi tự hỏi nếu có một cách để nhân đôi các yếu tố này, hoặc tôi sẽ cần phải tạo lại các yếu tố tương tự cho mỗi trang mới? Nếu vậy, làm cách nào để chỉ định vị trí trên trang nơi đặt phần tử?Sao chép các yếu tố từ trang này sang trang khác trong nhiều trang với VBA trong Excel
5
A
Trả lời
7
Bí quyết là để đặt tất cả các điều khiển trong một khung trong trang 1 và sau đó phần còn lại trở nên dễ dàng :)
Mã này sẽ sao chép các điều khiển từ Page1
để Page2
sau khi tạo Page2
và sắp xếp chúng cho phù hợp.
Option Explicit
Private Sub CommandButton2_Click()
Dim l As Double, r As Double
Dim ctl As Control
MultiPage1.Pages.Add
MultiPage1.Pages(0).Controls.Copy
MultiPage1.Pages(1).Paste
For Each ctl In MultiPage1.Pages(0).Controls
If TypeOf ctl Is MSForms.Frame Then
l = ctl.Left
r = ctl.Top
Exit For
End If
Next
For Each ctl In MultiPage1.Pages(1).Controls
If TypeOf ctl Is MSForms.Frame Then
ctl.Left = l
ctl.Top = r
Exit For
End If
Next
End Sub
SNAPSHOT
0
Các "Run-time error '-2147417949 (80010108)' có thể là do có một khung ở một nơi khác trên biểu mẫu. Cố gắng loại bỏ bất kỳ khung hình khác và chạy lại:
Các vấn đề liên quan
- 1. Làm cách nào để sao chép các cột từ trang tính này sang trang tính khác bằng VBA trong Excel?
- 2. di chuyển đối tượng từ trang này sang trang khác?
- 3. Sao chép mã VBA từ Trang tính trong sổ làm việc này sang sổ làm việc khác?
- 4. Cách chuyển từ trang này sang trang khác bằng javascript?
- 5. Di chuyển các trang Wiki từ một trang web khác sang một trang khác
- 6. Sao chép/dán từ Excel vào trang web
- 7. Sao chép toàn bộ trang tính vào trang tính mới trong Excel 2010
- 8. VBA - Cách sao chép hàng trong Excel từ sổ làm việc này sang sổ làm việc khác?
- 9. Kết hợp các yếu tố trang nhã nhất trong F #
- 10. VBA Macro trên nhiều trang tính
- 11. Truyền dữ liệu POST từ trang này sang trang khác bằng PHP
- 12. APEX 4.0: cách sao chép trang từ một ứng dụng này sang ứng dụng khác trong APEX
- 13. VBA để sao chép tệp từ một thư mục này sang một thư mục khác
- 14. Nhiều yếu tố iScroll trên cùng một trang
- 15. Tự động chuyển hướng từ trang JSP này sang trang khác
- 16. Đặt mã Excel-VBA vào mô-đun hoặc trang tính?
- 17. Cách viết bộ sưu tập VBA vào trang tính Excel
- 18. sao chép các mục danh sách từ danh sách này sang danh sách khác trong sharepoint
- 19. sao chép trang webpart (trang aspx) với các bộ phận web
- 20. Sao chép Bảng tính Excel trong POI
- 21. Loại bỏ các yếu tố rỗng khỏi cụm sao chép trong ggplot2 với nhiều khía cạnh
- 22. Làm thế nào để chuyển các biến từ trang php này sang trang khác không có biểu mẫu?
- 23. Excel Interop - Thêm trang tính mới sau khi tất cả các trang khác
- 24. Bx Slider làm cho các yếu tố khác trên trang đang di chuyển (trên Chrome)
- 25. Ngăn sao chép văn bản trong trang web
- 26. Chạy chức năng VBA excel khi trang tính được bấm
- 27. Sao chép từ tệp xml này sang tệp khác - powershell
- 28. Trình quản trị trang web chờ một trong nhiều yếu tố xuất hiện
- 29. Sao chép nội dung và định dạng hàng (sang trang tính khác)
- 30. Nhập trang tính Excel vào Access bằng VBA
Bạn có thể sao chép chúng bằng cách sao chép và dán hoặc bằng cách tạo từ đầu. –