VBA中声明变量辑录！！

WTM1

使用Dim语句

Dim a as integer           '声明A为整形变量

Dim a                          '声明A为变体变量

Dim a as string             '声明A为字符串变量

Dim a,b,c as currency        '声明A,b,c为货币变量

......

声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量

Option Explicit

说明：该语句必在任何过程之前出现在模块中。


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

声明常数，用来代替文字值。

Const

' 常数的默认状态是 Private。
Const My = 456

' 声明 Public 常数。
Public Const MyString = "HELP"

' 声明 Private Integer 常数。
Private Const MyInt As Integer = 5

' 在同一行里声明多个常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567


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

    在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。

Sub My_Select

Selection.CurrentRegion.Select

End sub



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

删除当前单元格中数据的前后空格。

sub my_trim

Trim(ActiveCell.Value)

end sub


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

使单元格位移

sub my_offset

ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格

ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格

ActiveCell.Offset(1 ,   0).Select'当前单元格向下移动一格

ActiveCell.Offset(-1  , 0).Select'当前单元格向上移动一格

end sub

如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往

sub my_offset 之下加一段代码 on error resume next


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

注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!

给当前单元格赋值：

ActiveCell.Value = "你好！！！"

给特定单元格加入一段代码:

例如：在Ａ１单元格中插入"ＨＥＬＬＯ"

Range("a1").value="hello"

又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ"

1.

sheets("sheet2").select

range("a1").value="hello"

或

2.

Sheets("sheet1").Range("a1").Value = "hello"

说明：

1.sheet2被打开，然后在将“HELLO"放入到A1单元格中。

2.sheet2不被打开，将“HELLO"放入到A1单元格中。


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

隐藏工作表


'隐藏SHEET1这张工作表
　　sheets("sheet1").Visible=False

'显示SHEET1这张工作表
　　sheets("sheet1").Visible=True

有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。


Dim my As Worksheet
For Each my In Worksheets
my.PrintPreview
Next my



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

得到当前单元格的地址

msgbox ActiveCell.Address


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

得到当前日期及时间

msgbox date & chr(13) & time


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

保护工作簿

ActiveSheet.Protect


取消保护工作簿

ActiveSheet.Unprotect



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

给当前工作簿改名为 "liu"

ActiveSheet.Name = "liu"


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

打开一个应用程序

AppActivate (Shell("C:\WINDOWS\CALC.EXE"))


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

增加一个工作簿

Worksheets.Add


删除当前工作簿

activesheet.delete


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

打开一个文件

Workbooks.Open FileName:="C:\My Documents\Book2.xls"

关闭当前工作簿


ActiveWindow.Close


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

cattjiu

好东西，有Excel论坛就好放了。

Trynew

不错！怪不得你有那么多好东东。
不过 Dim a,b,c as currency '声明A,b,c为货币变量
好像有点问题。

Dim a, b, c As Currency
MsgBox TypeName(a) & "," & TypeName(b) & "," & TypeName(c)

运行结果：Empty,Empty,Currency

WTM1

没什么！版主必备！！网海无边！
记住每次发现新大陆无论自己知道不知道，先保存起来！！早晚会有用的!
另外，我们公司有专线于国家的数据资料库连接，可以查找记录资料！
资料库在连接数据所在的网站！其实就是一个国家用的搜索器！！可以很快的找到资料！！
谢谢！！需要什么可以提供的，告诉我一声！资料还是有的！！

浪上飞郑

版主在哪儿搞这么多好东西？