2020年7月16日
VBA基础九：画表格线及表外线的颜色定义
摘要： 原表 目标统计汇总表 VBA代码 Private Sub CommandButton1_Click() Dim arr, i&, n&, d As Object, s$, a() arr = Sheet1.Range("A1").CurrentRegion Set d = CreateObject( 阅读全文
posted @ 2020-07-16 14:28 袁氏家谱网 阅读(1276) 评论(5) 推荐(0) 编辑
VBA基础八：汉字数字转阿拉伯数字
摘要： Option Explicit Sub test() '汉字转阿拉伯数字模块Dim tm, iiDim arrPre, arrResarrPre = Range("A2:A20") '待转换汉字存放位置A列，可修改ReDim arrRes(1 To UBound(arrPre), 1 To 1)Fo 阅读全文
posted @ 2020-07-16 13:08 袁氏家谱网 阅读(1303) 评论(1) 推荐(0) 编辑