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:对话框顶端距屏幕顶端距离,省略默认为屏幕三分之一置

效果如下图

211506_OKvW_2609444.png

 

  1. 5.      ApplicationInputBox方法

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

参数介绍:(名称同样可以省略)

PromptTitle DefaultInputBox函数是一样的,而lefttop分别是距离工作簿左端和顶端的距离。

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

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

211624_p358_2609444.png

另外如果返回值是多种中的一种,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表示设定第二个按钮,也就是按钮为缺省按钮。

211829_Jj9X_2609444.png

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

211944_S64j_2609444.png

211945_oQM2_2609444.png

211945_HjRy_2609444.png

211946_tH8N_2609444.png

211946_lABs_2609444.png

8.      MsgBox的返回值

212203_zmwA_2609444.png

转载于:https://my.oschina.net/u/2609444/blog/600944

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值