美文网首页
VBA中使用公式

VBA中使用公式

作者: A_rrow | 来源:发表于2019-07-21 10:00 被阅读0次

使用工作表的函数

Application.WorksheetFunction.函数公式

统计函数的初探


表内容
Sub tj()
Dim sht As Worksheet
Dim i, j, k As Integer
For Each sht In Sheets
    If sht.Name <> 汇总 Then
        i = i + Application.WorksheetFunction.CountA(sht.Range("a:a")) - 1
        j = j + Application.WorksheetFunction.CountIf(sht.Range("f:f"), "男")
        k = k + Application.WorksheetFunction.CountIf(sht.Range("f:f"), "男")
    End If
Next
Sheet1.Range("d26") = i
Sheet1.Range("d27") = j
Sheet1.Range("d28") = k
End Sub

常用的几类VBA函数

交互函数 inputbox msgbox
书写VBA函数时可以直接写函数即可
如VBA.Information.IsNumeric(l)可以直接写成 IsNumeric(l)

文本函数

instr (VBA.Strings.InStr)-- 查找位置

可以回避掉find函数,find函数找不到目标值时会报错,instr找不到时返回0


Sub test()
Sheet1.Range("b2") = Left(Sheet1.Range("a2"), InStr(Sheet1.Range("a2"), "@") - 1)
End Sub

split -- 切割文本

split(截取的单元格,按什么符号截取)(目标值下标)。截取的内容是按数组的形式储存的,所以在用下标取出,下标从0开始。



利用split切割文本,遇到不规则的字符时跳过

Sub tiqu()
On Error Resume Next
For i = 2 To Sheet2.Range("a65536").End(xlUp).Row

  Sheet2.Range("b" & i) = Split(Sheet2.Range("a" & i), "-")(2) & "年 第" >& Split(Sheet2.Range("a" & i), "-")(3) & "周"
Next
End Sub

相关文章

  • 第六课 函数与公式

    一、在单元格中输入公式 1、用VBA在单元格中输入普通公式 2.使用循环输入公式 3.用VBA在单元格输入带引号的...

  • 使用VBA数组公式

    1. 数组的好处 ①可作为辅助列,临时存放数值②大大加快运算的效率 2. 如何定义数组 dim arr() 3. ...

  • VBA中使用公式

    使用工作表的函数 Application.WorksheetFunction.函数公式 统计函数的初探 常用的几类...

  • VBA实战

    Excel大家都用的很熟悉了,包括公式,不知道大家有没有听过vba,vba是比Excel公式更为强大的工具,入门很...

  • 6、公式与函数

    1、单元格中输入公式 1.1、用VBA在单元格中输入普通公式 [l4] = "=i4+j4+k4"Range("c...

  • Excel自动翻译

    有朋友问有没有Excel公式可以自动翻译公式中的文本。找了几个帖子,是用VBA请求翻译网站的API,返回结果。尝试...

  • vba公式引用

    这个和你在工作表中的公式基本一样,工作表中怎么写,VBA中就这么写啊,你只需要将工作表的公式样式设为R1C1,然后...

  • 2019-02-22 瓜都会用Excel VBA(教你怎么用V

    瓜都会用Excel VBA(教你怎么用VBA) VBA是Excel的底层根本。只有明白使用最底层的东西,使用起来才...

  • FLUX数据后处理,使用VBA在EXCEL中批量插入插入散点图

    FLUX数据后处理,使用VBA在EXCEL中批量插入插入散点图

  • 超过特定日期,表格内容不显示

    超过指定的日期,工作表的内容就不再显示,这样的效果,不使用VBA也可以实现。 第一步:先设置条件格式,公式为:...

网友评论

      本文标题:VBA中使用公式

      本文链接:https://www.haomeiwen.com/subject/yrselctx.html