(5)Cells 属性:代表指定单元格区域中的单元格,通过其 Count 属性取得单元格的数量。 Sub region_info() Dim rng1 As Range Set rng1 = ActiveCell.CurrentRegion'活动单元格已经使用的区域 Range("H2") = rng1.Rows.Count,活动单元格最大行数 Range("H3") = rng1.Columns.Count,活动单元格最大列数 Rang...
Application对象常用属性 【ActiveCell属性】 ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。 【代码区域】 Sub 激活单元格() Worksheets("sheet1").Activate '激活当前单元格 With ActiveCell .Value = "娑娜" With .Font .Bold = True '设置为粗体 .Ita...
Range() 是Excel VBA 中的一个函数,用于指定工作表上的一个或多个单元格区域。 ActiveCell.Offset() 是一个方法,用于获取或设置活动单元格相对于其当前位置的偏移量。 优势: 使用Range() 可以精确地选择需要操作的单元格区域,无论是单个单元格还是多个单元格。 ActiveCell.Offset() 允许你在不直接引用特定单...
这个其实很简单。用activecell.address方法取得活动单元格的地址，然后判断地址是否在这个区域中就好。给你...
ActiveCell.CurrenRegion.Select ' 选定活动单元格所在的当前区域。 ListObject对象代表工作表中的表格/列表对象(即在工作表中插入表格后形成的列表)。 ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$B$2"), , xlYes).Name = "表1" ' 将活动工作表中的”A1:B2“区域转化为表格,命名为”表1“ ...
ActiveCell.Value = MyFunction(rng) End Sub Function MyFunction(rng As Range) As Double MyFunction = rng(1) * rng(2) * rng(3) End Function ===学习例子=== 解决问题: 1.inputbox的“取消”按钮的处理 2.取得Application.inputbox选择区域的起止行列号和终止行列号 简单说:求“左上”“...
'在新表的A1、B1分别输入：表名、行数 '选定A1，运行下面的宏 Public Sub hang()For i = 2 To Sheets.Count r = Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row n = Sheets(i).Name ActiveCell.Offset(i, 0) = n ActiveCell.Offset(i, 1) = r Next End Sub ...
ActiveCell.Row表示当前活动单元格所在的行。 1-3 在VBA中可以将A1引用样式或命名区域名称使用方括号括起来,作为Range属性的快捷方式,这样就不必键入单词“Range”或使用引号,如下面的代码所示。 #001 Sub Fastmark() #002[A1:A5] = 2 #003 [Fast] = 4 #004 End Sub 代码解析: Fastmark过程使用快捷记号为单...
Range对 象的End属性返回的是一个Range对象,因此可以直接使用该对象的属 性和方法。 2.取得sheet最后非空行号或非空列号 sheet最后非空行号:Activesheet.UsedRange.rows.count 或ActiveCell.SpecialCells(xlLastCell).Row sheet最后非空列号:Activesheet.UsedRange.columns.count 或ActiveCell.SpecialCells(xlLastCell).Column...
1、Excel VBA常用代码总结1· 改变背景色Range("A1").Interior.ColorIndex = xlNone ColorIndex一览· 改变文字颜色Range("A1").Font.ColorIndex = 1· 获取单元格Cells(1, 2)Range("H7")· 获取范围Range(Cells(2, 3), Cells(4, 5)Range("a1:c3")'用快捷记号引用单元格Worksheets("Sheet1&qu 2、...