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

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)

“去除〞按钮