Tag: button

使用更新buttonVBA从Access将信息填入Excel: 我试图从一个访问数据库查询获取信息的Excel电子表格与更新button。我发现了一些应该工作的代码，但是当我运行它时，它提到了一些关于“运行错误3061”的信息，给出的参数太less，至less有一个是预期的“。代码如下： Sub Rektangelmedrundadehörn1_Klicka() Sheets("Blad1").Range("A2:B500").ClearContents Set DB1 = DBEngine.OpenDatabase("Path to my DB") Set QD1 = DB1.QueryDefs("Name of my Query") Set RS1 = QD1.OpenRecordset(dbOpenSnapshot, dbReadOnly) Sheets("Blad1").Range("A2").CopyFromRecordset RS1 RS1.Close QD1.Close DB1.Close End Sub 当我debugging它停在“设置RS1”，并说它是空的。也许我甚至没有连接我的Access列？我已经检查了列的名称，他们是一样的。我还在excel vba中添加了对access和DBO的引用。我只在Excel中使用2列。 A1，B1

如何重置Excel内部button数量？: 我有一个Excel工作表，使用VBA来生成一些表单控件button。 button被清除，然后创build新的button。我注意到，即使旧的button被删除Excel是保持每个button的内部注册。新button的button名称超过11K 我不知道是否有某种限制excel将允许这一点，我不想用尽button。我不知道这个越来越多的buttonregistry是否导致文件大小增长。我想能够将增量重置为0 任何人有任何想法我可以回到button_0？（不用开始一个全新的Excel工作表）

用macros改变多个单元格中的值: 我对VBA相当陌生，与我在这里阅读的内容相比，Excel知识有限。我有我的macros的麻烦。我有一个4工作簿。每个工作表都有一个基本的命令button，它们发出一个简单的macros（从一个单元格值减1，在另一个单元格中加1）。我遇到麻烦的地方是为3个button创buildmacros代码。这些button需要发出类似的命令，但是我需要它们来调整所有工作表中的select单元格值，而不仅仅是button所在的活动表单。这3个特定的命令button位于“工作表4”上。这些单元格位于所有4张工作表中。我可以创build一个在所有4张工作表上都可以工作的macros（由单击button激活）？ button1 – 需要在表格4上的单元格g10的值上加1，但也要在表格2上的单元格c4和c7的值上减1 – 从表格3中单元格c6的值减1。其他button都完全像这样。我希望这足以解释。我目前正在阅读有关Excel和VBA的书籍，但相当忙，这很慢。任何帮助是极大的赞赏。先谢谢你。冷淡:)

Excelcheckbox和button停止在电子表格上工作: 我有一个使用macros的电子表格。它已经运行良好多年了，已经有近一年的时间了。它使用button和checkbox来控制macros。就在上周，所有的checkbox和button停止工作。我们更换了button，现在他们的工作，但checkbox将更难以取代，所以我希望有一种方法来解决它们。在上图中，左侧显示了这种新的行为，其中checkbox不能被检查。相反，光标显示为一个大的加号，并显示checkbox的值。右侧是展示正确行为的电子表格的早期版本。光标成为一个箭头，用户可以检查。请注意，我不处于devise模式。当我进入devise模式时，右键点击checkbox，进入属性，checkbox没有属性。当我select属性窗口顶部的下拉菜单时，checkbox不在项目列表中。目前正在运行的button在下拉列表中不显示。在旧的电子表格中，所有button和checkbox都会列出。非常感激任何的帮助。谢谢！原来的问题出现在谷歌现在和我不这样我同意重复。谢谢您的帮助。

VSTO – 如何使色带button垂直填充空白区域: 我正在使用Visual Studio 2013构build一个VSTO excel应用程序。我在一列中有一个大尺寸function区button，在另一列中有两个常规大小的旁边。我想要的是在正常button列中填充垂直空间。要查看我想要做的示例，请参阅excel中“公式”选项卡的“计算”组。我的常规button堆叠在顶部，但是我希望它们像“立即计算”和“计算工作表”在此function区中那样填充空白空间。我该怎么做呢？谢谢。

