网事

摘要： 在Excel中将小写金额转换成人民币的大写金额的自定义函数及用法1、如何自定义：打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我... 阅读全文

摘要： 假设对A1中的数字进行转换）,在B2单元格中输入=IF(ROUND(A1,2)=1,TEXT(INT(ROUND(ABS(A1),2)),"[DBNum2]")&"元","")&IF(RIGHT(TEXT(A1,".00"),2)*1=0,"整",IF(RIGHT(TEXT(A1,".00"),4... 阅读全文

摘要： "" then X_unit = X_unit end if if Y_unit "" then Y_unit = Y_unit end if num1 = ubound(stat_array,1) line_temp=split(stat_array(0,1),",") num2 = ub... 阅读全文

摘要： Asp+Access数据库分段统计示例 =10 and age20 and age") rs.movenextwendrs.closeset rs=nothingconn.closeset conn=nothing%> 阅读全文

摘要： String.substr(N1,N2) 这个就是我们常用的从指定的位置(N1)截取指定长度(N2)的字符串; String.substring(N1,N2) 这个就是我们常用的从指定的位置(N1)到指定的位置(N2)的字符串; 举个例子： alert("123456789".substr(2... 阅读全文

摘要： 123 234 abc def 123 234 abc def 123 234 abc def 123 234 abc def 123 234 a... 阅读全文

摘要： "打印的时候像Word一样自动分栏，可以用添加辅助表和使用INDIRECT()的办法实现： 假如你的原表是Sheet1，新建一个工作表Sheet2，把表头设置成需要的分栏形式（注意表头行数要和原表一致，保证第一行数据和原表的行号相同，只是多了几个列），现在架设你的数据从第2行开始，并且每页打印5行... 阅读全文

摘要： Sub 替换超级链接地址()Dim hDim str1$str1 = "D:/Personal/My Documents/"For Each h In Worksheets(1).Hyperlinks If InStr(h.Name, str1) 0 Then h.Address = ""... 阅读全文