技巧篇：常用的vba代码汇总

模块1：生成workbook下的目录

Attribute VB_Name = "Basic"
Option ExplicitSub Generate_Content_General()Application.ScreenUpdating = False
'第一部分：声明基础变量
Dim sht As Worksheet
Dim sht_content As Worksheet
Dim wk As WorkbookSet wk = ThisWorkbook
Set sht_content = wk.Sheets("目录")
With sht_content.Cells(2, 2).Value = "目录".Offset(0, 1) = "超链接"
End With'第二部分：超链接
Dim i, j, k
Dim zstr, ystr, xstrj = 2
i = 2
Do While i < wk.Sheets.CountSet sht = wk.Sheets(i)If sht.Name <> "目录" And sht.Visible = -1 ThenWith sht_content.Cells(j + 1, 2).Value = sht.Namesht_content.Hyperlinks.Add .Offset(0, 1), Address:="", SubAddress:="'" & sht.Name & "'!a1", TextToDisplay:="点击链接表"'逆向链接过程j = j + 1End WithEnd Ifi = i + 1
LoopWith sht_content.Range("b:c").Columns.AutoFit.Font.Size = 12
End WithApplication.ScreenUpdating = True
End Sub

模块2：移动目录到第一个位置

Sub move_sheet_index()Dim wb As Workbook
Dim sht As Worksheet
Dim dht As Worksheet
Dim i
Dim sheet_name
Dim indexSet wb = ThisWorkbook
Set sht = wb.Sheets("目录")For i = 2 To 38sheet_name = sht.Cells(i, 2)index = sht.Cells(i, 7)wb.Sheets(sheet_name).Move After:=Sheets(i - 1)NextEnd Sub

模块3：更新目录

Sub Update_Content()Application.ScreenUpdating = FalseDim wk As Workbook
Dim sht_content As WorksheetSet wk = ThisWorkbook
Set sht_content = wk.Sheets("目录")sht_content.Range("b:c").ClearContentsCall Generate_Content_GeneralApplication.ScreenUpdating = TrueEnd Sub

模块4：取消隐藏单元格

Sub Cancel_Hidden()Dim sht As Worksheet
For Each sht In Sheetssht.Visible = xlSheetVisibleNextEnd Sub

模块5：删除workbook下的代码模块

Sub 删除代码()   '这个程序要在标准的Moudle模块中
Dim i, icon
Dim vbc As Object
Dim wk As Workbook
Dim sht As Worksheet
Dim arrSet wk = ThisWorkbook
Set sht = wk.Sheets("Draft")
icon = wk.VBProject.VBComponents.Count
ReDim arr(1 To icon, 2)
For i = 1 To iconIf i > icon Then Exit ForSet vbc = wk.VBProject.VBComponents(i)
'    arr(i, 0) = i
'    arr(i, 1) = vbc.Name
'    arr(i, 2) = vbc.TypeIf vbc.Type = 1 And vbc.Name <> "Delete_Model" And vbc.Name <> "Func" ThenWith Application.VBE.ActiveVBProject.VBComponents.Remove .Item(vbc.Name) '删除模块、类模块、窗体End Withi = i - 1icon = icon - 1End If
Next'sht.[a1].Resize(UBound(arr, 1), UBound(arr, 2) + 1) = arrEnd Sub

模块6：vba中用sql模块

Function exe_sql(ds, sql As String)Dim conn As Object
Dim spath$
Dim i As Integer, j, k%, t As Integer, Trow%, Tcolumn%
Dim columns, data
Dim rst As ObjectSet conn = CreateObject("adodb.connection")
Set rst = CreateObject("adodb.recordset")conn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;imex=1';data source= " & dsIf sql = "" ThenMsgBox "请输入SQL语句"Exit Function
Elserst.Open sql, conn, 3i = rst.Fields.CountReDim columns(1 To i)' 记录获取的列名For k = 1 To icolumns(k) = rst.Fields(k - 1).NameNextIf rst.RecordCount > 0 Then j = rst.RecordCountReDim data(1 To j, 1 To i)t = 1Do While rst.EOF = FalseFor k = 1 To iIf Not IsNull(rst.Fields(k - 1)) Thendata(t, k) = rst.Fields(k - 1).ValueEnd IfNextrst.movenextt = t + 1LoopEnd Ifexe_sql = Array(columns, data)End Function

模块7：通用的一些function


