vba编程题库

1、编一个VBA程序，将Word当前文档中光标右边的大写字母转换为小写字母。 Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend

n= Asc(Selection.Text) If n >= 65 And n <= 90 Then Selection.TypeText Text:=Chr(n + 32) Else

Selection.MoveRight Unit:=wdCharacter, Count:=1 End If

2、 编一个VBA程序，在Word当前文档中按顺序输入26个英文字母。

For i = Asc("a") To Asc("z") Selection.TypeTextText:=Chr(i) Next

3、新建一个窗体，放置两个按钮和一个文字框控件。按钮的标题分别定义为“显示”和“清除”。单击“显示”按钮，在文字框中显示一行文字，单击“清除”按钮，清除文字框中的文字。①进入VBA编辑环境，打开“工程资源管理器”窗口，插入一个用户窗体。

②在窗体上放置两个命令按钮和一个文字框。

③右击命令按钮,选“属性”，设置Caption属性值为“显示”、“清除”。

④双击“显示”命令按钮，输入如下代码：

Me.TextBox1.SetFocus Me.TextBox1.Text = "你好！欢迎学习VBA"

⑤双击“清除”命令按钮，编写代码如下：

Me.TextBox1.Text = ""

⑥双击用户窗体，为其Activate事件编写如下代码：

Me.Caption = "欢迎！

4、假设某文件夹有20个属性相同、命名有规律（比如：pic01.gif、pic02.gif、 、pic20.gif）的图片文件，现在要依次放入PowerPoint幻灯片中，并调整为合适的格式。，①录制宏 —— 输入标题、插入图形、调整格式。

②加工录制的程序。设置路径、循环、使用变量。

③运行程序。

5、编写一个自定义函数，根据“工资及津贴”数额求出应缴纳党费的比例。

Function df(x) Select Case x Case Is <= 400 y = 0.005 Case Is <= 800 y = 0.01 Case Is <= 1200 y = 0.015 Case Is <= 1500 y = 0.02 Case Else y = 0.03 End Select df = y End Function

6、用递归方法编写一个函数，求n的阶乘。 Function fact(n) If n = 1 Then fact = 1 Else

fact = n * fact(n - 1) End If End Function 7、要想在Excel工作簿的任意一个单元格中输入数字“1”后，自动替换为符号“√”， 建立Excel工作簿，进入VB编辑环境，对ThisWorkbook的SheetChange事件编写如下程序：

Private Sub

Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Target.Value = "1" Then Target.Value = "√" End Sub

8、在Word中，要想用快捷键执行宏的方式快速将某一字符变为上角标录制新宏，设置快捷键，进行宏录制。选中字符，在“字体”窗口的“效果”栏中选中“上标”，停止录制宏。 光标定在字符左边，按快捷键，即可转换为上角标。

9、假设Excel当前工作表的A列是应参加会议人员名单，要求当每个与会人员报道时，在其姓名右边的单元格（B列）单击鼠标，自动填入当前日期和时间。

建立Excel工作簿，进入VBA编辑环境，对WorkSheet的SelectionChange事件编写如：PrivateSubWorksheet_SelectionChange(ByVal Target As Range)

col_s = Target.Column If col_s = "B" Then Target.Value=Format(Now,"yyyy-mm-dd hh:mm:ss") End If End Sub

10、假设在Excel工作表中已经建立一个“XX高校教师信息表”。 进入VBA编辑环境，在当前工程中插入一个模块，建立如下自定义函数：Function age(id As String)id = Trim(id) If Len(id) = 18 Then age = Year(Date) - Val(Mid(id, 7, 4))

Elseage = Year(Date) - Val("19" + Mid(id, 7, 2)) End If

第1页下一页