注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

精品资源 仓库

不是精品,我不收藏——好资源 大家共享!

 
 
 

日志

 
 

3-20、SpecialCells定位(按批注汇总)  

2014-05-29 11:05:54|  分类: 【Excel VBA】 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

3-20、SpecialCells定位(按批注汇总) - zibo139 - 学习笔记——备忘录
 

 Range.SpecialCells 方法:

返回一个 Range 对象,该对象代表与指定类型和值匹配的所有单元格。

语法:

表达式.SpecialCells(Type, Value)

表达式   一个代表 Range 对象的变量。

 

XlCellType 常量

注释

xlCellTypeAllFormatConditions

任意格式单元格

-4172

xlCellTypeAllValidation

含有验证条件的单元格

-4174

xlCellTypeBlanks

空单元格

4

xlCellTypeComments

含有注释的单元格

-4144

xlCellTypeConstants

含有常量的单元格

2

xlCellTypeFormulas

含有公式的单元格

-4123

xlCellTypeLastCell

已用区域中的最后一个单元格

11

xlCellTypeSameFormatConditions

含有相同格式的单元格

-4173

xlCellTypeSameValidation

含有相同验证条件的单元格

-4175

xlCellTypeVisible

所有可见单元格

12

XlSpecialCellsValue 常量

注释

xlNumbers

数字

1

xlTextValues

文本

2

xlLogical

逻辑值

4

xlErrors

错误

16

 

 

Sub 批注汇总()

MsgBox Application.Sum(Selection.SpecialCells(-4144))

End Sub

 

如果想在VBE中查看某关键字的帮助,则选中该关键字后按F1

 

7

4

10

8

3

4

4

8

5

7

 

 

 

 

 

9

8

10

10

7

6

2

3

7

5

 

 

 

 

 

4

10

10

4

10

3

2

4

10

8

 

 

 

 

 

10

2

3

5

10

 

 

 

 

 

6

8

8

5

8

7

8

4

10

5

 

Sub 删除空行()

On Error GoTo 100

Selection.SpecialCells(xlCellTypeBlanks).Select

Selection.EntireRow.Delete

Exit Sub

100:

MsgBox "没有空行"

End Sub

  


本文视频教程学习网址 http://www.51zxw.net/study.asp?vip=8662538

 

 

 

  评论这张
 
阅读(75)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017