标签：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 一个非常简单的过程，它将显示工作簿中的所有名称及命名区域...其中的错误捕捉语句以防止工作簿中没有命名区域。
学习Excel技术，关注微信公众号： excelperfect 在工作表中定义名称是一项很强大的功能，我们可以将定义名称的单元格区域看作一个整体，从而方便对其进行很多操作。...在进行工作表数据处理时，很多人都会定义名称。 有时候，在分析工作表数据时，如果能够清楚地看出命名区域，将有助于我们了解工作表。...下面的一小段程序可以将工作表中的命名区域添加红色背景色： Sub SetNameRanges() '声明变量 Dim rngName As Name On Error Resume...Next '遍历当前工作簿中的名称 For Each rngName In ActiveWorkbook.Names '将名称区域的单元格背景色设置为红色...rngName.RefersToRange.Interior.ColorIndex = 3 Next rngName End Sub 如下图1所示，在工作表中定义了两个命名区域。
文章背景：工作中，有时需要获取数据源的信息，临时存储在数组中，然后再将数组中的数据传递到目标工作表中。...输出到工作表的一行 2.2 输出到工作表的一列 2.3 Transpose函数的限制 3 二维数组输出到工作表的对应列 1 函数介绍 1.1 Resize函数 Resizes the specified...（1）数组形式：INDEX(array，row_num，column_num)返回数组中指定的单元格或单元格数组的数值。...2.1 输出到工作表的一行 Option Explicit Option Base 1 Sub oneArrayToRow() '一维数组输出到工作表的一行 Dim...view=excel-pia) [5] INDEX的两类应用说明(https://zhuanlan.zhihu.com/p/43052922) [6] VBA 用application.index()
大家好，又见面了，我是你们的朋友全栈君。 我们平时用的表格排序，只相对来说是在在表格中的升序降序。今天就好奇如果数组中实现排序 他是怎么实现的呢。...它的工作原理是：第一次从待排序的数据元素中选出最小（或最大）的一个元素，存放在序列的起始位置，然后再从剩余的未排序元素中寻找到最小（大）元素，然后放到已排序的序列的末尾。...以此类推，直到全部待排序的数据元素的个数为零。选择排序是不稳定的排序方法。...），另一种MinIndex = i ：（在最小值的后面没有找到比当前值的再小的）。...2、对每一对相邻元素做同样的工作，从开始第一对到结尾的最后一对。在这一点，最后的元素应该会是最大的数。 3、针对所有的元素重复以上的步骤，除了最后一个。
标签：VBA 这是一段非常好的代码，来自ozgrid.com，可以使用它来快速排序VBA中的数组。 代码如下： '对一维或二维数组排序....'二维数组可以通过传递适当的列编号作为sortKeys参数来指定其排序键. '函数传递一个引用，因此将对原始数组进行变异....- 二维数组, 单个排序键 ' sortArray myArray, Array(2,3,1) - 二维数组，多个排序键 Function sortArray(ByRef arr As Variant...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
大家好，今日我们继续讲解VBA数组与字典解决方案的第19讲：动态数组的定义及创建。在VBA中，数组可分为固定数组和动态数组，也称为静态数组和动态数组。我们之前所定义的数组，都是静态数组。...在事前不知道数组的大小时，可以声明数组为动态数组，在需要指定数组大小时，再使用ReDim语句分配数组的实际元素的个数。...1、动态数组是可以改变大小的数组，通过在数组名称后附带空括号来声明，如： Dim arrSheetName() as String 2、在定义动态数组之后，必须使用ReDim来设置动态数组的上界和下界，...下面我们将通过一个实例来讲解动态数组的利用： 比如一个工作表的C列存储了学生姓名，现在我们需要把把有姓“王”的学生存储在数组arr中，预先我们并不知道C列姓王的学生有三十个还是五十个，所以，我们在定义时代码可以这样...的内容转置填充，对于一维数组来说，中间是以逗号分隔的，如果想纵向填充，要进行转置，这可以结合之前工作表数组的表述来理解，逗号是分列，分号是分行。
上次我们对比学习了一下ExcelVBA中数组、集合和字典的概念和声明语法，我个人觉得在声明部分，三者的区别还是挺大的。...1.向数组变量赋值 对数组来说，数组中的每个元素数据类型必须相同，从数组声明就可以看出，这是数组与集合和字典的明显不同。这就要求向数组变量赋值时的数据规范必须严格。...image.png a.向数组中单个数组元素的赋值 当数组已经确定了长度，我们就可以对数组内的元素进行赋值。...可以对数组中某一具体索引位置的数组元素进行写入的，如下图： image.png 当数组长度还不确定，在代码运行过程中发现有满足条件的值时，才扩大数组长度，再将值赋给单个数组元素。...这种情况是我们不想要的，我们只想扩大一下数组，之前填充到数组中的内容是不想改变的。
VBA没有直接提供函数获取数组的维度，一般的做法是通过错误捕获来得到： '获取数组的维度 Function GetArrayDimsByErr(v As Variant) As Long If...tmp = UBound(v, GetArrayDimsByErr + 1) Loop On Error GoTo 0 End Function 在数据类型Array中，...我们知道了数组的底层结构，其中cDims就是指明数组维度的，那么，我们只需要读取到cDims的值就可以了： Public Declare Sub CopyMemory Lib "kernel32" Alias...' // 数组的维度 fFeatures As Integer ' cbElements As Long ' // 数组元素的字节大小 cLocksas As Long...' pvDataas As Long ' // 数组的数据指针 rgsabound() As SafeArrayBound End Type '获取数组的维度 Function GetArrayDims
标签：VBA 下面的VBA过程在指定的新工作表中列出指定工作表中的所有公式，包含具体的公式、所在工作表名称及其所在单元格地址。..., 可修改为你的实际工作表名 Set rSheet = Sheets("FormulasSheet") '要查找公式的工作表, 可修改为你的实际工作表名 Set sht = Sheets("Sheet1...endRow = .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 '放置去除了绝对符号$的公式所在单元格地址于列C中 .Range("C" & endRow).Value = Application.WorksheetFunction.Substitute
标签：VBA Q：我在工作表中放置有一些形状，例如圆形、矩形等，我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作，该如何实现？...我想在一个过程中实现，而不是每个形状关联不同的过程。 如下图1所示，当我使用鼠标单击上方的圆形时，会执行一个操作；单击下方的矩形时，会执行另一个操作，但这两个形状都关联相同的过程。...图1 A：在示例工作表中，将上方的圆形命名为“椭圆示例”，下方的矩形命名为“圆角矩形”。...End If End Sub 然后，返回工作表，在形状中单击鼠标右键，将其关联到宏过程testShape。当你单击工作表中的形状时，结果如下图2所示。...图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。
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
大家好，又见面了，我是你们的朋友全栈君。...SQL> select tname from tab ; TNAME —————————— TEMP 注意： rname只能修改自己schema下面的表 3：使用老表数据创建新表，再干掉老表（不推荐...） create new_table as select * from old_table; drop table old_table; 注意：表数据量大的话拉表很耽误时间，干掉老表也有可能影响某些正式运行的需要调用老表的...4：直接PLSQL 使用重建表（不推荐） 注意：重建表功能相当于 清掉所有数据 ，触发器，外键都会被清空，速度会很慢 ,效率并不是很好。
标签：VBA 自Excel 2010发布以来，已经具备删除工作表中重复行的功能，如下图1所示，即功能区“数据”选项卡“数据工具——删除重复值”。...图1 使用VBA，可以自动执行这样的操作，删除工作表所有数据列中的重复行，或者指定列的重复行。 下面的Excel VBA代码，用于删除特定工作表所有列中的所有重复行。...如果只想删除指定列（例如第1、2、3列）中的重复项，那么可以使用下面的代码： Sub DeDupeColSpecific() Cells.RemoveDuplicates Columns:=Array...(1, 2, 3), Header:=xlYes End Sub 可以修改代码中代表列的数字，以删除你想要的列中的重复行。...注：本文学习整理自thesmallman.com，略有修改，供有兴趣的朋友参考。
这里将编写VBA代码，用来删除工作表指定区域中的错误值，这在很多情况下都很有用。 如下图1所示，有一组数据，但其中有一些错误值，我们想要自动删除这些错误值。 ?...图1 删除错误值的数据表如下图2所示。 ? 图2 如果不使用VBA，可以使用Excel的“定位”功能来实现。...如下图3所示，单击功能区“开始”的“编辑”组中的“查找和选择——定位条件”，弹出“定位条件”对话框。在该对话框中，选取“公式”中“错误”前的复选框，如下图3所示。 ?...图3 单击“确定”后，工作表中的错误数据单元格会被选择，单击“Delete”键，删除错误值，结果如上图2所示。...函数来判断单元格中是否是错误值，如果是，则设置该单元格为空。
借助Application.ActivePrinter属性，一方面可以查询当前默认打印机的名称，另一方面，也可以指定默认打印机的名称。...Application.ActivePrinter = Printer_original End Sub 该代码主要分为三步：（1）先记录当前默认打印机的名称，一般电脑默认连接的是实体打印机...；（2）借助Printout函数将指定的Excel文件转换为PDF文件，此时默认打印机的名称已经发生变化，转变成了Microsoft Print to PDF; （3）恢复默认的打印机，也就是第（1）步保存的打印机名称...参考资料： [1] Application.ActivePrinter property（https://docs.microsoft.com/en-us/office/vba/api/excel.application.activeprinter...） 延伸阅读： [1] VBA: Excel文件批量转化为pdf (2)
excelperfect 标签：VBA 当执行VBA过程代码后，如果想反悔，像在Excel中操作一样，使用Excel的撤销功能或者按Ctrl+Z来撤销VBA代码对工作表的改变，不会起作用。...这里，在jkp-ads.com中找到了代码，可以用来撤销VBA对工作表的操作。代码中，关键是两个类模块，创建了一个通用撤消处理程序，可以将其导入到任何项目。...类模块：clsUndoObject 这个类将“保留”必须更改的对象（因此可能会改回）。此外，对对象所做的任何更改都是在这个类中完成的。最后，这个类记录更改后的属性以前的值。...类模块：clsExecAndUndo 这个类将保存clsUndoObject类的所有实例的集合（简单地说：它将保存所有已更改的对象的列表，并知道如何撤消这些更改）。...这里的程序可以撤消的操作通常仅限于对对象属性的更改，无法撤消插入或删除工作表、刷新查询表、更新数据透视表等操作。
标签：VBA 在使用Excel工作表时，我们往往会对某些单元格插入批注来解释其中的数据，用户也可能会插入批注来写下他们的建议。...如果你的工作表中有很多批注，而你不想逐个点开查看，那么可以将所有批注集中显示在工作表中。...本文给出的代码将获取工作表中所有的批注，并将它们放置在一个单独的工作表中，清楚地显示批注所在的单元格、批注人和批注内容。...ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub 代码首先检查当前工作表中是否存在批注...如果有批注，则创建一个用于放置批注的名为“批注列表”的工作表，其中，在列A放置批注所在的单元格地址，列B放置写批注的人名，列C中是批注的内容。
标签：VBA，表 在Excel中，有时候你可能希望在VBA代码的帮助下动态创建表，然后在该表中进行更多的数据操作。下面是几段代码。...下面的过程将删除表，但保留表的格式，使其看起来像一个表，但执行起来像正常的Excel单元格区域。...Sub RemoveTable() Sheet1.ListObjects(1).Unlist End Sub 下面的代码删除表和表的格式，因此就像一个包含常规数据的工作表。...() ActiveSheet.ListObjects("DataTable").Unlist [A1].CurrentRegion.ClearFormats End Sub 上述过程中的...ListObjects(1)假设工作表Sheet1中有一个表。
标签：VBA，工作表事件 当你想要随着工作表变化而让Excel自动做一些事情的时候，工作表事件是最能帮助你的了。之前的文章中，介绍过很多与工作表事件相关的基础知识和应用案例，今天再来一个示例。...当某单元格中的值修改后，其所在的工作表名称也相应修改为该单元格中的值。...在工作表代码模块中，输入下面的代码： Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const strNAMECELL As String...= "A1" Const strERROR As String = "在单元格中是无效的工作表名称" Dim strSheetName As String With Target If...以单元格A1中的数据为工作表名称，即用户在单元格A1中输入数据后，按下回车键，工作表名称即修改为单元格A1中的内容。
在之前的文章中我们讨论过NioEventLoop创建过程. 创建的第一个步骤就是创建线程执行器ThreadPerTaskExecutor, 这个线程执行器就是用来创建Netty底层的线程的....在学习Java的Thread时候，线程默认名称类似thread-0,thread-1,thread-2...以此类推....而线程的名称对于我们排查问题的时候也是起到很大作用的, 因此我们在设计线程池, 也会根据一定的规则给线程池中的线程命名, 这也是一个好的习惯....因此我们示例中的nioEventLoop-2-1的数字2就表示第2个线程池的意思. 也就是nioEventLoop-2-1这个名字的线程是在第2个线程池中的....所以示例nioEventLoop-2-1中的数字1就是表示线程池中的第1个线程, 整体就表示第2个线程池中的第1个线程.
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
腾讯会议
云直播
对象存储