Function Extract(sql As String, f As String)'#@@ 拽数，并返回数组
Dim cnn As Object, rst As Object
Dim r_arr, arr
Dim i, j
'#@@@@# 大前提
On Error GoTo Err_Handle
If sql = "" Then Extract = 0: Exit Function
'#@@@@# 正常执行Set cnn = CreateObject("adodb.connection")Set rst = CreateObject("adodb.recordset")
'    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=YES';data source=" & fcnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & f
'    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;imex=1';data source= " & f
'#  imex=1 数据导入模式'rst = cnn.Execute(sql) | rng.copyfromrecordset rst | rst.fields.count | rst.recordcountrst.Open sql, cnn, 3i = rst.RecordCountIf i <> "" And i >= 1 Then arr = rst.getrows(): rst.movefirstIf Not IsArray(arr) Then Extract = Array("无记录"): Exit FunctionReDim r_arr(UBound(arr, 2) + 1, UBound(arr, 1))i = rst.Fields.Count'#@@@@# 这里属于标题部分For j = 1 To ir_arr(0, j - 1) = rst.Fields(j - 1).NameNextrst.movefirstrst.Close:    cnn.CloseSet rst = Nothing:    Set cnn = Nothing'#@@@@# 二维转换For j = 0 To UBound(arr, 2)For i = 0 To UBound(arr)r_arr(j + 1, i) = arr(i, j)NextNextExtract = r_arr'Debug.Print "Over"Exit Function
'#@@@@# 错误提醒,on error resume next,on error goto err_handle,on error goto line,on error goto 0
Err_Handle:Extract = Err.DescriptionEnd FunctionFunction Extract_Origin(sql As String, f As String)'#@@ 拽数，并返回数组
Dim cnn As Object, rst As Object
Dim r_arr, arr
Dim i, j
'#@@@@# 大前提
On Error GoTo Err_Handle
If sql = "" Then Extract_Origin = 0: Exit Function
'#@@@@# 正常执行Set cnn = CreateObject("adodb.connection")Set rst = CreateObject("adodb.recordset")
'    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;HDR=YES';data source=" & fcnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & f
'    cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties='excel 12.0;imex=1';data source= " & f
'#  imex=1 数据导入模式'rst = cnn.Execute(sql) | rng.copyfromrecordset rst | rst.fields.count | rst.recordcountrst.Open sql, cnn, 3If rst.RecordCount > 0 Thenarr = rst.getrowsReDim r_arr(UBound(arr, 2), UBound(arr, 1))For j = 0 To UBound(arr, 2)For i = 0 To UBound(arr)r_arr(j, i) = arr(i, j)NextNextElser_arr = 0End IfExtract_Origin = r_arrrst.Closecnn.CloseSet rst = NothingSet cnn = Nothing'Debug.Print "Over"Exit Function
'#@@@@# 错误提醒,on error resume next,on error goto err_handle,on error goto line,on error goto 0
Err_Handle:Extract_Origin = Err.DescriptionEnd FunctionFunction CheckWkOpen(ByVal f)Dim tk As Workbook
Dim statusstatus = 0
For Each tk In WorkbooksIf StrComp(f, "book1.xls", 1) = 0 ThenMsgBox f & " is open"Application.Windows(f).Visible = TrueWorkbooks(f).Close Falsestatus = 1End If
NextEnd FunctionFunction CheckFile(spath)Dim fso As ObjectSet fso = CreateObject("scripting.filesystemobject")CheckExists = fso.fileexists(spath)End FunctionFunction CheckTable(wk As Workbook, zstr As String)Dim sht As Worksheet
Dim status
For Each sht In wk.SheetsIf sht.Name = zstr Thenstatus = 1Exit ForElsestatus = 0End If
NextCheckTable = statusEnd FunctionSub tt()ActiveWorkbook.RemovePersonalInformation = FalseEnd SubFunction 拽数(sql As String, f As String)
'@@拽数，并返回数组
Dim cnn As Object, rst As Object
Dim r_arr, arr
Dim i, jSet cnn = CreateObject("adodb.connection")Set rst = CreateObject("adodb.recordset")cnn.Open "provider=microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source= " & fOn Error GoTo Err_Handlerst.Open sql, cnn, 3i = rst.RecordCountIf i <> "" And i >= 1 Then arr = rst.getrows(): rst.movefirstReDim r_arr(UBound(arr, 2) + 1, UBound(arr, 1))i = rst.Fields.CountFor j = 1 To ir_arr(0, j - 1) = rst.Fields(j - 1).NameNextrst.movefirstrst.Closecnn.CloseSet rst = NothingSet cnn = NothingFor j = 0 To UBound(arr, 2)For i = 0 To UBound(arr)r_arr(j + 1, i) = arr(i, j)NextNext拽数 = r_arrSet rst = NothingSet cnn = NothingExit Function
Err_Handle:Debug.Print Err.Description
End Function

