<script type="text/javascript"><!--
google_ad_client = "pub-0241434510974184";
/* 博客文章广告728x90, */
google_ad_slot = "7316585398";
google_ad_width = 728;
google_ad_height = 90;
// --></script><script src="http://pagead2.googlesyndication.com/pagead/show_ads.js" type="text/javascript"></script>
1.excel建立表格。
如图:
2.sheet上面点反键加入vba代码:
'ActiveCell.Row ‘活动单元格所在的行数
'ActiveCell.Column ‘活动单元格所在的列数
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call ChangActiveCellColor
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
'MsgBox ("回车2")
'MsgBox Target.Cells.Address
'MsgBox Range(Target.Cells.Address)
Dim I As Integer
If Sheet1.Range("A" & ActiveCell.Row - 1).Value <> "" Then
For I = 2 To ActiveCell.Row - 2
'Range("A" & I) = I
'MsgBox Range("A" & I)
If Sheet1.Range("A" & ActiveCell.Row - 1).Value = Sheet1.Range("A" & I).Value Then
'Range(Target.Cells.Address).Interior.Color = RGB(255, 0, 0)
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 0, 0) '红
GoTo con
Else
'Range(Target.Cells.Address).Interior.Color = RGB(255, 255, 255)
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 255, 255) '白
End If
Next
Else '判断改为空格之后点击回车
Sheet1.Range("A" & ActiveCell.Row - 1).Interior.Color = RGB(255, 255, 255) '白
End If
End If
con:
End Sub
Private Sub ChangActiveCellColor()
'MsgBox Target.Cells.Address
'MsgBox Range(Target.Cells.Address)
Dim I As Integer
If ActiveCell.Value <> "" Then
For I = 2 To ActiveCell.Row - 1
'Range("A" & I) = I
'MsgBox Range("A" & I)
If ActiveCell.Value = Sheet1.Range("A" & I).Value Then
'Range(Target.Cells.Address).Interior.Color = RGB(255, 0, 0)
ActiveCell.Interior.Color = RGB(255, 0, 0)
GoTo con
Else
'Range(Target.Cells.Address).Interior.Color = RGB(255, 255, 255)
ActiveCell.Interior.Color = RGB(255, 255, 255)
End If
Next
End If
con:
End Sub
分享到:
相关推荐
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...
22210.3.2 向一个表添加固定值查找列表 22510.4 向表或者查询添加子数据表 22610.4.1 表子数据表 22710.4.2 查询子数据表 22810.5 外连接、自连接和Theta连接 23010.5.1 创建外连接 23010.5.2 创建自连接 23110.5.3 ...