上一页 1 ··· 3 4 5 6 7
摘要: Sub Main()Set d = CreateObject("scripting.dictionary")arr = ActiveSheet.Range("a1").CurrentRegionFor x = 2 To UBound(arr)d(arr(x, 2)) = arr(x, 3)Nexta 阅读全文
posted @ 2022-11-17 20:30 依云科技 阅读(30) 评论(0) 推荐(0)
摘要: Public row_abPublic row_cdPublic ar_titlePublic r_new_shtPublic sname'Public k'Public k1 Private Sub deleteSheet()Application.DisplayAlerts = FalseFor 阅读全文
posted @ 2022-11-17 20:29 依云科技 阅读(135) 评论(0) 推荐(0)
摘要: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Call UFItemsSelect.ClearListboxValueIf Target.Column = 14 ThenIf Targ 阅读全文
posted @ 2022-11-17 20:27 依云科技 阅读(56) 评论(0) 推荐(0)
摘要: Private Sub CommandButton1_Click()With Sheets("科目表")If .Range("b2:b" & .[b65536].End(3).Row).Find(treeWorking.SelectedItem.Text) Is Nothing ThenActive 阅读全文
posted @ 2022-11-17 20:23 依云科技 阅读(47) 评论(0) 推荐(0)
摘要: Public d, dIsExistsSub Main()Dim arr(1 To 80000)With Me.Cells.Interior.ColorIndex = 0r = .Cells(.Rows.Count, 1).End(xlUp).RowFor x = 1 To rFor y = x + 阅读全文
posted @ 2022-11-17 20:18 依云科技 阅读(20) 评论(0) 推荐(0)
摘要: Private Sub CommandButton1_Click()Dim Myn1, Myn2On Error Resume NextApplication.ScreenUpdating = False '关闭屏幕刷新'If Dir("E:\课表数据", vbDirectory) = "" The 阅读全文
posted @ 2022-11-17 20:16 依云科技 阅读(311) 评论(0) 推荐(0)
摘要: Public ar_Source As VariantSub Main()With Sheets("Source")lastrow = .Cells(.Rows.Count, 1).End(xlUp).Rowar_Source = .Range("b4:f" & lastrow)Call setco 阅读全文
posted @ 2022-11-17 20:13 依云科技 阅读(101) 评论(0) 推荐(0)
摘要: Sub Main()Dim arExtendAfter()With Me ar = .Range("a1").CurrentRegionReDim arExtendAfter(1 To UBound(ar), 1 To 20)For x = 2 To UBound(ar)If Len(ar(x, 1 阅读全文
posted @ 2022-11-17 20:10 依云科技 阅读(94) 评论(0) 推荐(0)
摘要: Sub main()Dim ar_source As VariantDim ar_excel_4_个人客户支付委托书(1 To 8) As VariantWith Sheets("Sheet1") ar_source = .Range("a1").CurrentRegion ar_excel_4_个 阅读全文
posted @ 2022-11-17 20:05 依云科技 阅读(503) 评论(0) 推荐(0)
上一页 1 ··· 3 4 5 6 7