Nhờ viết hàm tự tạo? (3 người xem)

[311280]

Nhờ các bác viết giùm e hàm tự tạo để tính công thức sau:
=IF(D16=0,"",IF(AND(Y16>=2*V16,Y16<=G9*(E16-V16)),(F16*10^2*(Z16+0.5*T16-(E16-V16)))/(P5*(E16-2*V16)),IF(Y16<2*V16,(F16*10^2*(Z16-(E16-2*V16)))/(P6*(E16-2*V16)),(F16*10^2*Z16-G5*G7*D16*T16*((E16-V16)-T16/2))/(P5*(E16-2*V16)))))
E cần hàm tự tạo vì trong công thức này tính nằm trong rất nhiều ô nên nặng file.Thanks.

 

[Hoàng Trọng Nghĩa]

Chính xác,Ý e là vậy đó bác!

Cho hỏi, nếu ô ở cột C không có giá trị thì xóa hàng, còn nếu giá trị bằng 0 có xóa luôn không?

 

[Hoàng Trọng Nghĩa]

Thôi, dù là ô rỗng hay ô bằng 0 gì cũng cho đi die hết:

Private Sub CommandButton1_Click()
    Dim i As Long, j As Long
    i = [C65536].End(xlUp).Row
    If i <= 15 Then Exit Sub
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
            For j = i To 16 Step -1
                With Range("C" & j)
                    If .Value = "" Or .Value = 0 Then
                        .Offset(, -2).Resize(, 34).Delete 2
                    End If
                End With
            Next
            i = [C65536].End(xlUp).Row
            Range("J16:J" & i).Formula = "=CotJ"
            Range("P16:P" & i).Formula = "=CotP"
            Range("R16:R" & i).Formula = "=CotR"
            Range("T16:T" & i).Formula = "=CotT"
            Range("A16:AH16").Copy
            Range("A17:AH" & i).PasteSpecial xlPasteFormats
            Range("A" & i + 1 & ":AH65536").Clear
            Range("A" & i & ":AH" & i).Select
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With
End Sub