VBA
weixin_46655338
这个作者很懒,什么都没留下…
展开
-
VBA写入公式(5):提取村委会简称
Sub 提取村委会() Dim arr1 Dim k As String Dim row2 As String Dim colu2 As String arr1 = Array("前锋", "西海", "八家", "冲洋", "新围", "竹洛", "竹湖", "新屋", "达材", "朝中", "官窦", "伞塘", "白岗", "稔坪", "西坑", "三和", "居委", "冲蒌圩") Set rng1 = Application.InputBox(p原创 2022-05-17 13:47:45 · 256 阅读 · 0 评论 -
VBA写入公式(3):身份证公式集
Sub 身份证公式集() '先选择数字所在的一个单元格,在选择大写金额保存的一个单元格。 '&两边无空格是公式上的连接符,&两边有空格是vba上的连接符。 '带有双引号的外面必须由两重双引号,而且最内侧双引号外不能连接其他字符串。 'n = MsgBox("计算剩余日期" & vbCrLf & "选择【重试】:选项2" & vbCrLf & "选择【忽略】:选项3", vbAbortRetryIgnore, "提示")原创 2022-05-17 13:47:05 · 367 阅读 · 0 评论 -
VBA写入公式(2):日期公式集
日期公式集,vba代码自动写入日期公式原创 2022-05-17 13:46:30 · 943 阅读 · 0 评论 -
VBA写入公式(5):提取经济组织
Sub 取经济组织简称() Dim arr1, arrB Dim k As String Dim row2 As String Dim colu2 As String arr1 = Array("") arr15 = Array("") arr16 = Array("") ' arrB = Array(arr1, arr2, arr3, arr4, arr5, arr6, arr7, arr8, arr9, arr10)'原创 2022-05-17 13:46:00 · 120 阅读 · 0 评论 -
VBA写入公式(6):排名不重复
排名不重复,即使是相同值,先出现的排名在前。输入的公式是:=RANK(A1,$A1:1:1:A$17)+COUNTIF(A1:A1,A1)−1,第1次选择一个单元格A1,第1次选择区间1:A1,A1)-1 , 第1次选择一个单元格A1, 第1次选择区间1:A1,A1)−1,第1次选择一个单元格A1,第1次选择区间A1:1:1:A$17,第3次选择保存的一个单元格位置。Sub 排名不重复() MsgBox "排名不重复,即使是相同值,先出现的排名在前。输入的公式是:=RANK(A1,$A$1:$A$原创 2022-05-17 13:45:25 · 1213 阅读 · 0 评论 -
VBA通过关键字查找工作簿、工作表的行
通过关键字查找工作表的行,如查找关键字:合计、汇总、总计……。查找时部分匹配,不是全匹配。查找不同工作簿中的多个工作表。汇总到工作表《汇总各表行》中,保留数值、格式,不保留公式。Option ExplicitOption Compare TextSub 关键字查找工作簿行() 'Application.DisplayAlerts = False Dim i1, i2, i3, i4, i5, i6, i7, b, j Dim wb2 As Workbook Dim e原创 2022-05-17 13:44:46 · 5706 阅读 · 0 评论 -
VBA写入公式(4):数字转大写金额公式
写入大写金额公式:=SUBSTITUTE(SUBSTITUTE(IF(A2>-0.5%,“负”)&TEXT(INT(FIXED(ABS(A2))),“[dbnum2]G/通用格式元;;”)&TEXT(RIGHT(FIXED(A2),2),“[dbnum2]0角0分;;”&IF(ABS(A2)>1%,“整”,)),“零角”,IF(ABS(A2)<1,“零”)),“零分”,“整”)Sub 金额大写() '先选择数字所在的一个单元格,在选择大写金额保存的一个单元原创 2022-05-16 14:26:03 · 1392 阅读 · 0 评论