VBA定位单元格位置

定位单元格
我们在修改Excel表格时,当表格的构成有很多列和行组成时,定位起来有些麻烦。
为什么?
太多的行列在鼠标定位的时候容易看花眼,造成上下行列定位误差,有没有能方便定位的呢?
有!代码来了:
 
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
  2. Dim icolor As Integer   
  3. On Error Resume Next   
  4. Cells.Interior.ColorIndex = xlColorIndexNone   
  5. icolor = Int(50 * Rnd() + 3)   
  6. Target.EntireRow.Interior.ColorIndex = icolor   
  7. Target.EntireColumn.Interior.ColorIndex = icolor   
  8. End Sub   

来张效果图更直接!

定位

哈哈~是不是很直观~交叉处就是我们选中的单元格!此代码会随机变色!自己尝试变色的效果吧~

分享到:

8 条评论

注意: 评论者允许使用'@user空格'的方式将自己的评论通知另外评论者。例如, ABC是本文的评论者之一,则使用'@ABC '(不包括单引号)将会自动将您的评论发送给ABC。使用'@all ',将会将评论发送给之前所有其它评论者。请务必注意user必须和评论者名相匹配(大小写一致)。

昵称
  1. 深圳男科医院

    不太好看 哈哈哈

  2. 郑州白癜风

    有可以直达快乐的捷径么。

  3. 碎语人生

    过来学习了,分享快乐。

    1. Kael.Z

      对了,那千里香发芽了没~??

  4. 无锡网站优化

    太专业乐,看不懂,,

    1. Kael.Z

      只是皮毛吧~

  5. 电商圈

    过来,支持下!

    1. Kael.Z

      感谢支持~嘿