lấy dữ liệu cột D theo điều kiện cột A dùng VBA

[Phanhanhdai]

Anh boyxin ơi em thấy từ hôm qua anh giải quyết bài toán này rất hay.Nếu bài toán trên dùng VBA để hiện thẳng công thức trực tiếp thì có làm được không? Làm thông thường em hiểu được, nhưng em ước cách làm thứ 2 dễ kiểm soát hơn. Cám ơn anh và mọi người

 

[nokiano258vn]

...Nếu bài toán trên dùng VBA để hiện thẳng công thức trực tiếp thì có làm được không? Làm thông thường em hiểu được, nhưng em ước cách làm thứ 2 dễ kiểm soát hơn. Cám ơn anh và mọi người

Dùng VBA thì tôi không biết, nhưng bạn có thể tạo macro.
Còn bài của bạn tôi giải quyết theo công thức thấy cũng ổn

 

[SA_DQ]

Cần macro là có macro

Option Explicit

Sub CopyValue()
 Dim lRow As Long, jW As Long:                      Dim Rng As Range
 Dim bTT, TenCV As String, DonGia As Double
 
 Sheet1.Select
 lRow = [a65432].End(xlUp).Row
 Range("H6:J" & lRow).Clear
 For jW = 6 To lRow
    With Cells(jW, 1)
        If jW = 6 Then
            bTT = .Value:                           TenCV = .Offset(, 1)
        Else
            If .Value <> "" Then
                Set Rng = Range("H" & [h65432].End(xlUp).Row + 1)
                Rng = bTT:                          Rng.Offset(, 1) = TenCV
                Rng.Offset(, 2) = .Offset(-1, 3)
                bTT = .Value:                       TenCV = .Offset(, 1)
        End If:                                     End If
    End With
 Next jW
End Sub

Nếu muốn cột 'J' hiện công thức giống cột 'D' thì tham khảo cái này & thử làm đi vậy:
http://www.giaiphapexcel.com/forum/showthread.php?t=10414

 

[boyxin]

Anh boyxin ơi em thấy từ hôm qua anh giải quyết bài toán này rất hay.Nếu bài toán trên dùng VBA để hiện thẳng công thức trực tiếp thì có làm được không? Làm thông thường em hiểu được, nhưng em ước cách làm thứ 2 dễ kiểm soát hơn. Cám ơn anh và mọi người

Có phải thế này không?
(Dùng Record Macro - Thu lại Macro đã làm bởi công thức)​

 

[boyxin]

CODE để hiện thẳng công thức trực tiếp vào cell

CODE để hiện thẳng công thức trực tiếp vào cell (dùng Record Macro thu lại công thức)

Sub Macro1()
'Tao cong thuc tai Cell I6
Range("I6").FormulaR1C1 = IF(ROWS(R6:R)>MAX(C[-8]),"""",ROWS(R6:R))
'Copy (keo fill) cong thuc Cell I6 xuongs den I15
Range("I6").AutoFill Destination:=Range("I6:I15"), Type:=xlFillDefault
'Tao cong thuc tai Cell J6
Range("J6").FormulaR1C1 = IF(ISERROR(OFFSET(R5C2,MATCH(RC[-1],R6C1:R19C1,0),)),"""",OFFSET(R5C2,MATCH(RC[-1],R6C1:R19C1,0),))
'Copy (keo fill) cong thuc Cell J6 xuongs den J15
Range("J6").AutoFill Destination:=Range("J6:J15"), Type:=xlFillDefault
'Tao cong thuc tai Cell K6
Range("K6").FormulaR1C1 = IF(ISERROR(OFFSET(R5C4,MATCH(RC[-2]+1,R6C1:R19C1,0)-1,)),"""",OFFSET(R5C4,MATCH(RC[-2]+1,R6C1:R19C1,0)-1,))
'Copy (keo fill) cong thuc Cell K6 xuongs den K15
Range("K6").AutoFill Destination:=Range("K6:K15"), Type:=xlFillDefault
End Sub

Ý... QUÊN, NHỜ MOD GHÉP BÀI GIÚP