Cú pháp hàm max min trong VBA dùng thế nào

Liên hệ QC

hunglam123

Thành viên bị đình chỉ hoạt động
Thành viên bị đình chỉ hoạt động
Tham gia
31/3/20
Bài viết
180
Được thích
43
Em chào tất cả mọi người. Ở trong excel thì em biết dùng hàm Max và Min để so sánh 2 số
còn trong VBA em thử dùng Max, và Min thì báo lỗi. Vậy cú pháp nó thế nào. Mong mọi người giúp mình. mình cảm ơn mọi người


Mã:
Sub timminmax()
Dim a As Long, b As Long, c As Long, d As Long
a = 5
b = 6
c = Max(a, b) ' tim max
d = Min(a, b) ' tim min

MsgBox (c)
MsgBox (d)
End Sub
 
Em chào tất cả mọi người. Ở trong excel thì em biết dùng hàm Max và Min để so sánh 2 số
còn trong VBA em thử dùng Max, và Min thì báo lỗi. Vậy cú pháp nó thế nào. Mong mọi người giúp mình. mình cảm ơn mọi người


Mã:
Sub timminmax()
Dim a As Long, b As Long, c As Long, d As Long
a = 5
b = 6
c = Max(a, b) ' tim max
d = Min(a, b) ' tim min

MsgBox (c)
MsgBox (d)
End Sub
Do VBA không có sẵn 2 hàm này, cho nên chúng ta phải mượn hàm của Worksheet để thực hiện:

WorksheetFunction.Max(a, b)
WorksheetFunction.Min(a, b)
 
Upvote 0
Do VBA không có sẵn 2 hàm này, cho nên chúng ta phải mượn hàm của Worksheet để thực hiện:

WorksheetFunction.Max(a, b)
WorksheetFunction.Min(a, b)
Em thấy cái Application.max min có được không anh
Mã:
Sub timminmax()
Dim a As Long, b As Long, c As Long, d As Long
a = 5
b = 6
c = Application.Max(a, b) ' tim max
d = Application.Min(a, b) ' tim min

MsgBox (c)
MsgBox (d)
End Sub
 
Upvote 0
Em thấy cái Application.max min có được không anh
Mã:
Sub timminmax()
Dim a As Long, b As Long, c As Long, d As Long
a = 5
b = 6
c = Application.Max(a, b) ' tim max
d = Application.Min(a, b) ' tim min

MsgBox (c)
MsgBox (d)
End Sub
Thì bạn cứ thử chạy code xem nó có chạy được không! Cần gì phải hỏi ta?
 
Upvote 0
Web KT
Back
Top Bottom