Ctr + D bằng VBA (1 người xem)

[MeThuongNho]

Chào Anh / Chị,
Em có file đính kèm với mong muốn là : điều kiện cột B ( Item) khi có dữ liệu
thì cột thành tiền (G) sẽ tự fill công thức ( cả định dạng màu sắc....) bên trên xuống ( giống Ctr +D bằng tay vậy)
-- Mục đích không biết bên cột B có bao nhiêu Item,,, nên đợi khi nào có thì cột G mới fill.
-- Code chạy khi B thay đổi hoặc code chạy khi nhấp vào button cũng được.
-- Và cell G2 lúc nào cũng để sẵn công thức trước vậy rồi. ( nếu lồng được công thức vào code thì xin anh chị chỉ em 2 cách luôn nha)
Cám ơn mọi người!

 

[phulien1902]

Chào Anh / Chị,
Em có file đính kèm với mong muốn là : điều kiện cột B ( Item) khi có dữ liệu
thì cột thành tiền (G) sẽ tự fill công thức ( cả định dạng màu sắc....) bên trên xuống ( giống Ctr +D bằng tay vậy)
-- Mục đích không biết bên cột B có bao nhiêu Item,,, nên đợi khi nào có thì cột G mới fill.
-- Code chạy khi B thay đổi hoặc code chạy khi nhấp vào button cũng được.
-- Và cell G2 lúc nào cũng để sẵn công thức trước vậy rồi. ( nếu lồng được công thức vào code thì xin anh chị chỉ em 2 cách luôn nha)
Cám ơn mọi người!

Thế này có được không bạn:

Sub abc()
Dim LR As Long
    LR = Cells(Rows.Count, 2).End(xlUp).Row
    Range("G2:G" & LR).FormulaR1C1 = "=RC[-2]*RC[-1]"
   ' Range("G2:G" & LR).Value = Range("G2:G" & LR).Value
End Sub

 

[vanthinh3101]

Chào Anh / Chị,
Em có file đính kèm với mong muốn là : điều kiện cột B ( Item) khi có dữ liệu
thì cột thành tiền (G) sẽ tự fill công thức ( cả định dạng màu sắc....) bên trên xuống ( giống Ctr +D bằng tay vậy)
-- Mục đích không biết bên cột B có bao nhiêu Item,,, nên đợi khi nào có thì cột G mới fill.
-- Code chạy khi B thay đổi hoặc code chạy khi nhấp vào button cũng được.
-- Và cell G2 lúc nào cũng để sẵn công thức trước vậy rồi. ( nếu lồng được công thức vào code thì xin anh chị chỉ em 2 cách luôn nha)
Cám ơn mọi người!

Chắc cái này là ổn

Sub GPE()
    Range("B2", Range("B2").End(xlDown)).Offset(, 5).FillDown
End Sub

 

[MeThuongNho]

Chắc cái này là ổn

Sub GPE()
    Range("B2", Range("B2").End(xlDown)).Offset(, 5).FillDown
End Sub

Cám ơn phulien1902 và vanthinh3101,
Em đã áp dụng được rồi.