ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: ggsmart

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

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2009-10-12 17:21 | 显示全部楼层
本帖已被收录到知识树中,索引项:开发帮助和教程

TA的精华主题

TA的得分主题

发表于 2009-10-12 20:34 | 显示全部楼层

回复 699楼 草根糖 的帖子

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

TA的精华主题

TA的得分主题

发表于 2009-10-12 21:07 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 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 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-10-12 21:18 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 705楼 草根糖 的帖子

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

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

TA的精华主题

TA的得分主题

发表于 2009-10-13 08:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 trustwxq 于 2009-10-12 21:18 发表
Sheets(1).[c2] = Ltrim(str1),学习了Ltrim,VBA内部函数,好!谢谢草根糖。
对你问题的解答:Vlookup是工作表函数不是VBA的内部函数,在VBA中是不能直接使用的,而right函数既是工作表函数又是VBA内部函数,所以可 ...


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

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

TA的精华主题

TA的得分主题

发表于 2009-10-13 09:26 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 708楼 草根糖 的帖子

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 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-10-13 09:43 | 显示全部楼层

回复 709楼 trustwxq 的帖子

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

TA的精华主题

TA的得分主题

发表于 2009-10-13 10:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
遇到一个奇怪的事,怎么打开70页和71页的内空是完全一样的.
多学习一遍加深印象,
不错.

TA的精华主题

TA的得分主题

发表于 2009-10-13 11:12 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 trustwxq 于 2009-10-12 20:34 发表
我在Sheets(1).[c2]里设置好了自动换行,调整好了字体大小,如果用Sheets(1).[c2] = Right(str1, Len(str1) - 1)可以把Str1字符串的第一个" "空格字符去掉,这样每行可以站四个人,对的比较整齐。如果不去掉用前面空 ...


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

TA的精华主题

TA的得分主题

发表于 2009-10-13 12:43 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

回复 712楼 zznjcs 的帖子

对,就是这里产生的。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 23:37 , Processed in 0.038767 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表