Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = [B][COLOR="Red"]Application.WorksheetFunction.[/COLOR][/B][COLOR="Yellow"][B]Min[/B][/COLOR](myRange)
MsgBox answer
End Sub
Trong box "Lập trình với Excel" đã có bài viết về vấn đề này rồi mà.bucthucuoi đã viết:Khi viết code em muốn sử dụng một số hàm có sẵn trong VBA (bình phương, căn bậc hai,giá trị tuyệt đối,..)thì cách thức gọi như thế nào các bác nhỉ. Để tham khảo tên các hàm sẵn có thì em cần xem ở đâu nhỉ. Xin cảm ơn và hậu tạ các bác
Bác thử đoạn code sau:MrOkebab đã viết:
Sub Tinhtoan()
Dim gtri
gtri = Evaluate("=SUMPRODUCT((A6:A16=""a"")*(B6:B16))")
MsgBox gtri
End SubMr Okebab đã viết:
gtri = WorksheetFunction.SumProduct(Range("B1:B11"), Range("C1:C11"))[LEFT]Sub Tinhtoan()
Dim gtri
gtri = Evaluate("=SUMPRODUCT((A1:A11=""a"")*(B1:B11))")
MsgBox gtri
End Sub[/LEFT]gtri = CDbl([SumProduct((A1:A11="a")*1,B1:B11)])gtri = CDbl([SumProduct((data1="a")*1,data2)])Sub Log_in_Excel()
Answer=Application.WorksheetFunction.Log(Worksheets("Sheet3").Range("D2"))
MsgBox "Excel: Gia tri Log(" & Range("D2").Value & ") = " & Answer
End SubSub Log_in_VBA()
Dim myRange As Range
Set myRange = Worksheets("Sheet3").Range("D2")
MsgBox "VBA: Gia tri Log(" & myRange & ") =" & Log(myRange)
End Sub
Function VBA_MOD(ByVal Tuso, ByVal Mauso)
x = Tuso / Mauso
VBA_MOD = (x - Int(x)) * Mauso
End Function
Khi viết code em muốn sử dụng một số hàm có sẵn trong VBA (bình phương, căn bậc hai,giá trị tuyệt đối,..)thì cách thức gọi như thế nào các bác nhỉ. Để tham khảo tên các hàm sẵn có thì em cần xem ở đâu nhỉ. Xin cảm ơn và hậu tạ các bác
Viết y chang vậy luôn
Range("gì gì đó").Value = "=VLOOKUP(LARGE($B$2:$B$11;H13);$B$2:$E$11;2;0)"----
Vậy sao anh không viết luôn thành $B$2:$E$1000 luôn cho nó khỏe
---
Vụ này thì anh biết và đang làm như thế , anh hỏi vì muốn cho vùng lúc nào cũng cập nhật cho vừa đúng thôi ( Giống như hàm sumif viết trong VBA vậy mà)
Cho anh 1 ví dụ thế này:---
Sub Test()
With Sheet1.Range(Sheet1.[B2], Sheet1.[B65536].End(xlUp))
Range("A1").Value = "=VLOOKUP($A2," & .Resize(, 2).Address & ",2,0)"
End With
End Sub
Public Function hamVBA(i As Integer)
Application.Volatile
If Application.WorksheetFunction.And(i > 1, i < 5) Then
hamVBA = "Dung"
Else
hamVBA = "Sai"
End If
End FunctionPublic Function hamVBA(i As Integer)
Application.Volatile
If Application.WorksheetFunction.And(i > 1, i < 5) = TRUE Then
hamVBA = "Dung"
Else
hamVBA = "Sai"
End If
End Function
if iserror(value) then[E3]=worksheetfunction.iferror(.................)
1500") ---> Nếu tìm thấy thì "quẹo phải" 3 cột để lấy giá trị
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [C3:D3]) Is Nothing Then
Application.EnableEvents = False
Dim tam
If Target.Column = 3 Then
tam = Target
Target.FormulaR1C1 = "=""=" & "" & "" & tam & """"
End If
Sheet3.[D2:H10000].AdvancedFilter 2, [C2:D3], Sheet4.[D5:G5]
If Target.Column = 3 Then Target = tam
Application.EnableEvents = True
Range("G3").FormulaR1C1 = "=sum(R[3]C:R[397]C)"
Range("H3").FormulaR1C1 = "=(RC[-2]-RC[-1])"
Range("E3").Value = "=iferror(Vlookup(C3,Sheet5!D4:G1500,3,0),"")"
Range("F3").Value = "=iferror(Vlookup(C3,Sheet5!D4:G1500,4,0),"")"
If Range("H3") < 0 Then
MsgBox "So luong cat nhieu hon SL CD", , "Anh Quang bao !!!!"
End If
End If
End Sub
Đã dùng VBA thì VLOOKUP làm gì không biết (lại còn rối). Dùng Find đi bạn à!
Tìm giá trị cell C3 trong Sheets("CD").Range("D4
Vậy thôi
[COLOR=#000000]Range("E3").Value = "=iferror(Vlookup(C3,Sheet5!D4:G1500,3,0),"")"
[/COLOR][COLOR=#000000] Range("F3").Value = "=iferror(Vlookup(C3,Sheet5!D4:G1500,4,0),"")"[/COLOR] Range("B2").Value = "=Vlookup(A2,Oder!$A$3:$D$25,3,0)"
Range("C2").Value = "=Iferror(Vlookup(A2,Oder!$A$3:$D$25,4,0),"""")"Private Sub Worksheet_Change(ByVal Target As Range)
Dim tim As Range
If Not Intersect(Target, [A2]) Is Nothing Then
[b2:c2].ClearContents
Set tim = Sheet2.[a2:a25].Find(Target, , , 1)
If Not tim Is Nothing Then
[b2] = tim.Offset(, 3)
[c2] = tim.Offset(, 4)
End If
End If
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, [C3:D3]) Is Nothing Then
Application.EnableEvents = False
Dim tam
If Target.Column = 3 Then
tam = Target
Target.FormulaR1C1 = "=""=" & "" & "" & tam & """"
End If
Sheet3.[D2:H10000].AdvancedFilter 2, [C2:D3], Sheet4.[D5:G5]
If Target.Column = 3 Then Target = tam
Application.EnableEvents = True
Range("G3").FormulaR1C1 = "=if(sum(R[3]C:R[397]C)=0,"""",Sum(R[3]C:R[397]C))"
Range("H3").FormulaR1C1 = "=iferror((RC[-2]-RC[-1]),"""")"
Range("E3").Value = "=iferror(Vlookup(C3,CD!D5:G1500,3,0),"""")"
Range("F3").Value = "=iferror(Vlookup(C3,CD!D5:G1500,4,0),"""")"
If Range("H3") < 0 Then
MsgBox "So luong cat nhieu hon SL CD", , "Anh Quang bao !!!!"
End If
If Range("E3") = "" Then
MsgBox "Don hang nay khong co", , "Anh Quang bao"
End If
End If
End SubNhư file hướng dẫn của anh. Nếu em muốn giá trị tại cột G tự động khi có mã giống như Fill Công thức trong Excel vậy thì làm thế nào?
Bởi vì nếu phải khai rất nhiều dòng
Sheet1.Range("G5").Value = WorksheetFunction.SumIf(Range("C5:C13"), Range("F5"), Range("D5
thì quá dài
Tức thay G5 bằng G6, G7, G8 thì có vẻ khổ hơn là dùng hàm ạ.
[G5].FormulaR1C1 = "=SUMIF(Hang,RC[-1],SoLuong)"
[G6:G10].FillDownSub Macro1()
Dim SArr, kq As Variant, d As Object, i, j, k As Long
SArr = [c5].Resize([c60000].End(3).Row - 4, 2).Value
ReDim kq(1 To UBound(SArr), 1 To 2)
Set d = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(SArr)
If Not d.exists(SArr(i, 1)) Then
k = k + 1
d.Add SArr(i, 1), k
kq(k, 1) = SArr(i, 1)
kq(k, 2) = SArr(i, 2)
Else
kq(d.Item(SArr(i, 1)), 2) = kq(d.Item(SArr(i, 1)), 2) + SArr(i, 2)
End If
Next
[F5:G100].Clear
[F5].Resize(k, 2).Value = kq
Set d = Nothing
End Sub
Bạn xem đúng không nhé.
Sub linhtinh()
If Left(Range("A1").Text, 1) = "#" Then
Range("A1").Value = Empty
End If
End Sub
