Gán công thức trong VBA thành giá trị

[LamNA]

Chào anh chị
Anh chị cho em hỏi với công thức bên dưới làm sao khi chạy công thức xong nó sẽ gán kết quả bằng giá trị Value

Sub Test()
    Range("F2").value = "=SUMIFS(B1:B14,A1:A14,E2)"
End Sub

 

[nghiaphuc]

Chào anh chị
Anh chị cho em hỏi với công thức bên dưới làm sao khi chạy công thức xong nó sẽ gán kết quả bằng giá trị Value

Sub Test()
    Range("F2").value = "=SUMIFS(B1:B14,A1:A14,E2)"
End Sub

Nó là thế này:

Sub Test()
    Range("F2") = [=SUMIFS(B1:B14,A1:A14,E2)]
End Sub

 

[LamNA]

Nó là thế này:

Sub Test()
    Range("F2") = [=SUMIFS(B1:B14,A1:A14,E2)]
End Sub

Cám ơn anh nhe
Anh cho em hỏi ý nghĩa ý nghĩa của [...] trong VBA là gì vậy anh?

 

[nghiaphuc]

Cám ơn anh nhe
Anh cho em hỏi ý nghĩa ý nghĩa của [...] trong VBA là gì vậy anh?

Bạn click vào chỗ Evaluate phía dưới chữ ký của tôi, có bài viết của anh Lê Văn Duyệt viết về phương thức này.

 

[LamNA]

Bạn click vào chỗ Evaluate phía dưới chữ ký của tôi, có bài viết của anh Lê Văn Duyệt viết về phương thức này.

Anh cho em hỏi thêm nếu trường hợp này thì viết nó như thế nào là gọn nhất

Sub Test()
    Range("G2") = [=SUMIFS(B1:B14,A1:A14,F2,C1:C14,D2)]
    Range("G3") = [=SUMIFS(B1:B14,A1:A14,F3,C1:C14,D2)]
    Range("G4") = [=SUMIFS(B1:B14,A1:A14,F4,C1:C14,D2)]
End Sub

 

[giaiphap]

Anh cho em hỏi thêm nếu trường hợp này thì viết nó như thế nào là gọn nhất

Sub Test()
    Range("G2") = [=SUMIFS(B1:B14,A1:A14,F2,C1:C14,D2)]
    Range("G3") = [=SUMIFS(B1:B14,A1:A14,F3,C1:C14,D2)]
    Range("G4") = [=SUMIFS(B1:B14,A1:A14,F4,C1:C14,D2)]
End Sub

Chắc là thế này.

Sub Test()
    Dim i As Integer
    For i = 2 To 4
        Range("G" & i) = Evaluate("SUMIFS(B1:B14,A1:A14,F" & i & ",C1:C14,D2)")
    Next i
End Sub

 

[LamNA]

Chắc là thế này.

Sub Test()
    Dim i As Integer
    For i = 2 To 4
        Range("G" & i) = Evaluate("SUMIFS(B1:B14,A1:A14,F" & i & ",C1:C14,D2)")
    Next i
End Sub

Đúng rồi, em cám ơn anh nhe

 

[befaint]

(Trao đổi thôi nhé):
- Không rõ mục đích dùng VBA để viết công thức, chưa kể viết công thức ấy trong code sẽ khó hơn hẳn viết trên bảng tính.
- Về phương diện áp dụng VBA vì cái ưu điểm của nó, nhưng giải pháp ở đây thì không áp dụng được ưu điểm đó.

 

[LamNA]

(Trao đổi thôi nhé):
- Không rõ mục đích dùng VBA để viết công thức, chưa kể viết công thức ấy trong code sẽ khó hơn hẳn viết trên bảng tính.
- Về phương diện áp dụng VBA vì cái ưu điểm của nó, nhưng giải pháp ở đây thì không áp dụng được ưu điểm đó.

Dạ anh, em vọc VBA vài cái cơ bản trước thôi anh, nếu trường hợp này thì dung công thức có sẵn sẽ nhanh và tiện hơn.
Em cám ơn

 

[LamNA]

Nó là thế này:

Sub Test()
    Range("F2") = [=SUMIFS(B1:B14,A1:A14,E2)]
End Sub

Anh Nghĩa cho em hỏi trường hợp công thức sumifs như trong file thì trong VBA mình viết như thế nào là ngắn nhất
Em cám ơn

 

[nghiaphuc]

