Xin trợ giúp nhập công thức vào 1 ô bằng VBA

Liên hệ QC

GACON_VBA

Thành viên chính thức
Tham gia
30/7/16
Bài viết
79
Được thích
1
Chào các bác. Em có file cần điền công thức (như ô B15 của sheet2) B15"=SUMIFS(Sheet3!$B$5:$B$11,Sheet3!$A$5:$A$11,Sheet2!$A$15,Sheet3!$C$5:$C$11,Sheet2!B14)"
Giờ em muốn dùng VBA bằng nút lệnh (file kèm) có sử dụng biến RWS1 từ Sheet3. Mong được sự quan tâm giúp đỡ của các bác. Xin cảm ơn!
 

File đính kèm

Lần chỉnh sửa cuối:
Chào các bác. Em có file cần điền công thức (như ô B15 của sheet2) B15"=SUMIFS(Sheet3!$B$5:$B$11,Sheet3!$A$5:$A$11,Sheet2!$A$15,Sheet3!$C$5:$C$11,Sheet2!B14)"
Giờ em muốn dùng VBA bằng nút lệnh (file kèm) có sử dụng biến RWS1 từ Sheet3. Mong được sự quan tâm giúp đỡ của các bác. Xin cảm ơn!
Bạn thử sub này

Mã:
Sub Test1()
Dim Rws As Long, Rws1 As Long
Application.ScreenUpdating = False
Rws1 = Sheet3.Range("A65536").End(xlUp).Row
Rws = Sheet2.Range("A65536").End(xlUp).Row
With Range("B15:H" & Rws)
        .FormulaR1C1 = "=SUMIFS(Sheet3!R5C2:R" & Rws1 & "C2,Sheet3!R5C1:R" & Rws1 & "C1,Sheet2!RC1,Sheet3!R5C3:R" & Rws1 & "C3,Sheet2!R14C)"
       ' .Value = .Value ' Chi gán giá tri
    End With
Application.ScreenUpdating = False
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn thử sub này

Mã:
Sub Test1()
Dim Rws As Long, Rws1 As Long
Application.ScreenUpdating = False
Rws1 = Sheet3.Range("A65536").End(xlUp).Row
Rws = Sheet2.Range("A65536").End(xlUp).Row
With Range("B15:H" & Rws)
        .FormulaR1C1 = "=SUMIFS(Sheet3!R5C2:R" & Rws1 & "C2,Sheet3!R5C1:R" & Rws1 & "C1,Sheet2!RC1,Sheet3!R5C3:R" & Rws1 & "C3,Sheet2!R14C)"
       ' .Value = .Value ' Chi gán giá tri
    End With
Application.ScreenUpdating = False
End Sub
Cảm ơn bác nhiều. CODE ok!
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom