在VBA代码中，经常要引用单元格数据区域并对其进行操作。然而，如果对数据区域采用“硬编码”地址，那么当该区域大小变化时，必须修改相应的引用该区域的代码。...本文整理了可以动态引用数据区域的5种方法，供编写代码时参考。 方法1：使用UsedRange属性 工作表对象的UsedRange属性返回一个Range对象，代表工作表中已使用的单元格区域。...注意，如果第一行的最后一个单元格或者第一列的最后一个单元格为空，则本方法不会选择到正确的单元格区域。因此，本方法适用于数据区域的第一列在最后一行有值且第一行在最后一列有值的区域。...使用SpecialCells方法来查找工作表中包含数据的最后一个单元格。...找到后，使用该单元格引用来确定最后的数据行和列。
在VBA中，可以通过多种不同的方式来引用工作表中的单元格/单元格区域。下面是一些引用方法的汇总。 Range(“D1”) 引用单元格D1。 Range(“D” & i) 引用列D中行号为i的单元格。...如果工作表中没有相关单元格可用则返回错误。 Range(“A1”).DirectPrecedent 等价于Ctrl+[组合键。引用目标单元格的从属单元格。如果工作表中没有从属单元格可用则返回错误。...引用目标单元格的所有相关单元格，包括相关单元格的相关单元格。如果工作表中没有相关单元格可用则返回错误。 Range(“A1”).Precedents 等价于Ctrl+Shift+[组合键。...引用目标单元格的所有从属单元格，包括从属单元格的从属单元格。如果工作表中没有从属单元格可用则返回错误。 Range(“A1”,”D1”) 引用单元格区域A1:D1。...一些说明： Offset属性和End属性可能是我们在代码中最常见的。Offset属性是一种基于单个基本单元格选择单元格的简单方法，可用于从单行开始，并多次循环代码，每次循环引用一个新行。
在Excel中通过VBA对Word文档进行查找替换 以前学过两篇关于ExcelVBA_to_word的文章 1.ExcelVBA一键批量打印文件夹中的所有word文档 2.ExcelVBA一键导入Word...简历信息到 EXCEL中 今天再来学习： 【问题】 在Excel中通过VBA对Word文档进行查找替换，我想把word文档中的“name”全部替换成“张三” word文档如下图 【思路】 在Excel...文档中，先引用CreateObject("word.application")，再打开文件，查找，替换
本文将浅析GadgetToJScript的反序列化原理与在VBA中的利用。...而在VBA中的被检测的列表已有大佬整理了出来： https://github.com/synacktiv/AMSI-Bypass ? ? 当然，DDE与excel 4.0是不受amsi所保护的。...而amsi的bypass也早已是老生常谈的话题，例如outflank提出的 https://outflank.nl/blog/2019/04/17/bypassing-amsi-for-vba/ 或者是在...NonSerializable 类在构造函数中接受一个字符串，然后重写ToString函数，并返回一个sting对象。...但这已不是宏需要考虑的了，而是在powershell中amsi patch的问题了，在前方的代码中加入amsi patch，即可然过wdf对ps的检查，得到Cs的beacon。 ?
学习Excel技术，关注微信公众号： excelperfect 本次练习题 如下图1所示的工作表，在单元格区域A2:F2中放置的是要查找的数值；在列H至列BF、行9至行30是被查找的区域，这个区域分17...个小区域，每个区域3列，其单元格中要么为空，要么放置着一些数值。...图1 现在，要在这17个小区域中查找单元格区域A2:F2中的值并将找到的数值的个数输入到其下方第32行的单元格中。如何使用VBA代码实现？ VBA代码 先给出代码，再细细解释。...Cells(2,j)分别查找A2至F2中的数值，将找到的数值的个数累加到变量iCount中。最后得到每个小区域中包含的数值的个数，然后将得到的个数值输入到第32行中相应单元格中。...代码中的外层循环遍历每个小区域，内层循环遍历A2:F2中的值。 小结 1.不要被工作表的表面所迷惑，要从中找到规律。 2.有时候，灵活使用工作表函数不失为一个好技巧。 下面是代码的图片版： ?
学习Excel技术，关注微信公众号： excelperfect 下面的自定义函数使用Shapes集合对象的AddShape方法及其参数，可以在指定的单元格中插入指定的形状。...( _ ShapeType, _ .Left, .Top, .Width, .Height) End With End Function 代码中的参数...参数sAddress指定要添加形状的单元格，字符串形式，例如要在单元格B3中添加形状，则指定参数sAddress的值为B3。...示例 如下图1所示的工作表，列A中是代表形状的常量名，列B中是对应的常量值。 ?...图1 下面的代码在列C中添加对应的形状： Sub AddShape() Dim shp As Shape Dim rng As Range For Each rng In
标签：VBA 下面的VBA自定义函数演示了如何对应用了粗体格式的单元格求和。...在VBE中，插入一个标准模块，在其中输入下面的代码： Public Function SumBold( _ ParamArray vInput() As Variant) As Variant...，不会触发任何事件；而使用Application.Volatile语句，每当在工作表上的内容更改时，单元格都会重新计算。...这意味着，仅对求和单元格区域中的单元格设置加粗格式，使用该自定义函数求和的值不会改变，除非按F9键强制计算，或者在工作表中输入内容导致工作表重新计算。...这个程序也提供了一个模板，可以稍作修改对其它格式设置的单元格来求和
文件操作 引用打开的工作簿 使用索引号（从 1 开始） Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application...MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在 thisworkbook 中添加如下代码段： Private Sub Workbook_SheetSelectionChange...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...区域 Range("A1") '表示 A1 单元格 Range("A2:D1") '表示 A2 到 D1 区域 Range("A2:D1")(3) '表示该区域里的第三个单元格 Range("D" &...判断单元格的 value 是否为 “”。
文件操作 引用打开的工作簿 使用索引号（从 1 开始） Workbooks(1) 使用工作簿名称 Workbooks("1.xlsx") 创建一个 EXCEL 工作簿对象 Dim wd As Excel.Application...MyWorkSheet.Cells(i, j).Interior.ColorIndex 让某表格选中的单元格变成指定颜色 在 thisworkbook 中添加如下代码段： Private Sub Workbook_SheetSelectionChange...ActiveSheet.UsedRange.Interior.ColorIndex = 0 Target.Interior.ColorIndex = 6 End If End Sub 在单元格里回车...区域 Range("A1") '表示 A1 单元格 Range("A2:D1") '表示 A2 到 D1 区域 Range("A2:D1")(3) '表示该区域里的第三个单元格 Range("D" &...判断单元格的 value 是否为 ““。
VBA允许用户以多种不同的方式引用单元格区域。 什么是Range对象 Range对象代表工作表中的单元格区域，这意味着可以使用Range对象来引用： 单个单元格 一行或一列单元格。...尽管在引用特定Excel工作表中的单元格时具有这种灵活性，但Range对象还是有一些限制。...特别是，这里并没有指定所引用的特定Excel工作簿或工作表。为此，必须理解下面的内容。 从集合中引用对象 在VBA中，对象集合是一组相关的对象。...继续上面相同的例子，可写为： Range 使用Range属性引用Range对象 在上面的示例中，我们使用了Range代表要引用的单元格区域，在实际代码中，需要指定想要处理的特定单元格区域。...在本例中的两个区域共用的唯一单元格是B5。 使用Worksheet.Range属性引用命名区域 如果引用的区域具有名称，则其语法与引用单个单元格非常相似，只需将用于引用区域的地址替换为适当的名称。
虽然在excel文件中检索的vba代码不知道写了多少遍了，每次需要的时候，都是从网上找，然后写。实在是低效的做法。从网上找了一段代码，放在此处，以后需要的时候可以随手拿来。
标签：Word VBA 可以使用VBA代码来判断文档中表格内的单元格是否为空。下面的代码检查所选文档内容中表格内的单元格，并给出空单元格的信息。...方法1 基于空单元格由Chr(7)跟随的段落标记组成，可以使用Range对象检测空单元格，代码如下： Sub CheckTableCells() Dim rngCell As Cell...End If Next rngCell Next rngRow End Sub 方法2 使用Range变量，将其设置为标记每个单元格的区域，移动到区域的末端，使单元格末端标记和段落标记不包含在区域中...（要执行此操作，只需将其移动一个字符），并获取区域内的文本。...如果单元格为空，则区域内没有文本。
标签：VBA 这是一段非常好的代码，来自ozgrid.com，可以使用它来快速排序VBA中的数组。 代码如下： '对一维或二维数组排序....'二维数组可以通过传递适当的列编号作为sortKeys参数来指定其排序键. '函数传递一个引用，因此将对原始数组进行变异....matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...sortCols Erase arr1 Erase arr2 Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示...（可以使用自动筛选来查看默认排序与排序代码的结果对比）： Sub smartNumberSort() Dim a, i& ReDim a(1 To 500) a(1) = "Key" For i
如果找到该项，则返回其索引；否则，可以返回null或你认为在数组中不存在的任何其他值。 下面是在Python中执行线性查找算法的基本步骤： 1.在数组的第一个索引（索引0）处查找输入项。...试运行线性查找算法 在Python中实现线性查找算法之前，让我们试着通过一个示例逐步了解线性查找算法的逻辑。 假设有一个整数列表，想在该列表中查找整数15。...在Python中实现线性查找算法 由于线性查找算法的逻辑非常简单，因此在Python中实现线性查找算法也同样简单。我们创建了一个for循环，该循环遍历输入数组。...图1 下面是线性查找算法的函数实现。以下脚本中的函数lin_search()接受输入数组和要查找的项作为其参数。 在该函数内部，for循环遍历输入数组的所有项。...显然，线性查找算法并不是查找元素在列表中位置的最有效方法，但学习如何编程线性查找的逻辑在Python或任何其他编程语言中仍然是一项有用的技能。
标签：Excel公式，自定义函数 如果我想知道单元格数据中是否包含有“1”，该如何实现？当然，这里指单元格中包含“1”，而不是“10”、“11”等含有1的数据。示例数据如下图1所示。...图1 如图1，如果列B的单元格中包含“1”，则返回TRUE，否则返回FALSE。也就是说，类似于单元格B2中的数据，会返回TRUE；而单元格B6中的数据，会返回FALSE。...图2 也可以使用VBA编写自定义函数来实现。...Pattern = "\b" & FindWhat & "\b" FINDNew = .test(WithinCell.Value) End With End Function 然后，返回工作表，在单元格中输入公式...图3 注：本文示例整理自vbaexpress.com论坛，供有兴趣的朋友参考。 欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
很多人选择在Github上开源项目，但很多开源项目要依赖一些自己写的jar。如何让用户(使用者)可以通过互联网自动下载所依赖的jar呢？ ...下面介绍下通过GitHub做maven repository的过程; 1、在GitHub上创建项目(这步操作不细说了，过程很简单，用过GitHub的大家都懂的) 例如：我创建的项目名叫fengyunhe-wechat-mp...2、把本地maven项目Build，build生成的maven文件夹上传到Giuhub 3、本地新建maven项目如果需要依赖jar,在pom.xml中增加 ...2、master 一定要写上，否则会无法下载 3、如果本地项目依赖的groupId、artifactId跟本地项目中的maven项目groupId、artifactId相对应，则会默认依赖本地项目而不去服务端下载...4、具体依赖项目 配置中 groupId、artifactId 一定要与依赖项目的groupId、artifactId一致。
学习Excel技术，关注微信公众号： excelperfect 在Excel中，我们可以使用“分列”功能（即“文本到列”），很容易地将单元格中带有特定分隔符的文本拆分到不同的列中。...但是，对于使用组合键换行的文本，不能够使用这个功能。例如，下图1所示的单元格中的数据，想要将其拆分到不同的列中，“分列”功能对其无效。...图1 我们可以使用一段VBA代码来实现。 下面的VBA代码将当前单元格中以换行符分隔的文本拆分到其相邻单元格中，如下图2所示。...首先，使用Chr(10)作为分隔符拆分当前单元格中的内容。...然后，将拆分的值放置到当前单元格相邻的单元格区域中。
>>>上篇文章：啰哩啰嗦地讲透VBA中引用单元格区域的18个有用方法--Range属性 使用Cells属性引用Range对象 VBA中没有Cell对象，有Worksheet.Cells属性和Range.Cells...VBA对象可以是工作表（在Worksheet.Cells属性的情形）或可以是单元格区域（Range.Cells属性的情形）。 行号和列号是行和列的编号，通常使用数字。...之所以可以在Cells关键字之后立即指定行号和列号参数，是因为Range.Item属性是Range对象的默认属性。如上所述，这也是可以使用双引号（“”）中的字母来引用该列的原因。...使用Worksheet.Cells属性引用工作表中的所有单元格 这可能是实现Cells属性的最简单但也是最受限制的方法。语句： 表达式.Cells 返回相关Excel工作表中的所有单元格。...因此，你可能会经常遇到这种引用结构类型的宏。 使用Range.Item属性引用Range对象 在日常Excel工作中，你可能最终不会使用Range.Item属性。然而，可能仍需要不时使用此属性。
1，查找 在normal模式下按下/即可进入查找模式，输入要查找的字符串并按下回车。 Vim会跳转到第一个匹配。按下n查找下一个，按下N查找上一个。...set smartcase 将上述设置粘贴到你的~/.vimrc，重新打开Vim即可生效 4，查找当前单词 在normal模式下按下*即可查找光标所在单词（word）， 要求每次出现的前后为空白字符或标点符号...例如当前为foo， 可以匹配foo bar中的foo，但不可匹配foobar中的foo。 这在查找函数名、变量名时非常有用。 按下g*即可查找光标所在单词的字符序列，每次出现前后字符无要求。...即foo bar和foobar中的foo均可被匹配到。 5，查找与替换 :s（substitute）命令用来查找和替换字符串。...^E与^Y是光标移动快捷键，参考： Vim中如何快速进行光标移 大小写敏感查找 在查找模式中加入\c表示大小写不敏感查找，\C表示大小写敏感查找。
接口隔离原则 软件编程中始终都有一些好的编程规范值得我们的学习：如果你在一个多人协作的团队工作，那么模块之间的关系就应该建立在接口上，这是降低耦合的最佳方式；如果你是一个SDK 的提供者，暴露给客户端的始终应该是接口...在Android 开发中我们经常会持有接口的引用，或者注册事件的监听，诸如系统服务的通知，点击事件的回调等，虽不胜枚举，但大部分监听都需要我们去实现一个接口，因此我们今天就拿注册一个回调监听举例：...，这其中包括一系列重载函数的调用和对接口引用callback 的代理等，最终得益于Groovy 的元编程能力，在标准GroovyObject对象上获取meatClass ，最后使用反射调用接口引用的指定方法...call(Object) 函数中我们可以看到对receiver 参数也就是callback 引用进行了非空判断，因此我们可以肯定的是在Groovy 中操作符?....面向接口的编程方式，使我们有天然的优势可以利用，动态代理正是基于接口，因此我们可以对接口引用添加动态代理并返回代理后的值，这样callback 引用实际指向了动态代理对象，在代理的内部我们借助反射调用callback
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
腾讯会议
云直播
对象存储
