2019年1月13日
VBA 工作簿
摘要： Sub gongzuobu() Dim wb As Workbook Set wb = Workbooks("工作簿1.xltm") ' 打开某个工作簿 Set wb = Workbooks(1) '打开第一个工作簿 Set wb = ActiveWorkbook '打开活动工作簿 Set wb = ThisWorkbook '打开代码所在工作簿 MsgBox... 阅读全文
posted @ 2019-01-13 19:51 queqiaoshui 阅读(215) 评论(0) 推荐(0)
VBA 工作簿一些用法
摘要： Sub gongzuobu() Dim my_path As String Dim wb As Workbook Dim num As Integer Set wb = Workbooks("工作簿1.xltm") '建立工作簿对象 Set wb = Workbooks(1) Set wb = ActiveWorkbook Set wb = ThisWorkbook 'MsgBox wb.Na... 阅读全文
posted @ 2019-01-13 15:11 queqiaoshui 阅读(364) 评论(0) 推荐(0)
VBA instr 函数
摘要： sub demo() dim x as integer x = instr (1, "abcedfg","f") '从第一个位置开始查找"f"在"abcdefg"中位置，此时返回6 if instr(1, "abcedfg","f") then '如果条件为真，则执行以下语句 阅读全文
posted @ 2019-01-13 09:13 queqiaoshui 阅读(1886) 评论(0) 推荐(0)
VBA 用for each 给当前工作簿的所有工作表改名，常用集合
摘要： Sub demo45() Dim ws As Worksheet ‘把ws 定义为一个工作表对象 For Each ws In Worksheets '用for each 遍历对象集合 ws.Name = "哈哈" & ws.Name ’改名 Next End Sub 阅读全文
posted @ 2019-01-13 08:53 queqiaoshui 阅读(2260) 评论(0) 推荐(0)
VBA 获取当前时间的月份天数
摘要： Sub huoquqiqi() Dim g_year As Integer Dim g_month As Integer Dim g_days As Integer g_year = Year(Now) '时间函数，获取当前时间的年份 g_month = Month(Now) If g_month = 2 Then '当二月份时，判断当前年份是否为闰年 If g_year... 阅读全文
posted @ 2019-01-13 08:35 queqiaoshui 阅读(7928) 评论(0) 推荐(0)