jzkwf705的博客

依据《国家发展计划委员会文件计价格［2002］1980号》计算招标代理费的自定义函数Option ExplicitFunction 招标代理费(服务类型 As String, 中标金额 As Double) As Double Dim brr If 服务类型 = "货物" Then '货物 brr = [{1.50,1.10,0.80,...

利用VBA，根据 136号文计算造价咨询费编制自定义函数。20080615_津价房地2008[136]号_关于工程造价咨询服务项目及价格的通知。

Repalace函数是vba中常用的字符替换函数，本文介绍了replace的基本使用方法，6个参数的意思。Sub replacetest()Dim str As StringDim str2 As Stringstr = "ababab"'vba.Replace（"在哪儿找","找什么（需要被替换掉的部分）","换成什么","从第几个字符开始找","替换几次","匹配方式")'一共六...