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行背景色还原为不填充。
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
是附件里的这样的吗?
问:怎样用Camtasia Studio v2.0.3来制作媒体
答:这个软件有使用向导的,你新建一个文件,然后照着他的说明一步一步的走下去,就知道怎么用了,这个软件太小了,网上跟本找不到教程的,如果你确实还是不会的话,找个懂电脑...详情>>