Xin hướng dẫn cách dùng code: "run" trong vba

Liên hệ QC

quochuy86

Thành viên chính thức
Tham gia
3/5/07
Bài viết
56
Được thích
9
1.Mình thấy trong vba có lệnh "run" nhưng không biết cách dùng như thế nào.
2. Mình có 1 trường hợp sau mong mọi người giúp đỡ.
- Mình có 2 macro: macro và macro 2
- Trong đoạn code của macro 2 minh muốn viết thêm 1 dòng lệnh để chay macro 1 thì phải làm như thế nào.
Mong mọi người giúp đỡ!@$@!^%
 
1.Mình thấy trong vba có lệnh "run" nhưng không biết cách dùng như thế nào.
2. Mình có 1 trường hợp sau mong mọi người giúp đỡ.
- Mình có 2 macro: macro và macro 2
- Trong đoạn code của macro 2 minh muốn viết thêm 1 dòng lệnh để chay macro 1 thì phải làm như thế nào.
Mong mọi người giúp đỡ!@$@!^%
Có lẽ ở Macro2 bạn thêm dòng code:

Mã:
 Application.Run "Macro1"

Thân
 
Upvote 0
wow làm được rồi. cảm ơn bạn dom nhiều nha.
 
Upvote 0
Thay vì Application.Run "Macro1"
bạn có thể dùng câu lệnh Call macro1
 
Upvote 0
Nên dùng Application.Run cho chuẩn tắc nó còn cho phép khai báo thêm các tham số cần thiết.
 
Upvote 0
Em đã thử cả 2 cách thì thấy đều dùng được.
nhưng giữa : - Application.Run "Macro1" và Call macro1 có gì khác nhau không ạh.
Trường hợp nào thì mình dùng call, trường hợp nào mình dùng Run ạh.
 
Upvote 0
Câu hỏi của bạn đã được trả lời ngay bài trên đó:
Nên dùng Application.Run cho chuẩn tắc nó còn cho phép khai báo thêm các tham số cần thiết.

Tôi nghĩ trong trường hợp ta không cần khai báo thêm tham số thì có thể dùng Call (dễ nhớ, dễ đánh máy) không biết như vậy có đúng không ?
 
Upvote 0
Để gọi 1 Sub trong module (chưa test với tham số), ta có thể chỉ cần ghi tên Sub là cũng chạy luôn (khỏi Call, khỏi Run luôn). Các bạn test lại xem.
Ví dụ : Sub Trich_loc()
ta chỉ cần viết
Trich_loc

TDN
 
Upvote 0
^^ cảm ơn mọi người nhiều. Em thấy mê vba hơn nhiều rồi.
 
Upvote 0
bạn dùng code Application.Run "Macro1" thì có thể gọi marco của một Workbook khác nếu bạn biết tên marco trong Workbook khác
còn code Call macro1 hoặc macro1 chỉ dùng trong cùng một Workbook mà thôi
ví dụ : mình có 2 file xls mình dùng một File để gọi một File mà không cần enable marco
với điều kiện bạn phải hoặc enable marco File kia:

Sub Open_marco(wbName As String, Mcname As String)
'===== Marco mo cac tien ich
Dim strFilePath As String

On Error GoTo Next1 'Loi tien ich

strFilePath = ThisWorkbook.Path & "\" & wbName ' Tim thu muc chua Workbook kia

If WorkbookIsOpen(wbName) = False Then Application.Workbooks.Open strFilePath
Application.Run wbName & "!" & Mcname

Exit Sub 'Loi tien ich
Next1:
MsgBox "xuat hien loi trong qua trinh goi marco!", vbCritical, "loi !"

End Sub
 

File đính kèm

Lần chỉnh sửa cuối:
Upvote 0
Web KT

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

Back
Top Bottom