VBA
xlbtlmy
我是小罗
展开
-
VBA之批量添加删除超链接
Private Sub CommandButton1_Click() 'MsgBox Sheet1.UsedRange.Rows.Count & "---" & Sheet2.UsedRange.Rows.Count For i = 1 To 4 For j = 1 To Sheet1.UsedRange.Rows.Count If Sheet1.Cells(i, j) <> "" Then原创 2022-04-24 20:44:03 · 902 阅读 · 0 评论 -
VBA之不打开读写其它路径下的工作簿
Sub test() Dim wb_data, wb_copy As Workbook Dim fn_data, fn_copy As String fn_data = "C:\Users\xlbtlmy\Desktop\VBA\data.xlsx" fn_copy = "C:\Users\xlbtlmy\Desktop\VBA\copy.xlsx" Set wb_data = GetObject(fn_data) Set wb_copy原创 2021-08-20 23:10:47 · 2342 阅读 · 0 评论 -
VBA之计算两个日期之间相差几点几个月
计算选中的Excel单元格中两个日期之间相差几点几个月日期格式如下(起始日期-结束日期): YYYY/MM/DD-YYYY/MM/DDSub CalcMonth() 'I Love you, Baby! Dim BegDate, EndDate, Msg Dim y, m, d, num Dim i, j, cnt, start, over 'B原创 2018-01-30 17:55:51 · 4898 阅读 · 0 评论 -
VBA之ListIndex
Sub ListIndex() Dim rows, columns 'MsgBox ActiveSheet.UsedRange.rows.Count 'MsgBox ActiveSheet.UsedRange.columns.Count For i = 1 To ActiveSheet.UsedRange.rows.Count Set a = C...原创 2018-07-27 19:48:28 · 2450 阅读 · 0 评论