Set r = [a1:gr20000].Find("罗小黑") If Not r Is Nothing Then r.Select End If MsgBox "总共用时" & DateDiff("s", time1, Time()) & "秒" End Sub 总共用时1秒,代码量也少很多。 其实range的Find方法就是Excel的查找方法,对应的各个参数也是查找对话框中的各个选项, 4,Find方法详解 Find方...
mysala) ' 参数说明:bsc: 必选项,为起征点,包括税法规定的工资基数800元加上允许税前扣除的合理费用; ' mysala: 必选项,为人个工资薪金所得。 ' 示 例:Grsds(850, 20000) = '### Function Grsds(bsc As Double,
Grsds=Application.WorksheetFunction.Round((mysala-bsc)*0.1-25,2) CaseIs<=bsc+5000 Grsds=Application.WorksheetFunction.Round((mysala-bsc)*0.15-125,2) CaseIs<=bsc+20000 Grsds=Application.WorksheetFunction.Round((mysala-bsc)*0.2-375,2) CaseIs<=bsc+40000 Grsds=Application.WorksheetFunction.Round(...
4、 20000) =#Function Grsds(bsc As Double, mysala As Double) As Double bsc为起征点加上允许税前扣除的合理费用,mysala为工资薪金所得 On Error GoTo Grsds_err Select Case mysala Case Is = bsc Grsds = 0 Case Is = bsc + 500 Grsds = Application.WorksheetFunction.Round(mysala - bsc) *...
12、l = 0.45: sukousu = 15375End SelectIf ynse <= 0 Then grsds = 0Else grsds = Round(ynse * suil - sukousu, 2)End IfEnd Function三、代码详解1、Function grsds(ysr, Optional qzd=2000) As Single:自定义函数的开始语句。以Function开始,grsds是函数名,名字可任意取名,这里用了个人所得税...
VBA 自定义函数大全.pdf,VBA 自定义函数大全 龙族联盟论坛 shcnmartin 收集整理 ### 1.函数作用:返回 Column 英文字 ###...
Grsds(850,20000)=3455.00 返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额。 Function Grsds()FunctionGrsds(bscAsDouble, mysalaAsDouble)AsDouble 'bsc为起征点加上允许税前扣除的合理费用,mysala为工资薪金所得 'author:tanjh ...
上海航欧机电设备有限公司供应WESTLOCK开关-ICOT 5310H-SEVBA2BN,工厂WESTLOCK定位器供应产品,上海航欧专业销售WESTLOCK产品WESTLOCK西锁公司是*的阀门位置监控产品制造厂家。产品有:AccuTrak旋转阀门位置监视器、阀位回讯器、定位器、位置变送器、等WESTLOCKWESTLOCK阀位开
AMETEK 271446001 样本进口阀 DYNAPAR HA62524500031 编码器 编码器 HAUSMANN-0002 BR112X60X90112060胀套 胀套 KOBOLD S/N:551622 流量计 MILLER-0010 YY337318A AL61B2N-4.00-40.00-1 气缸 PHOENIX 高温DOW截止阀/球墨铐铁 阀 SELET TORINO-0001 SA-2-63-GR12-4096-SSI-9-HA-10 编码器 VOITH-0345 DSG...
(D) Then Exit For End If Next If v1 = Then v1 = not MyFind = v1 End Function ### 3.函数作用:返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 语 法:Grsds(bsc, mysala) 参数说明:bsc: 必选项,为起征点,包括税法规定的工资基数800元加上允许税前扣除的合理费用...