cho e hỏi có code nào copy tự động từ các module của Add in sang moudle của wỏrk book hiện hành không
Kéo màn hình xuống phía dưới, chọn đổi sang khung lớn thì sẽ up file được. Chú ý nén file nhỏ lại vì dung lượng được giới hạn.Chào anh! Em là thành viên mới của diễn đàn. Em đang có thắc mắc muốn hỏi anh chị trên diễn đàn nhưng em không biết làm sao gửi bản đính kèm lên được. Thấy anh đang trên mạng. Anh có thể giải đáp giúp em được ko ạ
vì e muốn mở ở máy khác, giả sử máy e có add in, sau khi save file thì máy khác vẫn xem được !
Với mình thì vấn đề đó đơn giản, nhưng khi viết code cho người khác dùng (đồng nghiệp) không biết đường copy code vào File họ nên tác giả muốn code để thực hiện lệnh từ file addIn để copy code vào file đó để sử dụngThường thì khi dùng code người ta phân ra 2 trường hợp:
- File chỉ xài trên máy mình và code thường dùng nhiều lần ---> Sẽ lưu code thành 1 Add-In để dùng trên mọi file
- File dùng cho nhiều máy ---> Cho code vào luôn trong file
Vậy nếu bạn thuộc trường hợp 2 thì cứ copy code cho vào file mà dùng, cần gì phải vừa Add-In lại vừa code trong file (chọn 1 trong 2 thôi)
Với mình thì vấn đề đó đơn giản, nhưng khi viết code cho người khác dùng (đồng nghiệp) không biết đường copy code vào File họ nên tác giả muốn code để thực hiện lệnh từ file addIn để copy code vào file đó để sử dụng
Thường thì khi dùng code người ta phân ra 2 trường hợp:
- File chỉ xài trên máy mình và code thường dùng nhiều lần ---> Sẽ lưu code thành 1 Add-In để dùng trên mọi file
- File dùng cho nhiều máy ---> Cho code vào luôn trong file
Vậy nếu bạn thuộc trường hợp 2 thì cứ copy code cho vào file mà dùng, cần gì phải vừa Add-In lại vừa code trong file (chọn 1 trong 2 thôi)
Đây là vấn đề rất nhạy cảm
viehoai thử nghĩ xem: Nếu code ấy là của tác giá, lý nào người ta "bèo" đến mức không biết cách copy từ add-in ra file hiện hành?
Bằng ngược lại, chỉ sợ đây lại là add-in của người khác và ta đã vô tình tiếp tay cho việc copy code bất hợp pháp
Thử nghĩ có đúng không?
Nói chung: Code VBA dùng để xóa code, chỉnh sửa code, chèn thêm code.. vân vân.. đã có trên GPE rồi ---> Cứ tham khảo mà tùy biến nếu có nhu cầu
Sub CopyOneModule()
Dim FName As String
With Workbooks("Book2")
FName = .Path & "code.txt"
.VBProject.VBComponents("Module1").Export FName
End With
Workbooks("book1").VBProject.VBComponents.Import FName
End Sub
Sub CopyAllModules()
Dim FName As String
Dim VBComp As VBIDE.VBComponent
With Workbooks("Book2")
FName = .Path & "code.txt"
If Dir(FName) <> "" Then
Kill FName
End If
For Each VBComp In .VBProject.VBComponents
If VBComp.Type <> vbext_ct_Document Then
VBComp.Export FName
Workbooks("book1").VBProject.VBComponents.Import FName
Kill FName
End If
Next VBComp
End With
End Sub
Sư phụ nói đúng. Nhưng cái gì cũng có 2 mặt tích cực và tiêu cực và em đang nói vấn đề tích cực thôi, còn vần đề tiêu cực em không quan tâm (quyền họ) và em cũng có file AddIn có nhiều chức năng hỗ trợ trong đó có 1 chức năng copy code vào file hiện hành để hỗ trợ tính khối lượng.Đây là vấn đề rất nhạy cảm
viehoai thử nghĩ xem: Nếu code ấy là của tác giá, lý nào người ta "bèo" đến mức không biết cách copy từ add-in ra file hiện hành?
Bằng ngược lại, chỉ sợ đây lại là add-in của người khác và ta đã vô tình tiếp tay cho việc copy code bất hợp pháp
Thử nghĩ có đúng không?
Nói chung: Code VBA dùng để xóa code, chỉnh sửa code, chèn thêm code.. vân vân.. đã có trên GPE rồi ---> Cứ tham khảo mà tùy biến nếu có nhu cầu
Thì tôi đã nói ở trên rồi mà: Code VBA dùng để thêm, sửa, xóa 1 code khác đã có trên GPE rồi ---> Cứ thế mà xài thôiSư phụ nói đúng. Nhưng cái gì cũng có 2 mặt tích cực và tiêu cực và em đang nói vấn đề tích cực thôi, còn vần đề tiêu cực em không quan tâm (quyền họ) và em cũng có file AddIn có nhiều chức năng hỗ trợ trong đó có 1 chức năng copy code vào file hiện hành để hỗ trợ tính khối lượng.
Nói chung: Như Sư phụ đã nói là vấn đề nhạy cảm (tiêu cực nhiều hơn tích cực) và đã có nhiều trên GPE tìm kiếm để sử dụng