Tag: button

在Excel VBA中暂停/恢复循环（点击）: 所以，我正在使用一个相当大的Excel工作表。我创造了很多function，因为它相当复杂。当我告诉它执行它需要相当长的时间。我已经创build了一个计时器，告诉它如何进入它的过程（如图所示）：现在。我非常想要暂停button。我曾尝试过： Private Sub PauseButton_Click() Application.Wait Now() + TimeValue("00:00:20") End Sub 这实际上是暂停过程。我最初的想法是input一个非常大的数字，然后继续点击button。不幸的是我不能恢复（ DoEvents ）这个过程，因为Excel似乎完全冻结了input的时间。如果您对如何解决这个问题有任何想法，他们将会大受欢迎。

Excel：如何知道组中的单选button？: 在我的电子表格中，我设置了一系列（表格控制）选项button，每行六个，每行回答一个问题。每行应该被链接到同一个单元格，但是我在任意改变链接时遇到了问题。我读到，我应该把每行button放在一个组框中，我正在尝试。但是，由于大部分button之前工作正常，我不能确定我是这样做的权利。 button行靠得很近; 我可以不小心将两行放在同一个盒子里。有没有办法告诉哪个button在给定的组？另外，您可以将组框分配给链接的单元格，还是必须单独分配button？

调用每个包含特定macros的button: 我正在尝试为每个循环检查活动工作表中的每个button，以查看该button是否包含某个macros。如果正确的macros被分配给button，那么我希望button调用子，然后转到下一个button。这是我如何描绘它： Sub ExecuteAllButtonsContainingX() Dim Btn As Button Dim Btn_count As Integer Btn_count = 1 For Each Btn In Application.Workbooks.ActiveSheet.Buttons Btn(Btn_count).Select If ***[The selected button contains Macro X]*** Then ***[Call the macro that is assigned to the selected button as if the button was clicked on]*** Else End If Btn_count = Btn_count + 1 […]

VBA EXCEL在特定行上添加空行: 我想写一些VBA，允许button添加一个空行，保持相同的格式，只是在SUM公式所在的行上面。到目前为止，我创build了一个空行，但我不知道如何实现代码，让新的行inheritance相同的格式样式（包括边框和格式单元格）。我的代码到目前为止是： Sub InsertRev() Dim c As Range Set Rng = ActiveSheet.Range("d1:d5000") For dblCounter = Rng.Cells.Count To 1 Step -1 Set c = Rng(dblCounter) If c.Value Like "*TOTAL*" Then c.EntireRow.Insert End If Next dblCounter End Sub 任何帮助将不胜感激。

Excelmacrosbutton将页面错误向上移动: 在Excel中，我有一个button，将选定的单元格标记向上移动20个位置，相对于原来的单元格。它工作正常，直到它到达顶部，然后有一个错误。我得到，这是[最有可能的]由于它超出范围，所以我试图做一个if else语句来解决它 – 我认为，因为我不是100％熟悉函数名称我找不到正确的措辞说：如果细胞超出范围，使等于0,0或类似的东西。这是我迄今为止; 唯一有效的是声明的其他部分： Sub moveUp20() ' ' Move Up 20 Macro ' ' If ActiveCell.Offset(-20, 0) <= Range(0, 0) Then ActiveCell.Select = Range(0, 0) Else ActiveCell.Offset(-20, 0).Select End If End Sub 这可能是简单的，因为我不熟悉Excel的macros编程术语/语义，所以我将不胜感激一些帮助！谢谢！ 🙂

在VBA中单击一个img的第二个button: 我想通过使用getAttribute（“src”）在IE上单击一个图像button，但有相同的button具有相同的src代码，所以当我使用这个代码，它点击第一，我想点击第二。有人可以帮我吗？我正在考虑创build一个循环来search并select第二个，但我不知道如何编写代码！有人能帮我吗？这是我用来点击第一个button的代码： Set allInputs = IE.Document.getElementsByTagName("img") For Each Element In allInputs If Element.getAttribute("src") = "/forms/Content/Images/0006.gif" Then Element.Click Exit For End If Next Element 这些button的HTML代码是： <tr class="jqgfirstrow" role="row" <tr tabindex="-1" class="ui-widget-content jqgrow ui-row-ltr" id="1" role="row" < img src="/forms/Content/Images/0006.gif" <tr tabindex="-1" class="ui-widget-content jqgrow ui-row-ltr" id="2" role="row < img src="/forms/Content/Images/0006.gif"

