作者：乔山办公网日期：
返回目录：excel表格制作
EVALUATE函数
这个不用宏的，选择A1到A9，输入公式
=RANDBETWEEN(1,9)
然后同时按 ctrl + 回车就可以了
Private Sub Worksheet_Change(ByVal TargetAs Range)
If Selection.Count = 1 Then
If Target.Column = 2 Then
Application.EnableEvents = False
Else
Application.EnableEvents = False
If Range("B" & Target.Row) = "" Then
Range("B" & Target.Row).NumberFormatLocal ="yyyy/mm/dd"
Range("B" & Target.Row) = Range("B" &Target.Row).Offset(-1, 0)
End If
If Range("F" & Target.Row).Formula = "" Then
Range("F" & Target.Row) = "=IF(OR($B" &Target.Row & "="""",$B" & Target.Row& "=OFFSET($B" & Target.Row & ",1,)" &"),"""",SUMIF($B:$B,$B" & Target.Row &",$E:$E))"
End If
If Range("I" & Target.Row).Formula = "" Then
Range("I" & Target.Row) = "=E" & Target.Row& "-H" & Target.Row
End If
if cells(target.row+1,"B") > [B1] then target.Interior.color=vbyellow '加一句就好了636f7079e799bee5baa6364
End If
Application.EnableEvents = True
End If
End Sub
我的excel中也有argument（）类似自定义的函数，但是无法找到这个宏或者宏的代码，请问哪位大侠指点一下。