Nhờ viết code VBA Macro lập lại. (1 người xem)

[kimtanmap]

Em đang có dòng code macro như này.
Dùng để đọc số thành chữ.

Sub Macro()
Sheet1.Range("B2").Formula = "=DocSo(A2)"
Sheet1.Range("B3").Formula = "=DocSo(A3)"
Sheet1.Range("B4").Formula = "=DocSo(A4)"

Sheet1.Range("B2").Value = Sheet1.Range("B2").Value
Sheet1.Range("B3").Value = Sheet1.Range("B3").Value
Sheet1.Range("B4").Value = Sheet1.Range("B4").Value
End Sub

Giờ em muốn công thức được tăng dần từ B:2 đến B:500
Mà em không biết làm như nào, kính nhờ anh chị giúp với ạ.
Em có file mẫu kèm theo bên dưới.
Nếu viết thành "worksheet change" được thì em cảm ơn rất nhiều.

 

[BuiQuangThuan]

Em đang có dòng code macro như này.
Dùng để đọc số thành chữ.

Giờ em muốn công thức được tăng dần từ B:2 đến B:500
Mà em không biết làm như nào, kính nhờ anh chị giúp với ạ.
Em có file mẫu kèm theo bên dưới.
Nếu viết thành "worksheet change" được thì em cảm ơn rất nhiều.

Sửa thành thế này xem nè

Sub Macro()
Sheet1.Range("B2:B500").Formula = "=DocSo(A2)"

Sheet1.Range("B2:B500").Value = Sheet1.Range("B2:B500").Value
End Sub

 

[Hoàng Tuấn 868]

Sửa thành thế này xem nè

Sub Macro()
Sheet1.Range("B2:B500").Formula = "=DocSo(A2)"
Sheet1.Range("B2:B500").Value = Sheet1.Range("B2:B500").Value
End Sub

Hoặc thế này:

Sub Macro()
    Dim lr As Long
    lr = Sheet1.Cells(2, 1).End(xlDown).Row
    Sheet1.Range("B2").Formula = "=DocSo(A2)"
    Sheet1.Range("B2:B" & lr).FillDown
End Sub

 

[SA_DQ]

Chủ bài đăng thử con này xem nó phản ứng gì không?

Sub Doc500So()
 With Sheets("GPE").[C1:C10]
    .Formula = "=DocSo(A1)"
'    .Value = .Value    '
 End With
End Sub

 

[Hoàng Tuấn 868]

Nếu viết thành "worksheet change" được

. . . . . . . . . . . . . . .

 

[kimtanmap]

Dạ em cảm ơn mọi người nhiều ạ!

 

[kimtanmap]

. . . . . . . . . . . . . . .

Code VBA bác viết cho em hay quá ạ, nay em mới có dịp dùng. Cảm ơn nhiều ạ.