[已解决]求解：利用vba取得所选任意区域的非空单元格,越快越好

Dj_soo

不是已经贴出来了,还怎么出示啊啊啊啊?

liuts

Sub aa()

   Dim rg As Range

    Set rg = Application.InputBox("请选择要设置的区域:", Type:=8)

    Union(rg.SpecialCells(xlCellTypeFormulas, 23), rg.SpecialCells(xlCellTypeConstants, 23)).Interior.ColorIndex = 3

End Sub

fjmxwrs

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rg As Range
   
3.     Selection.Interior.ColorIndex = 0
   
4.     For Each rg In Selection
   
5.         If rg.Value <> "" Then rg.Interior.ColorIndex = 3
   
6.     Next rg
   
7. End Sub

复制代码

填充颜色.zip (8.62 KB, 下载次数: 15)

2011-11-25 14:11 上传

点击文件名下载附件

hunpo

liuts出现错误400,fjmxwrs实现了，但是没有DJ的快，谢谢各位掌门了

ZengLH

{:35:}{:35:}{:32:}

Benol

借用Dj_soo的思路，完善一下。

1. Union(Selection.SpecialCells(xlCellTypeFormulas), Selection.SpecialCells(xlCellTypeConstants)).Interior.Color = vbRed

复制代码

完善理由：Dj_soo的思路再去色的那一步会影响其他单元格原有的底色。

hunpo

不错，正解，完善了的更快

lslly

学习            

ddbb2008

这个问题，能不能优化一下代码，整个自定义函数，生成非空单元格的区域，如
（A21:B32，B33，A34:B39）
这样再对区域进行标准差计算，求和计算就方便了