文章分类 - VBA
摘要：对于合并单元格这里提供”从上到下“和“从下到上”合并单元格两种方式，”从上到下“的方法需要记录当前列有多少个相同的单元格和判断相应的单元格是否是合并单元格，过程相对来说繁琐一些，“从下到上”的方法则相对简单一些 ，代码量相对来说也比较少。1.”从上到下“的方法 Sub 从上到下合并单元格()'Dim
阅读全文
摘要：继续学习！ '单元格合并 Sub h1() Range("g1:h3").Merge ' End Sub '合并区域的返回信息 Sub h2() Range("e1") = Range("b3").MergeArea.Address '返回单元格所在的合并单元格区域 End Sub '判断是否含合并
阅读全文
摘要：四、Range操作4.2取得最后一个非空单元格xlDown/xlToRight/xlToLeft/xlUp Dim ERow as LongErow=Range("A" & Rows.Count).End(xlUp).Row124.3 复制单元格区域注意：使用PasteSpecial方法时指定xlP
阅读全文
摘要：1.激活单元格 Range("w11").Activate 2.给单元格添加批注 range("w11").AddComment"添加批注" 3.将单元格文本的对齐方式设置为等距分布 Range("w11").AddIndent = ture 4.取单元格地址 MsgBox Range("w11")
阅读全文
摘要：1 与range对象位置有关的属性 （1）range.row : 该Range左上角单元格的行号 （2）range.column:该range左上角单元格的列号 （3）range.address : 该range各个对角顶点的绝对引用地址$ 注意：当range包含多个矩形区域的时候，row和colu
阅读全文
摘要：excel最大行列数总结：在 Excel 2010 和 Excel 2007 中，工作表的大小为 16,384 列 × 1,048,576 行在 Excel 97-2003 中，工作表的大小为 256 列 × 65,536 行。超出最大行列数单元格中的数据将会丢失。 Excel2003版最大行数是6
阅读全文
摘要：Rows.Count 显示所有行的数目Columns.Count 显示所有列的数目Cells(Rows.Count, 1).End(xlUp).Row 显示第一列从下面数第一个有值的单元格的行号Cells(1, Columns.Count).End(xlToLeft).Column 显示第一行从右面
阅读全文
摘要：1 与range对象位置有关的属性 （1）range.row : 该Range左上角单元格的行号 （2）range.column:该range左上角单元格的列号 （3）range.address : 该range各个对角顶点的绝对引用地址$ 注意：当range包含多个矩形区域的时候，row和colu
阅读全文
摘要：1. 激活工作表 Active Dim ws As Worksheet Set ws = Application.WorkBooks(1).Worksheets(2) ws.Activate激活了第一个工作簿的Sheet2 2. 复制工作表 Copy([before], [after]) 将当前工作
阅读全文
摘要：Workbooks对象是Microsoft Excel 应用程序中当前打开的所有 Workbook 对象的集合。有close、add、open等方法。 Workbooks.close ' ↑ 关闭所有打开的工作簿。 Workbooks.Add ' ↑ 创建一个新工作簿。 Workbooks.open
阅读全文
摘要：简明Excel VBA 本文集同步于GitHub仓库：# Youchien/concise-excel-vba 5.2 打开Excel两种方式 利用 GetObject 方法打开Excel文档 Sub GetWorkbook() Dim wbWorkFile As Workbook Set wbWo
阅读全文
摘要：一、对象模型 在VBE中“帮助（H）”——“Microsoft Visual Basic 帮助（H） F1”——“Visual Basic 语言参考”——“函数” 或者在VBE下快捷键“F1” 地址：https://docs.microsoft.com/zh-cn/office/vba/api/ov
阅读全文
摘要：Range对象代表工作表中的单元格或单元格区域，包含在worksheet对象中。 引用Range： 直接写清楚哪个工作簿下的哪个表格下的哪个单元格即可。o(￣▽￣)d Worksheets(“sheet1”).Range(“D3”).select 可以选中区域：Range(“A1:D3”).sele
阅读全文
摘要：【Cells属性】 Cells属性用于返回一个Range对象，表示工作表中所有的单元格，包括已经使用的单元格和未使用的单元格。 【代码区域】 Sub 使用Cells属性() '声明变量 Dim wk As Workbook Dim wt As Worksheet '赋值 Set wk = Appli
阅读全文
摘要：1. Cells 表示一个Range对象, 默认无参数时代表整个工作表的所有单元格 Dim allCells As range Dim ws As Worksheet Set ws = Application.ActiveWorkbook.ActiveSheet Set allCells = ws.
阅读全文
摘要：WorkSheet和workSheets的关系：workSheet是单个工作表，workSheets是指定工作簿中所有工作表的集合。 对象名称与工作表名称：每个工作表都有两个名，工作表名或者标签名称即看到的工作表的名称，如“sheet1”、“工资表”，对象名称或者代码名称，一般只为“sheet1”，
阅读全文
摘要：rivate Sub cmdTest_Click() Dim lngValue As Integer lngValue = Val(txtValue) '将文本转换为数字 Select Case lngValue Case 1 '一个变量的判断 lblTip.Caption = "变量为1" Cas
阅读全文
摘要：'如果一定要使用zhidaoSELECT CASE，建议这样写版 Select Case Range("a1") Case Is < 0: MsgBox "z" Case 0 To 10: MsgBox "a" Case 11 To 15: MsgBox "b" Case 16 To 20:&#
阅读全文
摘要：为了避免难以弄清的复杂的嵌套的If语句，你可以使用Select Case语句代替。它的语法为： Select Case 测试表达式 Case 表达式1 如果表达式1匹配测试表达式的语句 Case 表达式2 如果表达式2匹配测试表达式的语句 Case 表达式N 如果表达式N匹配测试表达式的语句 Cas
阅读全文
摘要：Select Case语句也是条件语句之一，而且是功能最强大的条件语句。它主要用于多条件判断，而且其条件设置灵活、方便，在工作中使用频率极高。本节介绍Select Case语句的语法及应用案例．Select Case语句的语法如下：Select Case testexpression[Case ex
阅读全文
浙公网安备 33010602011771号