chạy nhiều macro bằng cách sử dụng một nút trong Excel (1 người xem)

[lamquang11]

Gởi các cao thủ chỉ giúp vấn đề này, mình có tạo nhiều macro (mổi macro thực hiện 1 lệnh riêng biệt), có cách nào tạo 1 command button để nó chạy tất cả các macro đó không ? (mình muốn chạy macro nào thì chọn cái đó) . Chứ nếu add assign macro thì nó chỉ chạy dc 1 macro. Xin cám ơn.

 

[phulien1902]

...... có cách nào tạo 1 command button để nó chạy tất cả các macro đó không ? (mình muốn chạy macro nào thì chọn cái đó) . Chứ nếu add assign macro thì nó chỉ chạy dc 1 macro. Xin cám ơn.

Giả sử bạn có các Macro1, Macro2,....
Thử:

Sub Tong_Macro()
    Call Macro1
    Call Macro2

    '----------
End Sub

 

[nghiaphuc]

Gởi các cao thủ chỉ giúp vấn đề này, mình có tạo nhiều macro (mổi macro thực hiện 1 lệnh riêng biệt), có cách nào tạo 1 command button để nó chạy tất cả các macro đó không ? (mình muốn chạy macro nào thì chọn cái đó) . Chứ nếu add assign macro thì nó chỉ chạy dc 1 macro. Xin cám ơn.

Gợi ý: Bạn sử dụng hàm InputBox để lấy thông tin "muốn chạy macro nào". Tiếp theo sử dụng câu lệnh Select Case, dựa vào kết quả của InputBox để quyết định sẽ chạy macro nào.

 

[phulien1902]

Theo gợi ý của bạn nghiaphuc, có thể dùng:

Sub abc2()
    Dim a As String
    a = InputBox("Select Macro...")
    If a = "Macro1" Then
        Call Macro1
    ElseIf a = "Macro2" Then
        Call Macro2
        
        '-------------
    End If
End Sub

 

[befaint]

Theo gợi ý của bạn nghiaphuc, có thể dùng:

Anh ơi, cách của anh ở bài #2 là đúng, chuẩn rồi mà. Vì chủ thớt cần:
"1 command button để nó chạy tất cả các macro"

Chưa kể, inputbox còn phải bẫy lỗi này nọ.

Bài #2 của anh chỉ cần bổ sung thêm gọi Sub ở các module(s) khác nhau nếu trùng tên, các Private Sub...

 

[nghiaphuc]

Anh ơi, cách của anh ở bài #2 là đúng, chuẩn rồi mà. Vì chủ thớt cần:
"1 command button để nó chạy tất cả các macro"

Chưa kể, inputbox còn phải bẫy lỗi này nọ.

Bài #2 của anh chỉ cần bổ sung thêm gọi Sub ở các module(s) khác nhau nếu trùng tên, các Private Sub...

Tôi thì lại để ý chỗ (mình muốn chạy macro nào thì chọn cái đó) nên gợi ý như vậy.

 

[befaint]

Tôi thì lại để ý chỗ (mình muốn chạy macro nào thì chọn cái đó) nên gợi ý như vậy.

Chỗ đó... chắc là chủ thớt viết được 100 cái "Sub" rồi, giờ muốn gán vào khoảng 3 cái nút gì đó. Trong đó:
- Nút 1: gán 27 cái "Sub";
- Nút 2: gán 64 cái "Sub";
- Nút 3: gán 9 cái "Sub".

"chạy cái nào thì chọn cái đó" là ý như vậy.

 

[lamquang11]

Chỗ đó... chắc là chủ thớt viết được 100 cái "Sub" rồi, giờ muốn gán vào khoảng 3 cái nút gì đó. Trong đó:
- Nút 1: gán 27 cái "Sub";
- Nút 2: gán 64 cái "Sub";
- Nút 3: gán 9 cái "Sub".

"chạy cái nào thì chọn cái đó" là ý như vậy.

Bạn nói đúng ý rồi, mà mình hỏi thêm là , nó bắt mình phải để con trỏ chuột đúng chổ cái macro đầu tiên khi mình tạo thì khi kích hoạt nó mới chạy đúng công thức của tất cả macro, còn nuế để đại chổ nào thì không đúng, có cách nào để trò chuột chổ nào nó củng chạy đúng ko bạn.

 

[befaint]

@Bài #8:
Tiết mục thầy bói xem voi :

'Thêm cái này lên đầu chỗ macro đầu tiên'
Sheets("tên sheet có cái ô cần chọn đúng").select
Range("B2").select 'Với B2 là cái ô cần chọn'

 

[lamquang11]

@Bài #8:
Tiết mục thầy bói xem voi :

'Thêm cái này lên đầu chỗ macro đầu tiên'
Sheets("tên sheet có cái ô cần chọn đúng").select
Range("B2").select 'Với B2 là cái ô cần chọn'

Không biết cách làm huynh ơi, chỉ chi tiết giúp nhé