职称计算机手机看课
您的位置:职业培训教育网  > 职称计算机 > 复习指导 > 复习资料 > 正文

用VBA按Excel2003单元格格式查找

2009-02-19 15:36  来源: 纠错 打印 收藏   

  在 Excel2003 版,查找的功能多了一个按 单元格 的格式来查找符合条件的单元格,指定格式的方法是,单击查找对话框中的“选项”,展开后单击“格式”,在“查找格式”对话框中进行设定或选择包含格式的单元格。比如我们要搜索合并的单元格,就可以在对齐选卡中把 合并 的单元格中选上。

  而在 VBA 中,我们怎么来完成呢?通过 录制宏 ,可以发现我们并不能录到任何代码,而在Find对应的VBA帮助中,我们也只能找到一条相关的信息:

  SearchFormat Variant 类型,可选。搜索的格式。

  而没有其它相关的信息与相关的实例!那下面我们就以上面查找合并单元格的例子,看怎么用VBA来选择当前工作表中的所有合并单元格。

  Sub FindFormatDemo()

  Dim SRan As Range

  Dim TRan As Range

  Dim URan As Range

  Dim TStr As String

  Set SRan = ActiveSheet.UsedRange

  '设置要查找的单元格格式类型的搜索条件为合并单元格类型。

  Application.FindFormat.MergeCells = True

  Set TRan = SRan.Find(What:="", After:=SRan.Item(1), SearchDirection:=xlNext, SearchFormat:=True)

  If TRan Is Nothing Then

  MsgBox "当前工作表中没有合并单元格!", , "提示 - http://wwww.Excelba.com"

  Else

  Set URan = TRan

  TStr = TRan.Address

  Do

  Set TRan = SRan.Find(What:="", After:=TRan, SearchDirection:=xlPrevious, SearchFormat:=True)

  If Not TRan Is Nothing And TRan.Address TStr Then

  Set URan = Union(URan, TRan)

  Else

  Exit Do

  End If

  Loop

  URan.Select

  MsgBox Selection.Address, , "合并单元格地址: - http://wwww.excelba.com"

  End If

  End Sub

  要注意的是,如果你要直接返回合并单元格,而不是选择后再返回选择的地址,上面的代码要作一下修改!

  Sub FindFormatDemo()

  Dim SRan As Range

  Dim TRan As Range

  Dim URan As Range

  Dim TStr As String

  Set SRan = ActiveSheet.UsedRange

  '设置要查找的单元格格式类型的搜索条件为合并单元格类型。

  Application.FindFormat.MergeCells = True

  Set TRan = SRan.Find(What:="", After:=SRan.Item(1), SearchDirection:=xlNext, SearchFormat:=True)

  If TRan Is Nothing Then

  MsgBox "当前工作表中没有合并单元格!", , "提示 - http://wwww.Excelba.com"

  Else

  Set URan = TRan.MergeArea

  TStr = TRan.Address

  Do

  Set TRan = SRan.Find(What:="", After:=TRan, SearchDirection:=xlPrevious, SearchFormat:=True)

  If Not TRan Is Nothing And TRan.Address TStr Then

  Set URan = Union(URan, TRan.MergeArea)

  Else

  Exit Do

  End If

  Loop

  URan.Select

  MsgBox URan.Address, , "合并单元格地址: - http://wwww.excelba.com"

  End If

  End Sub


2016年职称计算机考试网上辅导
课程名称
老师/课时数/免费试听
价格
购买课程
中文Windows WIN7操作系统
100元
中文Windows XP操作系统
100元
Word 2003中文字处理
100元
Excel 2003中文电子表格
100元
PowerPoint 2003中文演示文稿
100元
Word 2007中文字处理
100元
Excel 2007中文电子表格
100元
PowerPoint 2007中文演示文稿
100元
金山演示2005
100元
Internet应用(XP)
100元
Internet应用(Win7)
100元
Photoshop 6.0图像处理
100元
Flash MX 2004动画制作
100元
Access 2000数据库管理系统
100元
WPS Office办公组合中文字处理
100元
金山文字2005
100元
金山表格2005
100元
FrontPage 2000网页制作
100元
Dreamweaver MX 2004网页制作
100元
AutoCAD2004制图软件
100元
Authorware 7.0多媒体制作
100元
Visual Foxpro 5.0数据库管理系统
100元
Photoshop CS4图像处理
100元
Project 2000项目管理
100元
用友财务(U8)软件
100元
用友财务(T3)会计信息化软件
100元
Frontpage 2003网页制作
100元
相关资讯:
网站导航:
职业培训教育网                    更多>>
 经 济 师 指南 动态 查分 试题 复习  职 称 英 语 指南 动态 查分 试题 复习
 职称计算机 指南 动态 查分 试题 复习  招 标 师 指南 动态 查分 试题 复习
 公 务 员 指南 动态 查分 试题 复习  人力资源管理 指南 动态 查分 试题 复习
 教师资格 指南 动态 查分 试题 复习  农村信用社 指南 动态 查分 试题 复习
 公共营养师 指南 动态 查分 试题 复习  心理咨询师 指南 动态 查分 试题 复习
一级消防师 指南 动态 查分 试题 复习 二级消防师 指南 动态 查分 试题 复习

·考试简介 ·报名条件 ·考试科目 ·免考条件
·考试时间 ·考试证书 ·成绩查询 ·指定教材
·合格标准 ·证书期限 ·职称英语

  • 视频课程
按教材章节体系全面讲解,
帮助考生掌握知识点、夯实基础。
视频课程

  

真实环境模拟;
紧扣最新大纲;
免费试用,终身升级;
题库及时更新;
版权声明
  1、凡本网注明 “来源:职业培训教育网”的所有作品,版权均属职业培训教育网所有,未经本网授权不得转载、链接、转贴或以其他方式使用;已经本网授权的,应在授权范围内使用,且必须注明“来源:职业培训教育网”。违反上述声明者,本网将追究其法律责任。
  2、本网部分资料为网上搜集转载,均尽力标明作者和出处。对于本网刊载作品涉及版权等问题的,请作者与本网站联系,本网站核实确认后会尽快予以处理。
  本网转载之作品,并不意味着认同该作品的观点或真实性。如其他媒体、网站或个人转载使用,请与著作权人联系,并自负法律责任。
  3、本网站欢迎积极投稿
  4、联系方式:
编辑信箱:chinatat@chinatat.com
电话:010-82333888