1.使用Selection对象引用当前选择的单元格或范围: ```vba Dim selectedRange As Range Set selectedRange = Selection ``` 2.使用Selection对象读取或修改选择的单元格的值: ```vba '读取选择的单元格的值 Dim selectedValue As Variant selectedValue = Selection.Value '修改选择的单元格的值 Selection.Value = ...
Selection.Value=Name Selection.Offset(0,1).Value =performanceMsgBox("输入成功")End Sub 7.使用If-Then-Else-End If实现分支 SubCalcPrize() y= Range("D6").End(xlDown).RowForx =7ToyIfRange("E"& x).Value >=2000ThenRange("F"& x).Value =10000ElseRange("F"& x).Value =0EndIfNextEnd...
'下面的代码表示在选中的单元格中输入100 Selection.Value = 100 '下面的代码表示在当前激活的单元格输入200 ActiveCell = 200 End Sub
本文将介绍Excel VBA中Selection对象的常见用法。 1.基本概念 在Excel中,我们经常需要对选定的单元格或区域进行操作。Selection对象表示当前选定的单元格、区域或对象。通过Selection对象,我们可以获得选定的内容、设置选定范围的格式、进行数据操作等。 2.访问Selection对象 要访问Selection对象,可以使用下面的语法: ``` ...
1 首先需要进入到vbaproject模式下，进行操作，打开EXCEL表格后，在sheet1的子表格中点击鼠标右键，如下图所示：2 点击右键后，找到查看代码，如下图所示：3 点击查看代码后，就会看到如下图所示的界面：方法/步骤2 1 接下来就是需要找到SelectionChange事件，在代码的窗体中，如下图所示，选择下拉菜单中的Worksheet...
'1 表示一个单元格(a1) Sub s() Range("a1").Select Cells(1, 1).Select Range("A" & 1).Select Cells(1, "A").Select Cells(1).Select [a1].Select End Sub '2 表示相邻单元格区域 Sub d() '选取单元格a1:c5 ' Range("a1:c5").Select ...
Worksheets("Sheet1").Cells(6,1).Value = 10 用Rows或Columns属性引用行列 用括号 [ ]引用单元格和区域 用Offset相对其他单元格来引用单元格 用Selection属性引用活动区域 (1) Range(“A” & i) (2) Range(“A” & i & “:C” & i)
VBA代码如下：Sub RC()R=Selection.rows.row ActiveSheet.Range("a1).Value =R '选择单元格的第一行行号 送入A1 C=Selection.Columns.Column ActiveSheet.Range("a2").Value =C '选择单元格的第一列列号 送入A2 End Sub
'累赘Sheets("Sheet1").ActivateRange("A1").SelectSelection.Value="IamGod"Selection.NumberFormat="@"'改成下面这样,不但快一点, 还直观WithSheets("Sheet1").Range("A1").Value="Blah".NumberFormat="@"EndWith Copy直接可以用 Range(a).Value=Range(b).Value, 如果Value不是日期,还可以用value2代替 ...
要选择区域中第几行第同列的单元格也和工作表一样，如表示选定区域的第2行第2列，可以用Selection.Cells(2,2)，也可以用Selection.Range("B2")。示例代码：Sub gvntw() With Selection.Range("B2") .Value = "我是选区的B2" .Font.Color = vbRed .Interior.Color = vbYellow...