vba
小蚂蚁_CrkRes
Where there is a will, there is a way
展开
-
vba--公式法从身份证中提取信息
从身份证中提取有用信息:1)公式法DATEDIF函数是Excel隐藏函数,在帮助和插入公式里面没有。 返回两个日期之间的年\月\日间隔数。常使用DATEDIF函数计算两日期之差。[英] DATEDIF function 语法 DATEDIF(start_date,end_date,unit) Start_date 为一个日期,它代表时间段内的第一个原创 2016-12-26 09:52:53 · 1692 阅读 · 0 评论 -
Excel获取指定列号的字母
Public Function NumtoCol(Numbers As Integer) As StringDim i1 As Integer, i2 As Integer, i3 As IntegerDim s1 As String, s2 As String, s3 As Stringi2 = Numbers \ 26i3 = i2 \ 26 '第3位i2 = i2 Mod...原创 2018-10-24 17:05:29 · 3371 阅读 · 0 评论 -
Excel 将金额转换成大写字母函数
Function CapsMoney(curMoney As Currency) As String '转换中文大写金额函数Dim curMoney1 As LongDim i1 As Long '保存整数部分(元部分)Dim i2 As Integer '保存十分位(角部分)Dim i3 As Integer '保存百分位(分部分)Dim s1 As String, s2 A...原创 2018-10-24 17:06:14 · 1466 阅读 · 0 评论 -
vba查找当前目录下所有文本文件中满足正则表达式要求的字串
Dim DicFolders As VariantPrivate Sub ExportFormat(format As String) Dim ArrFileName() As String, ArrLan() As String, i& Dim sheetName As String, sheetActive As Variant, m&, lIndex As...原创 2018-11-26 16:36:41 · 1556 阅读 · 0 评论 -
将Excel的列的数据进行格式转换
Sub transfer(arry() As String) Dim arrange As Variant, i As Integer, j As Integer For j = LBound(arry) To UBound(arry) arrange = Range(arry(j) & "65536").End(3).Row ...原创 2019-07-11 15:36:43 · 448 阅读 · 0 评论