精华内容
下载资源
问答
  • vba 常用函数

    2017-07-25 15:31:00
    =IF(COUNTIF(B:B,A1)>0,A1,"") 公式说明:B列的数据中如果含有A1,显示A1单元格...endRow = Sheet24.Range("a65536").End(xlUp).Row ----取sheet最后一行,包括格式, Sheet1.UsedRange.Rows.Count -----弹出...

    =IF(COUNTIF(B:B,A1)>0,A1,"")

    公式说明:B列的数据中如果含有A1,显示A1单元格内容,否则显示空白。

     

    -------a列,填写内容的最后一行

    endRow = Sheet24.Range("a65536").End(xlUp).Row

    ----取sheet最后一行,包括格式,

    Sheet1.UsedRange.Rows.Count

    -----弹出窗口

     MsgBox shtMessage.Range("B5").Value, vbExclamation

    转载于:https://www.cnblogs.com/cancelbug/p/7234413.html

    展开全文
  • VBA函数

    2017-04-06 17:11:03
    自定义函数VBA 输出相同函数: 按alt+f11 右键新建一个模块 查找相同 Function 查找相同(rg1 As Range, rg2 As Range) For i = 1 To Len(rg1.Value)  If InStr(rg2, Mid(rg1.Value, i, 1)) ...

    自定义函数VBA

    输出相同函数

    按alt+f11 右键新建一个模块

    查找相同

    Function 查找相同(rg1 As Range, rg2 As Range)

    For i = 1 To Len(rg1.Value)

        If InStr(rg2, Mid(rg1.Value, i, 1)) > 0 Then

            a = a & Mid(rg1, i, 1)

        End If

    Next

    查找相同 = a

    End Function

    判断是否一致:

    =IF(OR(ISERROR(FIND(A1,B1,1)),ISERROR(FIND(B1,A1,1))),"一样","不一样")

    =IF(OR(ISNUMBER(FIND(A1,B1,1)),ISNUMBER(FIND(B1,A1,1))),"一样","不一样")

    FIND(A1,B1,1)左边是否包含右边

    FIND(B1,A1,1)右边是否左边

    ISNUMBER(FIND(A1,B1,1)

    提取第一个汉字及其之后的所有内容:

    1.数组公式:=MID(A2,MATCH(1=1,LENB(MID(A2,ROW($1:$25),1))=2,),25)

     

    使用组合键Ctrl+Shrift+Enter

     

    2.VBA函数:

    Sub CommandButton1_Click()
     Dim arr, brr(), str$, mr%
     mr =Range("a65536").End(xlUp).Row
     arr = Range("a2:a" &mr)
     ReDim brr(1 To UBound(arr))
     For i = 1 To UBound(arr)
       For j = 1 To Len(arr(i, 1))
         str = Mid(arr(i, 1), j,1)
         If VBA.Asc(str) < 0Then
            brr(i) = Mid(arr(i, 1), j,Len(arr(i, 1)))
            Exit For
         End If
       Next j
     Next i
     Range("e2:e" &mr).ClearContents
     Range("e2").Resize(UBound(brr), 1) =Application.Transpose(brr)
    End Sub

     

    展开全文
  • 接触VBA第一天,写了个闵可夫斯基距离 当r=1时,距离为曼哈顿距离 当r=2时,距离为欧几里得距离距离(直线...Public Function distance(a As Range, b As Range, Optional r As Integer = 2) Dim i As Integer ...

    接触VBA第一天,写了个闵可夫斯基距离
    在这里插入图片描述
    当r=1时,距离为曼哈顿距离

    当r=2时,距离为欧几里得距离距离(直线距离)

    当r→∞时,距离为切比雪夫距离

    根据闵可夫斯基距离距离公式,在VBA写出以下代码

    Public Function distance(a As Range, b As Range, Optional r As Integer = 2)
        Dim i As Integer
        '为支持横向数组和纵向数组的距离计算,数组长度设为“行长度和列长度两者中较大的数值”
        If a.Rows.Count > a.Columns.Count Then
            i = a.Rows.Count
        Else
            i = a.Columns.Count
        End If
        
        Dim j As Single
        j = 0
        Dim k As Integer
        
        If r = 1 Then '当r=1时,距离为
            For k = 1 To i
                j = j + Abs(a(k) - b(k))
            Next k
        ElseIf r = 999 Then '当r→∞时(这里用999表示),距离为
            Dim t As Single
            For k = 1 To i
                t = 0
                t = Abs(a(k) - b(k))
                If t > j Then
                    j = t
                End If
            Next k
        ElseIf r = 2 Then '当r=2时,距离为
            For k = 1 To i
                j = j + (a(k) - b(k)) ^ 2
            Next k
            j = Sqr(j)
        End If
        
        distance = j
    
    End Function
    

    由于设置了支持横向数组和纵向数组,所以横竖数组都能运用此函数,

    函数和其参数为: distance(a, b, r) 其中a和b类型为范围(即a,b两点的坐标),r的类型为整数(选择范围为1, 2, 999),下面看个例子

    在这里插入图片描述

    有一说一,感觉在VBA里写Minkowski距离实际用处不太大

    展开全文
  • VBA Find函数的常见用法

    万次阅读 2018-05-04 21:47:26
    学习杨老师的全民一起vba课程内容整理:Find语法: Range.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)()What:唯一一个必选参数,含义为需要查询的内容,...

    学习杨老师的全民一起vba课程内容整理:

    Find语法:

     Range.Find(What,After,LookIn,LookAt,SearchOrder,SearchDirection,MatchCase,MatchByte,SearchFormat)()

    What:唯一一个必选参数,含义为需要查询的内容,特点为变体类型,可以接受数字,字符串,日期等数据类型

    此外,该参数可以接受通配符。

    常用通配符

    ?一个任意字符,比如?a?可以表示bac aaa等

    !任意多个任意字符(包括0个),比如*a*可以表示123aadd23, ade,a等

    MatchCase: 是否匹配大小写字母,True-大小写视作不同,False-大小写视作相同

    LookAt:匹配单元格,取值:1代表单元格的内容必须与欲查找内容长度相同,不能多出字符

                                                  2单元格的内容只需包含欲查找的字符串即可

    SearchFormat:是否按照格式查找  true是,false否

    其他参数因为不常用就不一一介绍啦


    展开全文
  • 在日常工作中,Excel里面很多函数我们都用过,那在VBA中该怎么使用函数达到你的目的呢?以上图为例,一、用VBA在F2中计算金额,如果使用公式,那很简单,直接在F2中输入:=B2*C2在VBA中表达如下:Sub 普通公式()...
  • [code="js"] 方式功能:某个范围的数然后...Function isinrange(quyu As Range, xiao As Integer, da As Integer) As String Dim flag As Boolean flag = False For i = xiao To da For Each ...
  • 之前的一篇我们讲到如何用VBA制作出一个乘法口诀表,然后有小伙伴提建议,如何把它读出来呢?先把代码发出来。第1、2、6行代码给定格式最开始的Sub和最后的End Sub就没什么好说的咯,第二行的Dim rg As Range,声明...
  • 如何将下面的VBA函数改为C#,C#如何定义Excel的Range类型?多谢! <code>Function TheCell(RowNumber As Integer, Optional ColumnName As String = "A") As Range Set TheCell &#...
  • VBA自定义函数一例

    2010-10-13 15:52:00
    可以在单元格通过输入=FindRow(D1,A1:A12)来使用 功能:返回content在target中所在...Function FindRow(content, target As Range) Dim sindex As Integer, eindex As Integer, colindex As Integer sindex...
  • 在日常工作中,Excel里面很多函数我们都用过,那在VBA中该怎么使用函数达到你的目的呢?以上图为例,一、用VBA在F2中计算金额,如果使用公式,那很简单,直接在F2中输入:=B2*C2在VBA中表达如下:Sub 普通公式()...
  • Sub t1() Dim fNum As Collection ...numStr = "全民VBA" Set fNum = findNum(numStr) For Each num In fNum Range(num).Interior.ColorIndex = 0 Next num End Sub Function findNum...
  • VBA函数 find

    千次阅读 2019-06-11 15:30:00
    Range.Find 方法 (Excel) 在区域中查找特定信息。 语法 表达式.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat) expression 一个表示 Range 对象的变量...
  • Range的用法: 下面是常见的比较基础的range的用法,想要学习更多用法可自行查资料或者私信我! 1.选择A1单元格,不做任何操作 SubrangeTest() Range("a1").SelectEndSub 2.选择A1单元格,并且赋值“I am a1” ...
  • 【Excel VBA】在VBA中调用函数

    万次阅读 2019-03-23 11:10:15
    EXCEL的表函数也可以直接在VBA中直接调用执行,具体调用格式如下: 调用方法1:变量对象= Application.WorksheetFunction.表函数(表函数参数) 实例:Range("d8") = Application.WorksheetFunction.CountIf(Range...
  • 6.按SplitType取得RangeName串值中的起始位置 7.将金额数字转成中文大写 8.计算某种税金 9.人民币大、小写转换 10.查汉字区位码 11.把公元年转为农历 12.返回指定列数的列标 13.用指定字符替换某字符 14.从右边开始...
  • 取单元格红色字体的VBA自定义函数

    千次阅读 2010-03-02 22:23:00
    Function GetColorChar(Rng As Range) Application.Volatile True Dim i%, str$ For i = 1 To Len(Rng) If Rng.Characters(i, 1).Font.Color = 255 Then str = str & Mid(Rng.
  • Part 1:字体设置Sub test1() Set sht1 = ThisWorkbook.Worksheets("示例") Set cell1 = sht1.Range("A1") Set cell2 = sht1.Range("A2") '设置字体,大小,是否加粗,字体的颜色,对齐方式 cell1.Font.Name = "黑体...
  • 一, 在单元格中输入公式的3种方法:1) 用VBA在单元格中输入普通公式Sub formula_1() Range("d2") = ("=B2 * C2") End Sub运行程序后,在D2的单元格内显示的是公式 =B2 * C2 ,并非程序返回值.下文(二)中会介绍另外一种...
  • vba 调用 countif 函数问题

    千次阅读 2019-01-07 23:28:00
    源数据是A1:G18,需求是在K列显示A1:A18中...在L列中是用countif函数直接计算的, Private Sub test() Dim rng As Range, i As Integer i = 1 For Each rng In Range("A1:A18") Range("I" & i) = A...
  • VBA之dir函数综合使用

    千次阅读 2020-03-30 21:13:41
    1.dir函数的有判断一个文件是否存在的功能,也可以使用通配符模糊匹配 返回的是该文件的文件名 Sub test() Dim i As Integer For i = 1 To 5 If Dir(“d:\data” & Range(“a” & i) & ".xls*) = “” ...
  • Sub 日期别()On Error Resume Nextlastrow = Sheets("运营日报").Range("a1048576").End(xlUp).Rowlastday = VBA.Day(Sheets("运营日报").Range("a" & lastrow)) + 1lastcolumn = Sheets("运营统计表").Range(...
  • 代码如下(函数申明略): Option Explicit Public Const GENERIC_READ = &H80000000 Public Const GENERIC_WRITE = &H40000000 Public Const OPEN_EXISTING = 3 Public Const FILE_ATTRIBUTE_NORMAL = &H80 ...
  • instr:判断字符再文本的第几位 split:分割 里面有两个参数,第一个参数是要分割的单元格字符串,第二个是想要分割完的数组的第几位 1.需求 想把A列的字符串,按-分割,然后添...For i = 2 To Sheet2.Range(“a65536”).E...
  • VBARange和Cells的速度

    2020-03-18 09:51:39
    Range和Cells这两个函数,都可以获取单元格内容和将内容写入单元格。既然这两个功能相同,那么速度就成为了选择的关键。 注:Range有着比Cells更强大的功能,大家千万不要把这两个函数完全等同。当然了,这也从侧面...
  • vba调用javascript函数封装

    千次阅读 2014-09-01 09:23:12
    //过滤 function filter(sheet, rangeStr, col, value) { sheet.range(rangeStr).AutoFilter(col, value); } //取消过滤 function filterCancel(sheet, rangeStr) { sheet.range(rangeStr).AutoFilter; }
  • 函数作用:按SplitType取得RangeName串值中的起始位置12 '7.函数作用:将金额数字转成中文大写....................13 '8.函数作用:计算某种税金..............................18 '9.函数作用:人民币大、小写转换......
  • vba中如何使用函数counta

    千次阅读 2019-04-24 23:08:54
    COUNTA是excel中统计非空单元格的函数,有的时候我们在写vba代码的时候也非常需要这个函数。 下面记录一下如何使用。 Option Explicit Sub test() Dim i As Long Dim j As Long Dim sht_name As String Dim ...

空空如也

空空如也

1 2 3 4 5 ... 11
收藏数 219
精华内容 87
关键字:

vbarange函数