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

Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

kimtanmap

Thành viên mới
Tham gia
29/12/16
Bài viết
29
Được thích
7
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.
 

File đính kèm

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è
Mã:
Sub Macro()
Sheet1.Range("B2:B500").Formula = "=DocSo(A2)"

Sheet1.Range("B2:B500").Value = Sheet1.Range("B2:B500").Value
End Sub
 
Upvote 0
Sửa thành thế này xem nè
Mã:
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:
Mã:
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
 
Upvote 0
Chủ bài đăng thử con này xem nó phản ứng gì không?
PHP:
Sub Doc500So()
 With Sheets("GPE").[C1:C10]
    .Formula = "=DocSo(A1)"
'    .Value = .Value    '
 End With
End Sub
:D :D :D
 
Upvote 0
Web KT

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

Back
Top Bottom