xin giúp đở chạy 2 macro cùng lúc (1 người xem)

[quocct3000]

kính thưa các bác, mình có 2 macro:
1. Macro đổi chữ thường thành chữ Hoa
2. Macro hàm đếm Counta (D131000)
mỗi lần mở lên chạy từng cái hơi lu bu, các bác có cách nào cho nó chạy cùng lúc 2 macro được ko? hoặc ghép dùm mình 2 cái này thành 1 macro thì tốt quá. thanks các bác giúp nhe.

Macro 1
Sub Macro1()
' Loop to cycle through each cell in the specified range.
For Each x In Range("D13:E1000")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub

Marcro 2
Sub Macro2()
Range("J9").Formula = "=Counta(D131000)"
End Sub

 

[AnhThu-1976]

kính thưa các bác, mình có 2 macro:
1. Macro đổi chữ thường thành chữ Hoa
2. Macro hàm đếm Counta (D131000)
mỗi lần mở lên chạy từng cái hơi lu bu, các bác có cách nào cho nó chạy cùng lúc 2 macro được ko? hoặc ghép dùm mình 2 cái này thành 1 macro thì tốt quá. Cảm ơn các bác giúp nhe.

Macro 1
Sub Macro1()
' Loop to cycle through each cell in the specified range.
For Each x In Range("D13:E1000")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub

Marcro 2
Sub Macro2()
Range("J9").Formula = "=Counta(D131000)"
End Sub

Sub TongHop()
Call Macro1
Call Macro2
End Sub

 

[quocct3000]

với công thức trên có ghép chung thành 1 cái được ko mấy bác??

 

[befaint]

giúp đở

"Giúp đỡ" chứ không phải "giúp đở".

chạy 2 macro cùng lúc

Điều này là không thể và không thể làm được.

 

[quocct3000]

"Giúp đỡ" chứ không phải "giúp đở".



Điều này là không thể và không thể làm được.

thanks bạn, cái bàn phím bị liệt lúc được lúc không, nên phải đánh tạm vậy bạn ah.

Bài đã được tự động gộp: 19/1/19

các bác cho hỏi thêm là hiện tại mình đang chạy từng sheet một, sử dụng hàm nào để chạy tất cả các sheet trong cùng 1 file excel ko các bác?

Bài đã được tự động gộp: 19/1/19

các bác cho hỏi thêm là hiện tại mình đang chạy từng sheet một, sử dụng hàm nào để chạy tất cả các sheet trong cùng 1 file excel ko các bác?

Bài đã được tự động gộp: 19/1/19

Sub macarong()
         call macarong1
         call macarong2
end sub

các bác cho hỏi thêm là hiện tại mình đang chạy từng sheet một, sử dụng hàm nào để chạy tất cả các sheet trong cùng 1 file excel ko các bác?

Bài đã được tự động gộp: 19/1/19

Sub TongHop()
Call Macro1
Call Macro2
End Sub

các bác cho hỏi thêm là hiện tại mình đang chạy từng sheet một, sử dụng hàm nào để chạy tất cả các sheet trong cùng 1 file excel ko các bác?

 

[HeSanbi]

Bạn có thể sử dụng code dưới đây:

Sub RunMacroAllSheets()
  Dim rng As Object, ws As Object, k&
  For Each ws In Worksheets
    k = 0
    For Each rng In ws.Range("D13:E1000")
        if rng.Value <> "" then
              k = k + 1
              rng.Value = Application.Proper(rng.Value)
        End if
    Next rng
    ws.Range("J9").Value = k
  Next ws
End Sub