VBA – 可能创build一个链接到代码的button？: 我写了一个程序的代码，输出三列信息以及打印文件名。我通常运行该程序与文件夹中的20个文件，所以我不压倒太多的信息，因为有超过2000个文件。是否有可能创build一个button，将输出相同的信息，但只为一个文件名input？我希望能够input文件名，命中search，并通过超过2000个文件的文件夹search输出这三列的信息只是为了特定的文件。一些看起来像这样的东西： Option Explicit Sub LoopThroughDirectory() Const ROW_HEADER As Long = 10 Dim objFSO As Object Dim objFolder As Object Dim objFile As Object Dim MyFolder As String Dim StartSht As Worksheet, ws As Worksheet Dim WB As Workbook Dim i As Integer Dim LastRow As Integer, erow As Integer Dim Height […]

导出工作表，包括VBA和一个命令button: 我需要保存多个Excel工作表来分隔文件。床单被保护和locking，但我想拼写检查可用。这是可能的VBA使用一个小程序解锁>拼写检查>重新locking Sub SpellCheck() ActiveSheet.Unprotect Cells.CheckSpelling CustomDictionary:="CUSTOM.DIC", IgnoreUppercase:=False, AlwaysSuggest:=True, SpellLang:=1033 ActiveSheet.Protect End Sub() 现在我在要输出的工作表上放置了命令button，并分配了我的拼写检查macros。我用vba将文件保存为XLSM Sheets("exportsheet").SaveAs Filename:="mysheet.xlsm", FileFormat:=52 如果我点击新保存的文件中的button，macros链接到将打开的原始源excel。分配的macros链接看起来像这样：original_excel.xlsm！spellCheck（）如何导出包含分配给命令button的VBA代码的工作表，以使该macros未分配给原始工作簿。对此有什么想法？

VBA excel 2007.在单元格中创buildbutton: 我正在创build一个带有代码的button Set CreateButton = ActiveSheet.Buttons.Add _ (C.Left, C.Top, C.Width, C.Height) 其中C是单元对象。 button不出现在单元格中，但稍微上一层。 CreateButton.Top是107.25。而当我尝试分配CreateButton.Top自己，价值是114.75。到底是怎么回事？

在macrosbutton调用期间完成对单元格的更改: 我正在查询一个SQL Server数据库的电子表格工具，并填写结果的各种工作表。我向用户提供了一个简单的GUI（格式化的单元格）来input他们的数据库凭证和一个Excel表单button来testing连接。当按下button并且连接string形成正确时，我通过将状态指示器的颜色从红色更改为绿色来识别这一点。我已经使用Worksheet_Change函数添加了一个检查单元格的范围，该单元格将会将状态从绿色切换回红色，如果任何单元格被更改。问题是用户input连接string的某个方面，也许是最后一个字段，然后按“testing连接”button，而不必先按下input或导航。并且实际上将值写入单元格。我的'testing连接'macros（链接到button）首先被调用，切换状态指示器为绿色（假设正确凭据），但Worksheet_Change方法不会被调用，直到buttonmacros已经运行。结果是状态指示灯从绿色闪烁，然后回到红色，尽pipebuild立了数据库连接成功。我尝试过像手动切换当前单元的焦点。在从表单button调用我的'TestConnection'函数之前。但到目前为止没有任何工作。编辑：一些代码… Private Sub Worksheet_Change(ByVal Target As Range) Call SetGlobals 'Check if database criteria has changed If Not Intersect(Target, Target.Worksheet.Range(DB_CELL_RANGE)) Is Nothing Then Call UpdateDBStatus(1) End If End Sub 'Connect to database using Main sheet credentials Function TestConnection() 'Connection vars Set cnn = New […]

将macros分配给在运行时VBA中创build的button: 我的问题基本上是在这篇文章中回答的但不是下面的课程代码： Sub CmdEvents_Click() MsgBox "Hello World" End Sub 我需要运行这个代码（这只是一个示例，我想使用稍后在程序中单击的button的名称） Sub CmdEvents_Click() Dim mvCtrl As Control Set mvCtrl = Me.ActiveControl MsgBox mvCtrl.Name End Sub 但是，上面的代码不会在任何情况下正确地返回我刚刚在消息框中运行时创build的button的名称。它返回“button6”….我在我的工作簿中search，我甚至没有这个名字。实际上，我修改了上面链接中的原始代码，从列表中获取所有button的名称。这样我可以修改列表，从而修改button的名称或标题，如果我想。而这个button6甚至不存在于我的列表中。我在我的代码中做了一些陷阱，显示了我用来获取button名称的variables的消息框，它是正确的，它携带的string我想在创buildbutton之前命名我的button。