vba 数值转文本_小余的VBA入门学习（八）

最新推荐文章于 2022-10-19 15:13:43 发布

weixin_39931101

最新推荐文章于 2022-10-19 15:13:43 发布

阅读量725

点赞数

文章标签： vba 数值转文本

学习目的(背景)

主要是工作上有一些需求，想通过excel加数据库做一个通过一些基本窗体操作即可达到可视化管理的工具。

正在学王佩丰老师的VBA课程(目前进度第八章)

今天刚学完王老师的第八章《在VBA中使用公式》

counta 计数。例如K = K + WorksheetFunction.CountA(SHT.Range("A:A")) - 1，表示的就是记录每张工作表的a列有效数据并计数累加。
countif 条件判断。例如l = l + WorksheetFunction.CountIf(SHT.Range("f:f"), "男")，表示的就是计数每张表的男性数量并累加。
On Error Resume Next 错误回避。
vlookup 同excel vlookup用法。
VBA函数例如strings(文本函数) math(数学函数)datetime(日期时间)等。
IsNumeric 判断是否是数字。
Val 强制转型为数值。
instr 确认是否有该目标。
spilt 按要求切分。例如Range("b2") = Split(Range("a2"), "-")(2)，表示的把a2单元格按“-”划分取第三段。tips：split第二个括号是从0开始的。
string 字符串。

暂无，待了解学习下excel函数，哈哈哈~~~~[笑哭][泣不成声]

另外在《小余的VBA入门学习(六)》学习成果中，没有思考出来的问题已得到解决。

l = InputBox("要分第几列呢?")    If VBA.Information.IsNumeric(ICOl) = False Or ICOl < 1 Then        Exit Sub    End If    ICOl = Val(ICOl)

事实上加入一个判断语句既可以实现，判断输入的内容是不是数字或者数字是不是满足>1，如果不满足，就直接退出程序。这样就不会出现错误只能输入一次的bug了。

关注