Tag: button

Excel VBA – 基于更新到相邻单元更改button可见性: 我有“AK”列中的数据和“AL”列中的一个button; 有几百行，所有button只有一个macros，因为它使用基于它所在行的相对引用。我希望button只有在相邻单元格中有数据时才可见。下面的伪代码解释了我试图达到的目的： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 37 Then If Target.Value = 0 Then Shapes(Target.offset(0, 1)).Visible = False Else Shapes(Target.offset(0, 1)).Visible = True End If End If End Sub 这样做的原因是，AK中的值是基于其他值计算的，只有在所有必填字段完成后才显示。完成所有细节后，该button只能用于自动化任务。什么真正的代码会使这个工作，而不必单独调用每个button？

自动插入的button和分配给它的macros不能正常工作: 我写的代码自动把button放在需要的地方，并为它指定一个macros： Sub CreateButton(a, b, c, d As Double, s As String) ActiveSheet.Buttons.Add(a, b, c, d).Select Selection.name = s Selection.OnAction = "Button_ACTION" Selection.Characters.Text = s End Sub 整个macros如下进行，首先删除表单上的所有button，然后在需要的位置插入button并将macros分配给它： Private Sub Button_ACTION() Dim o As Object Dim r, i, c As Integer Set o = ActiveSheet.Buttons(Application.Caller) With o.TopLeftCell r = .Row c = .Column End With … […]

应用程序键作为主页button: 我正在Excel工作簿中收集测量数据。所有的测量结果都显示在单独的表格中。每张纸的测量值的平均值和最大值显示在主页（名称为“1”）中我添加了一行代码，通过在单元格J23中input表单名称并单击button，从主表单跳转到某个表单。现在我想添加一个物理按键/button，以返回到首页。例如与ctrl + b 不幸的是我的代码还没有工作。我粘贴了下面的代码，希望有人有一个解决scheme。提前致谢 Sub Macro1() i = Sheets("1").Range("J23").Value Worksheets(i).Select End Sub Sub Home() Application.OnKey "^b", Worksheets("1").Select End Sub

在Excel上分组单选button: 我在同一个Excel工作表上有两组单选button，我只希望它们彼此独立工作。我试图在网上search答案，并知道有GroupName属性可以用来分组单选button，但是，我一直无法find这个属性。谁能告诉我如何find它？在格式控制窗口的属性选项卡下只有对象定位。

Excel VBAbutton单元格地址是错误的: 我有一个工具，在那里我自动插入多个小button（假设列C1：C90，E1：E90，G1：G90 …），根据一些select标准。我正在使用Worksheet类的.Buttons.Add方法来创buildbutton。当我点击一个button时，我无法find正确的单元格地址。例如，如果我点击单元格C2中的button，它给出C70单元格地址，如果我点击E4它仍然给其他一些单元格地址。我尝试下面的代码。谁可以帮我这个事？， Sub Mainscoresheet() ' Mainlineup Macro to add button Dim b As Object, RowNumber,ColNumber As Integer Set b = ActiveSheet.Buttons(Application.Caller) With b.TopLeftCell RowNumber = .Row ColNumber = .Col End With MsgBox "Row Number " & RowNumber MsgBox "Row Number " & ColNumber End Sub 我添加下面的button添加function。 XRow = 7: xCol […]

如何在列的第一个空白单元格中创buildbutton: 我试图创build一个button，如下所示： Selection.Characters.Text = "Hide" With Selection.Characters(Start:=1, Length:=4).Font .Name = "Calibri" .FontStyle = "Regular" .Size = 11 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .ColorIndex = 1 我希望button出现在B列末尾的空白单元格中，在单元格B4之后（单元格B1-B3也可能不总是有值）谢谢

UserFormbutton仍然正常运行时禁用: 我正在禁用buttononclick，但它仍然允许点击。代码如下所示： UsrForm.Field1.Value = "" UsrForm.Field2.Value = "" UsrForm.btn.Enabled = False UsrForm.Repaint /*Processing Occurs*/ UsrForm.Field1.Value = val1 UsrForm.Field2.Value = val2 UsrForm.btn.Enabled = True 但是，如果我双击或点击几次禁用button，它仍然运行该方法几次，尽pipe被禁用。

Excel VBA：通过代码lockingbutton的纵横比: 我有以下代码将button放在特定单元格的工作表上。 Sub insertRowButtons() Dim btn As Button Application.ScreenUpdating = False ActiveSheet.Buttons.Delete Dim t As Range 'to show details for all groups ActiveSheet.Outline.ShowLevels rowlevels:=5 'use this lines for rows Dim arr As Variant arr = Array(20, 32, 44, 56) For i = 0 To UBound(arr) Set t = ActiveSheet.Range(Cells(arr(i), 4), Cells(arr(i), 4)) Set btn = ActiveSheet.Buttons.Add(t.Left, […]

针对多个类似dynamic创build的命令button的动作: 我正在Excel VBA中编写一个程序，基本上会以一个文本框和一个命令button开始，命令button将在它下面创build一个新的文本框和命令button，而该命令button将依次创build一个新的文本框和命令button，等等。希望你跟着那个烂摊子。我可以创build初始button没有问题（它必须dynamic创build，所以有机会稍后删除）。我的问题是创buildclick()事件处理程序。我需要所有的click()事件来做同样的事情，但是将它们命名为相对于自己名字的新对象。这一切都让我心动，我真的很感激一点帮助。随意要求提供具体的信息，但是我还没有真正能够把我的头围绕在这个话题上，足以编写一些testing代码。

在不同的工作簿上使用macros创build一个button: 我目前有一个macros创build另一个工作簿，并添加一个button。我已经为button分配了一个macros，但我相信我仍然需要主工作簿来实际运行macros。有没有办法让macros在新的工作簿上运行而不涉及主工作簿？换句话说，是否可以以编程方式将button添加到具有macros的新工作簿，并使其独立于原始工作簿？提前致谢！