例如,Excel 包括 Range 对象,即单元格对象,使用 VBA 可以改变单元格对象的填充颜色属性。用代码表示如下。 代码语言:javascript 代码运行次数:0 运行 AI代码解释 'A1单元格的填充颜色设置为颜色号为49407的颜色Range("A1").Interior.Color=49407 Range(“A1”)、Interior、Color 等是 Excel 具备的对象和属性; 对...
代码语言:javascript 代码运行次数:0 运行 AI代码解释 Public FunctionCountUsedRows2()CountUsedRows2=ActiveSheet.Cells.Find(What:="*",_LookIn:=xlFormulas,SearchOrder:=xlByRows,_SearchDirection:=xlPrevious).Row End Function
Sub GetAddress() MsgBox "显示所选单元格区域的地址" MsgBox "绝对地址:" & Selection.Address MsgBox "行的绝对地址:" & Selection.Address(RowAbsolute:=False) MsgBox "列的绝对地址:" & Selection.Address(ColumnAbsolute:=False) MsgBox "以R1C1形式显示:" & Selection.Address(ReferenceStyle:=xlR1C1) ...
Sub UpdatePivotTableRange() Dim Data_Sheet As Worksheet Dim Pivot_Sheet As Worksheet Dim StartPoint As Range Dim DataRange As Range Dim PivotName As String Dim NewRange As String Dim LastCol As Long Dim lastRow As Long ' Set Pivot Table & Source Worksheet Set Data_Sheet = ThisWorkbook.Work...
lastRow = GetLastRow(ActiveSheet,1) Debug.Print lastRow arr = Range("a1:b"& lastRow).ValueEndSub 上面代码我们通过Debug.Print语句打印变量lastRow值到立即窗口 前面加问号直接查看 上面代码,我们单步执行的时候,想看前面lastRow变量的值,直接立即窗口输入?lastRow回车,就直接可以查看变量值,也可以这样执行...
接着上期文章,本期要把Range部分讲完。 (一).End 与 获取工作表中最末一行 实际项目中经常要获取目标工作表中非空白最后一行的行号,最简便的方法是 Cells(Rows.Count,col).End(xlUp).Row 其中col 为指定列数。 .End(方向常量) 对应, 按下End键 之后再按下对应方向键的操作 ...
Excel的VBA编程中,很常用到的是通过字符串返回Range的功能,然后进一步对Range操作,这里水文工具集介绍一个实用的VBA Range函数RangeFromAddress,具体源代码如下:01.'=== 02.' VBA中从字符串返回Range 03.' 04.' 05.'=== 06.Function RangeFromAddress...
Destination:=Range(HC7:D7H)End Sub十八、获取单元格行列值(Row属性和Column属性)Sub RangePosition()MsgBox ”显示所选单元格区域的行列值”MsgBox "第 n & Selection Row & ”行 n & Selection.Cohuirn & ”列”End Sub十九、获取单元格区域的单元格数及行列数(Rows属性、Columns属性和Count属性)Sub Get...
4、表事件Target参数的使用方法5520-1使用单元格的Address 属性5520-2使用Column属性和Row属性5620-3使用Intersect方法56第1章 Range(单元格)对象Range对象是Excel应用程序中最常用的对象,一个Range对象代表一个单元格、一行、一列、包含一个或者更多单元格区域(可以是连续的单元格,也可以是不连续的单元格)中选定的单...
scrollarea = end sub - - - - - - - - - - - - - - - - - - - -示例05-28获取单元格的位置(address属性)sub getaddress()msgbox ”显示所选单元格区域的地址msgbox ”绝对地址: & selection。addressmsgbox 行的绝对地址:” selection.address(rowabsolute:=false)msgbox ”列的绝对地址:” ...