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

 

[khi ta 20]

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

Cám ơn anh.
Hừ hừ, vậy là 2 anh ý khác nhau chổ ngày tháng(date).
À mà em còn có chổ này nữa muốn hỏi. Em muốn copy mấy bài viết của mọi người về word để in ra xem.Nhưng sau phần chữ thì được, mà hình ảnh thì không được ?

 

[LamNA]

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

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

Anh cho em hỏi thêm nếu trong trường hợp các cột không liên tiếp thì mình viết thế nào để chạy kết quả đúng
Em cám ơn

Sub Test2()
    With [F5:AJ10,H5:H10.........] 'Em thử như vậy kết quả không chính xác

        .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"

        .Value = .Value

    End With
End Sub

 

[nghiaphuc]

Anh cho em hỏi thêm nếu trong trường hợp các cột không liên tiếp thì mình viết thế nào để chạy kết quả đúng
Em cám ơn

Sub Test2()
    With [F5:AJ10,H5:H10.........] 'Em thử như vậy kết quả không chính xác
        .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"
        .Value = .Value
    End With
End Sub

Thử thế này xem, với 31 vùng như vậy thì đưa vào cái range kia dài dòng lắm:

Sub Test3()
    Dim Cll As Range
    For Each Cll In Sheet1.[F4:BN4].SpecialCells(xlCellTypeConstants)
        With Cll.Offset(1).Resize(6)
            .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"
            .Value = .Value
        End With
    Next
End Sub

 

[phulien1902]

Anh cho em hỏi thêm nếu trong trường hợp các cột không liên tiếp thì mình viết thế nào để chạy kết quả đúng
Em cám ơn

Sub Test2()
    With [F5:AJ10,H5:H10.........] 'Em thử như vậy kết quả không chính xác

        .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"

        .Value = .Value

    End With
End Sub

1 cách:

Sub abc()
    Dim i&, j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "= SUMIFS($B:$B,$A:$A,$E5,$C:$C,F4)"
    For i = 5 To LR
        For j = 6 To 66 Step 2
            Cells(i, 6).Copy Cells(i, j)
        Next
    Next
End Sub

 

[LamNA]

Thử thế này xem, với 31 vùng như vậy thì đưa vào cái range kia dài dòng lắm:

Sub Test3()
    Dim Cll As Range
    For Each Cll In Sheet1.[F4:BN4].SpecialCells(xlCellTypeConstants)
        With Cll.Offset(1).Resize(6)
            .FormulaR1C1 = "=SUMIFS(C2,C1,RC5,C3,R4C)"
            .Value = .Value
        End With
    Next
End Sub

Cám ơn anh Nghĩa
Chạy kết quả nhanh
Theo code em hiểu đoạn SpecialCells(xlCellTypeConstants) là công thức chỉ tính các ô có chứa hằng số, các ô trống bỏ qua không tính
Nó sẽ phát sinh tính toán công thức khi các ô trống có chứa giá trị.

1 cách:

Sub abc()
    Dim i&, j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "= SUMIFS($B:$B,$A:$A,$E5,$C:$C,F4)"
      For i = 5 To LR
        For j = 6 To 66 Step 2
           Cells(i, 6).Copy Cells(i, j)
        Next
    Next
End Sub

Cám ơn anh phulien1902
Tính toán chậm do chạy lệnh For
Code của anh theo em hiểu là chạy tính toán vòng lặp từ F6 đến BN và bỏ cách nhau 1 dòng
Nó sẽ phát sinh tính toán công thức với dữ liệu trên 1000 dòng có thể phát sinh có kết quả chậm.

Em cám ơn 2 anh đã quan tâm bài viết.

 

[nghiaphuc]

1 cách:

Sub abc()
    Dim i&, j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "= SUMIFS($B:$B,$A:$A,$E5,$C:$C,F4)"
      For i = 5 To LR
        For j = 6 To 66 Step 2
           Cells(i, 6).Copy Cells(i, j)
        Next
    Next
End Sub

Cái chỗ F4 không ổn rồi anh, phải là F$4 mới đúng.
Giữ ý tưởng đó, em sửa lại thế này, sẽ nhanh hơn chút vì giảm đi số lần copy:

Sub defghij()
    Dim j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "=SUMIFS($B:$B,$A:$A,$E5,$C:$C,F$4)"
    For j = 8 To 66 Step 2
        Cells(5, 6).Resize(LR - 4).Copy Cells(5, j)
    Next
End Sub

Bài đã được tự động gộp: 21/8/18

Cám ơn anh Nghĩa
Chạy kết quả nhanh
Theo code em hiểu đoạn SpecialCells(xlCellTypeConstants) là công thức chỉ tính các ô có chứa hằng số, các ô trống bỏ qua không tính
Nó sẽ phát sinh tính toán công thức khi các ô trống có chứa giá trị.

Nếu các cột cách đều thì dùng vòng For với Step là khoảng cách giữa các cột chứa công thức. Nói chung là chế biến cái này dễ mà.

Đính chính: Mình tên là Phúc (Hoàng Nghĩa Phúc) chứ không phải Nghĩa.

 

[LamNA]

Cái chỗ F4 không ổn rồi anh, phải là F$4 mới đúng.
Giữ ý tưởng đó, em sửa lại thế này, sẽ nhanh hơn chút vì giảm đi số lần copy:

Sub defghij()
    Dim j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "=SUMIFS($B:$B,$A:$A,$E5,$C:$C,F$4)"
    For j = 8 To 66 Step 2
        Cells(5, 6).Resize(LR - 4).Copy Cells(5, j)
    Next
End Sub

Bài đã được tự động gộp: 21/8/18

Nếu các cột cách đều thì dùng vòng For với Step là khoảng cách giữa các cột chứa công thức. Nói chung là chế biến cái này dễ mà.

Đính chính: Mình tên là Phúc (Hoàng Nghĩa Phúc) chứ không phải Nghĩa.

Dạ em cám ơn anh Phúc nhe, thấy bài toán cũng đã được giải quyết

Bài đã được tự động gộp: 21/8/18

Cái chỗ F4 không ổn rồi anh, phải là F$4 mới đúng.
Giữ ý tưởng đó, em sửa lại thế này, sẽ nhanh hơn chút vì giảm đi số lần copy:

Sub defghij()
    Dim j%, LR&, LC%
    LR = Cells(Rows.Count, "E").End(xlUp).Row
    Range("F5:F" & LR).Formula = "=SUMIFS($B:$B,$A:$A,$E5,$C:$C,F$4)"
    For j = 8 To 66 Step 2
        Cells(5, 6).Resize(LR - 4).Copy Cells(5, j)
    Next
End Sub

Bài đã được tự động gộp: 21/8/18

Nếu các cột cách đều thì dùng vòng For với Step là khoảng cách giữa các cột chứa công thức. Nói chung là chế biến cái này dễ mà.

Đính chính: Mình tên là Phúc (Hoàng Nghĩa Phúc) chứ không phải Nghĩa.

Anh cho em hỏi thêm ý nghĩa của dấu % của 2 biến này nhe

Dim j%, LC%

 

[nghiaphuc]

Anh cho em hỏi thêm ý nghĩa của dấu % của 2 biến này nhe

Dim j%, LC%

À, hình như j% tương ứng với j As Integer, LR& tương ứng với LR As Long, d# tương ứng với d As Double. Mình không dùng cách khai báo biến kiểu này nên không rành.