【VBA编程】11.Application对象
Application对象常用属性
【ActiveCell属性】
ActiveCell属性返回一个Range对象,表示当前窗口或指定窗口中的单元格。如果窗口没显示工作表,则此属性无效。
【代码区域】
Sub 激活单元格()
Worksheets("sheet1").Activate '激活当前单元格
With ActiveCell
.Value = "娑娜"
With .Font
.Bold = True '设置为粗体
.Italic = True '设置为斜体
.Size = '设置字体大小
End With
End With
End Sub
【结果展示】
注意:之所以该单词显示于B2,是因为在执行之前我已经将鼠标悬停此处。
【ActiveWorkbook属性】
ActiveWorkbook是一个只读属性,用于返回一个Workbook对象,该对象表示活动窗口中的工作簿
没有打开的窗口或信息窗口或剪贴板窗口作为活动窗口,则返回Nothing
【代码区域】
Sub 测试ActiveWorkbook属性()
Dim obj As Object
Set obj = ActiveWorkbook
Debug.Print CStr(obj.Application.Value)
End Sub
【结果展示】
【Caption属性】
Caption是一个可读写属性,用于设置或返回Microsoft的主窗口标题栏上显示的名称,其返回的是String类型。如果没有为Microsoft的主窗口设置标题,或者将其值设置为Empty,则将此属性返回一个
"Microsoft Excle"作为默认标题
【代码区域】
Sub 更改标题()
Application.Caption = "OLIVER--Excle 2013"
End Sub
【结果展示】
【Range属性】
Range属性返回一个Range对象,表示一个单元格或单元格区域
Range实例地址:http://www.cnblogs.com/OliverQin/p/6198441.html
【Selection属性】
Selection属性表示为Application对象返回在活动窗口中选定对象
【代码区域】
Sub 测试Selection属性()
Worksheets("sheet1").Activate
Range("A1").Select
Selection.Clear '清除sheet1工作表中内容
End Sub
【结果展示】
执行前
执行后
【sheets方法】
sheets属性是一个只读属性,用于返回一个sheets集合,其类型是一个Sheets对象
Sub 测试sheets属性()
Dim wss As Sheets
Dim i As Integer
Application.Workbooks().Activate
Set wss = Application.Sheets
Debug.Print "当前工作簿名称如下:"
Debug.Print
For i = To Sheets.Count
Debug.Print Sheets(i).name
Next
End Sub
【结果展示】
【VBA编程】11.Application对象的更多相关文章
- VBA编程的工程性规划
看过很多人写的VBA代码,一团一团的,一点规划都没有,为了VBA编程更具工程性,这里讨论一下,并列出自己的一些建议:0.给VBA工程定义一个名字,而非直接使用默认的名称——"VBAProje ...
- Excel Application对象应用
Application对象是Excel对象模型中最高层级的对象,代表Excel应用程序自身,也包含组成工作簿的许多部分,包括工作簿.工作表.单元格集合以及它们包含的数据. Application对象包 ...
- 使用Excel VBA编程将网点的百度坐标转换后标注到高德地图上
公司网点表存储的坐标是百度坐标,现需要将网点位置标注到高德地图上,研究了一下高德地图的云图数据模版 http://lbs.amap.com/yuntu/reference/cloudstorage和坐 ...
- vba编程基础2
安装office2010的时候, 最好是 完全安装/完整安装 , 这样可以查阅 excel的 "帮助文档" 帮助文档中包含了更多的/更详细的 参考信息. 普通模块无事件, 只有 子 ...
- vba编程基础1
在主要的编程语言中, 结构体是用大括号来表示 代码段的 范围 界定的. 但是在一些比较"老的"语言中,由于历史原因, 还是使用的 是: 关键字来进行界定代码 的 结构段, 如vba ...
- 5 Application 对象
5.1鸟瞰Application对象 5.2 必须了解的面向显示特性 5.2.1 使用ScreenUpdating改进和完善执行性能 代码清单5.1:实现屏幕更新的性能 '代码清单5.1: 实现屏幕更 ...
- VBA编程常用词汇英汉对照表
表 20‑1到表 20‑8是VBA编程中使用频率最高的英文单词,按字母排序.词性列中,a表示形容词,n表示名词,v表示动词,p表示介词以及其他词性. 表 20‑1 VBA编程常用词汇表 单词 中文 词 ...
- 什么是Cookie对象,Session对象,Application对象。
Cookie是: 一个由网页服务器放在您硬盘上的非常小的文本文件. 它本质上就像您的身份证明一样,并且不能像代码那样被执行或被用来散布病毒.它只能被您使用并且只能由提供的服务器读取. 使用Cookie ...
- VBA编程常用语句
.Option Explicit '强制对模块内所有变量进行声明 Option Private Module '标记模块为私有,仅对同一工程中其它模块有用,在宏对话框中不显示 Option Compa ...
随机推荐
- Abp数据库迁移注意事项
前记:昨天下载了一个Abp模板,然后尝试利用EF CodeFirst进行数据库生成操作,然后就是一直报错 在与 SQL Server 建立连接时出现与网络相关的或特定于实例的错误.未找到或无法访问服务 ...
- 写的模块和方法 wap 和 pc
createjs 画了一个曲线功能 rem 的适配方式 $.fn.stop 方法, zepto 没有的, 对于 2d的旋转 变形 还有 移动都可以停下来, 做动画的属性存储, getComputedS ...
- [ARC057D]全域木
题意:求有多少个边权为$1\cdots\frac{n(n-1)}2$的完全图的最小生成树的边权为$a_{1\cdots n-1}$ 啊啊啊我tm真的是什么都不会啊 考虑kruskal的过程:每次选取跨 ...
- [UOJ336]无限之环
题目的要求就是每个接头都有且仅有一个与其相连的接头,所以不妨给每个接头$1$的流量,对整个网格图黑白染色后(源点$\mathop\rightarrow\limits^\infty$黑点,白点$\mat ...
- 【构造】【贪心】hdu6090 Rikka with Graph
给你n个点,让你连m条边,使得任意两两点对之间的最短路的和最小(两点若不可达,最短路记作n). 初始时ans=n*n*(n-1). 先尽量连成菊花图,每连一次让答案减小2*((n-2)*(i-1)+( ...
- Problem J: 零起点学算法105——C语言合法标识符
#include<stdio.h> #include<ctype.h>//调用isalpha函数 int main() { int n; ]; while(scanf(&quo ...
- 连接mysql时1045错误的解决办法
重装系统后,今天mysql提示1045错误无法连接上,找了很久得出方法如下: 修改root密码即可正常. 1,进入mysql控制台选择: 2,use mysql; 3,update user set ...
- kindeditor在Firefoxt 和 Chrome 下不能取到值的解决方法
默认form模式提交数据的时候,在ie下用户不需要进行任何设置和调用sync函数,因为editor已经自动调用,但是在firefox和 chrome下,用户如果不手动调用sync函数,editor的数 ...
- tcpreplay工具使用
参考:http://www.cnblogs.com/jiayy/p/3447047.html 速率控制算法的大体思路就是,通过适当的sleep,增加包发送的时间,从而减小算出来的速率,以达到用户设 ...
- Android 通过URL scheme 实现点击浏览器中的URL链接,启动特定的App,并调转页面传递参数
点击浏览器中的URL链接,启动特定的App. 首先做成HTML的页面,页面内容格式如下: <a href="[scheme]://[host]/[path]?[query]" ...