vba一些语法

dian 发表于 2005-10-14 10:59:00

65536].End(xlUp).Row 'A列末行向上第一个有值的行数 1].End(xlDown).Row 'A列首行向下第一个有值之行数

V1].End(xlToLeft).Column '第一行末列向左第一列有数值之列数。 1].End(xlToRight).Column '第一行首列向右有连续值的末列之列数

plication.CommandBars(\"Standard\").Controls(2).BeginGroup=True '在常用工具栏的第二个按钮前插入分隔符

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

ivate Sub Worksheet_SelectionChange(ByVal Target As Range) ‘事件 Cells.WrapText = False '取消自动换行

If Len(Target) > 5 Then '如果当前单元格中的字符数超过5个,执行下一行 Target.WrapText = True '自动换行 End If d Sub

件说明：当选定的单元格中字符数超过5个而单元格中又放不下时，即自动换行，离开此单元格又恢复原状

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden = True '有空格即隐藏行

2].parent.name '返回活动单元格的工作表名 2].parent.parent.name '返回活动单元格的工作簿名

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ nge(\"e4\").addcomment.Text \"代头\" & Chr(10) & \"内容……\" '添加批注 nge(\"e4\").Comment.Visible = True '显示批注

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

b 调整列宽()

Dim i%

For i = 1 To Sheets.Count '遍历工作簿中所有的工作表

Sheets(i).Columns(\"A:K\").AutoFit '把每个工作表的[A:K]列调整为最佳列宽 Next i d Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

循环语句的几种形式:

While i>1 '条件为True时执行

. ... '要执行的语句 op

Until i>1 '条件为False时执行 . ... '要执行的语句 op

. ... '要执行的语句

op While i>1 '条件为True时执行

. ... '要执行的语句

op Until i>1 '条件为False时执行 While...Wend 语句

ile i>1 '条件为True时执行 . ... '要执行的语句 nd

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

选\"VBA项目的信任\"

plication.SendKeys \"%(tmstv){ENTER}\" '在 Excel 窗口操作 plication.SendKeys \"%(qtmstv){ENTER}\" '在 VBE 窗口操作

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

pplication.CommandBars(index || name).Position = msoBarFloating '使[命令按钮]悬浮在表格中 Application.CommandBars(3).Position = msoBarTop '使[命令按钮]排列在工具栏中

----------------------------------------------------------------------------------------------------

ub wshzw()

Dim i As Integer For i = 1 To 5

Sheets(\"Sheet1\").Copy After:=Sheets(1) 'Before/After 复制新表在 最新的Sheet 前/后 ActiveSheet.Name = i & \"月\" '为复制的新表命名 Next i

Sheets(\"Sheet1\").Name = \"总表\" '为 Sheets(\"Sheet1\") 改名 d Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

plication.EnableEvents = False ......

plication.EnableEvents = True '抑制事件连锁执行

plication.EnableEvents = False

tiveWorkbook.Save '抑制BeforeSave事件的发生 plication.EnableEvents = True '抑制指定事件

plication.DisplayAlerts=False '屏蔽确认提示

plication.ScreenUpdating = False .......

plication.ScreenUpdating = true ' 冻结屏幕以加快程序运行

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－

示例选定工作表 Sheet1 中已用区域的最后一个单元格。

rksheets(\"Sheet1\").Activate

tiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate

----------------------------------------------------------------------

tiveSheet.Copy Before:=Sheets(1) '复制活动工作表到第一张工作表之前

-----------------------------------------------------------------------

leDateTime(\"E:\\My Documents\\33.xls\")

leDateTime(thisworkbook.FullName) '文件被创建或最后修改后的日期和时间

leLen(thisworkbook.FullName) / 1024

leLen(\"E:\\My Documents\emp\\33.xls\") / 1024'文件的长度(大小),单位是 KB

---------------------------------------------------------------------

tiveSheet.Hyperlinks.Delete '删除活动工作表超链接

-------------------------------------------------------------------

tiveSheet.PageSetup.CenterFooter = Range(\"k2\").Value '

印时设置自定义页脚

tiveSheet.PageSetup.Orientation = xlLandscape '设置为横向打印

tiveSheet.PageSetup.Orientation = xlPortrait '设置为纵向打印

---------------------------------------------------------------------

plication.WindowState = xlMinimized '最小化窗口

Application.WindowState = xlNormal '正常化窗口

Application.WindowState = xlMaximized '最大化窗口

----------------------------------------------------------------------

机数函数：

nction Random(Optional Midpoint = 0.5, Optional Range = 0.5,

tional Round = False)

plication.Volatile True

ndom = Rnd * (Range * 2) + (Midpoint - Range)‘ 固定的公式

Round Then

Random = CLng(Random) ‘四舍五入和转换成长整型

d If

d Function

-----------------------------------------------------------------------

句1：On Error Resume Next '代码写在有可能产生错误的语句前一行

表示：若发生错误，则忽略它，跳到下一条语句继续执行。

语句2：On Error GoTo 行号（或标号）

表示：若运行有错，则跳到标号指定位置，转去执行错误处理例程。

条件的

3：Err.number = 0 当无错误时err.number=0 ,这个语句可以用来做错误判断