Anh Nghĩa cho em hỏi trường hợp công thức sumifs như trong file thì trong VBA mình viết như thế nào là ngắn nhất
Em cám ơn

Ví dụ là thế này:

Sub Test2()
    With [F5:AJ10]
        .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"
        .Value = .Value
    End With
End Sub

 

[VetMini]

Hàm Evaluate là hàm được gọi từ VBA để tính biểu thức (đáng lẽ phải) ở trên Sheet.
Dấu [ ] là cách viết tắt của Evaluate.
Điểm cần để ý là tham của Evaluate là chuỗi cho nên có thể dùng để tính biến, [ ] luôn luôn bắt buộc chỉ dùng hằng.

Chú: hàm Evaluate làm chậm code 1 chút (tuy không đáng kể)
Tôi vẫn thường thắc mắc tại sao quý vị ở đây rất chú trọng về tốc độ nhưng lại thích viết [A1] thay vì Range("A1"). Nhưng hình như luật ở đây điều kiện viết code ngắn đứng trên điều kiện tốc độ.

 

[nghiaphuc]

Chú: hàm Evaluate làm chậm code 1 chút (tuy không đáng kể)
Tôi vẫn thường thắc mắc tại sao quý vị ở đây rất chú trọng về tốc độ nhưng lại thích viết [A1] thay vì Range("A1"). Nhưng hình như luật ở đây điều kiện viết code ngắn đứng trên điều kiện tốc độ.

Có lẽ là do thói quen thôi anh, chứ như em chẳng hạn thì cũng không nhận ra sự khác biệt về tốc độ giữa 2 cách viết này, với em thì code chạy được là ngon rồi, hay dở tính sau. Bình thường em hay viết [A1], nhưng đôi khi cần sự gợi ý của VBE (khi gõ dấu chấm sau đối tượng) thì em viết Range("A1").

 

[VetMini]

Nói cho đúng thì chỉ hơi chậm 1 chút. Tôi nhớ đọc ở đâu đó có người tính ra được là khoảng 10%. 10% của con toán lấy range thì hầu như không ảnh hưởng gì đến code, còn hằng trăm con toán khác.
Vấn đề quan trọng là do ký hiệu [ ] không thể xử dụng với biến cho nên nếu code có những con toán khác về range thì đọc sẽ thấy không đồng nhất, gạo nếp lẫn lộn. Lúc thì [A1], lúc lại Range("A" & i).
Bản thân tôi cũng có dùng [ ]. Nhưng tôi chỉ dùng trong 2 trường hợp:
1. Nếu dùng để thay Evaluate Range thì chỉ dùng trong đoạn code rất ngắn. Cái Sub hay Function chỉ mươi dòng là tối đa.
2. Trường hợp thứ hai là dùng để tạo một mảng. Mảng này là mảng theo ngữ cảnh worksheet (*) cho nên chỉ số LBound là 1, khác với mảng tạo bởi hàm Array.

(*) Evaluate không phải là hàm của worksheet, nhưng nó hoạt động theo ngữ cảnh worksheet.

 

[khi ta 20]

Chắc là thế này.

Sub Test()
    Dim i As Integer
    For i = 2 To 4
        Range("G" & i) = Evaluate("SUMIFS(B1:B14,A1:A14,F" & i & ",C1:C14,D2)")
    Next i
End Sub

Quá cần thiết cho những người muốn biết về VBA như em.Cám ơn anh nhiều.
Em lấy có value, value2 .Vậy những value này thì được dùng trong trường hợp nào vậy anh ?

 

[befaint]

có value, value2 .Vậy những value này thì được dùng trong trường hợp nào

Có value3, value4, value5 nữa đó bạn.

Tìm mục 3.1 đọc thử bạn nhé.

 

[khi ta 20]

Có value3, value4, value5 nữa đó bạn.

Tìm mục 3.1 đọc thử bạn nhé.

Thiệt hôn đó hay là chọc em vậy anh ?Úm ba la, cám ơn anh nha

 

[giaiphap]

Thiệt hôn đó hay là chọc em vậy anh ?Úm ba la, cám ơn anh nha

Muốn biết chọc hay không vào Link trên sẽ rõ thôi.

 

[khi ta 20]

Muốn biết chọc hay không vào Link trên sẽ rõ thôi.

Em thấy rồi anh. Mà value3,value4,value5 đâu ta ?

 

[giaiphap]

Em thấy rồi anh. Mà value3,value4,value5 đâu ta ?
View attachment 202186

Vậy có kết luận luôn đi, hỏi gì nửa.