Excel – 如何在Workbook_Open事件上创buildbutton: 我试图使任何工作簿打开时，Excel加载项创build一个简单的button，但我越来越对象variables或With Blockvariables未设置我认为这是因为技术上没有“ActiveWorkbook”呢。我想要做的第一件事是删除工作表上当前的任何button。然后我想要放一个button。任何人都知道如何做到这一点？码 Private Sub Workbook_Open() ActiveWorkbook.ActiveSheet.Buttons.Delete Dim CommandButton As Button Set CommandButton = ActiveWorkbook.ActiveSheet.Buttons.Add(1200, 100, 200, 75) With CommandButton .OnAction = "Test_Press" .Caption = "Press for Test" .Name = "Test" End With End Sub 然后我有一个Private Sub Test_Press()来显示一个MsgBox。该button没有被创build。

Excel：button操作代码 – 为什么我不能使用工作簿和工作表模块: 我有一个个人工作地图，包含一个模板（使用vba代码和一个button操作），当需要时我将其复制到工作表中。它创build一个表格，快速访问许多> 25张，如假popup（excel 2016 macos）。当我将它直接编程到工作表模块时，它确实工作正常。它收集表单并用下面的代码创buildbutton。 Set btnRng = TOC_WS.Range(Cells(lastRow, btnCol), Cells(lastRow, btnCol)) Set btn = TOC_WS.Buttons.Add(btnRng.Left, btnRng.Top, btnRng.Width, btnRng.Height) With btn .OnAction = "btnAction" .Caption = WS.Name .Name = WS.Name End With 和button子…. Sub btnAction() …… End Sub 但是现在由于某种原因，当被调用的子文件在Sheet模块中时，它不起作用。我收到通知，它无法find。如果我把它放到一个代码模块的工作。我当然searchtenetworking，但找不到任何说不能工作的东西。我的问题 – 我怎样才能让button操作回到与代码的其余部分相同的工作表模块？

如何在excel中删除大量的命令button: 我有一个macros，我已经devise从互联网上检索信息，然后将信息处理成我想要的格式。我的工作簿中的第一个工作表作为我的命令页面，所有后续的工作表都基于我告诉我想要的命令页面填充。我已经在命令页面上为控制button分配了所有我希望macros执行的所有function，以便从Web上获取数据，以便我可以select要应用的function。不过，我相信在某个地方，我告诉我的代码复制一个特定的命令button。一个function现在有超过7000个命令button。谢谢，他们都堆叠在一起，所以它不是很明显，但是它开始减慢我的优势。有没有办法pipe理你所有的button，然后select你想要删除的button？也许一个macros，删除所有重复的命令button名称会做的伎俩？在我尝试这种方法之前，我想看看是否有一个更容易解决我的问题。

行select和复制button: 我正在尝试在Excel中使用一个button将活动工作簿中的一定范围的单元格复制到另一个工作簿。当我为指定的macros指定每个button的固定范围时，复制工作是完美的，但是我难以理解如何在每个button上使用相同的macros，以及button的行号来指示要复制的数据行。每行包含6个左右单元格，第7个单元格包含button。当用户按下此button时，需要复制与包含按下button的行相同的行上的6个单元格。当谈到VBScript时我是一个完全新手，但是很多谷歌search引起了我的兴趣： Sheets("SurfaceThreats").Range("A4:F4")Copy_ Sheets("ORBAT").Cells(Rows.Count,1).End(x1Up).Offset(1,0) 当然，有一个比每个button分配一个不同的，固定范围的macros更优雅的解决scheme。