Tag: button

200个button全部更改一个文本框 – VBA Excel: 我有一个约200个button的VBA Excel应用程序。我希望他们都改变一个名为“Name”的文本框，并按下button的标题。我确实模糊了图像中的一些东西，因为这些框都是真实的人名。我怎样才能做到这一点，而不必创build200多个function？一个例子就是我有3个button。这三个值是foo1 ， foo2和foo3 。当我点击任何button，让我们说我点击foo2 ，我想要文本框更新值为foo2 。我知道如何做到这一点，但我怎么做，而不必手动编写一个function的所有3个button。文本框的值将始终是button的值。现在想象它是200+button。谢谢！

如何在VBA中添加命令button？: 我正在尝试将一个button添加到Excel工作簿，以便它显示在每个工作表中。对我原来的问题的一个很好的答案给了我一个macros，在每个表上创buildbutton： Sub AddButtons() Dim ws As Excel.Worksheet Dim btn As Button For Each ws In ThisWorkbook.Worksheets Set btn = ws.Buttons.Add(X, Y, W, H) [set btn properties] Next ws End Sub 我现在遇到了设置button属性的麻烦，所以按下button时会打印表格。这里再次是我的打印macros： Dim WS_Count As Integer Dim i As Integer ' Set WS_Count equal to the number of worksheets in the active workbook. WS_Count […]

创build一个命令button并在程序中为其分配事件: 我在网上发现了这个代码，稍微调整了一下，因为我需要以编程方式向电子表格添加一个命令button，并为其分配一个事件。它运作良好 Sub AddComm_button() Set mybutton = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _ Left:=126, Top:=96, Width:=126.75, Height:=25.5) mybutton.Name = "abcbutton" Call Modify_CommButton End Sub Sub Modify_CommButton() Dim LineNum As Long 'Line number in module Dim SubName As String 'Event to change as text Dim Proc As String 'Procedure string Dim EndS As String 'End sub string Dim Ap As […]

如何以编程方式将工具栏button（和OnClick处理程序）添加到Excel: 如何以编程方式将工具栏（包含button）添加到Excel（2002或更高版本）？当button被点击时，我想要一个处理程序来创build我的COM对象，并调用它的方法？

命令button打开文件 – 位于同一个单元格button的文件path被alignment: 我试图得到一个我可以分配给我的命令button的macros。我有多个button，打开不同的文件，所以在每个单元格我包括一个不同的文件path。目前我的命令button正在寻找特定的单元格引用并打开该值。有没有什么办法可以让macros查找它alignment的单元格中的值？我现在使用两个macros – 一个是创buildbutton，另一个是分配给button。我不得不为每个button创build一个新的macros。 macros创buildbutton… 子button（） Dim i As Long Dim lRow2 As Integer Dim shp As Object Dim dblLeft As Double Dim dblTop As Double Dim dblWidth As Double Dim dblHeight As Double With Sheets("Print Schedule") dblLeft = .Columns("A:A").Left 'All buttons have same Left position dblWidth = .Columns("A:A").Width 'All buttons […]

在Excel文件中导出Jtable: 嗨，我是新手在Java编程，但这里是我的问题，我正在devisegraphics用户界面，做一些计算，需要显示input和输出在J表，然后将其导出到Excel文件代码工作的魅力，但是当我打开Excel文件，我觉得它是空的.. j表 import java.awt.Desktop; import java.io.File; import java.io.FileNotFoundException; import java.io.IOException; import java.io.UnsupportedEncodingException; import javax.swing.JFileChooser; public class Export extends javax.swing.JFrame { public Export() { initComponents(); } @SuppressWarnings("unchecked") // <editor-fold defaultstate="collapsed" desc="Generated Code"> private void initComponents() { jScrollPane1 = new javax.swing.JScrollPane(); jTable1 = new javax.swing.JTable(); jButton1 = new javax.swing.JButton(); setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE); jTable1.setModel(new javax.swing.table.DefaultTableModel( new Object [][] { […]

使用c＃添加excel vba代码到button: 我有一个关于创buildExcelbutton和添加VBA代码function的问题。我创build了一个button和模块代码，但不知道如何使它们之间的关系。任何人都可以告诉我如何？我的Button代码： Excel.Shape btn = xlWorkSheet5.Shapes.AddOLEObject("Forms.CommandButton.1", Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing, 300, 10, 150, 22); Excel.OLEObject sheetBtn = (Excel.OLEObject)xlWorkSheet5.OLEObjects(btn.Name); sheetBtn.Object.GetType().InvokeMember("Caption", System.Reflection.BindingFlags.SetProperty, null, sheetBtn.Object, new object[] { "Calculate Bus Load" }); 和代码模块： String sCode = "Sub main()\r\n" + " MsgBox \"Hello world\"\r\n" + "end Sub"; VBA.VBComponent oModule = xlWorkBook.VBProject.VBComponents.Add(VBA.vbext_ComponentType.vbext_ct_StdModule); oModule.Name = "Module1"; oModule.CodeModule.AddFromString(sCode); […]

在Excel中引用错误的行的button: 我有这块代码，它可以帮助一个button识别它是哪一行。但是，当我隐藏上面的行，button引用该隐藏行。例如：如果button位于第20行，并且隐藏第19行，则单击该button将返回第19行。如果我隐藏了第19行和第18行，则该button将返回第18行。这真的很奇怪。这是我用来创buildbutton的块： Sub AddButtons() Dim button As button Application.ScreenUpdating = False Dim st As Range Dim sauce As Integer For sauce = 10 To Range("F" & Rows.Count).End(xlUp).Row Step 1 Set st = ActiveSheet.Range(Cells(sauce, 11), Cells(sauce, 11)) Set button = ActiveSheet.Buttons.Add(st.Left, st.Top, st.Width, st.Height) With button .OnAction = "GoToIssue.GoToIssue" .Caption = "Go To Source" […]

在单元格MS Excel vba中放置一个命令button: 我想通过VBA代码在单元格中放置一个命令button。说出位置B3。我为此使用了macroslogging器，但它给了我button的最低值。我不想要这样，如果我把我的代码与其他屏幕分辨率的其他计算机，代码将失败。单元格位置（示例B3）将是绝对位置。你能build议我这样做吗？ PS它是一个activeXbutton 谢谢

Excel VBA：获取点击button的行: 我正在试图在Excel中创build一个button，将一定范围的单元格从活动工作簿复制到另一个工作簿。当我指定一个固定范围的时候，这个范围的拷贝是完美的，但是我很难理解如何确定点击button的行。每行包含7个左右的单元格，第8个单元格包含一个附有macros的形状（button）。当用户按下此button时，需要复制与包含按下button的行相同的行上的7个单元格。使用ActiveCell是没有用的，因为按下button并不会将该单元格设置为活动状态。我搜查了很多，但我似乎无法find如何获得这个价值。一旦我有了点击button的行号，我可以自己找出其余的。