Tag: button

Excel VBA：公式对象太复杂: 这可能看起来像一个简单的问题，但是非常令人沮丧。我已经在VBA中编写了一些（相对简单的）macros，用来制作一个用户界面友好的电子表格。换句话说，我想要所有的macros由button来运行。但是，每当我尝试将button分配给macros，我收到错误：公式太复杂，无法分配给对象即使我尝试将它分配给一个空的子程序，也会发生这种情况。它的工作，但只为我写的第一个macros。一旦我将其他子程序添加到模块，我不能再将新button分配给macros。这是我写的代码： Sub Button1_Click() selName = Range("C2").Value div = Range("E2").Value cost = Range("F2").Value diff = div – cost If diff < 0 Then diff = 0 End If Range("G2").Select ActiveCell.FormulaR1C1 = diff x = Range("A2").Value + 1 Worksheets("VIP_TEMPLATE.PIVOT").Select Range("J" & x).Select ActiveCell.FormulaR1C1 = diff Worksheets("CALCULATE").Select Range("F2").Select ActiveCell.ClearContents End […]

在所有工作表中应用Button +macros: 原谅我的无知（newby和VBA的一点知识）… 我开发了一些附加到button的macros，并在工作簿中的一个工作表中工作。 macros在日历上执行各种作业。医院翼楼的每间卧室都有一个日历。我现在想用相同的button和macros制作相同的工作表，每个卧室即10个工作表。但尝试我可能无法让macros在其他工作表中工作。这些macros位于第一个工作表（Bed1）的VBA代码编辑器中。我已经将代码复制到VBA编辑器中的“This Workbook”页面中，但是没有任何效果，除了阻止它们工作。这是一个典型的macros观： '============================================ Private Sub Prevw1_Click() '============================================ ' DAILY PATIENT TIMETABLE ' PRINT PREVIEW '============================================ ActiveSheet.Select ActiveSheet.AutoFilterMode = False Range("_Daily").Select ActiveSheet.PageSetup.PrintArea = "_Daily" ' Call page_SetUp ' ' Variations for page setup With ActiveSheet.PageSetup .LeftMargin = Application.InchesToPoints(1.5) .RightMargin = Application.InchesToPoints(0.9) .Zoom = 75 End With ActiveSheet.PrintPreview ActiveSheet.PageSetup.PrintArea […]

使用Excel单击Java脚本button: 我正在尝试使用VBA单击以下网站上的Java脚本button： http : //www.ura.gov.sg/realEstateIIWeb/transaction/search.action 我试图让vbaselect一个项目，然后点击标记为“添加”的button，然后点击上面的networking链接中标有“search”的button。我已经设法让VBA打开网站并select项目，但一些如何我无法获得VBA点击“添加”button和“search”button Sub DLDATA() Dim MAS As Object Dim STYR As Object Dim DLD As Object Dim XLD As Object Dim form As Variant, button As Variant Set MAS = CreateObject("InternetExplorer.application") 与MAS .Visible = True .Navigate Sheets("Property Value").Range("B30").Value ' Navigate to website Do Until .ReadyState = 4 DoEvents Loop Set STYR […]

以编程方式在Excel中添加工作表（C＃）: 根据MSDN，可以编程方式创build和删除Visual Studio中的Excel工作表（ http://msdn.microsoft.com/en-us/library/6fczc37s.aspx ）。这样做的代码如下： private void createNewAccount() { Excel.Worksheet newWorksheet; newWorksheet = Globals.ThisAddIn.Application.ThisWorkbook.Worksheets.Add(); } 我的项目中的一个表单有一个button，它带有这个代码。用户应该能够按下并创build一个新的工作表，但它不起作用。所以我决定把它做成function区选项卡上的一个button。那也行不通。我错过了什么？

在运行时将命令button添加到工作表中，并定义事件: 我正在尝试在运行时在工作表中添加一个ActiveX命令button。命令button的数量将取决于工作表中的行数。我打算在命令button属性中给出x和y坐标以正确定位它们。我明白，我们可以用这种方式在用户窗体中插入命令button。 Private Sub CommandButton1_Click() Me.Controls.Add _ "Forms.CommandButton.2", "CopyOf" End Sub 我们如何在工作表（不是用户表单）中插入命令button。工作表（“abc”）。添加不起作用。另外如何为他们定义独立的点击事件。例如，如果我点击一个命令button，它应该告诉我它是哪一行。谢谢 ————–更新—————————– 所以我可以根据工作表中的行数dynamic地添加命令button到他们需要的地方。 Private Sub addb3(ByVal rows_present_alerts As Integer) Dim topcounter As Double topcounter = 15.75 For i = 2 To rows_present_alerts ' The first row has the column headers With Worksheets("abc").OLEObjects .Add(ClassType:="Forms.CommandButton.1", Link:=False _ , DisplayAsIcon:=False, Left:=509.25, […]

带有“粘贴date”function的命令button到其左下angular的单元格: 我想创build一个Commandbutton的function，将date粘贴到其左侧的单元格 – 我需要将来复制下面的这个button。我在尝试： Private Sub CommandButton2_Click() Dim Str As String Str = Date Range(TopLeftCell).Value = Str End Sub

窗体打开时如何保持代码在VBA中运行？: 在Excel VBA中，我想按下一个button，运行一些代码，当代码运行时，出现一个表单窗口，显示“代码正在运行，请等待，直到完成，点击停止button终止代码。但是每次我显示表单的代码停止，等待窗体closures之后再继续。有没有办法强制代码在窗体打开时继续运行？谢谢！回答：添加（False）结束时。显示或更改窗体的ShowModal属性为False。然后在fmRunning.Show（False）之后添加Application.Wait（Now + TimeValue（“0:00:01”））。或插入“DoEvents”，而不是Application.Wait谢谢所有！

Excel VBA – 获取button界面对象的相应范围: 我怎样才能得到点击button的行？大家好，我在这里需要一些帮助;）我是VBA的新手我想在Excel中做一个button，但我很难找出如何找出点击button的行。就像在照片中我想要的那样，当我点击“Sélectionnerun poste”button时，他会告诉我他的位置（我点击哪一行的button）这里是我的代码来创buildbutton： Sub AjouterBoutonPoste(positionX As Integer, positionY As Integer, nom As String) Set t = ActiveSheet.Range(Cells(positionX, positionY), Cells(positionX, positionY)) Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height) With btn .OnAction = "PosteBtAction" .Caption = "Sélectionner un poste" .Name = nom & CStr(positionX) & CStr(positionY) End With End Sub 这是我的事件button的代码： Sub PosteBtAction() AssocierSessoinCandidature.Show […]

Excel 2007问题：预编程的button突然不工作: 今天，突然间，我工作的公司使用的一种forms突然出现了button问题。奇怪的是，它只是影响我敢肯定的ActiveX命令button，并没有造成其他形状或下拉的问题。问题。这些button是不响应的。当你点击，他们不访问代码，并通过形状菜单检查他们，select“查看代码”导致他们打开开发人员的菜单，而不是与他们相关的代码。真正的大问题是，由于某种原因，他们似乎都在同一时间开始失败。服务器上的版本不再有效（主要副本），用户使用的副本（破坏性的恶名）以及我使用的版本（在本地计算机上）。有没有办法让他们重新把他们与正确的代码，而不删除他们完全重新制造或有可能是谁有同样的问题，并找出了一个修复？我非常感谢任何build议或帮助 – 请注意：我99.9％确定问题不是基于代码的。