Tag: 表单

用vba制作用户表单，commandbutton不起作用

首先，我来自荷兰，对我英语不好，感到抱歉。 我有一个有很多logging（从10到1000，取决于用户）的Excel表格。 我的想法是dynamic地创build一个用户窗体，每个logging创build一行文本框。 然后我想为每个logging创build一个命令button来更改logging中的数据。 最后，我添加了一些代码给用户表单来定义单击commandbutton时执行的操作。 文本框和命令button在用户窗体显示时是可见的，但是当我点击命令button时，什么都不会发生，尽pipe代码是在用户窗体上创build的。 我有一个示例文件，但我不知道如何在这里上传。 下面是代码（放置在用户窗体下） Private Sub UserForm_Initialize() Dim cCntrl As Control Dim txtB1 As Control Dim cmb1 As Control 'Deleting lines doesn't work yet 'With ThisWorkbook.VBProject.VBComponents("EFRIS").CodeModule 'x = .countoflines 'y = Sheets("Data").Range("A3").Value 'If x > y Then .DeleteLines y, x – y 'x = .countoflines 'End With ' 'Sheets("data").Range("A3") = x […]

从Excel用户窗体返回值或取消

我有一个子调用一个用户窗体显示，只想继续如果用户没有点击我的取消button。 我不想把所有其他的子调用放在用户表单中。 是否有可能有一个用户表单返回一个值或一种方式来检查用户是否点击一个特定的button？ 我想我可以使用一个全局variables，但想知道如果我可以传递和从一个用户窗体。

Powershell和Excel – 操纵用户表单？

如果你有一个用户窗体（userform1）有一个文本框（textbox1）和一个退出button（commandbutton1），你如何操作（即编辑）与PowerShell的文本框，然后让PowerShell单击用户窗体上的退出button？ 我是新来的PowerShell / Excel中，并一直在如何操纵用户forms猛撞我的头。 我有PowerShell打开Excel，并启动一个macros，加载我的用户表单，但现在我难住如何操纵它。

修改受密码保护的加载项的用户表单

我试图自动化一个在Excel加载macros中运行macros的进程。 加载macros需要用户填充用户表单。 Excel加载项也受密码保护。 我知道有一种方法来编写填充用户表单的macros。 我知道我首先需要表单字段的名称来修改它们，但是如果信息是在一个受密码保护的Add-In中，我怎么得到这个信息呢？

表单文件来源静态URL与不同的file upload

我有一个Excel工作表上传到我的服务器（我有url）。 与发送文件给大家然后下载，上传，然后运行…我想代码button来自动抓取文件的url。 有没有办法，我可以告诉它在哪里的文件的来源，然后使这个“提交”的一步过程，它抓住文件？ <div> <form enctype="multipart/form-data" method="post" name="upload_bulk_order_excel" id="upload_bulk_order_excel" action="bulk_order_summary.php" onsubmit="return check_excel_file();"> <table width="460"> <tbody> <tr> <td><div> <h3><span style="color:rgb(46, 144, 181); text-align:left">Step:</span> Browse <input accept="application/vnd.openxmlformats-officedocument.spreadsheetml.sheet, application/vnd.ms-excel" type="file" id="bulk_order_excel_file" name="bulk_order_excel_file" /> </h3> <h3><span style="color:rgb(46, 144, 181); text-align:left">Step:</span> Upload <input type="submit" name="form_upload_bulk_order" value="Upload File" style="width: 86px;" /> </h3> </div></td> </tr> </tbody> </table> </form> </div>

Windows窗体的外观

刚开始使用Visual Studio 2008，并希望将我的VBA UserForms转换为VB.NET，目的是将陈旧的UserForm控件升级到与操作系统匹配的较新的Windows窗体控件。 我在Visual Studio中创build的Windows窗体看起来不错，但是当我在PowerPoint或Excel中加载它们时，窗体控件看起来和以前一样丑陋（例如简单的矩形button）。 有没有办法在Visual Studio中使用VB.NET在我的Windows窗体中使用现代控件？

用范围内的值更新用户窗体