模块8：vba自动生成图表

Attribute VB_Name = "Generate_Chart"
Option Explicit'=======================================下面为VBA自动生成部分=======================================
Sub Chart_Initial(C_row As Integer, C_column As Integer, ChartName As String, C_width As Integer, C_height)'C_row,C_Column 存放行列位置,ChartName 存放表,C_width C_height 存放大小Dim XTitle, YTitle
Dim Crng As Range, Xrng As Range, rng As Range
Dim sht As Worksheet, wb1 As Workbook
Dim MyChart As ChartObject
Dim R1, C, zstrSet wb1 = ThisWorkbook
Set sht = wb1.Sheets("ChartData")R1 = sht.ChartObjects.CountIf R1 > 0 ThenFor Each C In sht.ChartObjectszstr = C.NameIf zstr = ChartName Then C.DeleteNext
End If'第一部分：创建一个新的图表Object事件
Set rng = sht.Cells(C_row, C_column)
Set MyChart = sht.ChartObjects.Add(rng.Left, rng.Offset(1, 0).Top, rng.Width * C_width, rng.Height * C_height)
With MyChart.Name = ChartName
End With'第二部分：设置图表区格式
With MyChart.chart.ChartArea.Font.Name = "宋体".Font.Size = 8.Font.ColorIndex = xlAutomatic.Border.LineStyle = 0.Interior.ColorIndex = xlAutomatic  '图表区填充
End With'第三部分：设置绘图区格式
With MyChart.chart.PlotArea.Border.ColorIndex = 15.Border.Weight = xlThin
'        .Border.LineStyle = xlDot.Border.LineStyle = xlDot.Interior.ColorIndex = xlNone   '绘图区填充
End With'第五部分：设置图表标题
MyChart.chart.HasTitle = True
With MyChart.chart.ChartTitle.Text = "<p>string</p>".Font.Name = "宋体".Font.Bold = True.Font.Size = 9.Top = 0
End WithEnd SubSub Chart_FillData(MyChart As ChartObject, SerieName As String, Xrng As Range, Yrng As Range)With MyChart.chartDim nsSet ns = .SeriesCollection.NewSeriesns.Values = XrngIf Not Yrng Is Nothing Then ns.XValues = Yrngns.Name = SerieName
End With
End SubSub Chart_FinalStyle(MyChart As ChartObject)With MyChart.chart
'        .ChartTitle.Left = (myChart.Chart.ChartArea.Width / 2) - (myChart.Chart.ChartTitle.Width / 2)
End WithEnd SubSub Chart_Axes(MyChart As ChartObject)MyChart.chart.Axes(xlValue).HasMajorGridlines = True
With MyChart.chart.Axes(xlValue).MajorGridlines.Border.ColorIndex = 15.Weight = xlHairline.LineStyle = xlDot
End WithEnd SubSub Chart_SeriesPoint(MyChart As ChartObject, S1)Dim ms As SeriesCollection
MyChart.Activate
ActiveChart.SeriesCollection(1).Points(S1).Select
With Selection.Format.Fill.Visible = msoTrue.ForeColor.ObjectThemeColor = msoThemeColorAccent2.ForeColor.TintAndShade = 0
'        .ForeColor.Brightness = 0   '透明度设置 0.400000006=40%.Transparency = 0.Solid
End With
End SubSub Chart_Transmit(ChartName As String, Gsht As Worksheet)Dim C As ChartObject
Set C = Gsht.ChartObjects(ChartName)With Gsht.Shapes(ChartName).Fill.ForeColor.RGB = RGB(63, 74, 92)
'            .TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 255)
'            .Line.ForeColor.RGB = RGB(255, 0, 0)
'            .Line.ForeColor.ObjectThemeColor = msoThemeColorBackground1
End With
With C.chart.ChartArea.Font.ColorIndex = 2.Border.ColorIndex = 2
End With
C.CopyPicture Appearance:=xlPrinter, Format:=xlPicture
'        C.Chart.Export C.Name & ".JPG"  '导出到文件路径文件夹
End SubSub ChartToPicture(ChartName As String, Gsht As Worksheet, Grng As Range)
Dim C As ChartObject
Gsht.Select
Set C = Gsht.ChartObjects(ChartName)
C.Copy
Grng.Select
Gsht.PasteSpecial Format:="图片(JPEG)"
Call ShapeCheck("P" & ChartName, Gsht)
Selection.Name = "P" & ChartName
C.Delete
End SubSub ChartCheck(ChartName As String, Gsht As Worksheet)Dim R1, zstr
Dim C As ChartObjectR1 = Gsht.ChartObjects.CountIf R1 > 0 ThenFor Each C In Gsht.ChartObjectszstr = C.NameIf zstr = ChartName Then C.DeleteNext
End IfEnd SubSub ShapeCheck(ShapeName As String, Gsht As Worksheet)Dim R1, zstr
Dim s As Shape
R1 = Gsht.Shapes.CountIf R1 > 0 ThenFor Each s In Gsht.Shapeszstr = s.NameIf zstr = ShapeName Then s.DeleteNext
End If
End Sub'Sub Chart_XY_Axes()'第六部分：设置X\Y轴
'myChart.Chart.Axes(xlCategory, xlPrimary).HasTitle = True   'XlCategory是X轴
'mychart.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "X轴标题"
'With myChart.Chart.Axes(xlCategory, xlPrimary)
'            .CrossesAt = 0
'            .TickLabelSpacing = 1
'            .TickMarkSpacing = 1
'            .AxisBetweenCategories = True
'            .ReversePlotOrder = False
'End With
'myChart.Chart.Axes(xlValue, xlPrimary).HasTitle = True      'xlValue是Y轴
'myChart.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "项目数"    '
'myChart.Chart.SetElement (msoElementPrimaryValueAxisTitleHorizontal)
'With myChart.Chart.Axes(xlValue, xlPrimary)
'            .MinimumScale = 0   '最小值
'            .MaximumScale = 10     '最大值
'            .MajorUnit = 2    '主要间距
'            .MinorUnit = xlAutomatic    '次要间距
'            .CrossesAt = 0      '坐标轴的交叉点
'            .ReversePlotOrder = False
'            .ScaleType = xlLinear
'End With'第八部分：调整对比point的颜色
'Dim ms As SeriesCollection
'Set ms = myChart.Chart.SeriesCollection(1).points(1)
'End Sub

