标签：Excel技巧 有时候，我们想在单元格中显示图片，然而又不想使用VBA，该怎么办呢？有一种方法，就是使用单元格批注。...可以将图片添加到单元格批注中，这样，用户鼠标在该单元格上时，就会显示图片，无需VBA，非常简单，如下图1所示。 图1 下面讲解实现步骤。...步骤1：在单元格中单击右键，从快捷菜单中选择“插入批注”命令，如下图2所示。 图2 步骤2：选择批注，单击右键，从快捷菜单中选择“设置批注格式”命令，如下图3所示。...图3 步骤3：在“设置批注格式”对话框中，选择“颜色与线条”选项卡，单击“颜色”下拉框，从中选择“填充效果”命令，如下图4所示。...图5 步骤5：在下图6所示的对话框中，选择从哪里选取要插入的图片。 图6 步骤6：选择要插入的图片，“填充效果”对话框如下图7所示。
本文主要讲解设置工作表单元格或单元格区域格式的VBA代码，包括设置字体、数字格式、文本对齐、填充单元格背景色、设置单元格边框等。...数字格式 示例代码： '将单元格中的数字格式设置为分数 Range("A1:C3").NumberFormat= "# ?/?"...'显示完整的星期名 Range("A1").NumberFormat= "dddd" '清除单元格中的数字格式 Range("A1").NumberFormat= "" 更多关于自定义数字格式的内容请参考完美...Excel微信公众号（公众号名：excelperfect）的文章《Excel揭秘2：自定义数字格式原理与应用》。...使用颜色填充单元格 示例代码： '使用指定颜色填充单元格区域的背景色 With Range("A1:D3").Interior '设置为xlNone则无填充 .Color = vbBlack '-1(最暗
标签：VBA 将某工作表中的格式转换到另一个工作表 示例代码： Sub TransferFormat() '源格式工作表 Dim sht1 As Worksheet '要应用格式的工作表 Dim...sht2.Cells.PasteSpecial xlPasteFormats '给新工作表命名 sht2.Name = "New" End Sub 选择单元格 有多种方法可供挑选，看你的喜好或所用的环境...例如，选择当前工作表单元格D5： ActiveSheet.Cells(5, 4).Select 或者： ActiveSheet.Range("D5”).Select 选择另一个工作表中的单元格E6： Application.Goto...Sheet2").Range("E6")) 或者，先激活该工作表再选择： Sheets("Sheet2").Activate ActiveSheet.Cells(6, 5).Select 选择当前工作表中的单元格区域...Range(Cells(2, 3), Cells(10, 4)).Select 选择另一个工作表中的单元格区域D3:E11： Application.Goto ActiveWorkbook.Sheets
标签：VBA实用代码 一个单元格区域内有一组数字，这些数字中存在多个相同的数字，想要将这些数字中的唯一值提取出来并组合成一串数字文本，如下图1所示。...图1 可以使用VBA编写自定义函数来实现，代码如下： Function ConcatenateUnique(ByRef rngRange As Range, _ Optional ByVal...If End If Next rng '返回结果字符串 ConcatenateUnique = strAnswer End Function 这个函数仅将指定单元格区域中的唯一值使用可选的格式字符串连接起来...如果未指定格式字符串，则被视为字符串（@）。此函数在每个值之间插入分隔符字符串，默认分隔符设置为” ”。 这段代码来自strugglingtoexcel.com。...通常，我们会考虑使用Dictionary对象，在连接符合要求的值之前获取唯一列表。然而，这段代码另辟蹊径，使用了VBA中的InStr函数，在连接之前检查是否已将值添加到结果中，如果没有则添加。
标签：VBA 如果你不想隐藏工作表中的某些单元格，但是又不想将这些单元格打印出来，那么下面的程序可以帮助你实现这一点。这个程序来自于mcgimpsey.com，辑录于此供有兴趣的朋友参考。...在要隐藏打印区域的每个工作表上，选择要隐藏的区域（可以是非连续的），并为其指定一个工作表级名称“NoPrintRange”。...按Alt+F11键，打开VBE，双击ThisWorkbook打开该代码模块，输入下面的代码： Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim....ScreenUpdating = bOldScreenUpdating .EnableEvents = True End With End Sub 这样，当你打印工作表时，不希望打印的单元格区域看不到内容
现在想要将“just”提取出来，并将其放置在相邻的单元格B1中，如何使用VBA代码来实现这样的操作？...A：可以使用VBA中的InStr函数来查找左尖括号“”的位置，然后使用Mid函数来提取尖括号之间的内容。当然，可以使代码更简单一些，使用Like运算符和Split函数。...下面分别给出这两段VBA代码。...*>*" Then rng.Offset(, 1).Value = Split(Split(rng,Chr(60))(1), Chr(62))(0) Next rng End Sub 注意，上述代码假设要提取字符的单元格处于以单元格...A1开始的列A中，提取后的字符放置在相邻的列B中对应的单元格中。
标签：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程序，有兴趣的朋友可以去看看。
excelperfect 如果要在功能区选项卡中添加标签，那么执行下面的步骤： 1. 创建新工作簿并保存为启用宏的工作簿。 2. 关闭该工作簿，然后在CustomUI Editor中打开该工作簿。...（不适用于Excel 2007） 第2种：InvalidateControl可以使指定的自定义控件无效。 第3种：Invalidate可以使功能区中所有的内置和自定义控件无效。...一旦使某元素无效，任何与该元素相关的数据就被销毁，并且通过调用所有的在XML代码中声明的该元素的回调属性引用的VBA过程来自动刷新该元素。因此，要提高效率，应仅使必需的元素无效。...插入一个标准VBA模块并粘贴刚才复制的回调代码。 11...., " & Application.UserName End If End Sub 关闭后重新打开工作簿，在自定义选项卡中的标签控件显示如下图： ?
excelperfect 这是本系列文章讲解的最后一种在功能区中添加的自定义控件类型，也是用于组织多个命令的一种非常有用的控件——菜单控件。...添加该控件的步骤与前面文章介绍的相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...在Excel中打开该工作簿，然后打开VBE，插入一个标准的VBA模块，输入下面的代码： 'Callback for button1 onAction Sub Macro1(control As IRibbonControl...注意，本例只是演示了使用XML在菜单控件中添加按钮和菜单控件，也可以添加其他类型的控件，例如切换按钮、拆分按钮、库、复选框、通用控件和动态菜单。...在后面的文章中我们会详细介绍添加动态菜单这类特殊的控件。 下图演示了在自定义选项卡中添加的菜单控件的效果： ?
excelperfect 在自定义功能区时，我们可以插入图像到自定义库中，图像文件的类型可以是ico、bmp、png、jpg和tif。 要给自定义功能区选项卡添加库控件，执行下列步骤： 1....插入一个标准的VBA模块，并粘贴在步骤9中复制的回调代码。 14. 在过程中添加一个MsgBox语句来测试控件。...图2 代替上述第4步和第5步中手工插入图像，可以通过使用VBA过程使用相同的图像填充库。通过赋VBA过程的名称到loadImage回调属性来实现。下面列出了XML代码和VBA代码： ?...Excel\使用VBA操控Excel界面\04....自定义功能区\13\" & imageID) 'msgbox ImageName End Sub 该过程遍历XML代码中的每个item元素，查找图像的文件名并获取图像装载到库控件。
学习Excel技术，关注微信公众号： excelperfect 在上篇文章《VBA专题10-12：使用VBA操控Excel界面之在功能区中添加自定义组合框控件》中，我们详细介绍了如何在自定义功能区中添加组合框...使用组合框，我们不仅可以从中选取列表项，还可以在其中输入文本。然而，本文介绍的下拉控件仅允许用户从控件下拉项中进行选择。 正如前面的文章中讲解的，在功能区中添加下拉控件的步骤都是相同的。...新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...图1 在VBE中添加回调代码： 'Callback for dropDown1 onAction Sub SelectedItem(control As IRibbonControl, id As String...图2 说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。
下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件，它们与最底层的自定义命令相关。这里的自定义命令是指程序员自已编写的VBA过程。...添加按钮 如果要在内置功能区选项卡中添加两个按钮，在单击这些按钮时会调用VBA过程，那么执行下面的步骤： 1. 创建新工作簿并保存为启用宏的工作簿。 2....选择“Insert | Sample XML | Custom Tab”，作一些修改，或者复制并粘贴下面的XML代码，在功能区“插入”选项卡中添加包含两个按钮（标记为Insert 0和Insert 1，...如果要使用自已设计的图像，只需使用image属性替换掉imageMso属性。 onAction属性是一个回调属性。该属性的值是在单击按钮时要执行的VBA过程的名称。 5....插入一个标准VBA模块并粘贴刚才复制的回调代码。 11.
标签：VBA，表 在Excel中，有时候你可能希望在VBA代码的帮助下动态创建表，然后在该表中进行更多的数据操作。下面是几段代码。...CurrentRegion, , xlYes) objList.Name = strTable End Sub 有时候可能更复杂，有可能是用户已经创建了一个表，因此需要测试该表，在这种情况下，所需代码变得更复杂...下面的过程将删除表，但保留表的格式，使其看起来像一个表，但执行起来像正常的Excel单元格区域。...Sub RemoveTable() Sheet1.ListObjects(1).Unlist End Sub 下面的代码删除表和表的格式，因此就像一个包含常规数据的工作表。...创建表后使用表名有助于以后引用表。
excelperfect 本文是前面一系列文章的综合，前面每篇文章讲解如何在功能区中添加一类自定义控件，本文讲解如何将在功能区中同时添加这些控件。...添加该控件的步骤与前面文章介绍的相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ? ? ? ? ? ?...在Excel中打开该工作簿，然后打开VBE，插入一个标准的VBA模块，输入下面的代码： 'Callback for button1 onAction Sub Macro1(control As IRibbonControl...在该工作簿的自定义选项卡中的不同类型的控件如下图所示： ? 下图演示了在自定义选项卡中各类控件的效果： ?...说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。
excelperfect 添加的步骤与本系列上一篇文章《VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件》中的步骤相同，即：新建一个启用宏的工作簿并保存，关闭该工作簿，然后在...CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...重新打开该工作簿后，在“Custom”选项卡中显示含两个切换按钮的组，如图1所示。我们看到，一个按钮带有标签，一个没有标签。可以对照XML代码看看自定义的界面是怎么创建的。 ?...图1 在VBE中添加回调代码，返回切换按钮的状态： 'Callbackfor toggleBtn1 onAction Sub Macro1(control As IRibbonControl, pressed...Sub 单击自定义的按钮，会根据按钮是否被按下，弹出下图2所示的信息框，这是切换按钮被按下时显示的信息。
添加拆分按钮控件的步骤与本系列前面文章（参见：VBA专题10-10：使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件...）中的步骤相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...图1 在VBE中添加回调代码： 'Callbackfor Btn1 onAction Sub Macro1(control As IRibbonControl) MsgBox control.Tag...Callbackfor menuButton3 onAction Sub Macro3(control As IRibbonControl) MsgBox "执行Macro3" End Sub 单击自定义的拆分按钮...图2 说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。
经过本系列前面几篇文章（参见：VBA专题10-11：使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件、VBA专题10-10：使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、...VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件）的学习，我们对于在功能区中添加自定义控件的步骤应该很熟悉了。...同样，这里讲解的添加组合框控件的步骤与前面介绍的步骤相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...图1 在VBE中添加回调代码： 'Callback for comboBox1 onChange Sub Combo1_onChange(control As IRibbonControl, text...图2 小结：经过前面几篇文章的学习，我们应该熟悉在功能区中添加自定义控件的步骤通常有两大步，即首先编辑其XML文件添加界面元素，然后添加代码以实现功能。
标签：VBA，Split函数 使用VBA时，有可能需要根据分隔符将字符串拆分为不同的部分。此时，就可以使用VBA的Split函数。...可以使用类似的代码在VBA中创建一个自定义函数，该函数将文本作为输入并返回单词数。...图5 如果想要将单行地址拆分为消息框中显示的格式时，可以使用。然后，可以创建一个自定义函数，该函数将返回分为三部分的地址（每一部分在新行中）。...图6 示例5：获取文本中指定的字符串 使用VBA中的Split函数，可以指定要使用结果数组的哪个部分。 下面是一个自定义函数的代码，可以在其中指定一个数字，它将从数组中返回该元素。...图7 注意，当所有地址的格式都一致时，这个自定义公式最合适——即城市总是在第一个逗号后出现。如果数据不一致，就不会得到想要的结果。
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM
