excelperfect 标签:VBA 这是在www.wimgielis.com中看到的一段代码,可以在工作表中自动添加一个矩形,用户可以指定矩形的大小和填充的颜色,以及指定相关联的宏。...VBA代码如下: Sub Add_Macro_Rectangle() Dim ws As Worksheet Dim sh...(1) If Len(s) = 0 Then s = .OnAction sText = Trim(Application.InputBox("请输入形状中的文本", "形状文本", s
标签:VBA 这是一段非常好的代码,来自ozgrid.com,可以使用它来快速排序VBA中的数组。 代码如下: '对一维或二维数组排序....matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...matches s = Left(s, v.FirstIndex + padOffset) & Application.Rept("0", (padLen - Len(v))) & VBA.mid...Erase tmp On Error GoTo 0 sortArray = arr End Function 下面是一个如何处理包含数字的字符串排序的小演示(可以使用自动筛选来查看默认排序与排序代码的结果对比
标签:VBA Q:我在工作表中放置有一些形状,例如圆形、矩形等,我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作,该如何实现?...图1 A:在示例工作表中,将上方的圆形命名为“椭圆示例”,下方的矩形命名为“圆角矩形”。...按Alt+F11键,打开VBE编辑器,插入一个标准模块,在其中输入代码: Sub testShape() If Application.Caller = "椭圆示例" Then MsgBox "...End If End Sub 然后,返回工作表,在形状中单击鼠标右键,将其关联到宏过程testShape。当你单击工作表中的形状时,结果如下图2所示。...图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。
标签:VBA,快捷菜单 弹出菜单(有时也称为上下文菜单或快捷菜单)是用户界面(UI)中的菜单,提供了一组命令选项,通过某些用户操作(如鼠标右键单击)在应用程序的当前状态或上下文中可用。...由于在2007 MicrosoftOffice系统中,Microsoft用功能区UI取代了命令栏菜单结构,这造成了创建在不同版本的MicrosoftOffice中工作的菜单的技术会有所不同。...在VBE中,单击“插入——模块”,在标准模块中的代码如下: Public Const Mname As String ="MyPopUpMenu" Sub DeletePopUpMenu() '...End Sub 回到Excel界面,按Alt+F8键,调出“宏”对话框,选择“CreateDisplayPopUpMenu”宏,单击“选项”按钮,在“宏选项”对话框中的“快捷键”中输入字母m,如下图1所示...图1 这样,在Excel工作表中,按Ctrl+m组合键,会出现如下图2所示的弹出菜单。 图2 当单击菜单中的按钮时,会弹出一个信息框,如下图3所示。
标签:VBA 有时候,工作簿中可能有大量的命名区域。...下面是一段简单的代码,它将列出工作簿中的所有定义的名称,并显示名称所指向的单元格区域。...'忽略错误 On Error Resume Next '遍历名称 For Each nm In Names '在列A中列出名称 wks.Range...("A" & Rows.Count).End(xlUp)(2) = nm.Name '在列B中列出名称指向的区域 wks.Range("B" & Rows.Count)...其中的错误捕捉语句以防止工作簿中没有命名区域。
标签:VBA 在使用Excel工作表时,我们往往会对某些单元格插入批注来解释其中的数据,用户也可能会插入批注来写下他们的建议。...如果你的工作表中有很多批注,而你不想逐个点开查看,那么可以将所有批注集中显示在工作表中。...本文给出的代码将获取工作表中所有的批注,并将它们放置在一个单独的工作表中,清楚地显示批注所在的单元格、批注人和批注内容。...ExComment.Text, Len(ExComment.Text) - InStr(1, ExComment.Text, ":")) End If Next ExComment End Sub 代码首先检查当前工作表中是否存在批注...如果有批注,则创建一个用于放置批注的名为“批注列表”的工作表,其中,在列A放置批注所在的单元格地址,列B放置写批注的人名,列C中是批注的内容。
excelperfect 有时候,我们可能想根据用户在工作表中的选择来决定隐藏或者显示功能区选项卡中的特定组,避免用户随意使用某些功能而破坏我们的工作表结构。 下面,我们通过一个示例来演示。...我们想让用户选择工作表列B中的任意单元格时,隐藏“开始”选项卡中的“剪贴板”组,而当用户选择其他单元格时,该组又重新显示,如下图1所示。 ?...图1:当用户选择的单元格在列B中时,“剪贴板”组隐藏,处于其他单元格中时,“剪贴板”组显示 首先,我们新建一个工作簿并保存。...图2:在Custom UI Editor For Microsoft Office中编辑输入XML 重新打开工作簿,按Alt+F11键打开VBA编辑器,插入一个标准模块,输入下面的代码: Public...ThisWorkbook模块,在该模块代码窗口中输入下面的代码: Private Sub Workbook_Open() If InRange(Range(Selection.Address),
标签:VBA 这是不是将工作簿中的每个公式转换为值的最快、最有效的方法,请大家评判。 有趣的是,不管工作簿中有多少张表,它都是用一个操作来处理的。...通常情况下,都是试图通过遍历工作表来做到这一点,然而并没有那么有效。...Paste:=xlPasteValues ActiveSheet.Select Application.CutCopyMode = False End Sub 如果工作簿中有隐藏的工作表,则上面的代码不起作用...Dim Goahead As Integer Dim n As Integer Dim i As Integer Goahead = MsgBox("这将不可逆地将工作簿中的所有公式转换为值。...注:本文代码整理自ozgrid.com,供有兴趣的朋友探讨。
学习Excel技术,关注微信公众号: excelperfect 本次练习题 这是一个有趣的VBA编程练习,来自于dailydoseofexcel.com。...使用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 在数字所在的工作表模块中...建议有兴趣的朋友多调试理解这段代码,帮助理解数组的运用、以及单元格的获取、偏移、设置等VBA操控Excel的基础知识。
excelperfect 一些情形下,我们需要在工作表中使用ActiveX控件,这通常使用VBA来实现。...要使用VBA从控件工具箱(ActiveX控件)中添加控件,可以使用OLEObjects集合的Add方法。...如下图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
例如处理类似的数据工作簿文件并想要提取数据或转换该工作簿。下面给出了适用这种情况的一些VBA程序,这些程序代码整理自analystcave.com,供有兴趣的朋友参考。..." End Sub 这段代码完成下列操作: 1.在当前工作簿路径中打开“选择文件”对话框,要求选择一个用于存储所有文件的文件夹。...3.使用要在每个打开的工作簿上运行的代码替换“在这里放置你的代码”部分。 4.每个打开的工作簿在关闭时不会保存所作的修改。..." End Sub 在工作簿所有工作表中运行宏 代码如下: '本程序来自于analystcave.com Sub RunOnAllWorksheets() Dim folderName As String..." End Sub 代码中: 1.打开ActiveWorkbook中的每个工作表而不是ActiveSheet,可以根据需要删除If语句。
标签:VBA 有时候,我们想将工作簿中的每个工作表都保存为一个单独的工作簿。 你可以使用下面的操作逐个保存工作表: 1.在工作表标签中单击右键。 2.选取“移动或复制…”命令。...3.选择“(新工作簿)”。 4.保存该工作簿。 图1 这样,有多少工作表,你就要操作上面的步骤多少次。 然而,如果存在很多个工作簿,这样的重复工作使用VBA是最合适的。...下面是代码: Sub SaveWorksheetsToWorkbook() Dim wks As Worksheet Dim strPath As String Dim strFileName...Next wks Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub 只需在要拆分的工作簿中运行上述代码...,就可将该工作簿中的所有工作表全部保存为单独的工作簿。
excelperfect 在工作表中查找值是很常见的操作,我们可以使用VLOOKUP函数、MATCH函数、INDEX函数等来查找值。...当使用VBA代码在大量的数据中进行查找操作时,灵活运用工作表公式,往往能够提高效率。...$G:$G)-1) 接着,在VBE的标准模块中输入代码: Sub CopyData() Dim lLastRowA As Long Dim rngA As Range Dim rngValueA...,但使用工作表公式使得程序代码更简洁,效率更高。...说明:本文的例子只是演示公式在VBA中的运用。其实,本例在工作表中使用VLOOKUP函数也很容易。
Number.isNaN(new Date(...val).valueOf()); isDateValid("December 17, 1995 03:24:00"); // Result: true 3、找出一年中的哪一天...1000 / 60 / 60 / 24); dayOfYear(new Date()); // Result: 272 4、将字符串大写 Javascript 没有内置的大写函数,因此我们可以使用以下代码...new Date("2021-10-22")) // Result: 366 6、清除所有 Cookie 你可以通过使用 document.cookie 访问 cookie 并清除它来轻松清除存储在网页中的所有...你可以使用 JavaScript 中的 Set 轻松删除重复项。...slice(1); rgbToHex(0, 51, 255); // Result: #0033ff 总结 这18条非常实用的JavaScript One Lines,请你收藏好,如果有任何问题,请记得在留言区告诉我
可以在启动(当Excel开启时)动态设置值,可以在运行时改变它们的值(在使元素无效后通过使用VBA回调过程)。...例如,下面的示例XML代码和在标准VBA模块中的代码在运行时满足某条件时隐藏(和取消隐藏)“对齐方式”组: ? customUI元素包括带有Initialize回调过程的onLoad属性。...在Excel 2010及之后的版本中,InvalidateControlMso方法仅使“对齐方式”组无效。在Excel 2007中,Invalidate方法使功能区无效。...如果活动工作表不是标准工作表,就隐藏该组,否则该组可见。 注意,当打开工作簿时,创建ribbon对象。编辑VBA代码可能销毁这个新创建的对象。...在标准VBA模块中的VBA代码: Public myRibbon As IRibbonUI 'Callback for customUI.onLoad Sub Initialize(ribbon As
在VBA代码中,经常要引用单元格数据区域并对其进行操作。然而,如果对数据区域采用“硬编码”地址,那么当该区域大小变化时,必须修改相应的引用该区域的代码。...本文整理了可以动态引用数据区域的5种方法,供编写代码时参考。 方法1:使用UsedRange属性 工作表对象的UsedRange属性返回一个Range对象,代表工作表中已使用的单元格区域。...代码: Sub DynamicRange1() '刷新已使用区域 ActiveSheet.UsedRange '选择已使用区域 ActiveSheet.UsedRange.Select...因此,本方法适用于数据区域的第一列在最后一行有值且第一行在最后一列有值的区域。...lngLastRow,lngLastColumn)).Select End With End Sub 方法3:SpecialCells方法——最后一个单元格 使用SpecialCells方法来查找工作表中包含数据的最后一个单元格
因此,我们要掌握ExcelVBA编程,必须理解: 1.什么是对象 2.如何操控VBA对象 3.Excel VBA对象模型 刚开始接触对象和对象模型的朋友,可能会被一些概念搞糊涂,这是正常的,随着不断地学习和使用...在某些情况下,集合非常有用。例如,假设想对一组特定的对象执行某些操作,如果所有这些对象都是同一集合的一部分,则可以构造VBA代码以遍历集合的每个成员并执行所需的操作。...所以,集合允许同时处理一组完整的VBA对象,而不是处理每个单个的对象。 以下是常见集合的示例: Workbooks,当前打开的所有Excel工作簿的集合。...实际上,可以简化对象引用,使代码更简短。 之所以能够简化完全限定引用,是因为Excel VBA对象模型有一些默认的对象,当没有明确输入时,Excel会假设你引用的是这些对象。...这样,上面的完全限定引用代码可简化为: Workbooks(“Book1.xlsm”).Worksheets(“Sheet1”).Range(“A1”) 情形2:当前工作簿和当前工作表 Excel总是假设你在处理当前工作簿
excelperfect 如果要在功能区选项卡中添加标签,那么执行下面的步骤: 1. 创建新工作簿并保存为启用宏的工作簿。 2. 关闭该工作簿,然后在CustomUI Editor中打开该工作簿。...getLabel是一个回调属性,赋值VBA过程的名称,本例中为getLabel1回调过程。该过程在首次打开该工作簿时或者在使该控件无效时执行。...上述3种方法不仅能够使控件无效,而且可以使组和选项卡无效。我们称它们(控件、组和选项卡)为元素。元素可能有多个回调属性。...一旦使某元素无效,任何与该元素相关的数据就被销毁,并且通过调用所有的在XML代码中声明的该元素的回调属性引用的VBA过程来自动刷新该元素。因此,要提高效率,应仅使必需的元素无效。...之后,要将其粘贴到工作簿的VBA模块中。 7. 保存并关闭该文件。 8. 在Excel中打开该工作簿文件。
例如,下面的XML代码和VBA代码能够在运行时满足某条件时使“加粗”和“下划线”控件禁用(和启用): image.png 注意,两个command元素的getEnabled属性都引用相同的getEnabledBU...示例XML代码: image.png 在Excel中打开该工作簿时,自动执行Initialize回调和GetEnabledAttnSh回调。...在标准VBA模块中的代码: Public myRibbon As IRibbonUI Public myID As String 'Callback for customUI.onLoad Sub...End Sub 要基于其在XML代码中的id禁用(和启用)某自定义控件,在现有的标准VBA模块或者新的标准VBA模块中包括下面的代码: Sub EnableAll() Call RefreshRibbon...,在活动工作表不是标准工作表时禁用这三个控件,只需在ThisWorkbook模块中包括下面的事件处理代码: Private Sub Workbook_SheetActivate(ByVal Sh As
开始 首先,要在Excel中运行Python代码,你需要使用PyXLL包。PyXLL使我们可以将Python集成到Excel中,并使用Python代替VBA。...将Python中的数据移回Excel 从Python到Excel的另一种传输方式也可以正常工作。...从Excel调用Python函数 你可以直接从Excel工作簿中调用Python函数,而不是在Excel和Jupyter之间不断移动数据然后运行一些Python代码 PyXLL的主要用例之一是用Python...return (a * b) + c 输入代码并在Jupyter中运行单元格后,即可立即从Excel工作簿中调用Python函数。 不只是简单的功能。...在Excel中运行Jupyter笔记本也使一切变得更加便捷! 使用PyXLL的xl_app函数获取“ Excel.Application”对象,该对象等效于VBA中的Application对象。
领取专属 10元无门槛券
手把手带您无忧上云