随笔分类 -  vba

vba的学习交流
把数据按列拆分为数据表
摘要：Sub caifengbiao()Dim i, k As IntegerDim sht As Worksheet For i = 2 To Range("a65536").End(xlUp).Row k = 0For Each sht In Sheets If Sheet1.Range("d" & 阅读全文
posted @ 2020-02-15 18:31 紫辰花月 阅读(255) 评论(1) 推荐(0)
程序记时
摘要：sub tim dim t t=timer 语句 msgbox timer-t end sub 阅读全文
posted @ 2020-02-12 11:21 紫辰花月 阅读(122) 评论(0) 推荐(0)
find的应用
摘要：Range("k4") = Range("d:d").Find(Range("j4")).Offset(0, 3） range("d:d").find(range("j4")).offset(0,3).clearcontents '删除找到的内容 sub 查找（） dim rng as range 阅读全文
posted @ 2020-02-12 09:37 紫辰花月 阅读(155) 评论(0) 推荐(0)
把目录下的文件导入一个文件中
摘要：Sub drbg()'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*"For i = 1 To 100' range("a" & 阅读全文
posted @ 2020-02-12 08:54 紫辰花月 阅读(285) 评论(0) 推荐(0)
多文件文件内多表的合并
摘要：Sub dbhb() '多表文件合并'把目录下所有文件名输入表格Dim str As StringDim wb As WorkbookDim sht As Worksheet str = Dir("d:\data\*.*")'可以把文件名改为"*.xls*" For i = 1 To 100' ra 阅读全文
posted @ 2020-02-11 11:50 紫辰花月 阅读(181) 评论(0) 推荐(0)
点击变色
摘要：Private Sub Worksheet_SelectionChange(ByVal Target As Range) '在sheet的表格选择selectionchange 选择改变运行 Cells.Interior.Pattern = xlNone'所有单元格设为无色 Selection.En 阅读全文
posted @ 2020-02-05 21:07 紫辰花月 阅读(163) 评论(0) 推荐(0)
vba的十进制转十以内的各种进制
摘要：Sub stor() 'stor 为十进制转n进制 ’n<10Dim stor, shi As Long stor = "" ‘余数变量初始化为空 n = Range("b3")shi = Range("a3") ’从表格内取值 Do While shi > 0 stor = shi Mod n & 阅读全文
posted @ 2020-02-04 12:37 紫辰花月 阅读(278) 评论(0) 推荐(0)