Tag: commandbutton
自动将命令button链接到单元格值
我试图做的代码由2部分组成。 我设法做的第一部分，但我很难搞清楚第二部分。 第一部分：在一个文本框中填写项目编号（例如211），然后命令button运行一个macros，并在新行中填充该编号，生成一个名为211的工作表（在工作簿中），然后添加一个新的命令button到项目编号。 所以这个想法是，在主表单上有一个包含项目编号的整个列表，每个编号旁边都有一个命令button，转到相应的工作表。 所以可以很容易地有50个项目号码，50个命令button和50个工作表。 这是代码： Dim MySheetName As String Set pasteSheet = Worksheets("Mainsheet") Dim aRange As Range Dim sValue As Variant, findMe As Range, sWhere As Range sValue = TextBox1.Value Set sWhere = Range("B4:B700") Set findMe = sWhere.Find(What:=sValue, After:=sWhere(1)) If findMe Is Nothing Then LastRow = pasteSheet.Cells(pasteSheet.Rows.Count, "B").End(xlUp).Row Worksheets("Mainsheet").Range("B" & LastRow + 1).Value = […]
Excel VBA：将macros指定给commandbutton来创build超链接
我是新来的，正在为这个超链接的function而努力。 我正在使用一个用户表单，我有一个commandbutton。 我想命令button（当点击）创build一个超链接 – 基本上，带我到插入超链接窗口，在那里我可以编辑/分配我自己的超链接。 代码是什么样的？
在不同的工作表中启动来自activex控件的过滤数据的副本
我有问题复制和移动过滤的数据到一个新的工作表进一步评估。 目标是使用sheet1上的activex文本框和命令button来过滤sheet2（Data）上的数据，并将结果复制到sheet3（Calculation）中。 这是我正在使用的代码： Private Sub CommandButton1_Click() Sheets("Data").Range("C2").Value = TextBox1.Text Worksheets("Data").Select ActiveSheet.ListObjects("Table1").Range.AutoFilter _ field:=21, Criteria1:="=*" & TextBox1.Text & "*" Range("Table1[[#Headers],[Comp Date]]").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheets("Calculation").Select ActiveSheet.Paste End Sub 当我在sheet1的模块上运行此代码时，我收到对象“_Worksheet”失败“错误消息的”方法范围“。 但是，如果我把与复制和粘贴任务有关的代码放到由第二个命令button启动的sheet2模块中，它就可以正常工作。 我想完成这两个filter，并复制和粘贴，如果可能的话按下一个button。 任何人都可以提供任何帮助，我要去哪里错了？
excel vba检查命令button和checkbox是否存在
我有一个使用checkbox和命令button的脚本，并且有一个macros将它们重置为每个工作表的默认值。 'opt button reset For i = 1 To Worksheets.Count Sheets(i).Shapes("Option Button 1").ControlFormat.Value = xlOn Next i 'cb reset For i = 1 To Worksheets.Count Sheets(i).Shapes("CheckBox1").ControlFormat.Value = xlOff Next i 问题是，如果没有checkbox或selectbutton的工作表，脚本不起作用 我想要做的是检查cb和ob是否存在，只执行脚本比。 提前致谢
将activeX控件的命令button连接到一个模块
好吧，这是我的问题。 是否可以从Excel表单上的ActiveX控件命令button调用模块？ 这是情景：我有一个名为菜单。 在菜单上，有10个activeX控制命令button。我需要命令button来调用或链接到一个模块。 关于如何实现这一点，我一点也不知道。 这甚至有可能吗？ 如果是这样，我该如何去做呢？ 如果不是，有没有其他的select？ 非常感谢你。
VBA Excel尽pipeuserform窗口运行代码然后停止button单击
在这里和谷歌发现一些提示，但不能正确实施。 说我有一个循环运行，我需要显示一个button“取消”的框。 代码必须运行，直到我按下button。 在下面的例子中，我使用了For循环，并在Label1.Caption中显示迭代编号 ' action of UserForm1 on Button Click Private Sub CommandButton1_Click() cancel = True End Sub Public cancel as boolean Sub example () cancel = False Dim i As Integer For i = 1 To 1000 Application.Wait (Now + #12:00:01 AM#) UserForm1.Label1.Caption = CStr(i) UserForm1.Show vbModeless If cancel = True Then Exit […]
使用鼠标右键/左键单击function，在多个单元格中更改添加值的VBA代码
我是新来的Excel和我有一个工作表与几个命令button。 我想知道是否可以通过左击（正常）和右击来为多个单元格添加值。 例如，如果我离开单击命令button，它将向单元格A1添加（+ 1），但如果我右键单击相同的命令button，它将向单元格B1添加（+1）。 这里是我正常左键单击时必须添加的代码（+1）： Sub Action68_Click() 'update column BR by adding 1 to the cell value' Worksheets("Stats").Cells(CurrentPlayerRow, "BR").Value = Worksheets("Stats").Cells(CurrentPlayerRow, "BR").Value + 1 End Sub` 有没有反正使用右键单击button来添加（+1）单元格BQ ？
重新计算自定义VBA函数，仅在请求
我的问题是这样的： 我想在电子表格中使用一个自定义的Ribbon命令button，甚至是一个简单的命令button来初始化一个OLEDB数据库连接，并更新/重新计算所有需要这种连接的用户定义的函数，或者我指定的那些连接。 除了点击特定button时，我不希望这些function中的任何一个重新计算。 我有困难搞清楚如何做到这一点。 请提供您的帮助或build议。 请参阅下面的细节我做了什么： 我目前在一个访问数据库中存储数据，我使用Excel中的VBA进行特定的查询。 我已经将每个数据请求例程embedded到名为[fnc]的模块下的一组function中。 然后，我将它们作为用户定义的函数从Excel电子表格中进行访问。 这里给出一个例子： Function ValueV(mm As String, yy As String, qtable As String, qcode As String, compare_period As Integer, average_period As Integer, weight As Boolean) As Variant 'Month Value Formula for Horizontal Data 'mm – month value 2-digit 'yy – year value 4-digit 'qtable – query table name […]
Excel VBA分组命令button在工作表上
我已经看到了很多关于获得几个命令button来做类似事情的信息，但是我所看到的一切都是关于用户表单的。 我想有一组命令button将数据从一个单元格移动到另一个单元格。 我只是不想复制和粘贴到每个命令button相同的代码。 这是我想为每个命令button做的一部分： Range(CommandButton1.TopLeftCell.Address).Select Selection.Copy If Application.WorksheetFunction.IsText(Range("R5")) And Range(CommandButton1.TopLeftCell.Address).Value <> Range("R5") Then Range("R6").Select ActiveSheet.Paste Range(CommandButton1.TopLeftCell.Address).Select Else Range("R5").Select ActiveSheet.Paste Range(CommandButton1.TopLeftCell.Address).Select End If Application.CutCopyMode = False 我试过使用类模块，但似乎无法得到它的function。 我想能够将该代码放入某个类或某个组中的所有命令button上运行。 然后，我想要在同一张纸上的不同组命令button执行不同的代码。 我应该采取什么路线？
如何控制excel VBA中的多页面内的button
我有一个多页，我成功地将第一页的元素作为我的参考页复制到dynamic创build的新页面。 我的问题是，如何在多页面控件的页面内设置一个commandbutton的动作？ 我的目标是点击任何页面上的button，然后popup另一个表单。 我该怎么做呢？ 从Android调整到VB是相当困难的。 我非常感谢你们的帮助。 这是我在克隆页面的代码。 i = 0 MultiPage1.Pages.Add MultiPage1.Pages(i).Controls.Copy i = i + 1 MultiPage1.Pages(i).Paste For Each ctl In Me.MultiPage1.Pages(i).Controls If TypeOf ctl Is MSForms.Label Then '~~~ code omitted Select Case ctl.Tag Case "startTime" ctl.Caption = "4:00pm" End Select End If Next 这就是它的样子。 该button将连接页面内的所有string。 串联的string将显示在另一个用户窗体上。
