摘要:
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)