[Help] Cách gán công thức vào dữ liệu bằng macro. (1 người xem)

[Heracles1976]

Chào các Bác

Em có file dữ liệu với macro đã làm trong file.

Nhưng gán value thì được, gán công thức thay đổi mỗi dòng thì không được.

Các Bác giúp E với.!

 

[phulien1902]

Chào các Bác

Em có file dữ liệu với macro đã làm trong file.

Nhưng gán value thì được, gán công thức thay đổi mỗi dòng thì không được.

Các Bác giúp E với.!

Bạn thử:

Sub ABC()
Dim LR
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    Range("E3:E" & LR).FormulaR1C1 = "=IF(R2C6=""Ngu?i nhà"",AVERAGE(RC[-3]:RC[-1])+1,IF(R2C6=""Uu tiên"",AVERAGE(RC[-3]:RC[-1])+0.5,AVERAGE(RC[-3]:RC[-1])))"
End Sub

 

[Heracles1976]

Bạn thử:

Sub ABC()
Dim LR
    LR = Cells(Rows.Count, 1).End(xlUp).Row
    Range("E3:E" & LR).FormulaR1C1 = "=IF(R2C6=""Ngu?i nhà"",AVERAGE(RC[-3]:RC[-1])+1,IF(R2C6=""Uu tiên"",AVERAGE(RC[-3]:RC[-1])+0.5,AVERAGE(RC[-3]:RC[-1])))"
End Sub

Bác ơi, nối vào cái E đang có, thì phải làm thế nào để nhấn 1 lần thôi ạ..?

Sub Ghi_DL()
' Keyboard Shortcut: Ctrl+Shift+S

Dim MyArr As Variant
With Sheets("NhapDL")
MyArr = Array(.[C5], .[C6], .[C7], .[C8])
End With
Sheets("SoDL").Range("A65536").End(xlUp).Offset(1).Resize(, 4).Value = MyArr

MsgBox ("Done!")

End Sub

 

[ndu96081631]

Chào các Bác

Em có file dữ liệu với macro đã làm trong file.

Nhưng gán value thì được, gán công thức thay đổi mỗi dòng thì không được.

Các Bác giúp E với.!

Đằng nào cũng phải nhập 3 điểm của 3 môn, vậy sao bạn không nhập trực tiếp tại sheet SoDL luôn, khỏi mất thêm 1 lần nhấn nút
???
Khó hiểu quá!

 

[Heracles1976]

Đằng nào cũng phải nhập 3 điểm của 3 môn, vậy sao bạn không nhập trực tiếp tại sheet SoDL luôn, khỏi mất thêm 1 lần nhấn nút
???
Khó hiểu quá!

Dạ thưa thầy, em học cách tự động gán công thức bằng macro thôi ạ. Thầy chỉ cho Em với!

 

[ndu96081631]

Dạ thưa thầy, em học cách tự động gán công thức bằng macro thôi ạ. Thầy chỉ cho Em với!

Bạn bật công cụ record macro lên. Xong chọn cell E3, bấm F2 rồi Enter phát. Tắt record macro, bạn có ngay code gán công thức

 

[Heracles1976]

Vâng, vì mỗi lần ghi dữ liệu các dòng dữ liệu nó nhẩy xuống E4,E5,E6... nếu gán như vậy nó chỉ gán được E3 thôi. Mỗi lần ghi sau lại ko có..

 

[ndu96081631]

Vâng, vì mỗi lần ghi dữ liệu các dòng dữ liệu nó nhẩy xuống E4,E5,E6... nếu gán như vậy nó chỉ gán được E3 thôi. Mỗi lần ghi sau lại ko có..

Trong code tôi thấy bạn ghi: Sheets("SoDL").Range("A65536").End(xlUp).Offset(1).Resize(, 4)
chứng tỏ bạn biết xài End(xlUp) rồi Offset nữa. Vậy cứ 2 món đó mà.. phang thôi

 

[Heracles1976]

Trong code tôi thấy bạn ghi: Sheets("SoDL").Range("A65536").End(xlUp).Offset(1).Resize(, 4)
chứng tỏ bạn biết xài End(xlUp) rồi Offset nữa. Vậy cứ 2 món đó mà.. phang thôi

Em hiểu ý Thầy rồi ạ, E cảm ơn Thầy!