Cách lấy giá trị của công thức tự động cả cột bằng VBA (1 người xem)

[star84]

Xin chào mọi người!
Mình có một vấn đề như sau nhờ mọi người giúp ạ.Mình muốn lấy giá trị của công thức một cách tự động của cột A chẳng hạn thì code trong VBA như thế nào ạ? Cảm ơn mọi người nhiều ạ

 

[phulien1902]

Xin chào mọi người!
Mình có một vấn đề như sau nhờ mọi người giúp ạ.Mình muốn lấy giá trị của công thức một cách tự động của cột A chẳng hạn thì code trong VBA như thế nào ạ? Cảm ơn mọi người nhiều ạ

Có thể là:

Sub Test()
With Sheet1
    With .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        .FormulaR1C1 = ".............." ' Ham cua ban o day
        .Value = .Value
    End With
End With
End Sub

 

[star84]

Có thể là:

Sub Test()
With Sheet1
    With .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        .FormulaR1C1 = ".............." ' Ham cua ban o day
        .Value = .Value
    End With
End With
End Sub

Cám ơn bạn nhiều nhiều nhé

 

[star84]

Có thể là:

Sub Test()
With Sheet1
    With .Range("A2:A" & .Cells(.Rows.Count, "A").End(xlUp).Row)
        .FormulaR1C1 = ".............." ' Ham cua ban o day
        .Value = .Value
    End With
End With
End Sub

Bác có thể bớt thêm chút thời gian làm code cụ thể trong file em đính em sheet tồn kho và lấy giá trị của cột AG,AH đồng thời được không ạ,Cám ơn Bác nhiều lắm

 

[phulien1902]

Bác có thể bớt thêm chút thời gian làm code cụ thể trong file em đính em sheet tồn kho và lấy giá trị của cột AG,AH đồng thời được không ạ,Cám ơn Bác nhiều lắm

Bạn thử:

Sub Test()
    Dim LR As Long
    With Sheets("ton kho")
        LR = .Cells(.Rows.Count, "K").End(xlUp).Row
        With .Range("AG2:AG" & LR)
            .Formula = "=IF(AND(ISNUMBER(K2),K2>=TODAY()),NOW(),"""")"
            .Value = .Value
        End With
           With .Range("AH2:AH" & LR)
            .Formula = "=IF(AG2="""","""",RANK(AG2,$AG$2:$AG$6100,1))"
            .Value = .Value
        End With
    End With
End Sub