code copy VBA! (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

hungpecc1

Thành viên gắn bó
Tham gia
24/8/12
Bài viết
1,709
Được thích
2,304
Giới tính
Nam
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
 
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 ạ
 
Upvote 0
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 ạ
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.
 
Upvote 0
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 !
 
Upvote 0
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 !

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)
 
Upvote 0
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)
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
 
Upvote 0
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

Đâ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
 
Upvote 0
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)

^^ e th­uộc trường hợp 2 , nhưng mà phức tạp hơn , vì là dân kỹ thuật thiết kế tháp thép
Nên dùng add in, nhưng sau khi tính toán xong thì phải đưa cho cấp trên kiểm tra, ^^

Mỗi lần như thế lại phải copy code ở add in vào module hiện hành , rất mất thời gian, ( làm như thế thì máy sếp mới đọc được)
Nếu mà copy add in cho máy sếp thì ko ổn, vì mỗi kỹ sư có bảng tính và cách thức khác nhau mà ^^
 
Upvote 0
Đâ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

Chẳng phải hôm nọ pác đã gửi link file đánh tráo mật khẩu vba còn gì, :( nếu e cần ăn cắp code của họ thì chỉ cần lấy file của họ về rồi copy bằng tay ra thôi mà :(

pác ndu đa nghi quá , bạn viehoai nói đúng mục đích của e rồi

PHP:
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
PHP:
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
 
Lần chỉnh sửa cuối:
Upvote 0
Đâ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
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.
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
 
Upvote 0
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.
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
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ôi
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom