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   

来张效果图更直接!

定位

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

分享到: