首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

使用VBA快速给所选择多个单元格区域绘制矩形边框

下面的代码能够给当前工作表中所选择单元格区域绘制红色矩形边框。 首先,选取想要绘制边框所有单元格区域,可以在选择单元格区域同时按住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代码很方便,避免了你选择单元格区域然后进行一系列格式设置频繁操作。

56820
您找到你想要的搜索结果了吗?
是的
没有找到

VBA程序:对加粗单元格值求和

标签:VBA 下面的VBA自定义函数演示了如何对应用了粗体格式单元格求和。...ErrHandler: '检查是否溢出 If Err.Number = 6 Then SumBold = CVErr(xlErrNum) Resume Continue End Function 注意,当求和单元格区域中单元格格式发生更改时...,不会触发任何事件;而使用Application.Volatile语句,每当在工作表上内容更改时,单元格都会重新计算。...这意味着,仅对求和单元格区域中单元格设置加粗格式,使用该自定义函数求和值不会改变,除非按F9键强制计算,或者在工作表输入内容导致工作表重新计算。...这个程序也提供了一个模板,可以稍作修改对其它格式设置单元格来求和

13610

使用VBA获取单元格背景色红色、绿色和蓝色数值

标签: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值,这样就可以应用到其他程序中了。

3K30

VBA动态数组定义及创建

大家好,今日我们继续讲解VBA数组与字典解决方案第19讲:动态数组定义及创建。在VBA,数组可分为固定数组和动态数组,也称为静态数组和动态数组。我们之前所定义数组,都是静态数组。...在事前不知道数组大小时,可以声明数组为动态数组,在需要指定数组大小时,再使用ReDim语句分配数组实际元素个数。...1、动态数组是可以改变大小数组,通过在数组名称后附带空括号来声明,如: Dim arrSheetName() as String 2、在定义动态数组之后,必须使用ReDim来设置动态数组上界和下界,...3、我们可以使用ReDim语句反复地改变数组元素个数。...下面我们将通过一个实例来讲解动态数组利用:   比如一个工作表C列存储了学生姓名,现在我们需要把把有姓“王”学生存储在数组arr,预先我们并不知道C列姓王学生有三十个还是五十个,所以,我们在定义时代码可以这样

3.1K40

VBA实战技巧01: 在代码引用动态调整单元格区域5种方法

VBA代码,经常要引用单元格数据区域并对其进行操作。然而,如果对数据区域采用“硬编码”地址,那么当该区域大小变化时,必须修改相应引用该区域代码。...本文整理了可以动态引用数据区域5种方法,供编写代码时参考。 方法1:使用UsedRange属性 工作表对象UsedRange属性返回一个Range对象,代表工作表使用单元格区域。...End Sub 方法2:使用Ctrl+Shift+向右箭头键/向下箭头键 模拟使用快捷键Ctrl+Shift+右箭头,然后使用快捷键Ctrl+Shift+向下箭头来选择单元格区域。...注意,如果第一行最后一个单元格或者第一列最后一个单元格为空,则本方法不会选择到正确单元格区域。因此,本方法适用于数据区域第一列在最后一行有值且第一行在最后一列有值区域。...使用SpecialCells方法来查找工作表包含数据最后一个单元格

3.8K30

Word VBA技术:判断表格单元格是否为空

标签: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 这些代码很简单,辑录于此,待后续使用时查阅。

3.4K60

精通Excel数组公式14:使用INDEX函数和OFFSET函数创建动态单元格区域

那么,如何创建动态单元格区域呢?可以使用INDEX函数或者OFFSET函数。许多人倾向于使用INDEX函数,因为OFFSET函数是一个易失性函数。 什么是易失性函数?...INDEX:查找行或列公式 创建动态单元格区域最基本公式类型是基于条件来查找整行或整列值,可以使用INDEX函数实现。...在所有这4种情形下,要使用公式创建在添加或减少数据时扩充或缩减动态单元格区域,需要确定该列中最后一个相对位置。图2展示了6种可能公式。 ?...图4:当有6条记录时查找单元格区域中最后一项 使用INDEX和MATCH函数创建可以扩展和缩小动态单元格区域 如下图5所示,在单元格E2是一个数据有效性下拉列表,其内容来源于单元格区域A2:A5,...MATCH(9.99E+307,C:C)) 2.不要在公式使用单元格区域下方输入无关数据,因为会导致公式创建不正确区域。

8.7K11

Execl函数固定单元格

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) 然后使用自动填充功能就可以了,简单快捷,再也不用编辑器一个个改了,感激涕零。

91740

使用VBA自动选择列表框第一项

