[已解决]怎样让B1单元格，自动引用C列中黄色单元格的数值

61kun

问题.rar (2.8 KB, 下载次数: 3)

2012-8-6 22:45 上传

点击文件名下载附件 {:011:}

最佳答案

月排行榜 / 总排行榜

爱疯

2012-8-6 23:47

1. 
   
2. <P>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim x As Range
   
4.     Dim rng As Range
   
5.     Dim s As Integer
   
6. </P>
   
7. <P>    Set rng = Me.Range("c7:c38")
   
8.     If Target.Row > rng.Row - 1 And _
   
9.        Target.Column < rng.Row + rng.Count And _
   
10.        Target.Column = rng.Column Then
    
11. </P>
    
12. <P>        '判断是否只有1个黄色单元格
    
13.         For Each x In rng
    
14.             If x.Interior.ColorIndex = 6 Then
    
15.                 s = s + 1
    
16.                 [b1] = x
    
17.             End If
    
18.         Next x
    
19.         If s <> 1 Then [b1] = ""
    
20. </P>
    
21. <P>    End If
    
22. End Sub</P>

复制代码

问题2.rar (8.44 KB, 下载次数: 2)

2012-8-6 23:45 上传

点击文件名下载附件

如果这样，修改颜色后不能立即改变B1的值，必须重新选择[C7：C38]中的某个值后才变。

跳转到最佳答案楼层

lzclzch

只能用VBA解决，是在工作表激活的时候还是什么时候引用呢
请说明清楚

爱疯

1. 
   
2. <P>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     Dim x As Range
   
4.     Dim rng As Range
   
5.     Dim s As Integer
   
6. </P>
   
7. <P>    Set rng = Me.Range("c7:c38")
   
8.     If Target.Row > rng.Row - 1 And _
   
9.        Target.Column < rng.Row + rng.Count And _
   
10.        Target.Column = rng.Column Then
    
11. </P>
    
12. <P>        '判断是否只有1个黄色单元格
    
13.         For Each x In rng
    
14.             If x.Interior.ColorIndex = 6 Then
    
15.                 s = s + 1
    
16.                 [b1] = x
    
17.             End If
    
18.         Next x
    
19.         If s <> 1 Then [b1] = ""
    
20. </P>
    
21. <P>    End If
    
22. End Sub</P>

复制代码

问题2.rar (8.44 KB, 下载次数: 2)

2012-8-6 23:45 上传

点击文件名下载附件

如果这样，修改颜色后不能立即改变B1的值，必须重新选择[C7：C38]中的某个值后才变。