VBA定位单元格位置

• VBA • 8 条评论 • •8,303 次查阅
定位单元格
我们在修改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

      感谢支持~嘿