标签:VBA,列表框,用户界面 有时候,可能你想自动选择列表框第一项或者最后一项。例如,当选择列表框所在工作表时,列表框自动选择第一项,或者选择最后一项。这都可以使用简单VBA代码轻易实现。...Next i End Sub Private Sub Worksheet_Activate() CommandButton1_Click End Sub 第一个过程在单击命令按钮后选择列表框第一项...,第二个过程在单击命令按钮后选择列表框最后一项。...而Activate事件,当该工作表成为当前工作表时,自动执行相应过程,从而选择列表框第一项。 这些过程是如何工作呢?它们是在计算列表框中所有列表项数前提下工作。...在第一个过程使用一个简单循环从列表框底部开始,一直到顶部。

2.2K40

精通Excel数组公式15:使用INDEX函数和OFFSET函数创建动态单元格区域(续)

excelperfect 导语:本文为《精通Excel数组公式14:使用INDEX函数和OFFSET函数创建动态单元格区域》后半部分。...定义名称有很多好处,包括: 1.在有动态单元格区域公式时,使用定义名称是很有用,因为定义名称可用于许多情形,诸如公式、图表、数据透视表、VBA、以及其他接受单元格区域或公式地方。...OFFSET函数使用定义起始位置输入和单元格大小来创建动态单元格区域,而INDEX函数通过查找单元格引用或行列引用来创建动态单元格区域。...2.基于单元格条件,为不同数据绘制图表。 使用动态单元格区域创建图表一般步骤如下: 1.创建动态单元格区域公式。 2.使用动态单元格区域公式定义名称。 3.创建图表。...4.将定义名称插入到图表。 如下图9所示,当单元格F1选择城市名时,会绘制该城市相应代表及销售额。 ?

3.9K20

VBA小技巧14:拆分带有换行单元格文本

学习Excel技术,关注微信公众号: excelperfect 在Excel,我们可以使用“分列”功能(即“文本到列”),很容易地将单元格带有特定分隔符文本拆分到不同。...但是,对于使用组合键换行文本,不能够使用这个功能。例如,下图1所示单元格数据,想要将其拆分到不同,“分列”功能对其无效。...图1 我们可以使用一段VBA代码来实现。 下面的VBA代码将当前单元格以换行符分隔文本拆分到其相邻单元格,如下图2所示。...首先,使用Chr(10)作为分隔符拆分当前单元格内容。...然后,将拆分值放置到当前单元格相邻单元格区域中。

3.9K30

一个VBA自定义函数使用文本格式连接唯一值单元格

标签: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对象,在连接符合要求值之前获取唯一列表。...然而,这段代码另辟蹊径,使用VBAInStr函数,在连接之前检查是否已将值添加到结果,如果没有则添加。巧妙实现方法!

1.7K20

Excel VBA解读(140): 从调用单元格获取先前计算

学习Excel技术,关注微信公众号: excelperfect 如果有一个依赖于一些计算慢资源用户定义函数,可能希望该用户定义函数在大多数情况下只返回其占用单元格中最后一次计算得到值,并且只偶尔使用计算慢资源...可以设置开关(这里使用称为“RefreshSlow”已定义名称)并在VBA过程刷新用户定义函数,如下所示: Sub RefreshUDFs() Dim lCalcMode As Long...Application.Caller.Text,则不会获得循环引用,但会检索单元格显示为字符串格式化值。...下面是名为PREVIOUSXLL+函数代码,该函数具有使其成为易失性或非易失性参数。(命令等效函数默认为易失性,但在使用它将前一个值传递给VBA用户定义函数时,通常希望它是非易失性)。...小结 有几种方法可以从VBA用户定义函数最后一次计算获取先前值,但最好解决方案需要使用C++ XLL。

6.7K20

Python动态图见得多了?Excel:亦可赛艇!我可是身经百战了

Excel版 Excel动态图实现 知识点:offset 函数,开发工具-表单控件,名称管理器,图表数据源关联,VBA 操作单元格。...(2)开发工具-表单控件 但如果想要动态地修改 OFFSET 返回区域,还需要将其偏移、选取相关参数绑定到单元格,通过修改单元格值,来修改函数内部参数。...要手动输入来修改单元格值也很麻烦,这时就要来到开发工具菜单栏(若没有这项则需要在 Excel 选项 call 出来),找到表单控件,本次笔者选用是滑块。...(5)VBA操作单元格 如果想要像效果预览图中那样自动播放该怎么做呢?答案是使用 VBA 。再从表单控件中选择一个按钮,右键该按钮后选择指定宏,点击新建,开始编辑 VBA 代码。...Excel 不仅能做动态图,在日常使用还是有许多便利之处。工具是多样,还是应根据实际情况选择使用。 不知各位是 Excel Exciting!还是 Python 真香!或者是XXX天下第一呢?

5K10
领券