VBA中点击第一列任意单元格,该列此行选中
答案:2 悬赏:10 手机版
解决时间 2021-02-19 17:49
- 提问者网友：风月客
- 2021-02-19 01:26
VBA中点击第一列任意单元格,该列此行选中
最佳答案
- 五星知识达人网友：三千妖杀
- 2021-02-19 02:00
在 ThisWorkbook 中添加事件代码
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
Sh.Rows(Target.Row).Select
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
Sh.Rows(Target.Row).Select
End If
End Sub
全部回答
- 1楼网友：不如潦草
- 2021-02-19 03:19
选中就删除？没有条件吗？
以下代码是单元格事件自动完成。选择单元格就清除数据，删除边框
private sub worksheet_selectionchange(byval target as range)
dim rng as range
set rng = target
rng.clearcontents
rng.borders.linestyle = 0
end sub
以下代码选择单元格或单元格区域后运行此宏即清除数据，删除边框
sub bb()
dim rng as range
set rng = selection
rng.clearcontents
rng.borders.linestyle = 0
end sub
或
sub bb()
with selection
.clearcontents
.borders.linestyle = 0
end with
end sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