如何使我的代码在所有工作表中工作，而不仅仅是在当前活动工作表中工作？ - 腾讯云开发者社区

文章/答案/技术大牛

发布

VBA代码：在工作表中自动添加矩形

excelperfect 标签：VBA 这是在www.wimgielis.com中看到的一段代码，可以在工作表中自动添加一个矩形，用户可以指定矩形的大小和填充的颜色，以及指定相关联的宏。...VBA代码如下： Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...String On Error Resume Next Set ws = ActiveSheet sDimensions = Trim(Application.InputBox("请输入形状的大小...(行 x 列)", "形状大小", "3x3", , , , , 2)) iColor = Trim(Application.InputBox("请输入形状的颜色: 1 =蓝色, 2 =绿色, 3...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s

1.3K1 0

使用VBA在工作表中列出所有定义的名称

标签：VBA 有时候，工作簿中可能有大量的命名区域。...下面是一段简单的代码，它将列出工作簿中的所有定义的名称，并显示名称所指向的单元格区域。...Sub NamesList() Dim wks As Worksheet Dim nm As Name '可以修改为你想置名称和引用区域的工作表 Set wks = Sheet1....End(xlUp)(2) = "'" & nm.RefersTo Next nm '恢复错误触发 On Error GoTo 0 End Sub 一个非常简单的过程，它将显示工作簿中的所有名称及命名区域...其中的错误捕捉语句以防止工作簿中没有命名区域。

9.3K3 0

您找到你想要的搜索结果了吗？

是的

没有找到

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

学习Excel技术，关注微信公众号： excelperfect 在文件夹中所有文件上运行宏，或者在Excel工作簿中所有工作表上运行宏，这可能是一种非常好的Excel自动化方案。..." End Sub 这段代码完成下列操作： 1.在当前工作簿路径中打开“选择文件”对话框，要求选择一个用于存储所有文件的文件夹。..." End Sub 在工作簿所有工作表中运行宏代码如下： '本程序来自于analystcave.com Sub RunOnAllWorksheets() Dim folderName As String..." End Sub 代码中： 1.打开ActiveWorkbook中的每个工作表而不是ActiveSheet，可以根据需要删除If语句。...2.使用要在每个打开的工作表上运行的任何代码替换“在这里放置你的代码”部分。

5.9K1 1

Excel公式技巧14：在主工作表中汇总多个工作表中满足条件的值

在《Excel公式练习32：将包含空单元格的多行多列单元格区域转换成单独的列并去掉空单元格》中，我们讲述了一种方法，给定由多个列组成的单元格区域，从该区域返回由所有非空单元格组成的单个列。...本文提供了一种方法，在给定一个或多个相同布局的工作表的情况下，可以创建另一个“主”工作表，该工作表仅由满足特定条件的所有工作表中的数据组成。并且，这里不使用VBA，仅使用公式。...D2:D10"}),"Y")) 因为COUNTIF函数能够操作三维单元格区域，并且SUMPRODUCT函数提供了必要的强制转换，使得INDIRECT函数返回一组单元格引用，而不仅仅是一个，因此公式转换为...k的值，即在工作表Sheet1中匹配第1、第2和第3小的行，在工作表Sheet2中匹配第1和第2小的行，在工作表Sheet3中匹配第1小的行。...在单元格A2中，COLUMNS($A:A)的值等于1，因此公式转换为： INDEX(Sheet1!A2:F10,1,1) 即工作表Sheet1中单元格A2的值。

12.1K2 1

Excel应用实践21：实现工作簿所有工作表中的多值替换

学习Excel技术，关注微信公众号： excelperfect 有两个工作簿，一个工作簿中存放着要查找并替换成的文本，如下图1所示，列A中是要查找的文本，将列A中查找到的文本替换成列B中相应的文本，例如...图1 另一个工作簿中是我们要替换其文本的工作簿，我们要在该工作簿所有工作表中查找上图1列A中的值并将找到的文本替成列B中的文本，如图2所示。 ? 图2 要实现的结果如下图3所示。 ?...在图1所示的工作簿中，打开VBE，插入一个标准模块，输入代码： '查找并替换指定工作簿中的多个文本 Sub MultiFindReplace() Dim ReplaceListWB As Workbook...).CurrentRegion '遍历要替换文本的工作簿中所有工作表 For Each wks In ReplaceInWB.Worksheets '使用替换文本来替换工作表中的数据...选择工作簿文件后，将根据上图1工作表中的文本自动对该工作簿中的文本进行查找和替换操作。 ? 图4 代码的图片版如下： ?

3.9K1 0

Excel技巧：在工作表中绘制完美的形状

标签：Excel技巧 “绘图”工具栏中的椭圆形工具很难使用。如果开始在单元格的左上角绘制矩形，形状将从该角开始。但是，如果在同一个点开始画一个圆，画的椭圆将不会完全包含单元格中的文本。...首先，要使椭圆成为一个完美的圆形，在绘制时要按住Shift键。使用Shift键还将强制矩形为正方形，强制三角形为等边三角形。其次，圆形或椭圆形很难画。...为了在一个单元格周围绘制一个圆圈，必须从单元格外很远的地方开始。怎么知道要从多大程度上超出你的数据才能包括所有数据？一种解决方案是在绘制椭圆时按住Ctrl键（或按住Ctrl+Shift键绘制圆）。...然后，不是从左角开始，而是直接从圆的中间开始。向外拖动时，圆圈会变大。另一个修改键是Alt键。按住Alt键绘制的矩形将捕捉到单元格边界。...如果要调整正方形的大小，在拖动角控制柄的同时按住Shift键，这将强制Excel保持纵横比不变。如果需要制作许多大小相同的正方形，按住Ctrl键并拖动第一个正方形以制作相同的副本。

8661 0

VBA代码：获取并列出工作表中的所有批注

标签：VBA 在使用Excel工作表时，我们往往会对某些单元格插入批注来解释其中的数据，用户也可能会插入批注来写下他们的建议。...如果你的工作表中有很多批注，而你不想逐个点开查看，那么可以将所有批注集中显示在工作表中。...本文给出的代码将获取工作表中所有的批注，并将它们放置在一个单独的工作表中，清楚地显示批注所在的单元格、批注人和批注内容。...ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub 代码首先检查当前工作表中是否存在批注...如果有批注，则创建一个用于放置批注的名为“批注列表”的工作表，其中，在列A放置批注所在的单元格地址，列B放置写批注的人名，列C中是批注的内容。

3.4K2 0

VBA程序：列出指定工作表中的所有公式

标签：VBA 下面的VBA过程在指定的新工作表中列出指定工作表中的所有公式，包含具体的公式、所在工作表名称及其所在单元格地址。...As Range Dim c As Range Dim endRow As Long '放置公式的工作表, 可修改为你的实际工作表名 Set rSheet = Sheets("FormulasSheet...") '要查找公式的工作表, 可修改为你的实际工作表名 Set sht = Sheets("Sheet1") '查找已使用的单元格区域 Set myRng = sht.UsedRange...Range("A" & Rows.Count).End(xlUp).Row + 1 '去掉公式中的"="号后, 将公式放置在列A中 .Range("A" & endRow).Value...= Mid(c.Formula, 2, (Len(c.Formula))) '放置包含公式的工作表名在列B中 .Range("B" & endRow).Value = sht.Name

1.2K1 0

VBA代码：拆分工作簿示例——将工作簿中的每个工作表保存为单独的工作簿

标签：VBA 有时候，我们想将工作簿中的每个工作表都保存为一个单独的工作簿。你可以使用下面的操作逐个保存工作表： 1.在工作表标签中单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。图1 这样，有多少工作表，你就要操作上面的步骤多少次。然而，如果存在很多个工作簿，这样的重复工作使用VBA是最合适的。...msoFileDialogFolderPicker) .InitialFileName =Application.DefaultFilePath & "\" .Title = "选择保存工作表的位置...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分的工作簿中运行上述代码...，就可将该工作簿中的所有工作表全部保存为单独的工作簿。

5.4K1 1

Excel技术：如何在一个工作表中筛选并获取另一工作表中的数据

为简化起见，我们使用少量的数据来进行演示，示例数据如下图1所示。图1 示例数据位于名为“表1”的表中，我们想获取“产地”列为“宜昌”的数据。...方法1：使用Power Query 在新工作簿中，单击功能区“数据”选项卡中的“获取数据——来自文件——从工作簿”命令，找到“表1”所在的工作簿，单击“导入”，在弹出的导航器中选择工作簿文件中的“表1”...单击功能区新出现的“查询”选项卡中的“编辑”命令，打开Power Query编辑器，在“产地”列中，选取“宜昌”，如下图2所示。图2 单击“确定”。...图3 方法2：使用FILTER函数新建一个工作表，在合适的位置输入公式： =FILTER(表1,表1[产地]="宜昌") 结果如下图4所示。...图4 可以看到，虽然FILTER函数很方便地返回了要筛选的数据，但没有标题行。下面插入标题行，在最上方插入一行，输入公式： =表1[#标题] 结果如下图5所示。

29.6K4 0

Excel公式技巧94：在不同的工作表中查找数据

很多时候，我们都需要从工作簿中的各工作表中提取数据信息。如果你在给工作表命名时遵循一定的规则，那么可以将VLOOKUP函数与INDIRECT函数结合使用，以从不同的工作表中提取数据。...假如有一张包含各种客户的销售数据表，并且每个月都会收到一张新的工作表。这里，给工作表选择命名规则时要保持一致。...也就是说，将工作表按一定规则统一命名。在汇总表上，我们希望从每个月份工作表中查找给客户XYZ的销售额。...假设你在单元格区域B3:D3中输入有日期，包括2020年1月、2020年2月、2020年3月，在单元格A4中输入有客户名称。每个月销售表的结构是在列A中是客户名称，在列B中是销售额。...当你有多个统一结构的数据源工作表，并需要从中提取数据时，本文介绍的技巧尤其有用。注：本文整理自vlookupweek.wordpress.com，供有兴趣的朋友参考。 undefined

14.9K1 0

VBA技巧：让代码识别工作表中的形状

标签：VBA Q：我在工作表中放置有一些形状，例如圆形、矩形等，我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作，该如何实现？...我想在一个过程中实现，而不是每个形状关联不同的过程。如下图1所示，当我使用鼠标单击上方的圆形时，会执行一个操作；单击下方的矩形时，会执行另一个操作，但这两个形状都关联相同的过程。...图1 A：在示例工作表中，将上方的圆形命名为“椭圆示例”，下方的矩形命名为“圆角矩形”。...End If End Sub 然后，返回工作表，在形状中单击鼠标右键，将其关联到宏过程testShape。当你单击工作表中的形状时，结果如下图2所示。...图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。

6991 0

Excel小技巧54：同时在多个工作表中输入数据

excelperfect 很多情形下，我们都需要在多个工作表中有同样的数据。此时，可以使用Excel的“组”功能，当在一个工作表中输入数据时，这些数据也被同时输入到其它成组的工作表中。...如下图1所示，将工作表成组后，在一个工作表中输入的数据将同时输入到其它工作表。 ?...图1 要成组工作表，先按住Ctrl键，然后在工作簿左下角单击要加入组中的工作表名称，此时工作簿标题中会出现“名称+组”，如下图2所示。 ?...图2 注意，如果一直保持工作表“组合”状态，可能会不小心在工作表中输入其它工作表中不想要的内容。因此，要及时解除组合状态。...单击除用于输入内容的工作表外的任意工作表名称，则可解除工作表组合；或者在工作表名称标签中单击右键，在快捷菜单中选取“取消组合工作表”命令。

4.4K2 0

问与答60：怎样使用矩阵数据在工作表中绘制线条？

学习Excel技术，关注微信公众号： excelperfect 本文来源于wellsr.com的Q&A栏目，个人觉得很有意思，对于想要在工作表中使用形状来绘制图形的需求比较具有借鉴意义，特辑录于此，代码稍有修改...在连接的过程中，遇到0不连接，如果两个要连接的数值之间有其他数，则从这些数值上直接跨过。如图1所示，连接的顺序是1-2-3-4-5-6-7-8-9-10-11-12-13。...A：VBA代码如下： '在Excel中使用VBA连接单元格中的整数 '输入: 根据实际修改rangeIN和rangeOUT变量 ' rangeIN - 包括数字矩阵的单元格区域 '...Dim arrRange() As Variant Set rangeIN= Range("B3:E6") Set rangeOUT = Range("H3") '删除工作表中已绘制的形状...DeleteArrows ReDim arrRange(0) '在一维数组中存储单元格区域中所有大于0的整数 For Each cell In rangeIN

3.1K3 0

如何插入或 Visio 中粘贴的 Excel 工作表

选择所需的单元格。若要选择工作表中的所有单元格，单击全选按钮。在编辑菜单中上, 单击复制。启动 Visio，然后打开绘图。在编辑菜单上单击选择性粘贴。...在 Visio 绘图中显示一个较大的 Excel 工作表 loadTOCNode(2, 'summary'); 嵌入一张大 Excel 工作表包含很多列和行时, 可能无法查看所有列和绘图中嵌入工作表的行...请注意，如果您双击嵌入的 Excel 工作表，水平并在 Excel 工作表中显示的垂直滚动条。您可以使用滚动条查看嵌入工作表中的所有列和行。...要显示较大的 Excel 工作表的所有单元格 Visio 绘图中，使用除了绘图中嵌入在工作表的下面的方法。首先，将 Excel 工作表复制为图片。然后，粘贴到您的 Visio 绘图图片。...调整工作表中的列的大小之前您嵌入在工作表，Visio 绘图中或复制为图片在工作表之前。然后，粘贴图片以 Visio 绘图。在调整大小在工作表中的列时, 您会更改工作表的格式。

11.8K7 1

Stream 在 C# 中是如何工作的？

即时数据访问：即使操作尚未完全完成，您也可以读取或写入数据，从而实现更灵活的数据处理。资源效率：Streams 通过以块的形式处理数据而不是一次加载所有内容，帮助最大限度地减少内存使用量。...在 C# 中使用 Stream 读取文件内容下面是使用 C# 中的 FileStream 类从文件中读取数据的示例。..._Stream_ 类的 Position 属性跟踪光标在流中的最后读取位置，以便我们可以确保可以读取所有数据。...这些操作与底层数据源交互，以块的形式处理数据，而不是一次处理所有数据，这对于大型数据集或实时处理特别有用。...刷新：对于可写流，尤其是涉及缓冲的流，请务必确保在流关闭之前将缓冲区中的所有数据推送到底层数据源。这是使用该方法完成的，该方法将任何剩余的缓冲数据写入其最终目标，从而防止数据丢失。

1.7K1 0

Excel实战技巧98：使用VBA在工作表中添加ActiveX控件

如下图1所示，要求在每项工作前面都添加复选框，并且当用户选中复选框后，自动隐藏该复选框所在的行。 ?...图1 下面的代码用来在工作表中添加复选框： Sub RefreshList() Dim oCheck As OLEObject Dim rCell As Range, rRange As...Range Dim lLastRow As Long '清除已经存在于工作表中的复选框 For Each oCheck In Sheet1.OLEObjects...rCell.Offset(0,-1).Address .Object.Value = False End With Next rCell End Sub 上述代码首先删除工作表中所有已存在的复选框...，因为本示例已知道工作表中无其他控件，所以直接删除，如果无法判断是否有其他控件而只需删除复选框，可以加上一个条件判断语句： If TypeName(oCheck.Object)=”CheckBox” Then

7.1K1 0

在工作表中实现七段显示

使用VBA代码在工作表中将数字显示为七段显示，如下图1所示。 ? 图1 在单元格C9中输入四位及四位以内的数字，在单元格区域B2:P6中会像电子显示屏一样以七段形式显示这个数字。...VBA代码代码如下： Public Sub ShowSevenSegment(ByVal lInput As Long) '声明变量 Dim sValue As String...Interior.Color = lON End If End If Next j Next i End Sub 在数字所在的工作表模块中...Then ShowSevenSegment Target.Value2 End If End Sub 下面是代码的图片版： ?...建议有兴趣的朋友多调试理解这段代码，帮助理解数组的运用、以及单元格的获取、偏移、设置等VBA操控Excel的基础知识。

1.9K1 0

Excel实战技巧74：在工作表中创建搜索框来查找数据

本文主要讲解如何创建一个外观漂亮的搜索框，通过它可以筛选数据并显示搜索结果。...End Sub 在代码中，对要搜索的文本使用了通配符，因此可以搜索部分匹配的文本。此外，对数据区域使用了“硬编码”，你可以将其修改为实际的数据区域。代码运行的结果如下图2所示。 ?...End Sub 在编写好代码后，将宏指定给表示按钮的矩形形状。在形状中单击右键，如下图4所示。 ? 图4 选取“指定宏”命令，在“指定宏”对话框中选择宏名，如下图5所示。 ?...图5 可以在此基础上进一步添加功能，例如，在搜索完成后，我想恢复原先的数据，可以在工作表中再添加一个代表按钮的矩形形状，如下图6所示。 ?...在我们编写的代码中，有很多注释掉的代码语句，可供参考。

18.4K1 0

使用ADO和SQL在Excel工作表中执行查询操作

学习Excel技术，关注微信公众号： excelperfect 我们可以将存储数据的工作表当作数据库，使用ADO技术，结合SQL查询语句，可以在工作表中获取满足指定条件的数据。...图1 下面，需要将工作表Sheet2的数据中物品为“苹果”的数据行复制到工作表Sheet3中，如下图2所示。 ?...在同一代码中，只需要连接数据库一次，接着可以执行多个查询操作，无需每次查询前都进行连接。...SQL查询语句为： query = "Select * from [" & wksData.Name _ & "$] Where 物品='苹果' " 在工作表wksData中查询物品为“苹果”的记录...，*号表示获取记录的所有字段。

5.9K2 0

点击加载更多

VBA代码：在工作表中自动添加矩形

使用VBA在工作表中列出所有定义的名称

VBA实用小程序61：在文件夹内所有文件中运行宏在工作簿所有工作表中运行宏

Excel公式技巧14：在主工作表中汇总多个工作表中满足条件的值

Excel应用实践21：实现工作簿所有工作表中的多值替换

Excel技巧：在工作表中绘制完美的形状

VBA代码：获取并列出工作表中的所有批注

VBA程序：列出指定工作表中的所有公式

VBA代码：拆分工作簿示例——将工作簿中的每个工作表保存为单独的工作簿

Excel技术：如何在一个工作表中筛选并获取另一工作表中的数据

Excel公式技巧94：在不同的工作表中查找数据

VBA技巧：让代码识别工作表中的形状

Excel小技巧54：同时在多个工作表中输入数据

问与答60：怎样使用矩阵数据在工作表中绘制线条？

如何插入或 Visio 中粘贴的 Excel 工作表

Stream 在 C# 中是如何工作的？

Excel实战技巧98：使用VBA在工作表中添加ActiveX控件

在工作表中实现七段显示

Excel实战技巧74：在工作表中创建搜索框来查找数据

使用ADO和SQL在Excel工作表中执行查询操作

相关资讯

热门标签

活动推荐

运营活动

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