爱问知识人 爱问教育 医院库

VBA实现画背景色为红色的另一个问题!

首页

VBA实现画背景色为红色的另一个问题!

通过Sheet1.UsedRange.Cells(Sheet1.UsedRange.Count).Address或是ActiveCell.SpecialCells(xlLastCell).Address应该可以得到最后一个单元格的地址。

上次2个问题:
地址1: 
地址2: 


还是附件这个Excel.xls文件,最后一个文件夹应该是F12,我希望实现这种效果:

点A1单元格或是B1单元格,则A1:F1这一段区域背景色变红,变红的末尾只能到最后一个单元格对应上来的那一列,而不是整个第1行全部变红,这点最重要。
点A2单元格,则A2:F2这一区域变红,原来的第1行背景色还原为不填充。

通过Sheet1.U……
提交回答
好评回答
  • 2009-11-16 15:17:25
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    If Intersect(Target, ActiveSheet.UsedRange) Is Nothing Or Target.Count > 1 Then Exit Sub
    Dim a, b As Long
    a = ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Count).Column
    b = ActiveSheet.UsedRange.Cells(1).Column
    Range(Cells(Target.Row, b), Cells(Target.Row, a)).Interior.ColorIndex = 3
    End Sub
    

    1***

    2009-11-16 15:17:25

其他答案

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):