Coppy code vba từ UserForm

Liên hệ QC

Cát Lượng

Thành viên tiêu biểu
Tham gia
14/11/18
Bài viết
403
Được thích
66
Chào các anh chị!
Em muốn coppy một code vba kiểu Userform (bao gồm code và hình dạng biểu mẫu ) sang một file khác để sử dụng
Phần chữ của code thì em làm được, nhưng phần định dạng biểu mẫu em không biết coppy kiểu nào
Các anh chị giúp em ạ!
1.png2.png
 
Chào các anh chị!
Em muốn coppy một code vba kiểu Userform (bao gồm code và hình dạng biểu mẫu ) sang một file khác để sử dụng
Phần chữ của code thì em làm được, nhưng phần định dạng biểu mẫu em không biết coppy kiểu nào
Các anh chị giúp em ạ!
View attachment 208898View attachment 208899
Bạn xem bài này: https://www.giaiphapexcel.com/diendan/threads/có-cách-nào-để-copy-1-userform.3155/
 
Upvote 0
Phần chữ của code thì em làm được
"Phần chữ của code thì em làm được " -> Vô lý
Đã làm được như vậy mà không biết cách Copy Form. Vui đấy
Gợi ý: Dùng code VBA export UserForm gửi đi đâu đó rồi. Dựa vào link đó Import lại Workbook mới
 
Upvote 0
"Phần chữ của code thì em làm được " -> Vô lý
Đã làm được như vậy mà không biết cách Copy Form. Vui đấy
Gợi ý: Dùng code VBA export UserForm gửi đi đâu đó rồi. Dựa vào link đó Import lại Workbook mới
Cái phần biểu mẫu em không cop được ạ!
còn phần view code em coppy được
 
Upvote 0
Cái phần biểu mẫu em không cop được ạ!
còn phần view code em coppy được
"Cực kì khó"
PHP:
Sub ImportForm()
    Dim wbA As Workbook, wbB As Workbook
    Set wbA = Workbooks("Book1")
    Set wbB = Workbooks("Book2")
    wbA.VBProject.VBComponents("Userform1").Export "C:\temp\Userform1.frm"
    wbB.VBProject.VBComponents.Import "C:\temp\userform1.frm"
    Kill "C:\temp\userform1.frm"
    Kill "C:\temp\userform1.frx"
End Sub
 
Upvote 0
"Cực kì khó"
PHP:
Sub ImportForm()
    Dim wbA As Workbook, wbB As Workbook
    Set wbA = Workbooks("Book1")
    Set wbB = Workbooks("Book2")
    wbA.VBProject.VBComponents("Userform1").Export "C:\temp\Userform1.frm"
    wbB.VBProject.VBComponents.Import "C:\temp\userform1.frm"
    Kill "C:\temp\userform1.frm"
    Kill "C:\temp\userform1.frx"
End Sub
Em vừa copy từng cái 1, khi chạy code thấy báo lỗi, nhờ anh giúp e ạ!
khi chạy code đã hiện lên bảng, nhưng khi nhấn vào nút trong bảng không thấy tác dụng ạ!
Loi code1.png
 
Upvote 0
Bạn phải học VBIDE và VBA . Để kiểm soát ứng dụng của mình chứ. Sao có thể giải thích cho bạn được hết được
Dạ vâng, em mới học nên cũng chưa biết ạ! em tải file lên nhờ anh giúp em một lần, xem nó bị lỗi gì ạ! cái code trong userform có tên "quanlybangsheet"
Em cám ơn anh ạ!
 

File đính kèm

  • file can giup.xlsm
    2 MB · Đọc: 10
Upvote 0
Đã có 1 Form được thiết kế chuẩn và có code rồi.
Bây giờ:
1. Nếu muốn lưu lại vào thư viện riêng của mình để sau này lúc cần thì thêm vào tập tin mới: Trong VBE chọn Form - Trong cửa sổ Project - VBAProject (...) -> menu File -> Export File -> duyệt tới thư mục vd. "Các code của tôi" -> lưu lại.
Nếu có các Module và muốn sau này thêm vào các tập tin khác thì cũng làm tương tự.

Trong tương lai muốn thêm Form, Module vào tập tin khác thì File -> Import -> duyệt tới "Các code của tôi" -> chọn Form hoặc Module.

2. Nếu muốn thêm Form, Module vào tập tin đang mở ngay bây giờ mà trước đó chưa Export thì: mở tiếp tập tin có Form, Module nếu chưa mở -> nhấn chuột trái vào Form, Module - Trong cửa sổ Project - VBAProject (...) và giữ không thả -> kéo sang vùng của tập tin mới -> thả chuột (kéo thả = drag and drop)

Tất nhiên sau khi thêm Form, Module thì nên thêm, bớt controls, code hoặc chỉnh sửa cái đã có để hoàn toàn phù hợp với tập tin hiện hành.
 
Lần chỉnh sửa cuối:
Upvote 0
Đã có 1 Form được thiết kế chuẩn và có code rồi.
Bây giờ:
1. Nếu muốn lưu lại vào thư viện riêng của mình để sau này lúc cần thì thêm vào tập tin mới: Trong VBE chọn Form -> menu File -> Export File -> duyệt tới thư mục vd. "Các code của tôi" -> lưu lại.
Nếu có các Module và muốn sau này thêm vào các tập tin khác thì cũng làm tương tự.

Trong tương lai muốn thêm Form, Module vào tập tin khác thì File -> Import -> duyệt tới "Các code của tôi" -> chọn Form hoặc Module.

2. Nếu muốn thêm Form, Module vào tập tin đang mở ngay bây giờ mà trước đó chưa Export thì: mở tiếp tập tin có Form, Module nếu chưa mở -> nhấn chuột trái vào Form, Module và giữ không thả -> kéo sang vùng của tập tin mới -> thả chuột (kéo thả = drag and drop)

Tất nhiên sau khi thêm Form, Module thì nên thêm, bớt controls, code hoặc chỉnh sửa cái đã có để hoàn toàn phù hợp với tập tin hiện hành.
Dạ em làm được nhưng vẫn thông báo lỗi, loay hoay từ chiều đến giờ
Anh vào giúp em bài#6 ạ! em cám ơn anh nhiều
chúc anh buổi tối vui vẻ!
https://www.giaiphapexcel.com/diendan/threads/lỗi-code.139466/
 
Upvote 0
Upvote 0
Giúp gì? Nói thế vẫn chưa hiểu.

Tôi thêm Form vào Book2 như clip đính kèm
 

File đính kèm

  • form.rar
    231 KB · Đọc: 6
Upvote 0
Giúp gì? Nói thế vẫn chưa hiểu.

Tôi thêm Form vào Book2 như clip đính kèm
Vâng, ý em là em chạy được code nhưng vẫn báo lỗi ạ! em đã copy và chạy rồi, nhưng báo lỗi, mà lỗi em có nêu ở bài #6 ạ!
Bài đã được tự động gộp:

Mình dang dung diện thoại nên không nhớ rõ tên... Bo tay doi minh seach thử
Dạ vâng, em cám ơn.
 
Upvote 0
Dạ vâng để em thử tìm ạ! chiều em tìm mãi k ra
Bài đã được tự động gộp:

