1. 常用vba代码精选合集
vba编程excel实例代码:新建工具栏实例Sub新建工具栏()Application.CommandBars.Add(Name:="我的工具栏").Visible=True'新建一个自定义工具栏，名为我的工具栏，并可见。
Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=3,Before:=1'添加保存按钮，在第一个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=1849,Before:=2'添加查找按钮，在第二个位置Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=295,Before:=3'添加插入单元格按钮Application.CommandBars("我的工具栏").Controls.AddType:=msoControlButton,ID:=395,Before:=4'添加货币样式按钮EndSub
2. vba常用代码实战大全
答:vba代码类型不匹配的原因是
你类型使用不正确。如
字符串类型的字符串参与了数值类型的数学运算，就好产生类型不匹配错误。
解决方法如下：
num1 = 0。
仅供你参考。
3. excel vba常用代码实战大全
1、VBA肯定能调用工作表函数，调用方法也是很简单，只需在函数名称前面加上：Application.WorksheetFunction.函数名(参数)。
其参数的使用规则与在工作表中使用要求完全一致。除了能调用工作表函数，VBA自身内置也有很多函数可以使用。因为是VBA自身内置的函数，所以在使用时，在前面可以加上：VBA.函数名，也或者直接调用写函数名。经常有人可能用不同版本的办公程序打开有代码的工作簿，结果就有可能会出现如“找不到工程或库”的提示。怎么办呢？如果是因为VBA自身内置函数的原因，则可以在前加上“VBA.”就行了。
当然，也可在 VBE界面中菜单【工具】->【引用】打开引用对话框，查找带勾项中含“丢失…”、“找不到…”、“MISSING…”的条目，并取消勾选，确定，基本就可以了。现在总结下常用的VBA自身内置函数如下（中间文字过长，或以跳转到最下面看看“其他常用函数”，很有用的哦。）：
2、测试类函数：
IsNumeric(x) - 是否为数字, 返回Boolean结果。
IsDate(x) - 是否是日期, 返回Boolean结果。
IsEmpty（x） - 是否为Empty, 返回Boolean结果。
IsArray(x) - 指出变量是否为一个数组。
IsError(expression)- 指出表达式是否为一个错误值。
IsNull(expression)- 指出表达式是否不包含任何有效数据 (Null)。
IsObject(identifier)- 指出标识符是否表示对象变量。
3、数学函数：
Sin(X)、Cos(X)、Tan(X)、Atan(x) - 三角函数，单位为弧度。
Log(x)、Exp(x) - 返回x的自然对数，指数。
Abs(x) - 返回x的绝对值。
Int(number)、Fix(number) - 都返回参数的整数部分，区别：Int 将 -8.4 转换成 -9，而 Fix 将-8.4 转换成 -8。
Sgn(number) - 返回一个 Variant (Integer)，指出参数的正负号。
Sqr(number) - 返回一个 Double，指定参数的平方根。VarType(varname) -返回一个 Integer，指出变量的子类型。
Rnd(x) - 返回0-1之间的单精度数据，x为随机种子。
Round(x,y)- 把x四舍五入得到保留y位小数的值。
4、字符串函数：
Trim(string)、Ltrim(string)、Rtrim(string) - 去掉string左右两端空白，左边的空白，右边的空白。
Len(string) - 计算string长度
Replace(expression,find,replace)- 替换字符串。
Left(string, x)、Right(string, x)、Mid(string, start,x)- 取string左/右/指定段x个字符组成的字符串Ucase(string)、
Lcase(string) - 转换字符串为大、小写Space(x) - 返回x个空白的字符串
Asc(string) - 返回一个 integer，代表字符串中首字母的字符代码
Chr(charcode) - 返回 string，其中包含有与指定的字符代码相关的字符
InStr() - 返回一个字符串在另外一个字符串中的位置，返回值为Variant(Long)型。
5、转换函数：
CBool(expression)- 转换为Boolean型
CByte(expression)- 转换为Byte型
CCur(expression) -转换为Currency型
CDate(expression)- 转换为Date型
CDbl(expression) -转换为Double型
CDec(expression)- 转换为Decemal型
CInt(expression) -转换为Integer型
CLng(expression) -转换为Long型
CSng(expression) -转换为Single型
CStr(expression) -转换为String型
CVar(expression) - 转换为Variant型
Val(string) - 转换为数据型
Str(number) - 转换为String
5、时间函数：
Now、Date、Time - 返回一个 Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
Timer - 返回一个 Single，代表从午夜开始到现在经过的秒数。
TimeSerial(hour,minute, second) - 返回一个 Variant (Date)，包含具有具体时、分、秒的时间。
DateDiff(interval,date1, date2[, firstdayofweek[, firstweekofyear]]) - 返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
Second(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一分钟之中的某个秒。
Minute(time) - 返回一个 Variant (Integer)，其值为 0 到 59 之间的整数，表示一小时中的某分钟。
Hour(time) - 返回一个 Variant (Integer)，其值为 0 到 23 之间的整数，表示一天之中的某一钟点。
Day(date) - 返回一个 Variant (Integer)，其值为 1 到 31 之间的整数，表示一个月中的某一日
Month(date) - 返回一个 Variant (Integer)，其值为 1 到 12 之间的整数，表示一年中的某月。
Year(date) - 返回 Variant (Integer)，包含表示年份的整数。
Weekday(date,[firstdayofweek]) - 返回一个 Variant (Integer)，包含一个整数，代表某个日期是星期几。
其它常用函数：
Shell - 运行一个可执行的程序。
InputBox - 这个太熟悉了，简单输入对话框。这个需要注意与Application.InputBox(更强大，内置容错处理，选择取消后返回false)区分，而这个函数不含有容错处理，而且选择取消后返回空串(零个字节的字符串)。
MsgBox - 这个更不用说了，简单信息显示对话框，其实也是一种简单的输入手段。
Join - 连接数组成字符串。
Split - 拆分字符串成数组。
RGB - 返回指定R、G、B分量的颜色数值。
Dir - 查找文件或者文件夹。
IIF(expression,truePart, falsePart) - IF语句的“简化版本”(比喻，当然并不一样)；expression为true的话返回truePart，否则返回falseParth。Choose(index,choice1,...choiceN) - 选择指定Index的表达式，Index可选范围是1到选项的总数。
Switch(exp1,value1,exp2,value2,...expN,valueN)- 从左至右计算每个exp的值，返回首先为true的表达式对应的value部分。如果所有的exp值都不为true，则返回Null。注意虽然只返回一个部分，但是这里所有的表达式exp1到expN都是要被计算的，实际使用中要注意这个副作用。
4. excel vba代码大全
Sub 自动滚动字幕()
Dim 开始位置 As Single
Dim 终止位置 As Single
Dim i As Integer
'识别开始位置,本例为$A$2
开始位置 = Range("A2").Row
'识别终止位置，本例为$A$3
终止位置 = Range("A3").Row
For i = 开始位置 To 终止位置
Range("A$1").Row = Range("A" & i).Row
Range("A$1").Offset(1, 0).Row = Range("A" & i + 1).Row
'設置循環速度
Application.Wait (Now + TimeValue("0:00:01"))
Next i
End Sub
5. vba所有代码大全及语法
Application.ActivePrinter 属性 返回或设置活动打印机的名称。String 类型，可读写。语法表达式.ActivePrinter表达式 一个代表 Application 对象的变量。示例本示例显示活动打印机的名称。Visual Basic for Applications MsgBox "The name of the active printer is " & _ Application.ActivePrinter
- 相关评论
- 我要评论
-