模块9：实现自动分级分组

Option ExplicitSub group_by()Application.ScreenUpdating = FalseDim sh_0 As Worksheet
Dim sh_1 As WorksheetCall loading_dataSet sh_0 = ThisWorkbook.Sheets("res")Set sh_1 = ThisWorkbook.Sheets("structure")With sh_1With .Cells.Clear.Font.Size = 9.VerticalAlignment = xlCenter.RowHeight = 16.25End With.SelectWith .Rows(1).Font.Bold = True.RowHeight = 22.75End Withsh_0.Range("a:e").Copy.Range("a1").PasteSpecial (xlPasteValues)End WithCall meltCall group
Application.ScreenUpdating = TrueEnd SubSub loading_data()Dim sql$
Dim spath$
Dim arr
Dim sht As WorksheetSet sht = ThisWorkbook.Sheets("res")spath = ThisWorkbook.FullNamesql = "select tb_sort,表名,业务,按业务分类,指标数 from("sql = sql + "Select tb_sort,表名,业务,按业务分类,count(1) as 指标数 ,b_sort,bc_sort from [indicator $] "sql = sql + "group by tb_sort,表名,业务,按业务分类,b_sort,bc_sort "sql = sql + "order by tb_sort ,b_sort,bc_sort) "arr = Extract(sql, spath)With sht.Cells.Clear.Range("A1").Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arrEnd WithEnd SubSub melt()Dim nr, nc
Dim sh As WorksheetSet sh = ThisWorkbook.Sheets("structure")nc = sh.UsedRange.Columns.Countsh.Cells.ClearOutlinesh.Range("a1:e1").Interior.Color = RGB(255, 217, 102)Dim i, j, k
Dim ini_str, tmp_str
Dim tmp_c, tmp_end
Dim tmp_arraytmp_array = Array(1, 3)'    tmp_array = Array(4)j = LBound(tmp_array)Do While j <= UBound(tmp_array)tmp_c = tmp_array(j)i = 2Select Case tmp_cCase Is < 3:nr = sh.UsedRange.Rows.CountDo While i <= nrIf i = 2 Thenini_str = sh.Cells(i, tmp_c)With sh.Rows(i + 1).Insert Shift:=xlDownsh.Cells(i + 1, tmp_c + 2) = sh.Cells(i, tmp_c + 2)sh.Cells(i + 1, tmp_c + 3) = sh.Cells(i, tmp_c + 3)sh.Cells(i + 1, tmp_c + 4) = sh.Cells(i, tmp_c + 4)sh.Range(Cells(i, tmp_c + 2), Cells(i, tmp_c + 4)).ClearEnd Withnr = nr + 1i = i + 1Elsetmp_str = sh.Cells(i, tmp_c)If tmp_str = ini_str Thensh.Range(Cells(i, tmp_c), Cells(i, tmp_c + 1)).ClearElseini_str = tmp_strWith sh.Rows(i + 1).Insert Shift:=xlDownsh.Cells(i + 1, tmp_c + 2) = sh.Cells(i, tmp_c + 2)sh.Cells(i + 1, tmp_c + 3) = sh.Cells(i, tmp_c + 3)sh.Cells(i + 1, tmp_c + 4) = sh.Cells(i, tmp_c + 4)sh.Range(Cells(i, tmp_c + 2), Cells(i, tmp_c + 4)).ClearEnd Withnr = nr + 1i = i + 1End IfEnd Ifi = i + 1LoopCase Else:nr = sh.UsedRange.Rows.CountFor k = 2 To nrIf sh.Cells(k, tmp_c - 1) <> "" Theni = k + 1With sh.Cells(i, tmp_c)ini_str = .ValueIf .Offset(1, 0) = "" Thentmp_end = iElsetmp_end = .End(xlDown).RowEnd IfEnd WithDo While i <= tmp_endtmp_str = sh.Cells(i, tmp_c)If tmp_str = ini_str And i = k + 1 ThenWith sh.Rows(i + 1).Insert Shift:=xlDownsh.Cells(i + 1, tmp_c + 1) = sh.Cells(i, tmp_c + 1)sh.Cells(i + 1, tmp_c + 2) = sh.Cells(i, tmp_c + 2)sh.Range(Cells(i, tmp_c + 1), Cells(i, tmp_c + 2)).ClearEnd Withi = i + 1nr = nr + 1tmp_end = tmp_end + 1ElseIf tmp_str = ini_str Thensh.Cells(i, tmp_c).ClearElseIf tmp_str <> "" Thenini_str = tmp_strWith sh.Rows(i + 1).Insert Shift:=xlDownsh.Cells(i + 1, tmp_c + 1) = sh.Cells(i, tmp_c + 1)sh.Cells(i + 1, tmp_c + 2) = sh.Cells(i, tmp_c + 2)sh.Range(Cells(i, tmp_c + 1), Cells(i, tmp_c + 2)).ClearEnd Withnr = nr + 1i = i + 1tmp_end = tmp_end + 1End IfEnd IfEnd Ifi = i + 1Loopk = i - 1End IfNextEnd Selectj = j + 1Loop
End SubSub group()Dim sht As Worksheet
Dim row_start%, row_end%
Dim target_columnSet sht = Sheets("structure")row_start = 2target_column = "D"
'    row_end = sht.Cells(1048576, target_column).End(xlUp).Row + 1row_end = sht.UsedRange.Rows.Countsht.Cells.ClearOutlineDim i
Dim refer_row%i = row_startrefer_row = row_startDo While i <= row_endIf Cells(i, 1) <> "" ThenWith Range(Cells(i, 1), Cells(i, 5)).Interior.Color = RGB(208, 206, 206).Font.Color = RGB(0, 0, 0).Font.Bold = TrueWith .Borders(xlEdgeTop).LineStyle = xlDash.Color = RGB(166, 166, 166)End WithWith .Borders(xlEdgeBottom).LineStyle = xlDash.Color = RGB(166, 166, 166)End WithEnd WithEnd IfIf Cells(i, 3) <> "" ThenWith Range(Cells(i, 3), Cells(i, 5)).Interior.Color = RGB(255, 242, 204).Font.Color = RGB(0, 0, 0).Font.Bold = TrueWith .Borders(xlEdgeTop).LineStyle = xlDash.Color = RGB(191, 191, 191)End WithWith .Borders(xlEdgeBottom).LineStyle = xlDash.Color = RGB(191, 191, 191)End WithEnd WithEnd IfIf Cells(i, 4) <> "" ThenWith Range(Cells(i, 4), Cells(i, 5)).Interior.Color = RGB(255, 242, 204).Font.Color = RGB(0, 0, 0).Font.Bold = TrueWith .Borders(xlEdgeTop).LineStyle = xlDash.Color = RGB(191, 191, 191)End WithWith .Borders(xlEdgeBottom).LineStyle = xlDash.Color = RGB(191, 191, 191)End WithEnd WithEnd IfIf Cells(i, 5) <> "" ThenWith Range(Cells(i, 5), Cells(i, 5))With .Borders(xlEdgeTop).LineStyle = xlDash.Color = RGB(128, 128, 128)End WithWith .Borders(xlEdgeBottom).LineStyle = xlDash.Color = RGB(128, 128, 128)End WithEnd WithEnd IfIf Cells(i, 1) = "" Then Rows(i).groupi = i + 1LoopFor i = row_start To row_endIf Cells(i, 2) = "" And Cells(i, 3) = "" ThenRows(i).groupEnd IfNext'    For i = row_start To row_end
'        If Cells(i, 3) = "" And Cells(i, 4) = "" Then
'            Rows(i).group
'        End If
'    NextEnd Sub

