vba编程题库(最新整理版).pdfVIP

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多

1、编一个VBA程序,将Word⑥双击用户窗体,为其SheetChange事务编写如下程序:

当前文档中光标右边的大写字Activate事务编写如下代码:PrivateSub

母转换为小写字母。Me.Caption=欢送!Workbook_SheetChange(ByVal

Selection.MoveRight4、假设某文件夹有20个属ShAsObject,ByValTargetAs

Unit:=wdCharacter,性一样、命名有规律〔比方:Range)

Count:=1,Extend:=wdExtendpic01.gif、pic02.gif、……、IfTarget.Value=1Then

n=pic20.gif〕的图片文件,现在Target.Value=√

Asc(Selection.Text)要依次放入PowerPoint幻灯片EndSub

Ifn=65Andn=90中,并调整为相宜的格式。,①录8、在Word中,要想用快捷

Then制宏——输入标题、插入图形、键执行宏的方式快速将某一字

Selection.TypeText调整格式。符变为上角标录制新宏,设置快

Text:=Chr(n+32)②加工录制的程序。设置路捷键,进展宏录制。选中字符,

Else径、循环、运用变量。在“字体〞窗口的“效果〞栏中

Selection.MoveRight③运行程序。选中“上标〞,停顿录制宏。

Unit:=wdCharacter,Count:=15、编写一个自定义函数,依据光标定在字符左边,按快捷键,

EndIf“工资及津贴〞数额求出应缴即可转换为上角标。

2、编一个VBA程序,在纳党费的比例。9、假设Excel当前工作表的A

Word当前文档中按依次输入26Functiondf(x)列是应参与会议人员名单,要求

个英文字母。SelectCasex当每个与会人员报道时,在其姓

Fori=Asc(a)ToCaseIs=400名右边的单元格〔B列〕单击鼠

Asc(z)标,自动填入当前日期和时间。

Text:=Chr(i)NextCaseIs=800建立Excel工作簿,进入

3、新建一个窗体,放置两VBA编辑环境,对WorkSheet的

个按钮和一个文字框控件。按钮CaseIs=1200SelectionChange事务编写如:

的标题分别定义为“显示〞和PrivateSubWorksheet_Selecti

“去除〞。单击“显示〞按钮,CaseIs=1500onChange(ByValTargetAs

在文字框中显示一行文字,单击Range)

“去除〞按钮

文档评论(0)

文档爱好者 + 关注
实名认证
文档贡献者

文档爱好者~

1亿VIP精品文档

相关文档