[已解决]VBA实现与单元格A1相同个数

vbyou127

VBA实现与单元格A1相同个数

最佳答案

月排行榜 / 总排行榜

wp8680

2016-2-29 09:40

VBA实现与单元格A1相同个数.rar (6.93 KB, 下载次数: 6)

2016-2-29 09:40 上传

点击文件名下载附件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Dim RG As Range, RGS As Range, R As Range, I%
    Set RG = ActiveCell
    Set RGS = Target
    For Each R In RGS
        If R = RG Then
        R.Interior.ColorIndex = 3
        I = I + 1
        End If
    Next R
    MsgBox I
End Sub

跳转到最佳答案楼层

wp8680

VBA实现与单元格A1相同个数.rar (6.93 KB, 下载次数: 6)

2016-2-29 09:40 上传

点击文件名下载附件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
    Dim RG As Range, RGS As Range, R As Range, I%
    Set RG = ActiveCell
    Set RGS = Target
    For Each R In RGS
        If R = RG Then
        R.Interior.ColorIndex = 3
        I = I + 1
        End If
    Next R
    MsgBox I
End Sub

vbyou127

wp8680 发表于 2016-2-29 09:40
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
  ...

你是否误解题意，这个是什么?

wp8680

vbyou127 发表于 2016-2-29 10:26
你是否误解题意，这个是什么?

误解了，你就不要理我了。是你提问，如果你的提问让明白产生的误解，说明你的提问表述需要改进。而我是读取信息理解的，如果脑子僵化而不能很透彻地理解的问题，花再多遍去阅读还是理解不了的。

vbyou127

wp8680 发表于 2016-2-29 10:56
误解了，你就不要理我了。是你提问，如果你的提问让明白产生的误解，说明你的提问表述需要改进。而我是读 ...

书上抄下来，不关我的问题

vbyou127

wp8680 发表于 2016-2-29 10:56
误解了，你就不要理我了。是你提问，如果你的提问让明白产生的误解，说明你的提问表述需要改进。而我是读 ...

把A1：D10与A1相同数值的所有单元格，自动选择出来
你这个明显示是自动选择

vbyou127

wp8680 发表于 2016-2-29 09:40
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = 0
  ...

就这个，你用第二种方法




Sub s()
    Dim c As Range, rg As Range
    t = [a1]
    Set rg = [a1]
    For Each c In [a1:d10]
        If c = t Then
            k = k + 1
            Set rg = Application.Union(rg, c)
        End If
    Next
    rg.Select
    MsgBox k
End Sub