我目前有一张表格，用于跟踪我的build筑物中的人员何时收到包裹抵达通知，以及有关该包裹的信息。 我有一个“发送提醒”button，它显示了用户窗体，它是通过查看表单并确定哪些程序包已经等待了两天以上，然后用表单中的相应数据为用户填写几个字段（我还没有任何声望，所以不能张贴图片）。 第一个文本框是电子邮件，第二个是主题，第三个是消息。 有一个Nextbutton只是导致表单再次初始化，所以我希望它只是查找下一个已经等待的包，如果没有find，那么表单closures。 问题是当我单击button来显示窗体时，电子邮件框和邮件框都显示空白，虽然主题框是好的。 Private Sub UserForm_Initialize() Dim checkRange As Range Dim rCell As Range Dim k As Integer On Error Resume Next k = 0 Sheets(1).Activate checkRange = ActiveSheet.Range("D3", "D100") For Each rCell In checkRange.Cells If rCell.Value >= 2 Then Email.Value = Cells(rCell.Row, 1).Value Subject.Value = "Package Reminder" Message.Value = "This is a […]

数组计算后不写入所需单元的函数; excel vba用户表单

我是vba新手，需要一些帮助。 我有一个函数的作用是写一个单元格的文本值取决于一定的条件。 input到函数将是从用户窗体中的combobox获得的string。 行列式是53个单元格的数组，其值为“1”或“”。 Function State(ID As String, Rowarray() As String) Dim ws As Worksheet Dim Rej As String Dim Vir As String Dim Result As Variant Dim Rng Dim Rngrow As Integer Dim Arr Set ws = ThisWorkbook.Worksheets("Temp") Set Rng = ws.Columns(5).Find(ID).Address 'obtains the address of a cell with a value matching the combobox […]

修改一个用户窗体在多个工作表上工作

在过去的几周里，我花了大量的时间去做一些用户表单（不是我的优点之一）。 用我的预期用户表单，用户可以在电子表格上select他们想要的任何值（例如资产价格），然后应用微调器，这就模仿了这些资产的价格上涨/下降百分比，然后他们可以观察这会影响业务的各个方面。 然后他们有两个button，一个可以保持调整值，另一个重置值。 到目前为止，我有一个用户表单，似乎在各种工作表上工作，但选定的范围必须连续和一个，在这里有很大的帮助（见自己以前的问题），完美的作品非常连续的select，但他们必须相同的工作表。 不过，我希望能够在许多工作表上select许多不连续的范围，并且能够编辑这些范围。 我可靠地被告知，范围variables只能引用特定工作表上的范围，我认为这是我出错的地方。 代码为非连续范围的作品在下面，我真的不能获得这么远的功劳，因为我需要从这里得到很多的帮助，我还没有完全整理呢，任何人都可以build议我如何编辑或修改这个工作表，同时在多个工作表和不连续的范围内工作？ 打开用户表单; Public myRange As Range, myArea As Range Public myCopy As Variant Public i As Long, numAreas As Long Public pvar As Double Sub Button2_Click() Spinner.Show End Sub 用户表单： Option Explicit 'on opening userform this sets the variables Private Sub UserForm_Activate() pvar = 1 Set myRange = Selection […]

如何从UserForm一次添加多个数据行到Excel数据库

我正在做一些足球数据库，我会input数据使用用户窗体，我想从我的Excel数据库中检索数据。 我有一个工作表名为：“wedstrijden”这个工作表包含列：date，HomeTeam，AwayTeam，HomeScore，AwayScore，HomeOdds和AwayOdds 我的其他工作表被命名为：“ingevenuitslagen”这个工作表包含我的用户表单称为UitslagenIngeven 使用下面的代码，我能够从我的数据input到我的“wedstrijden”工作表 Private Sub putAway_Click() Dim ingevenuitslagen As Worksheet Set ingevenuitslagen = ThisWorkbook.Sheets("wedstrijden") NextRow = ingevenuitslagen.Cells(Rows.Count, 1).End(xlUp).Row + 1 ingevenuitslagen.Cells(NextRow, 1) = CDate(date_txt.Text) ingevenuitslagen.Cells(NextRow, 2) = UitslagenIngeven.cboHomeTeam ingevenuitslagen.Cells(NextRow, 3) = UitslagenIngeven.cboAwayTeam ingevenuitslagen.Cells(NextRow, 4) = UitslagenIngeven.cboHScore ingevenuitslagen.Cells(NextRow, 5) = UitslagenIngeven.cboAScore ingevenuitslagen.Cells(NextRow, 6) = Val(UitslagenIngeven.hodds_txt.Text) ingevenuitslagen.Cells(NextRow, 7) = Val(UitslagenIngeven.aodds_txt.Text) End Sub 但是这只是放一行。 我希望能够一次收起10行或15行。 所以我会做一个用户表单的可能性，把20行，但它应该能够只收回填充行。 这可能吗？ […]