学习目的（背景）

主要是工作上有一些需求，想通过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了。