Khóa, đặt công thức, định dạng bằng VBA (1 người xem)

[vubaochau]

Các bạn giúp mình xử lý Yêu Cầu như sau:
Cột D không cho phép chỉnh sửa (Khóa): bằng lệnh VBA
Đặt công thức bằng VBA để hiểu D= (B+C)/2
Đặt định dạng là 123.345,78 bằng VBA ở cột D
Cảm ơn các bạn

 

[giaiphap]

Các bạn giúp mình xử lý Yêu Cầu như sau:
Cột D không cho phép chỉnh sửa (Khóa): bằng lệnh VBA
Đặt công thức bằng VBA để hiểu D= (B+C)/2
Đặt định dạng là 123.345,78 bằng VBA ở cột D
Cảm ơn các bạnView attachment 148921

Không biết đúng ý bạn không nửa? Hên xui nghe

 

[phulien1902]

Không biết đúng ý bạn không nửa? Hên xui nghe

To: giaiphap
Bác có thể ghép 2 Sub DatCongThuc & DinhDang làm 1 Sub cho gọn hơn,vì tính toán xong là định dạng luôn?

Sub Cthuc_Dinhdang()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    With Sheets(1).Range("D2:D" & Range("A1").End(xlDown).Row)
        .Formula = "=(C2+D2)/2"
        .NumberFormat = "#,##0.00"
    End With
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub