Excel 怎么设置 选中一个单元格后,整行/整列的颜色都变化
12个回答
展开全部
Dim I As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If I = 0 Then I = 1
Rows(I).Interior.Pattern = xlNone
I = Target.Row
Rows(I).Interior.Color = vbGreen
Rows(I).Font.ColorIndex = vbBlack
End Sub
Private Sub Worksheet_Activate()
Dim I As Long
I = Date
With Application.WorksheetFunction
If .CountIf(Range("A:A"), I) Then
Cells(.Match(I, Range("A:A"), 0), 1).Select
End If
End With
End Sub
以上代码移除后字体显示为黑色,选中单元格后,整行背景色变为绿色。且切换回工作表时,自动定位到当前日期行,目前我自己在用,搜索资料时看到了,就将代码贴上来,希望采纳
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If I = 0 Then I = 1
Rows(I).Interior.Pattern = xlNone
I = Target.Row
Rows(I).Interior.Color = vbGreen
Rows(I).Font.ColorIndex = vbBlack
End Sub
Private Sub Worksheet_Activate()
Dim I As Long
I = Date
With Application.WorksheetFunction
If .CountIf(Range("A:A"), I) Then
Cells(.Match(I, Range("A:A"), 0), 1).Select
End If
End With
End Sub
以上代码移除后字体显示为黑色,选中单元格后,整行背景色变为绿色。且切换回工作表时,自动定位到当前日期行,目前我自己在用,搜索资料时看到了,就将代码贴上来,希望采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
我是2010版本的,ALT+F11跳转至VB编辑界面,在该sheet模块中复制下列代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Interior.ColorIndex = 0
x = ActiveCell.Row
Rows(x).Interior.ColorIndex = 24 '淡蓝色
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Interior.ColorIndex = 0
x = ActiveCell.Row
Rows(x).Interior.ColorIndex = 24 '淡蓝色
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
选中第一行(标题行),数据>筛选>自动筛选,在姓名列中选“赵云”,这样仅显示所有赵云的行,选中这些数据复制就行。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用VBA代码能轻易做到。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询