作者:乔山办公网日期:
返回目录:excel表格制作
如果是非活动工作表,他肯百定不会有选中的单元格.换言之 选中单元格一定是度在活动工作表中.因为application.selection一定是在活动工问作表中.
你可以使用如答
worksheets(2).range("a5")=1000
,这样去更改非活动工作表sheet2的a5单元格的值.
或者使用如
Worksheets(2).Range("a5").Interior.ColorIndex = 6
去更改非活动工作表的内A5单元格的颜色
具体你要进行什么操作看容情况选择,进一步说明情况才能有人帮到你
Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.Resize(1, 8).Select
End Sub
这是选择当前选中单元格同copy行的八个单元格,包括原来百的当度前单元格
如果不包括原来的单元格
代码修改如下知
Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.offset(,1).Resize(1, 8).Select
End Sub
如果是按当前单元格向右第道8个单元格
Sub test()
Dim Rng As Range
Set Rng = Selection
Rng.offset(, 8).Select
End Sub
如果是固定H列,代码如下
Sub test()
Dim i%
i = Selection.Row
Cells(i, 8).Select
End Sub
或直接用
Sub test()
Cells(Selection.Row, 8).Select
End Sub
这样?
知" class="ikqb_img_alink">
代码道如下
Sub 宏3()
With Selection.Offset(0, 1).Resize(1, 5)
.HorizontalAlignment = xlCenter
.Value = 8
End With
End Sub
然后在视图-宏-查看宏-选项里设置快捷键
设置快捷键时内需输入小写的q,否容则快捷键会变成ctrl+shift+Q
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox "你选中了百:" & Target.Row & "列标为:" & Target.Column
MsgBox Target.Address 'ADDRESS能显示单元格度绝对地址
End Sub
给你个思路,把上面代码复制到表的知VBE中,回到道表中点击任一单元格试试,祝你玩VBA玩得开心,想要版用好还是打好权基础的好