Tag: button

在excel中编程一个macros,在a,b之间生成一个随机数

我在Excel中构build一个电子表格,电子表格作为一个数据保持表,它根据需要更新不同的值,我感兴趣的其中一个值本质上是一个随机数生成器。 我已经在excel的单元格里面有了简单的RANDBETWEEN()函数的知识。 然而,这只返回一(1)值,我想能够分配给一个函数,让它每次按下button时返回一个不同的值。 我可以创buildbutton,我有单元格..我不确定为什么我不能链接这两个? 我已经试过通过已经问过这个问题,但没有发现任何超级接近我的问题(虽然我认识到一个擅长Excel的人可能是一个微不足道的问题。)但是我不擅长擅长,而且还在学习所有内部工作和我可以用excel做的事情。 长话短说,有人可以帮我得到一个button,每次点击一个单元格(可以说单元格a1)得到值之间的不同值a,b。 再次抱歉,如果这是微不足道的,我尽我所能做到这一点,我只是没有任何运气。

完成表格后清除单选button

我有一系列的用户表单,进行问卷调查。 每个用户窗体包含一对选项button/checkbox。 程序工作正常。 但是,当我再次启动程序(不退出Excel)时,按照与以前的用户相同的方式填充单选button和checkbox。 我尝试每个用户窗体初始化调用一个模块: Option base 0 Sub clearBtns() Dim optBtn(10) As Variant optBtn(0) = "optA" optBtn(1) = "optB" optBtn(2) = "optC" optBtn(3) = "optD" optBtn(4) = "optE" optBtn(5) = "chkA" optBtn(6) = "chkB" optBtn(7) = "chkC" optBtn(8) = "chkD" optBtn(9) = "chkE" optBtn(10) = "chkF" Dim cnt As Integer For cnt = 0 […]

VBA中有光泽的button

VBA Excelmacros中可以有一个有光泽的button,而不是默认的淡蓝色button? 例如: 在这里我有shiny的光泽button,可以在VBA中使用吗? 而不是这个 。

隐藏基于单元格值excel vba的commandbutton

我试图隐藏一个基于特定单元格值的命令button。 我已经查找了几个代码,并将它们粘贴到excel中(在右键单击表格并select“查看代码”时,在vba表单中)。 我究竟做错了什么? 这是我尝试过的代码之一: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("A1") = 0 Then ActiveSheet.CommandButton1.Visible = False If Range("A1") = 1 Then ActiveSheet.CommandButton1.Visible = True End Sub

Excel与vba共享工作表和工作button

我试图共享一个button,打开一个新的窗口(在VB中),但当我分享指导到另一个窗口锁简单的button不起作用(是的,我没有检查锁),我需要的东西做共享那个button和另一个窗口? 这个窗口的工作是编辑单元格。 这是来自窗口的代码,有: private Sub CommandButton1_Click() Dim i, a, b, c, d Dim prio As String i = CInt(Sheets("Sheet1").Cells(6, 17)) a = CInt(Sheets("Sheet1").Cells(7, 17)) Sheets("Sheet1").Cells(i, 1) = a Sheets("Sheet1").Cells(i, 2) = Peca.Text Sheets("Sheet1").Cells(i, 3) = Qt.Text Sheets("Sheet1").Cells(i, 4) = ComboBox1.Value Sheets("Sheet1").Cells(i, 5) = Responsavel.Text Sheets("Sheet1").Cells(i, 6) = Cliente.Text Sheets("Sheet1").Cells(i, 7) = Maquina.Text Sheets("Sheet1").Cells(i, 8) = […]

Excel 2010命令button消失

我正在开发Excel 2010工作簿,处于手动公式计算模式。 (文件 – >选项 – >公式 – >工作簿计算 – >手动) 我在工作表(ActiveX控件)中有一些命令button,并将它们设置为使用单元格移动和resize(右键单击button – >格式控件 – >属性 – >使用文本移动和resize)。 这是因为我在某些条件下过滤了一些行,并且我希望放置在这些行中的button根据其托pipe行的显示模式出现和消失。 这一切都很好,直到我保存他的工作表时,一些行(因此button)被过滤掉(即不显示)。 当我再次打开文件,并展开过滤的行,button不显示。 当检查他们的属性,我看到他们的'可见'属性是'真',但他们的高度是0,并且这不会改变当我过滤他们的主机行。 我想再次强调的是,在保存文件之前 – 过滤和取消过滤button效果很好。 非常感谢这里的任何帮助。 谢谢。 马坦。

制作时间轴/将标签文本链接到MsgBox

我正在Excel中创build一个时间表。 对于每个date,我可能会发生一个或多个事件。 在数据点上方显示每个事件的全部文本将被挤满。 每个数据点上面都有简短的描述。 我想单击标签文本或数据点,并出现一个消息框,其中包含与该事件相关的信息。 我已经有一个时间线模板,我已经设置了值。 我不想在每个事件后手动创build透明命令button。 有没有办法让VBA自动在每个数据点或数据标签背后边框或创build一个形状,并让它成为一个显示消息框的button? 更好的是,有没有比我一直在想这个过程更简单的方法呢? 非常感谢! 贾克森

从单选button组捕获值

我正在尝试捕获单选button组中存储的选定值。 例如,我有两个单选button(没有特定的命名约定)分组在一起,组名称为“1”。 我想知道是否有办法获得哪个选项被选中,而不必为实际的单选button本身专门执行IF elseif语句。 理想情况下,我希望代码能够说这个选项组,检索文本文件的值,并移动到下一个单选button组。 我正在创build一个调查结果需要被捕获到一个.txt文件。 谢谢。

用户形成CommandButton基于CheckBox填充True / False

我的工作簿有sheet1 = Overview(包含启动UserForm1的button)。 我的Userform有24个CheckBox和2个CommandButton(确定并取消)。 每个CheckBox都与工作簿中的工作表关联。 每个随后的纸张标记为PQC 1001,PQC 1002等,其包含数据(对于每个纸张在A1的左上方被推动的图像)。 我的目标是让用户检查他们想要使用的每个项目的checkbox,然后select“确定”(CommandButton1)将其复制到一个新的工作簿中打印出来。 后来,我打算定义打印参数,使项目分页,但我需要在我去黄金之前得到的基本知识。 目前我有下面的代码(使用第一个和第二个CheckBox来确保它们能够工作,然后我打算通过复制代码并修改正确的工作表/checkbox来扩展): Sub CommandButton1_Click() Dim WB As Workbook If CheckBox1.Value = True Then sheets("PQC 1001").Copy Set NewBook = Workbooks.Add With NewBook End With Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Else: CheckBox1.Value = False End If If CheckBox2.Value = True Then sheets("PQC 1002").Copy Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ […]

Excel ActiveXbutton是可点击的,但不起作用

大约一个星期前,我发现在我的电脑上运行时,所有的ActiveXbutton都停止工作在所有的电子表格中。 他们对别人很好。 去年一直没有问题。 我知道最近有一个Windows更新引起了一阵骚动,阻止了人们甚至能够点击ActiveXbutton。 我遇到的问题似乎有所不同…我可以点击button(一旦点击,它将显示在button周围的虚线)。 然而,没有任何反应。 我有这些button创build打开用户窗体。 我已经检查validationPrivateSub代码仍然存在,以启动button单击窗体。 由于我所有的工作人员都能够使用电子表格和ActiveXbutton,所以我认为我的电脑上出现了一些本地的情况,并不一定是编程相关的,但是我找不到任何原因。 有任何想法吗?