Code macro tự chạy công thức excel (1 người xem)

[seishirou_sama]

Cho mình hỏi anh/chị có thể chia sẻ công thức macro tự chạy công thức excel không ạ ví dụ như khi mình điền công thức vào ô 1, thì công thức sẽ tự chạy các dòng còn lại thay vì kéo tay công thức

 

[vu_tuan_manh_linh]

Cho mình hỏi anh/chị có thể chia sẻ công thức macro tự chạy công thức excel không ạ ví dụ như khi mình điền công thức vào ô 1, thì công thức sẽ tự chạy các dòng còn lại thay vì kéo tay công thức

Sử dụng 1 hàm và 1 đoạn code sau, công thức sẽ tự động fill từ dòng hiện tại đến dòng cuối cùng

Function ToLetter(a As Integer)
   If (a - 1) \ 26 <> 0 Then ToLetter = Chr((a - 1) \ 26 + 64)
   ToLetter = ToLetter + Chr((a - 1) Mod 26 + 65)
End Function

Sub Fill_Down()
Dim FirstRow As Integer, LastRow As Integer
Dim Clm
    Clm = ToLetter(ActiveCell.Column)
    FirstRow = ActiveCell.Row
    LastRow = Range(Clm & "65536").End(xlUp).Row
    Range(Clm & FirstRow & ":" & Clm & LastRow).Select
    Selection.FillDown
End Sub

 

[seishirou_sama]

Sử dụng 1 hàm và 1 đoạn code sau, công thức sẽ tự động fill từ dòng hiện tại đến dòng cuối cùng

Function ToLetter(a As Integer)
   If (a - 1) \ 26 <> 0 Then ToLetter = Chr((a - 1) \ 26 + 64)
   ToLetter = ToLetter + Chr((a - 1) Mod 26 + 65)
End Function

Sub Fill_Down()
Dim FirstRow As Integer, LastRow As Integer
Dim Clm
    Clm = ToLetter(ActiveCell.Column)
    FirstRow = ActiveCell.Row
    LastRow = Range(Clm & "65536").End(xlUp).Row
    Range(Clm & FirstRow & ":" & Clm & LastRow).Select
    Selection.FillDown
End Sub

cám ơn bạn nhiều nha, nhưng cho mình hỏi là mình đã thử mà chưa thấy được, cái code đầu tiên có cần chỉnh sửa gì nữa không bạn, sorry tại vì mình hơi dốt cái này

 

[vu_tuan_manh_linh]

cám ơn bạn nhiều nha, nhưng cho mình hỏi là mình đã thử mà chưa thấy được, cái code đầu tiên có cần chỉnh sửa gì nữa không bạn, sorry tại vì mình hơi dốt cái này

Đoạn đoạn code đầu tiên là 1 hàm chuyển chỉ số cột thành chữ cái tương ứng, bạn giữ nguyên như thế đi. Còn đoạn code sau bạn có thể sửa tùy ý bạn theo nhu cầu sử dụng.