Dạ không phải lỗi đó chị ạ!
Em coppy cả Userform sang một file bình thường thì vẫn sử dụng được, nhưng em copy sang file này (file đính kèm bài #6) thì lại báo lỗi vậy nên mới không hiểu tại sao.
 
Lần chỉnh sửa cuối:
Upvote 0
Vâng, ý em là em chạy được code nhưng vẫn báo lỗi ạ! em đã copy và chạy rồi, nhưng báo lỗi, mà lỗi em có nêu ở bài #6 ạ!
.
Bạn hỏi về copy Form thì tôi đã trả lời. Tôi còn thêm miễn phí
Tất nhiên sau khi thêm Form, Module thì nên thêm, bớt controls, code hoặc chỉnh sửa cái đã có để hoàn toàn phù hợp với tập tin hiện hành
Chắc gì tập tin mới mà bạn không đính kèm nó y hệt như tập tin cung cấp Form (file can giup.xlsm), vì thế phải chỉnh sửa cho phù hợp.

Tôi hiểu là bạn có "file can giúp.xlsm" với Form quanlybangsheet. Bạn muốn copy Form sang tập tin hichic.xlsm. Nếu sau khi hichic.xlsm có Form quanlybangsheet rồi và chạy code bị lỗi và bạn muốn người khác sửa hộ thì phải đính kèm hichic.xlsm chứ sao lại đính kèm "file can giup.xlsm"?

Tóm lại copy là một chuyện nhưng sau đó phải làm đỏ đỏ

Và cái lỗi gì đó không liên quan gì tới việc copy. Nhiều khi người ta đóng chủ đề với lời cảnh báo: "Bạn đã nhận được sự giúp đỡ. Nếu có vấn đề khác thì lập chủ đề mới"
 
Upvote 0
Bạn hỏi về copy Form thì tôi đã trả lời. Tôi còn thêm miễn phí

Chắc gì tập tin mới mà bạn không đính kèm nó y hệt như tập tin cung cấp Form (file can giup.xlsm), vì thế phải chỉnh sửa cho phù hợp.

Tôi hiểu là bạn có "file can giúp.xlsm" với Form quanlybangsheet. Bạn muốn copy Form sang tập tin hichic.xlsm. Nếu sau khi hichic.xlsm có Form quanlybangsheet rồi và chạy code bị lỗi và bạn muốn người khác sửa hộ thì phải đính kèm hichic.xlsm chứ sao lại đính kèm "file can giup.xlsm"?

Tóm lại copy là một chuyện nhưng sau đó phải làm đỏ đỏ

Và cái lỗi gì đó không liên quan gì tới việc copy. Nhiều khi người ta đóng chủ đề với lời cảnh báo: "Bạn đã nhận được sự giúp đỡ. Nếu có vấn đề khác thì lập chủ đề mới"
Vâng, em đã làm trên file bình thường (không phải file em đính kèm )thì vẫn chạy được , nhưng em đã coppy Userform vào file em đính kèm (file can giup) và chạy thì lại không được ạ, nó báo lỗi. em không hiểu lỗi dó do đâu.
File em đính kèm bài #6 đã có Userform trong đó.
Em cũng mới tham gia nên nhiều cái chưa rõ, lần sau em sẽ rút kinh nghiệm.
Cám ơn anh!
 
Lần chỉnh sửa cuối:
Upvote 0
Vâng, em đã làm trên file bình thường (không phải file em đính kèm )thì vẫn chạy được , nhưng em đã coppy Userform vào file em đính kèm (file can giup) và chạy thì lại không được ạ, nó báo lỗi. em không hiểu lỗi dó do đâu.
File em đính kèm bài #6 đã có Userform trong đó.
Em cũng mới tham gia nên nhiều cái chưa rõ, lần sau em sẽ rút kinh nghiệm.
Cám ơn anh!
1. Hãy lập chủ đề mới để hỏi vấn đề mới.
2. Hãy mô tả trình tự các thao tác để đi tới lỗi. Vd.: "Sau khi mở tập tin thì tôi chọn cái này ..., nhấn cái kia ..., lúc đó có UserForm nhẩy ra, tôi sẽ gõ cái này ... vào chỗ này ..., sao đó tôi chọn cái kia .... thì nhẩy ra cửa sổ báo lỗi"

Phải hướng dẫn người khác cách "đi gặp lỗi". Nói là có lỗi thì ai mà đoán được? Vì tôi bỏ các code liên quan tới add-in, vì bạn không đính kèm, rồi sau đó Show Form rồi đúp chuột vào ListBox thì chả thấy lỗi gì.
 
Upvote 0
Web KT
Back
Top Bottom