[已解决]VAB语言中怎么样做到间隔选取单元格

shujing417

多列不相邻的单元格选取，在VBA中怎么样描述？比如下面的，那是选定的一个大区域，我想把它改成选C、F、K三列变化。就麻烦各位高手了，先谢谢了。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myselect As Range
             cell = ActiveCell.Value
             Set myselect = Range("A1:IV101")
             myselect.FormatConditions.Delete
   
             myselect.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
                 Formula1:=cell
             myselect.FormatConditions(1).Font.ColorIndex = 3
End Sub

[此贴子已经被作者于2009-11-12 18:09:37编辑过]

最佳答案

月排行榜 / 总排行榜

wayy

2009-11-12 18:20

这样试一下，如果不行把要求写一下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myselect As Range
             cell = ActiveCell.Value
             Set myselect = Range("C1:C65536, F1:F65536,K1:K65536")
             myselect.FormatConditions.Delete
   
             myselect.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
                 Formula1:=cell
             myselect.FormatConditions(1).Font.ColorIndex = 3
End Sub

跳转到最佳答案楼层

wayy

这样试一下，如果不行把要求写一下。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myselect As Range
             cell = ActiveCell.Value
             Set myselect = Range("C1:C65536, F1:F65536,K1:K65536")
             myselect.FormatConditions.Delete
   
             myselect.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
                 Formula1:=cell
             myselect.FormatConditions(1).Font.ColorIndex = 3
End Sub

想等吻赢

Set myselect = Range("A1:IV101，A3:IV444，A:A")[em01]

shujing417

谢谢朋友的帮忙哈，我的问题在2楼的帮助下，完全解决了！！！[em23][em17]

[此贴子已经被作者于2009-11-13 22:19:56编辑过]