2016/01/11 VBA学习7

1. Application.Intersect 方法 
   返回一个 Range 对象，该对象表示两个或多个区域重叠的矩形区域。

If Not Application.Intersect(Columns("B"), Target) Is Nothing Then

End If

判断目标区域是否和b列有交集，当区域是一个单元格的时候，就是判断这个单元格是否在b列。

1. 2.      清除单元格背景色

Range(“A1”).Interior.ColorIndex = xlNone

1. 3.      写一个让文件每隔一分钟自动保存的模块

Sub oTime()

        ‘这句意思是在当前时间的一分钟后，执行“autoSave”

        Application.OnTime Now() + TimeValue(“00:01:00”), “autoSave”

End Sub

Sub autoSave()

        ThisWorkbook.Save

        Call oTime

End Sub

在ThisWorkbook模块中加入如下代码：

Private Sub Workbook_Open()

        Call oTime  ‘打开工作簿后自动运行oTime过程

End Sub

哈哈，是不是比想象的要简单

 

1. 4.      InputBox函数

InputBox函数创建一个接受用户输入的对话框，供用户输入数据。

a= InputBox(prompt:=”请输入姓名”, Title:=”操作提示”, Default:=”张姣”, xpos:=2000, ypos:=2500)

 参数说明：(编写时参数名可以省略，这里为了方便说明)

Prompt：对话框上提示的文字

Title：对话框的标题，省略默认显示“Microsoft Excel”

Default: 默认输入值，省略默认为空

Xpos: 对话框左端距屏幕左端距离，省略默认为水平居中

Ypos：对话框顶端距屏幕顶端距离，省略默认为屏幕三分之一置

效果如下图

 

1. 5.      Application的InputBox方法

testStr = Application.InputBox(prompt:=”请输入姓名”, Title:=”操作提示”, Default:=”张姣”, left:=2500,top:=2500)

参数介绍：（名称同样可以省略）

Prompt，Title， Default和InputBox函数是一样的，而left和top分别是距离工作簿左端和顶端的距离。

1. 6.      InputBox函数和InputBox方法的区别

InputBox函数只能返回一个String类型的字符串，而InputBox方法返回的数据类型不确定，InputBox方法比InputBox函数多一个Type参数，用来指定返回的数据类型。

另外如果返回值是多种中的一种，type参数可以用多种参数值的和来设置，比如

Application.InputBox(“请输入：“，type=1+2) 或

Application.InputBox(“请输入：“，type=3)

这代表输入框返回的值可以是数字或文本。

 

1. 7.      MsgBox函数

MsgBox是弹出提示框，相当于js中的alert，但是要多出一些设定，如下简单说明

Yn = MsgBox(prompt:=”是否更新A1单元格内容？”, Buttons:=vbYesNo+vbQuestion+vbDefaultButton2)

例子中的prompt不用解释了，后面buttons的设定我们来说明一下

首先buttons参数可以设定多种参数，参数之间用”+”号连接，例子中就是设定了3种参数：

1. vbYesNo: 这个参数说明弹出框中包含两个按钮，分别是“是“和”否

2. vbQuestion: 这个参数说明弹出框的图标是提问类型的，就是下图中的那个问号

3.  vbDefaultButton2: 这个参数是设定默认缺省按钮的，vbDefaultButton2表示设定第二个按钮，也就是按钮“否“为缺省按钮。

下面是按钮设定参数的对照表以及效果

8.      MsgBox的返回值