ExcelVBA实战 - IT编程技术

ExcelVBA实战【第十三期】-获得指定列的最后一个非空单元格行号

2022-4-2 博主：Splendor EXCEL VBA实战

获得指定列的最后一个非空单元格行号需求：有一列数据，用户使用行数不固定，如果你想获取这一列不为空的单元格数据，你就要做到不论使用者怎么追加数据你都可精确的知道这一列最后一个不为空的单元格行号是多少。 Public Sub getLastRow() iLastRow = Range("A" & Rows.Count).End(xlUp).Row MsgBox "A列最后一行是：" & iLastRow End Sub 语法： Rows.Count：是先获取EXCEL里最大的行号,（扩展名是：xls时最大行数为65536，扩...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3914)

ExcelVBA实战【第十二期】-使用Goto方法选定单元格区域

2022-3-6 博主：Splendor EXCEL VBA实战

使用Goto方法选定单元格区域使用Goto方法选定单元格区域，无须使该区域所在的工作表成为活动工作表。代码如下： Public Sub Damo() Application.Goto reference:=Sheets("sheet2").Range("A2:B2"), scroll:=True End Sub 语法： application.Goto(Reference,Scroll) Reference：需要写上你要选中的range单元格，sheet页的对像也必须要一并写上，例：Sheets("sheet2").Range("A2:B2") Sc...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3661)

ExcelVBA实战【第十一期】-选定单元格区域的方法

2022-1-18 博主：Splendor EXCEL VBA实战

选定单元格区域的方法使用Select方法选定单元格区域 Public Sub selectRng() Sheets("sheet1").Activate Sheets("sheet1").Range("B2:D15").Select End Sub 【语法】 range.select 【代码解析】 Select是一个方法，这个方法就像你去选择一个单元格范围这样一个动作 Activate:代表选择Sheet1，使Sheet1为现在你操作的页 Select:在使本方法时，你要选择单元格的表页必须是当前的活动页才能好用【注意】 ...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3536)

ExcelVBA实战【第十期】-使用Resize属性选择区域

2021-11-30 博主：Splendor EXCEL VBA实战

使用Resize属性选择区域 Public Sub Demo() //B3做为起始单元格，并扩展4行5列的范围 Sheets("sheet1").Range("B3").Resize(5, 6).Select End Sub 【语法】 range.Resize(行，列) 【代码解析】 Resize的第一个参数代表你要向下多少行，第二个参数代表，你要向右多少列【Demo文件】 Demo.xlsm

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3593)

ExcelVBA实战【第九期】-使用Offset属性反回单元格区域

2021-11-25 博主：Splendor EXCEL VBA实战

使用Offset属性反回单元格区域 Public Sub Demo() Sheet1.Range("A1:B2").Offset(2, 2).Select //向下偏移两行，向左偏移两列后选中C3:D4单元格范围 End Sub 【代码解析】 Offset是Range对象中的一个属性，表示相对于Range对象的单元格范围进行偏移多少行，多少列语法：表达式.Offset(要偏移的行，要偏移的列) 注：要偏移的行和列可为正数或负数，正数行表示向下，正数列表示向右，负数行表示向上，负数列表示向左。【注】什么时候用offset属性，当我们知道A1：...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3420)

ExcelVBA实战【第八期】-使用快捷记号实现快速记入

2021-11-23 博主：Splendor EXCEL VBA实战

使用快捷记号实现快速记入 Public Sub Demo() [A1] = "apple" //向A1单元格写入 apple End Sub 【代码解析】在VBA中使用[]方括号作为Range属性的快捷记入方式，这样就可以不用输入Range单词和使用Range("A1")中的引号大大提高了代码编写的效率【注】写代码时，大家应该注意代码提高效率的方法，这样可以缩短代码的开发周期和可读性，可读性可以为后续的维护节省时间。个人认为能一句实现绝不两句去写，极简至臻。【Demo文件】 Demo.xlsm

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3374)

ExcelVBA实战【第七期】-使用cells属性引用单元格区域

2021-11-18 博主：Splendor EXCEL VBA实战

使用cells属性引用单元格区域 Public Sub Demo() Dim i As Byte For i = 1 To 10 Sheets("sheet1").Cells(i, 1).Value = i Next End Sub 【代码解析】Demo过程向shee1中A1：A10这个区域单元格依次记入1~10 1，cells(row,column)属性有两个参数，第一个row参数表示所在行，第二个column表示所在列。例：cells(1,2),表示的就是第一行，第二列这个单元格也就是B1单元格和Range的表示方式截然...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3514)

ExcelVBA实战【第六期】-使用Range属性引用单元格区域

2021-11-17 博主：Splendor EXCEL VBA实战

使用Range属性引用单元格区域 Sub Demo() Range("A1:B4,D5:E8").Select Range("A1").Formula = "=Rand()" Range("A2:B4,B2:C6").Value = 10 Range("A1", "B4").Font.Italic = True End Sub 【代码解析】 1，Range("A1:B4,D5:E8"...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3478)

ExcelVBA实战【第五期】-Dll封装-实现选中单元格内批量生成CheckBox控件

2021-8-31 博主：Splendor EXCEL VBA实战

Dll封装-实现选中单元格内批量生成CheckBox控件 (点击图片放大观看) 所有程序附件下载 dll绑定.zip 第一步点击01_install.bat进行安装注册dll 第二步拷贝程序,创建按钮关联程序选中单元格批量添加checkbox Public Sub addCheckBox() Set myobj = CreateObject("mydll.setCheckbox") myobj.AddCheckBoxesInRange End Sub 选中单元格批量删除c...

阅读全文>>

标签: ExcelVBA实战

评论(0) 浏览(3634)