技巧篇：常用的vba代码汇总相关推荐

技巧篇：常用的R代码汇总
技巧篇:常用的R代码汇总模块1:Xpath的一些练习 #install.packages("rvest") #install.packages("xlsx") ...
技巧篇：常用的python代码汇总
一些常用的python代码合集,方便检索引用模块1:读写excel文件 from datetime import datetime import odps import xlwt import os ...
分享个人收集或整理的word中常用的vba代码
在word中通过VBA编写一些常用的函数,再利用快捷键激发,可以有效的提高写作的效率.以下分享个人通过网络收集,或者改造,或者自己录制后修改的代码,有需要的可以自取. 因为已经记不清有些代码的出处了, ...
40个常用的CSS代码汇总
1.清除浮动主要为子元素浮动(float)之后,父元素无法撑起高度和宽度. <div class="clear"> <im ...
python popen函数讲解_Python常用模块函数代码汇总解析
一.文件和目录操作创建.删除.修改.拼接.获取当前目录.遍历目录下的文件.获取文件大小.修改日期.判断文件是否存在等.略二.日期和时间(内置模块:time.datatime.calendar) 1 ...
access vba代码大全_这本VBA经典图书终于做活动了，还是5折！
HI~大家好.记得之前一直给大家推荐咱们EH论坛编著的VBA图书<Excel VBA经典代码应用大全>,这书出来有段时间了,但一直未见出有力的优惠活动.这次京东破天荒出了个5折,而且是没有 ...
datetimepicker控件怎么改变hover颜色_VBA入门课程，ActiveX控件系列知识，复合框的属性与常见VBA代码...
前面的几篇图文,咱们讲了关于VBA二次开发的一些控件,这次咱们继续说一个控件.combobox控件,中文的翻译名叫做复合框.在这里咱们要与checkbox做一个区分,combobox是复合框,而che ...
（2021年）IT技术分享社区个人文章汇总（电脑技巧篇）
2021年即将成为过去,崭新的2022年即将到来,小编坚持每天给大家分享IT技术相关的文章,希望小编分享的文章能够给大家在日常的工作当中,带来一点帮助.也感谢大家对本公众号的支持,未来我会坚持创作,给 ...
vba代码编程800例_VBA编程常用“积木”过程代码Address的含义
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,今日继续和大家分享 ...
vba代码编程800例_一组实用的VBA常用编程代码语句分享
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...

技巧篇：常用的vba代码汇总

技巧篇：常用的vba代码汇总

模块1：生成workbook下的目录

模块2：移动目录到第一个位置

模块3：更新目录

模块4：取消隐藏单元格

模块5：删除workbook下的代码模块

模块6：vba中用sql模块

模块7：通用的一些function

模块8：vba自动生成图表

模块9：实现自动分级分组

技巧篇：常用的vba代码汇总相关推荐

最新文章

热门文章