下面的代码能够给当前工作表中所选择的单元格区域绘制红色的矩形边框。 首先,选取想要绘制边框的所有单元格区域,可以在选择单元格区域的同时按住Ctrl键,从而选取多个单元格区域。...然后,运行下面的代码,VBA会自动给所选单元格区域的周边绘制红色的边框,效果如下图1所示。...Dim redBox As Shape Dim selectedAreas As Range Dim i As Integer Dim tempShape As Shape '遍历当前工作表中每个所选区域...,也可以使用VBA快速完成,代码如下: Sub deleteRedRectBox() Dim shp As Shape '遍历当前工作表中每个形状 For Each shp In ActiveSheet.Shapes...If Next shp End Sub 可以看到,这种情形使用VBA代码很方便,避免了你选择单元格区域然后进行一系列格式设置的频繁操作。
excelperfect Q:如何在指定单元格中根据条件查找内容,并将找到的内容输入到相邻单元格中?...例如,在单元格A1中的内容为“This is a test”,单词“just”位于一对尖括号中。...现在想要将“just”提取出来,并将其放置在相邻的单元格B1中,如何使用VBA代码来实现这样的操作?...A:可以使用VBA中的InStr函数来查找左尖括号“”的位置,然后使用Mid函数来提取尖括号之间的内容。当然,可以使代码更简单一些,使用Like运算符和Split函数。...A1开始的列A中,提取后的字符放置在相邻的列B中对应的单元格中。
标签:VBA 下面的VBA自定义函数演示了如何对应用了粗体格式的单元格求和。...ErrHandler: '检查是否溢出 If Err.Number = 6 Then SumBold = CVErr(xlErrNum) Resume Continue End Function 注意,当求和的单元格区域中单元格格式发生更改时...,不会触发任何事件;而使用Application.Volatile语句,每当在工作表上的内容更改时,单元格都会重新计算。...这意味着,仅对求和单元格区域中的单元格设置加粗格式,使用该自定义函数求和的值不会改变,除非按F9键强制计算,或者在工作表中输入内容导致工作表重新计算。...这个程序也提供了一个模板,可以稍作修改对其它格式设置的单元格来求和
标签:VBA 我们可以使用VBA代码来获取单元格背景色中的RGB值,如下图1所示。 图1 列B、C、D中的单元格值就是列A中相应单元格背景色的RGB值。...下面是将单元格背景色拆分成RGB数字表现形式的自定义函数: Function Red(rng) As Long Dim c As Long Dim r As Long c = rng.Interior.Color...As Long c = rng.Interior.Color b = c \ 65536 Mod 256 Blue = b End Function 这样,如上图1所示,在单元格...B2中输入: =Red(A2) 在单元格C2中输入: =Green(A2) 在单元格D2中输入: =Blue(A2) 就会得到单元格A2的背景色相应的RGB值。...如果在其他应用中我们要选择背景色,但却不知道其RGB值,那么就可以先在Excel单元格中设置想要的背景色,然后使用这几个函数获取其RGB值,这样就可以应用到其他程序中了。
大家好,今日我们继续讲解VBA数组与字典解决方案的第19讲:动态数组的定义及创建。在VBA中,数组可分为固定数组和动态数组,也称为静态数组和动态数组。我们之前所定义的数组,都是静态数组。...在事前不知道数组的大小时,可以声明数组为动态数组,在需要指定数组大小时,再使用ReDim语句分配数组的实际元素的个数。...1、动态数组是可以改变大小的数组,通过在数组名称后附带空括号来声明,如: Dim arrSheetName() as String 2、在定义动态数组之后,必须使用ReDim来设置动态数组的上界和下界,...3、我们可以使用ReDim语句反复地改变数组的元素个数。...下面我们将通过一个实例来讲解动态数组的利用: 比如一个工作表的C列存储了学生姓名,现在我们需要把把有姓“王”的学生存储在数组arr中,预先我们并不知道C列姓王的学生有三十个还是五十个,所以,我们在定义时代码可以这样
标签:VBA 下面的自定义函数可以获取指定单元格所在的页码: Public Function PageNumber( _ Optional ByRef target As Excel.Range...: = PageNumber(Cell, Start) 其中, 参数Cell,指定一个单元格,程序将给出这个单元格所在的页码。...如果忽略,则为包含公式的单元格。 参数Start,指定起始页码,如果忽略则为1。...下面的测试代码调用该自定义函数获取当前单元格所在的页码: Sub test() MsgBox PageNumber(ActiveCell, 1) End Sub 注:本文的代码来源于mcgimpsey.com...,这个网站有些不错的VBA程序,有兴趣的朋友可以去看看。
在VBA代码中,经常要引用单元格数据区域并对其进行操作。然而,如果对数据区域采用“硬编码”地址,那么当该区域大小变化时,必须修改相应的引用该区域的代码。...本文整理了可以动态引用数据区域的5种方法,供编写代码时参考。 方法1:使用UsedRange属性 工作表对象的UsedRange属性返回一个Range对象,代表工作表中已使用的单元格区域。...End Sub 方法2:使用Ctrl+Shift+向右箭头键/向下箭头键 模拟使用快捷键Ctrl+Shift+右箭头,然后使用快捷键Ctrl+Shift+向下箭头来选择单元格区域。...注意,如果第一行的最后一个单元格或者第一列的最后一个单元格为空,则本方法不会选择到正确的单元格区域。因此,本方法适用于数据区域的第一列在最后一行有值且第一行在最后一列有值的区域。...使用SpecialCells方法来查找工作表中包含数据的最后一个单元格。
标签:Word VBA 可以使用VBA代码来判断文档中表格内的单元格是否为空。下面的代码检查所选文档内容中表格内的单元格,并给出空单元格的信息。...方法1 基于空单元格由Chr(7)跟随的段落标记组成,可以使用Range对象检测空单元格,代码如下: Sub CheckTableCells() Dim rngCell As Cell...End If Next rngCell Next rngRow End Sub 方法2 使用Range变量,将其设置为标记每个单元格的区域,移动到区域的末端,使单元格末端标记和段落标记不包含在区域中...End If Next rngCell Next rngRow End Sub 方法3 下面的代码与方法1类似,只是在给出空单元格信息之前先选择该单元格。...End If Next rngCell Next rngRow End Sub 这些代码很简单,辑录于此,待后续使用时查阅。
那么,如何创建动态单元格区域呢?可以使用INDEX函数或者OFFSET函数。许多人倾向于使用INDEX函数,因为OFFSET函数是一个易失性函数。 什么是易失性函数?...INDEX:查找行或列的公式 创建动态单元格区域的最基本的公式类型是基于条件来查找整行或整列值,可以使用INDEX函数实现。...在所有这4种情形下,要使用公式创建在添加或减少数据时扩充或缩减的动态单元格区域,需要确定该列中最后一个相对位置。图2中展示了6种可能的公式。 ?...图4:当有6条记录时查找单元格区域中的最后一项 使用INDEX和MATCH函数创建可以扩展和缩小的动态单元格区域 如下图5所示,在单元格E2中是一个数据有效性下拉列表,其内容来源于单元格区域A2:A5,...MATCH(9.99E+307,C:C)) 2.不要在公式使用的单元格区域的下方输入无关数据,因为会导致公式创建不正确的区域。
Execl函数中的固定单元格 由 Ghostzhang 发表于 2013-11-19 22:15 经常用Execl统计一些数据,很好很强大,也很复杂,高级的功能用不上,有几个场景是经常会用到的,比如考勤...A B C D 1 人员 年假 事假 总次数 2 userA 3 userB 这个时候可以使用『COUNTIFS』函数,像这样: =COUNTIFS(检查范围1,条件1,检查范围2,条件2...直到今天,在用Numbers的时候,发现它在定义函数的时候可以选『保留行』或『保留列』,可以很方便的把函数中的参数固定: 这样就不会因为自动填充而被改变了,才知道原来可以这样简单,只是因为之前一直不知道...于是又找了下execl下有没类似的东西,结果在mac版的execl下有同样的功能,不过体验差了很多: windows版的没有找到,但功能是支持的,同样只需要在要保留的行或列前面加上一个美元符号 $ 即可...$B:$B,B$1) 然后使用自动填充的功能就可以了,简单快捷,再也不用编辑器一个个改了,感激涕零。
标签:VBA,列表框,用户界面 有时候,可能你想自动选择列表框中的第一项或者最后一项。例如,当选择列表框所在的工作表时,列表框自动选择第一项,或者选择最后一项。这都可以使用简单的VBA代码轻易实现。...Next i End Sub Private Sub Worksheet_Activate() CommandButton1_Click End Sub 第一个过程在单击命令按钮后选择列表框中的第一项...,第二个过程在单击命令按钮后选择列表框中的最后一项。...而Activate事件,当该工作表成为当前工作表时,自动执行相应的过程,从而选择列表框中的第一项。 这些过程是如何工作的呢?它们是在计算列表框中所有列表项数的前提下工作的。...在第一个过程中,使用一个简单的循环从列表框的底部开始,一直到顶部。
excelperfect 导语:本文为《精通Excel数组公式14:使用INDEX函数和OFFSET函数创建动态单元格区域》的后半部分。...定义名称有很多好处,包括: 1.在有动态单元格区域公式时,使用定义名称是很有用的,因为定义名称可用于许多情形,诸如公式、图表、数据透视表、VBA、以及其他接受单元格区域或公式的地方。...OFFSET函数使用定义起始位置的输入和单元格大小来创建动态单元格区域,而INDEX函数通过查找单元格引用或行列引用来创建动态单元格区域。...2.基于单元格中的条件,为不同的数据绘制图表。 使用动态单元格区域创建图表的一般步骤如下: 1.创建动态单元格区域公式。 2.使用动态单元格区域公式定义名称。 3.创建图表。...4.将定义的名称插入到图表中。 如下图9所示,当单元格F1中选择城市名时,会绘制该城市相应的代表及销售额。 ?
学习Excel技术,关注微信公众号: excelperfect 在Excel中,我们可以使用“分列”功能(即“文本到列”),很容易地将单元格中带有特定分隔符的文本拆分到不同的列中。...但是,对于使用组合键换行的文本,不能够使用这个功能。例如,下图1所示的单元格中的数据,想要将其拆分到不同的列中,“分列”功能对其无效。...图1 我们可以使用一段VBA代码来实现。 下面的VBA代码将当前单元格中以换行符分隔的文本拆分到其相邻单元格中,如下图2所示。...首先,使用Chr(10)作为分隔符拆分当前单元格中的内容。...然后,将拆分的值放置到当前单元格相邻的单元格区域中。
标签:VBA实用代码 一个单元格区域内有一组数字,这些数字中存在多个相同的数字,想要将这些数字中的唯一值提取出来并组合成一串数字文本,如下图1所示。...图1 可以使用VBA编写自定义函数来实现,代码如下: Function ConcatenateUnique(ByRef rngRange As Range, _ Optional ByVal...End If End If Next rng '返回结果字符串 ConcatenateUnique = strAnswer End Function 这个函数仅将指定单元格区域中的唯一值使用可选的格式字符串连接起来...此函数在每个值之间插入分隔符字符串,默认分隔符设置为” ”。 这段代码来自strugglingtoexcel.com。通常,我们会考虑使用Dictionary对象,在连接符合要求的值之前获取唯一列表。...然而,这段代码另辟蹊径,使用了VBA中的InStr函数,在连接之前检查是否已将值添加到结果中,如果没有则添加。巧妙的实现方法!
学习Excel技术,关注微信公众号: excelperfect 如果有一个依赖于一些计算慢的资源的用户定义函数,可能希望该用户定义函数在大多数情况下只返回其占用的单元格中最后一次计算得到的值,并且只偶尔使用计算慢的资源...可以设置开关(这里使用称为“RefreshSlow”的已定义名称)并在VBA过程中刷新用户定义函数,如下所示: Sub RefreshUDFs() Dim lCalcMode As Long...Application.Caller.Text,则不会获得循环引用,但会检索单元格中显示为字符串的格式化值。...下面是名为PREVIOUS的XLL+函数的代码,该函数具有使其成为易失性或非易失性的参数。(命令等效函数默认为易失性,但在使用它将前一个值传递给VBA用户定义函数时,通常希望它是非易失性的)。...小结 有几种方法可以从VBA用户定义函数的最后一次计算中获取先前的值,但最好的解决方案需要使用C++ XLL。
标签:VBA 这段代码自forum.ozgrid.com搜集,可以将指定的单元格区域转换成Web网站中的表格代码,供有兴趣的朋友参考。...]" Next BB_Cells Debug.Print "[/tr]" Next BB_Row Debug.Print "[/table]" End Sub 例如,如果要将当前工作表单元格区域...A1:D3转换成网站表格代码,测试代码如下: Sub test() Create_Web_Table Range("A1:D3"), True End Sub 这会在立即窗口中生成网页表格的代码。...然后,将立即窗口中生成的Web代码粘贴到所需要的地方。
学习Excel技术,关注微信公众号: excelperfect 下面的自定义函数使用Shapes集合对象的AddShape方法及其参数,可以在指定的单元格中插入指定的形状。...当然,也可以使用内置常量名,例如msoShapeRectangle代表矩形。...参数sAddress指定要添加形状的单元格,字符串形式,例如要在单元格B3中添加形状,则指定参数sAddress的值为B3。...示例 如下图1所示的工作表,列A中是代表形状的常量名,列B中是对应的常量值。 ?...图1 下面的代码在列C中添加对应的形状: Sub AddShape() Dim shp As Shape Dim rng As Range For Each rng In
Excel版 Excel动态图实现 知识点:offset 函数,开发工具-表单控件,名称管理器,图表数据源关联,VBA 操作单元格。...(2)开发工具-表单控件 但如果想要动态地修改 OFFSET 返回区域,还需要将其偏移、选取相关的参数绑定到单元格,通过修改单元格的值,来修改函数内部参数。...要手动输入来修改单元格的值也很麻烦,这时就要来到开发工具菜单栏(若没有这项则需要在 Excel 选项中 call 出来),找到表单控件,本次笔者选用的是滑块。...(5)VBA操作单元格 如果想要像效果预览图中那样自动播放该怎么做呢?答案是使用 VBA 。再从表单控件中选择一个按钮,右键该按钮后选择指定宏,点击新建,开始编辑 VBA 代码。...Excel 不仅能做动态图,在日常使用中还是有许多便利之处的。工具是多样的,还是应根据实际情况选择使用。 不知各位是 Excel Exciting!还是 Python 真香!或者是XXX天下第一呢?
领取专属 10元无门槛券
手把手带您无忧上云