菜鸟谈VBA最最基础入门《原创》

哈欠打不停

trustwxq

我在Sheets(1).[c2]里设置好了自动换行，调整好了字体大小，如果用Sheets(1).[c2] = Right(str1, Len(str1) - 1)可以把Str1字符串的第一个" "空格字符去掉，这样每行可以站四个人，对的比较整齐。如果不去掉用前面空格用sheets(1).[c2]=strr1 ，第一行会向右偏一个字符。
总之：原因就是为了多人上讲台时站齐，呵呵~~

草根糖

原帖由 trustwxq 于 2009-10-12 20:34 发表
我在Sheets(1).[c2]里设置好了自动换行，调整好了字体大小，如果用Sheets(1).[c2] = Right(str1, Len(str1) - 1)可以把Str1字符串的第一个" "空格字符去掉，这样每行可以站四个人，对的比较整齐。如果不去掉用前面空 ...

明白了，考虑的很完美啊～
我知道有个函数也能这样：Sheets(1).[c2] = Ltrim(str1)
也可，呵呵～

同时，我也有个问题，为什么这里的函数前面不用加“Application.WorksheetFunction.”
而上次我用Vlookup的时候，却要加？

[ 本帖最后由 草根糖 于 2009-10-12 21:10 编辑 ]

trustwxq

Sheets(1).[c2] = Ltrim(str1)，学习了Ltrim,VBA内部函数，好！谢谢草根糖。
对你问题的解答：Vlookup是工作表函数不是VBA的内部函数，在VBA中是不能直接使用的，而right函数既是工作表函数又是VBA内部函数，所以可以在前面不用加“Application.WorksheetFunction.”直接使用。我们都应该对VBA的内部函数加强了解啊！

[ 本帖最后由 trustwxq 于 2009-10-12 21:19 编辑 ]

草根糖

原帖由 trustwxq 于 2009-10-12 21:18 发表
Sheets(1).[c2] = Ltrim(str1)，学习了Ltrim,VBA内部函数，好！谢谢草根糖。
对你问题的解答：Vlookup是工作表函数不是VBA的内部函数，在VBA中是不能直接使用的，而right函数既是工作表函数又是VBA内部函数，所以可 ...

呵呵，客气了~我们共同进步。

那如何区分某函数是否是VBA内部函数呢？
或者通过什么途径可以取得全部的VBA内部函数呢？

trustwxq

VBA内部函数很少，下面是所有的VBA内部函数：（注意：Excel VBA编程环境下大部分VB内置函数也支持，VB函数我知之甚少，就不多说了）
Excel VBA基础教程:VBA内部函数

VBA内部函数在VBA程序语言中有许多内置函数，可以帮助程序代码设计和减少代码的编写工作。
一．测试函数
IsNumeric(x)      ‘是否为数字, 返回Boolean结果，True or False
IsDate(x)         ‘是否是日期, 返回Boolean结果，True or False
IsEmpty（x）      ‘是否为Empty,返回Boolean结果，True or False
IsArray(x)        ‘指出变量是否为一个数组。
IsError(expression)‘指出表达式是否为一个错误值
IsNull(expression) ‘指出表达式是否不包含任何有效数据(Null)。
IsObject(identifier)‘指出标识符是否表示对象变量
二．数学函数
Sin(X)、Cos(X)、Tan(X)、Atan(x) 三角函数，单位为弧度
Log(x)返回x的自然对数
Exp(x)返回ex
Abs(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为随机种子
三．字符串函数
Trim(string)          去掉string左右两端空白
Ltrim(string)         去掉string左端空白
Rtrim(string)         去掉string右端空白
Len(string)           计算string长度
Left(string, x)       取string左段x个字符组成的字符串
Right(string, x)      取string右段x个字符组成的字符串
Mid(string, start,x)  取string从start位开始的x个字符组成的字符串
Ucase(string)         转换为大写
Lcase(string)         转换为小写
Space(x)              返回x个空白的字符串
Asc(string)           返回一个integer，代表字符串中首字母的字符代码
Chr(charcode)          返回string,其中包含有与指定的字符代码相关的字符
四．转换函数
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
五．时间函数
Now       返回一个Variant (Date)，根据计算机系统设置的日期和时间来指定日期和时间。
Date      返回包含系统日期的Variant (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)，包含一个整数，代表某个日期是星期几

[ 本帖最后由 trustwxq 于 2009-10-13 09:28 编辑 ]

草根糖

哇！这么多啊~
trustwxq兄厉害啊~
收下了，谢谢！
看来VBA之路还很长啊~……

zznjcs

遇到一个奇怪的事,怎么打开70页和71页的内空是完全一样的.
多学习一遍加深印象,
不错.

zznjcs

原帖由 trustwxq 于 2009-10-12 20:34 发表
我在Sheets(1).[c2]里设置好了自动换行，调整好了字体大小，如果用Sheets(1).[c2] = Right(str1, Len(str1) - 1)可以把Str1字符串的第一个" "空格字符去掉，这样每行可以站四个人，对的比较整齐。如果不去掉用前面空 ...

不好意思,有个问题,就是字符前面的第一个" "是怎么产生的.
是在这个赋值时加上的吗?str1 = str1 & " " & rng.Value

trustwxq

对，就是这里产生的。