精华内容
下载资源
问答
  • 大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的... 224:数组函数JOIN的作用VBA过程代码223:计算数组的上标下标及元素数值 Sub Mynz () Dim arr(10 To 50) Dim brr(1...

    9572ef2230b883a95fabb091ade5e1ea.png

    大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。今日分享的是NO.223-NO.224,内容是:

    NO. 223:计算数组的上标下标及元素的个数值

    NO. 224:数组函数JOIN的作用

    e9f743b6cc8d6a3835ba7ccd3f951cec.png

    VBA过程代码223:计算数组的上标下标及元素的个数值

     Sub Mynz ()

    Dim arr(10 To 50)

    Dim brr(1 To 10, 1 To 100)

    MsgBox "第一个一维数组数组的上标是:" & UBound(arr) & Chr(13) _

    & "数组的下标是:" & LBound(arr) & Chr(13) _

    & "数组的元素个数是:" & UBound(arr) - LBound(arr) + 1 & Chr(13) _

    & "第二个两维数组第一维的上界是:" & UBound(brr, 1) & Chr(13) _

    & "第二维的上界是:" & UBound(brr, 2)

    End Sub

    代码解析:mynz过程将一维数组arr和二维数组brr的上下标计算出来,将一维数组的元素个数计算出来提供给用户。上下标是通过Ubound函数及Lbound的函数来实现的。元素个数是: UBound(arr) - LBound(arr) + 1

    e84326044f04ed25f651d8f22f37e75c.png

    VBA过程代码224:数组函数JOIN的作用

    Sub Mynz ()

    Dim arr(1 To 10), i As Integer, txt As String

    For i = 1 To 10 '给数组赋值

    arr(i) = i

    Next i

    txt = Join(arr, ",") '将arr数组的元素连成字符串,用逗号作分隔符

    MsgBox txt

    End Sub

    代码解析:mynz过程利用Join函数将数组的值以指定字符连接,形成一个字符串。首先给数组arr进行赋值,赋值为1到10的自然数。然后利用Join函数将数组的值以指定字符","连接,连接后将最后的字符串赋值给txt,最后用MsgBox对话框显示给用户

    30c341a6f0ed49e86af58aa688efaa5f.png

    VBA是利用OFFICE实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,总结了四部VBA学习资料,是我“积木编程”思想的体现。

    第一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;

    第二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。

    第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。

    第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

    VBA真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。

    展开全文
  • 大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的... 224:数组函数JOIN的作用VBA过程代码223:计算数组的上标下标及元素数值 Sub Mynz () Dim arr(10 To 50) Dim brr(1...

    9ac9dae1a59035aefb4e9e8db972a892.png

    大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的记录,来源于我多年的经验。今日分享的是NO.223-NO.224,内容是:

    NO. 223:计算数组的上标下标及元素的个数值

    NO. 224:数组函数JOIN的作用

    f24bba3e1316d19edd4a6214b7b8346a.png

    VBA过程代码223:计算数组的上标下标及元素的个数值

     Sub Mynz ()

    Dim arr(10 To 50)

    Dim brr(1 To 10, 1 To 100)

    MsgBox "第一个一维数组数组的上标是:" & UBound(arr) & Chr(13) _

    & "数组的下标是:" & LBound(arr) & Chr(13) _

    & "数组的元素个数是:" & UBound(arr) - LBound(arr) + 1 & Chr(13) _

    & "第二个两维数组第一维的上界是:" & UBound(brr, 1) & Chr(13) _

    & "第二维的上界是:" & UBound(brr, 2)

    End Sub

    代码解析:mynz过程将一维数组arr和二维数组brr的上下标计算出来,将一维数组的元素个数计算出来提供给用户。上下标是通过Ubound函数及Lbound的函数来实现的。元素个数是: UBound(arr) - LBound(arr) + 1

    7e9815485feaf44fb1ea442b1f4225a0.png

    VBA过程代码224:数组函数JOIN的作用

    Sub Mynz ()

    Dim arr(1 To 10), i As Integer, txt As String

    For i = 1 To 10 '给数组赋值

    arr(i) = i

    Next i

    txt = Join(arr, ",") '将arr数组的元素连成字符串,用逗号作分隔符

    MsgBox txt

    End Sub

    代码解析:mynz过程利用Join函数将数组的值以指定字符连接,形成一个字符串。首先给数组arr进行赋值,赋值为1到10的自然数。然后利用Join函数将数组的值以指定字符","连接,连接后将最后的字符串赋值给txt,最后用MsgBox对话框显示给用户

    c598309d8f677de35edb8dd3a657c537.png

    VBA是利用OFFICE实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,总结了四部VBA学习资料,是我“积木编程”思想的体现。

    第一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;

    第二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。

    第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。

    第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

    VBA真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。

    展开全文
  • 大家好,今日继续和大家分享VBA编程中常用的常用"积木"过程代码。... 224:数组函数JOIN的作用VBA过程代码223:计算数组的上标下标及元素数值 Sub Mynz ()Dim arr(10 To 50)Dim brr(1 To 10, 1 ...

    大家好,今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录,来源于我多年的经验。今日分享的是NO.223-NO.224,内容是:

    NO. 223:计算数组的上标下标及元素的个数值

    NO. 224:数组函数JOIN的作用

    8c684632a9a52505e7101bb1f94bd2d4.png

    VBA过程代码223:计算数组的上标下标及元素的个数值

     Sub Mynz ()

    Dim arr(10 To 50)

    Dim brr(1 To 10, 1 To 100)

    MsgBox "第一个一维数组数组的上标是:" & UBound(arr) & Chr(13) _

    & "数组的下标是:" & LBound(arr) & Chr(13) _

    & "数组的元素个数是:" & UBound(arr) - LBound(arr) + 1 & Chr(13) _

    & "第二个两维数组第一维的上界是:" & UBound(brr, 1) & Chr(13) _

    & "第二维的上界是:" & UBound(brr, 2)

    End Sub

    代码解析:mynz过程将一维数组arr和二维数组brr的上下标计算出来,将一维数组的元素个数计算出来提供给用户。上下标是通过Ubound函数及Lbound的函数来实现的。元素个数是: UBound(arr) - LBound(arr) + 1

    1814a2bbc6488e50f91fe0247acce007.png

    VBA过程代码224:数组函数JOIN的作用

    Sub Mynz ()

    Dim arr(1 To 10), i As Integer, txt As String

    For i = 1 To 10 '给数组赋值

    arr(i) = i

    Next i

    txt = Join(arr, ",") '将arr数组的元素连成字符串,用逗号作分隔符

    MsgBox txt

    End Sub

    代码解析:mynz过程利用Join函数将数组的值与指定字符连接,形成一个字符串。首先给数组arr进行赋值,赋值为1到10的自然数。然后利用Join函数将数组的值与指定字符","连接,连接后将最后的字符串赋值给txt,最后用MsgBox对话框显示给用户

    008773d1e3aab621377a948e04db943e.png

    VBA是利用OFFICE实现自己小型办公自动化的有效手段,我根据自己20多年的VBA实际利用经验,总结了四部VBA学习资料,是我"积木编程"思想的体现。

    第一:VBA代码解决方案,是VBA中各个知识点的讲解,覆盖了绝大多数的知识点;

    第二:VBA数据库解决方案,是数据处理的专业利器,介绍利用ADO连接ACCDB,EXCEL。

    第三:VBA数组与字典解决方案,讲解VBA中的数组和字典的利用。

    第四:VBA代码解决方案之视频,是专门面向初学者的视频讲解,可以快速入门,更快的掌握这门技能。

    VBA真的非常实用,希望大家掌握这个工具,利用这个工具,让自己在工作中轻松,高效,快乐。

    展开全文
  • b) 数组公式可以同时进行多个计算,可返回一或多结果。c) 多单元格数组公式需选择多单元格进行输入,编辑修改时不可以只改变其中一部分。d) 数组公式具有集合性和制约性。从今日开始我们讲解...

    大家好,今天我们继续讲解VBA数组与字典解决方案的第12讲,从这讲开始我们开始讲数组的运算了。通过之前的讲解,我了解了数组的定义,数组的性质,一些重要的知识点我们再回顾一下:

    a) 在数组的录入时需要三键输入。

    b) 数组公式可以同时进行多个计算,可返回一个或多个结果。

    c) 多单元格数组公式需选择多个单元格进行输入,编辑修改时不可以只改变其中一部分。

    d) 数组公式具有集合性和制约性。

    从今日开始我们讲解数组的运算规则,通过讲解,读者要掌握各种数组的运算规律。今日讲的是行列数相同数组的运算。

    一:如下图,这是横向的一维数组的计算,结果是{=B1:F1+B3:F3}

    32c8f715191b0f29c0e86fdbabffaca3.png

    数组1+数组2,这是一个多单元格的数组公式,第一个数组的第一个元素与第二个数组的第一个元素相加,结果作为数组公式结果的第一个元素,然后第一个数组的第二个元素与第二个数组的第二个元素相加,结果作为数组公式结果的第二个元素,接着是第三个元素……直到第N个。

    二 纵向一维数组的运算:

    数组1*数组2,这也是一个多单元格的数组公式,计算{=A9:A13*C9:C13},第一个数组的第一个元素与第二个数组的第一个元素相乘,结果作为数组公式结果的第一个元素,然后第一个数组的第二个元素与第二个数组的第二个元素相乘,结果作为数组公式结果的第二个元素,接着是第三个元素……直到第N个。

    8534beb89d4d3f34b2c4853fd20cc322.png

    三:二维数组与二维数组进行计算,下面将计算{=I2:J6-L2:M6}的结果

    3391704158d914787354d423f1f074d4.png

    运算后将生成一个新的二维数组的多单元格数组公式。同样的计算过程,第一个数组的第一行的第一个元素与第二个数组的第一行的第一个元素相减,第一个数组的第一行的第二个元素与第二个数组的第一行的第二个元素相减,结果为数组公式的结果的数组的第一行的第二个元素,接着是第三个……直到第N个。

    综述上面的结果:行列数相同数组的运算规律很简单,两个同行同列的数组计算是对应元素间进行运算,并返回同样大小的数组。

    正如穿鞋要穿合脚的才走得了路一样,在公式或函数中使用数组时,运算对象或参数的数组维数要匹配,否则计算会出错。教室里,第一排的有18个同学,第二排有19个同学,老师说:"第一排和第二排的同学交换作业,互相检查。"第二排的第19个同学和谁交换?这就是数组的不匹配。数组不匹配时,工作就不能完成了。上面的解释也是数组制约性的一种。

    今日内容回向:

    1 行列数相同数组的运算规律是什么?

    2 上面内容中就是讲的是数组的制约性,如何理解?

    展开全文
  • 关于工作表数组的运算规则,之前我们讲过行列相同组的运算规则及一个数组与单一的数值间的运算规则,不知道大家是否还清楚的记得,如果还有不清楚的朋友,就再看看我之前的文章。数组的运算是一比较复杂的过程...
  • 以上代码,build之后能够生成excel.tlh等的文件,就可以使用一些智能指针,本人实现了运用这个智能指针计算输入数组元素个数的简单的函数,如: double __stdcall RowsCount(Excel::RangePtr &pRange) { int rows =...
  • 函数作用:统计数组中非重复数据个数.................78 '59.函数作用:摘取子字符串.............................79 '60.函数作用:计算20000余个汉字的笔画.................79 '61.函数作用:删除当前工作表中的...
  • 58.统计数组中非重复数据个数 59.摘取子字符串 60.计算20000余个汉字的笔画 61.删除当前工作表中的全部超连接 62.取得相近数据 63.提取定串中汉字 64.搜索重复数据(选定范围) 65.字符型转数字型 66.小写人民币转大写...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     8.1 VBA语言元素概览  8.2 注释  8.3 变量、数据类型和常量  8.3.1 数据类型的定义  8.3.2 声明变量  8.3.3 变量的作用域  8.3.4 常量的使用  8.3.5 字符串的使用  8.3.6 日期的使用  8.4 赋值语句  8.5...
  • 中文版Excel.2007高级VBA编程宝典 2/2

    热门讨论 2012-04-06 16:41:38
     8.1 VBA语言元素概览  8.2 注释  8.3 变量、数据类型和常量  8.3.1 数据类型的定义  8.3.2 声明变量  8.3.3 变量的作用域  8.3.4 常量的使用  8.3.5 字符串的使用  8.3.6 日期的使用  8.4 赋值语句  8.5...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01038设置新工作簿中的工作表个数 01039设置文件的默认位置 01040设置保存自动恢复文件的时间间隔和保存位置 01041停止屏幕刷新 01042使事件无效 01043使取消键无效 01044不显示警告信息对话框 01045设置使用的...
  • VBSCRIP5 -ASP用法详解

    2010-09-23 17:15:46
    IsNumeric 函数 返回 Boolean 值,表示表达式能否当作一个数,用来计算。 IsObject 函数 返回 Boolean 值,表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符...
  • VBSCRIPT中文手册

    热门讨论 2010-11-12 10:13:06
    IsNumeric 函数 返回 Boolean 值,表示表达式能否当作一个数,用来计算。 IsObject 函数 返回 Boolean 值,表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符...
  • IsNumeric 函数 返回 Boolean 值,表示表达式能否当作一个数,用来计算。 IsObject 函数 返回 Boolean 值,表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符...
  • VBScript 语言参考

    2008-10-07 21:30:05
    IsNumeric 函数 返回 Boolean 值,表示表达式能否当作一个数,用来计算。 IsObject 函数 返回 Boolean 值,表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符...
  • vb Script参考文档

    2009-07-28 22:13:02
    IsNumeric 函数 返回 Boolean 值,表示表达式能否当作一个数,用来计算。 IsObject 函数 返回 Boolean 值,表示表达式是否引用了有效的“自动”对象。 Join 函数 返回连接许多包含在一个数组中的子串而创建的字符...
  • 5.2.7 计算字符串中的字符个数 5.2.8 重复字符或字符串 5.2.9 创建文本直方图 5.2.10 填充数字 5.2.11 删除额外的空格和非打印字符 5.2.12 改变文本的大小写 5.2.13 从字符串中提取字符 5.2.14 替换文本 ...
  • 5.2.7 计算字符串中的字符个数 5.2.8 重复字符或字符串 5.2.9 创建文本直方图 5.2.10 填充数字 5.2.11 删除额外的空格和非打印字符 5.2.12 改变文本的大小写 5.2.13 从字符串中提取字符 5.2.14 替换文本 ...
  • excel的使用

    2012-11-25 17:06:01
    (1)数组和矩阵的定义矩阵不是一个数,而是一个数组。在Excel里,数组占用一片单元域,单元域用大括号表示,例如{A1:C3},以便和普通单元域A1:C3相区别。设置时先选定单元域,同时按Shift+Ctrl+Enter键,大括弧...
  • Visual Basic 2008/2010从入门到精通

    热门讨论 2012-02-28 19:05:54
    11.1.4 使用数组元素 11.1.5 创建定长数组存储温度值 11.1.6 创建动态数组 11.2 使用ReDim Preserve语句保存数组原有数据 11.3 补充知识:使用Array类中的方法处理大型数组 11.4 本章小结 第12章 使用集合和...
  • 任务202: 表计算之汇总计算(从属计算) 任务203: 表计算之移动计算 任务204: 快速表计算 任务205: 临时计算 任务206: 小结 第18章: Tableau高级分析(排序与筛选器) 任务207: 本门课程简介 任务208: 手动...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • 5.1.3 访问数组元素 5.1.4 使用引用类型 5.2 多维数组 5.3 锯齿数组 5.4 Array类 5.4.1 属性 5.4.2 创建数组 5.4.3 复制数组 5.4.4 排序 5.5 数组和集合接口 5.5.1 IEumerable接口 5.5.2 ICollection接口 5.5.3 ...
  • C#高级编程(第6版)

    2011-05-11 11:10:30
     5.1.3 访问数组元素  5.1.4 使用引用类型  5.2 多维数组  5.3 锯齿数组  5.4 Array类  5.4.1 属性  5.4.2 创建数组  5.4.3 复制数组  5.4.4 排序  5.5 数组和集合接口  5.5.1 IEumerable接口  5.5.2 ...
  • C#高级编程(第6版)

    2010-12-17 09:01:41
     5.1.3 访问数组元素  5.1.4 使用引用类型  5.2 多维数组  5.3 锯齿数组  5.4 Array类  5.4.1 属性  5.4.2 创建数组  5.4.3 复制数组  5.4.4 排序  5.5 数组和集合接口  5.5.1 IEumerable接口  5.5.2 ...

空空如也

空空如也

1 2
收藏数 40
精华内容 16
关键字:

vba计算数组元素个数