![](https://img-blog.csdnimg.cn/20201014180756916.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
VBA
B2_F22
这个作者很懒,什么都没留下…
展开
-
VBA禁止更改工作表名称
'VBA禁止更改工作表名称Private Sub workbook_sheetselectionchange(ByVal sh As Object, ByVal target As Range) If Sheet16.Name <> "数据" Then Sheet16.Name = "数据" ThisWorkbook.SaveEnd Sub原创 2021-05-22 14:40:29 · 878 阅读 · 0 评论 -
VBA批量导入多个文件夹下的图片到PPT
1.需要导入到PPT的照片文件夹CodingSub InsertPicture()Dim oPPT As PresentationDim oSlide As SlideDim nSlide As ByteDim oCL As CustomLayoutDim Shp As ShapeDim myFileDim filearr()Dim filearr0()Dim myPath As StringDim sPath As StringDim FileName As String原创 2021-05-16 09:44:50 · 1305 阅读 · 1 评论 -
13-3 合并内容相同的连续单元格
Sub MergeLinkedCells() Dim r as Integer Dim i as integer Application.DisplayAlerts = False With Sheet1 r = .cells(row.count,1).end(xlup).row for i = r to 2 step-1 if .cells(i,2).value = .cells(i-1,2).value then .range(.cells(i-1,2),.cells(i,原创 2021-04-26 16:46:50 · 96 阅读 · 0 评论 -
13-2 合并单元格时连接每个单元格的文本
Sub Mergecells6() Dim MergeStr As String Dim MergeRng As Range Dim rng As Range Set MergeRng = Range("a1:b10") For Each rng In MergeRng MergeStr = MergeStr & rng & " " Next Application.DisplayAlerts = False M原创 2021-04-26 16:30:54 · 89 阅读 · 0 评论 -
1-5 使用Resize属性返回调整后的单元格区域
sub RngResize() sheets("sheet1").range("a1").resize(4,4).SelectEnd sub原创 2021-04-24 08:32:54 · 267 阅读 · 0 评论 -
1-4 使用Offset属性返回单元格区域
sub RngOffset() sheets("sheet1").range("a1:b2").offset(2,2).selectend sub原创 2021-04-24 08:32:14 · 388 阅读 · 0 评论 -
1-3 使用快捷记号实现快速输入
sub FastMark() [a1] = "Excel 2007"end sub原创 2021-04-24 08:31:37 · 74 阅读 · 0 评论 -
1-2 使用Cells属性引用单元格区域
sub Mycell() dim i as byte for i = 1 to 10 sheets("sheet1").cells(i,1).value = i nextEnd sub原创 2021-04-24 08:30:52 · 576 阅读 · 0 评论 -
1-1 使用Range属性引用单元格区域
sub MyRng() range("a1:b4,d5:e8").select range("a1").formula = "=Rnd()" range("a1:b4 b2:c6").value = 10 range("a1","b4").font.italic = Trueend sub原创 2021-04-24 08:28:26 · 621 阅读 · 0 评论 -
11-3 判断单元格公式是否存在错误
sub CellFormulaIsWrong() if IsError(range("a1").value) = true then msgbox "a1 单元格错误类型为:" & range("a1").text Else MsgBox "a1 单元格公式结果为:" & range("a1").value end ifEnd Sub原创 2021-04-24 08:21:36 · 181 阅读 · 0 评论 -
如何使用VBA进行多表汇总
Sub 如何使用VBA进行多表汇总() Dim AdoConn As New ADODB.Connection Dim AdoRst As ADODB.Recordset Dim strConn As String Dim strSQL As String Application.ScreenUpdating = False '设置连接字符串 strConn = " Provider=Microsoft.ACE.OLEDB.12.0;" &原创 2021-01-17 21:12:52 · 2077 阅读 · 1 评论 -
EXCEL连接IBM AS400抓取数据
Sub LoadDataromAS400()Application.ScreenUpdating = FalseSet Db = New Connection Db.CursorLocation = adUseClient If Db.State = 1 Then Db.Close Db.Open "Provider =IBMDASQL.DataSource.1" & _ ";Catalog Library List=JDETSTDTA" & _原创 2020-12-05 13:00:06 · 475 阅读 · 0 评论