Question

Excel vba 如何写这段代码

excel vba 用代码如何实现l4=IF(G4=1,-20,IF(G4=2,-40,IF(G4>=3,-(40+(G4-2)*60))))+IF(H4=0.5,-(C4*0.1),IF(H4=1,-(C4*0.5),IF(H4>=2,-(C4+D4))))+I4*F4+(-(C4*J4))+IF(K4>=1,-(K4*F4*0.5),IF(K4>=3,-(K4*F4*0.9)))+IF(G4=2,-(D4*0.1),IF(OR(G4>=3,H4>=0.5,J4>=2,K4>=3),D4))，并向下填充，请大神指教

Answer 1

Sub aa()
I = Range("B65536").End(xlUp).Row
Range("L4：L" & I) = "=IF(G4=1,-20,IF(G4=2,-40,IF(G4>=3,-(40+(G4-2)*60))))+IF(H4=0.5,-(C4*0.1),IF(H4=1,-(C4*0.5),IF(H4>=2,-(C4+D4))))+I4*F4+(-(C4*J4))+IF(K4>=1,-(K4*F4*0.5),IF(K4>=3,-(K4*F4*0.9)))+IF(G4=2,-(D4*0.1),IF(OR(G4>=3,H4>=0.5,J4>=2,K4>=3),D4))"
End Sub
这个最简单的代码

追问

能不能不要在单元格内出现公式，不希望别人知道这个是怎么算的

追答

Sub aa()
I = Range("B65536").End(xlUp).Row
Range("L4：L" & I) = "=IF(G4=1,-20,IF(G4=2,-40,IF(G4>=3,-(40+(G4-2)*60))))+IF(H4=0.5,-(C4*0.1),IF(H4=1,-(C4*0.5),IF(H4>=2,-(C4+D4))))+I4*F4+(-(C4*J4))+IF(K4>=1,-(K4*F4*0.5),IF(K4>=3,-(K4*F4*0.9)))+IF(G4=2,-(D4*0.1),IF(OR(G4>=3,H4>=0.5,J4>=2,K4>=3),D4))"
Range("L4：L" & I).Select

Selection.copy
Range("L4").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
这个最简单
用for next
IF
要写很多。。。

追问

这样被人看代码还是能看到公式的，希望用用代码写一个吧，谢谢

追答

太多了，
语句
麻烦
你把VBA锁定就好了
就看不到代码里的 公式了
Sub bb()
Dim i%
For i = 4 To Range("b65536").End(xlUp).Row
If Cells(i, "G") = 1 Then
Cells(i, "L") = -20
End If

If Cells(i, "G") = 2 Then
Cells(i, "L") = -40
End If
If Cells(i, "G") >= 3 Then
Cells(i, "L") = -(40 + (Cells(i, "G") - 2) * 60)
End If
If Cells(i, "G") >= 3 Then
Cells(i, "L") = -(40 + (Cells(i, "G") - 2) * 60)
End If
Next
End Sub
写了 一部分，你都看懂了，你继续仿照着写。

追问

再多写一点，我是初学者，看的不是很懂，被领导知道就麻烦了

追答

照着写
把单元格地址，变为代码格式的
G4就是CELLS(I,"g")
I是 变量，表示从第4行开始循环