欢迎来到天天文库
浏览记录
ID:22388175
大小:61.50 KB
页数:6页
时间:2018-10-28
《办公中常用到的excel》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、办公中常用到的Excel 用过VB的人都应该知道如何声明变量,在VBA中声明变量和VB中是完全一样的! 使用Dim语句 Dimaasinteger'声明a为整型变量 Dima'声明a为变体变量 Dimaasstring'声明a为字符串变量 Dimaascurrency,bascurrency,cascurrency'声明a,b,c为货币变量 声明变量可以是:Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal(当前不支持)、D
2、ate、String(只限变长字符串)、String*length(定长字符串)、Object、Variant、用户定义类型或对象类型。 强制声明变量 OptionExplicit 说明:该语句必在任何过程之前出现在模块中。 声明常数 用来代替文字值。 Const '常数的默认状态是Private。 ConstMy=456 '声明Public常数。 PublicConstMyString=HELP '声明PrivateInteger常数。 PrivateConstMyIntAsInt
3、eger=5 '在同一行里声明多个常数。 ConstMyStr=Hello,MyDoubleAsDouble=3.4567 选择当前单元格所在区域 在EXCEL97中,有一个十分好的功能,他就是把鼠标放置在一个有效数据单元格中,执行该段代码,你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。 SubMy_Select Selection.CurrentRegion.Select Endsub 返回当前单元格中数据删除前后空格后的值 submy_trim msgboxTrim(Acti
4、veCell.Value) endsub 单元格位移 submy_offset ActiveCell.Offset(0,1).Select'当前单元格向左移动一格 ActiveCell.Offset(0,-1).Select'当前单元格向右移动一格 ActiveCell.Offset(1,0).Select'当前单元格向下移动一格 ActiveCell.Offset(-1,0).Select'当前单元格向上移动一格 endsub 如果上述程序产生错误那是因为单元格不能移动,为了解除
5、上述错误,我们可以往 submy_offset之下加一段代码onerrorresumenext 注意以下代码都不再添加sub代码名称和endsub请自己添加! 给当前单元格赋值 ActiveCell.Value=你好!!! 给指定单元格赋值 例如:A1单元格内容设为HELLO Range(a1).value=hello 又如:你现在的工作簿在sheet1上,你要往sheet2的A1单元格中插入HELLO 1. sheets(sheet2).select range(a1).value=hello 或 2.
6、 Sheets(sheet1).Range(a1).Value=hello 说明: 1.sheet2被选中,然后在将HELLO赋到A1单元格中。 2.sheet2不必被选中,即可HELLO赋到sheet2的A1单元格中。 隐藏工作表 '隐藏SHEET1这张工作表 sheets(sheet1).Visible=False '显示SHEET1这张工作表 sheets(sheet1).Visible=True 打印预览 有时候我们想把所有的EXCEL中的SHEET都打印预览,请使用该段代码,它将在你
7、现有的工作簿中循环,直到最后一个工作簿结束循环预览。 DimmyAsyIny.PrintPreviey 得到当前单元格的地址 msgboxActiveCell.Address 得到当前日期及时间 msgboxdatechr(13)time 保护工作簿 ActiveSheet.Protect 取消保护工作簿 ActiveSheet.Unprotect 给活动工作表改名为liu ActiveSheet.Name=liu 打开一个应用程序 AppActivate(Shell(C:WINDOWSCALC.EXE)
8、) 增加一个工作表 Worksheets.Add 删除活动工作表 activeshee12下一页——..,。t.delete 打开一个工作簿文件 yDocumentsBook2.xls 关闭活动窗口 ActivesgBoxSelec
此文档下载收益归作者所有