Tag: 表单

用户表单取消button_Intermittently_没有响应？: 附带的VBA程序适用于进度条用户窗体。一切按预期工作，除了取消button是间歇性地没有响应。我间歇地说，因为95％的时间我必须在程序停止之前多次点击取消button。我可以看到button点击事件被animation，但程序没有被打断。它看起来好像有什么东西在button向下事件发生之前从取消button上偷取焦点。逃生和窗口closuresbutton按照预期作出响应，只需点击一下。我需要做什么才能使取消button正确响应？谢谢！更新：我注意到，当我点击并按住取消button，而不是停留在“按下”的button，它被踢了起来。所以显然有些东西是重置button的状态，以至于程序没有捕捉到closures状态来触发点击事件。以下是userform模块（名为UserForm1）中的代码： Private mbooUserCancel As Boolean Public Property Get UserCancel() As Boolean UserCancel = mbooUserCancel End Property Private Property Let UserCancel(ByVal booUserCancel As Boolean) mbooUserCancel = booUserCancel End Property Public Sub UpdateProgress(CountTotal As Long, CountProgress As Long) On Error GoTo Error_Handler ProgressBar1.Value = CountProgress / […]

PHP检测一个打开/下载对话框: 不幸的是，这个问题可能会被closures，但我希望有人回答。我有一些PHP代码打开Excel中的一些HTML数据。这是PHP： <?php $data = $_REQUEST['datatodisplay']; header("Content-Type: application/vnd.ms-excel"); header("Content-Disposition: attachment; filename=Data.xls"); header("Pragma: no-cache"); header("Expires: 0"); echo $data; ?> 这是这样的forms： <form class='noPrint' action='demo/saveToExcel.php' method='post' target='_blank' onsubmit="$('#datatodisplay').val( $('<div>').append( $('#dataTable').eq(0).clone() ).html() )"> <input id='excel' type='image' src='img/file.png'> <input type='hidden' id='datatodisplay' name='datatodisplay' /> </form> 现在，这个代码很好用，但是有人可以从PHP的angular度来解释它是如何实现的。我提交表单，暂时打开一个新页面，出现一个下载框，我打开Excel中，然后我被发回到表单页面（但Excel也打开） PHP如何知道我已经下载并返回到表单页面？

将3个Excel列插入到1个标签中: 我有三列数据。有没有办法使用vba将信息插入userForm的标签？这里是我有更新的代码： Dim rowNum As Integer Dim lastRow As Integer lastRow = 373 For rowNum = 2 To lastRow report = Sheets("DATA2").Range("F" & rowNum).Text & _ " " & Sheets("DATA2").Range("G" & rowNum).Text & _ " " & Sheets("DATA2").Range("H" & rowNum).Text & vbCrLf Next rowNum End Sub

未find方法或数据成员: 我运行我的代码时出现此错误。这是从这篇文章的延续：添加滚动条到标签我第一次创build了一个userForm标签，从工作表中检索信息。我想添加一个滚动条，这样我可以查看标签中的列表，如果它比标签更长。我被告知尝试一个文本框。我从我的代码中取出了这一行： reportDate.Caption = reportDate.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf 并复制它，只是在文本框后添加一个数字1，所以文本框的代码是： reportDate1.Caption = reportDate1.Caption & Sheets("DATA2").Range("P" & rowNum).Text & vbCrLf 这是错误的地方（post的标题）。

将用户窗体与Excel中的单元格alignment: 我正在尝试在Excel中定位一个用户窗体（名为UserForm1）以与Excel中的单元格引用alignment。如果我使用下面的第一个代码初始化表单，则用户窗体在Excel中位于屏幕中心的位置是正确的。 Private Sub UserForm_Initialize() With Me .Width = 200 .Height = 170 End With End Sub 但是，我想resize以alignment用户窗体，以便它涵盖单元格B3：D15。我试过了 Private Sub UserForm_Initialize() With Me .Top = Sheet1.Range("B3").Top .Left = Sheet1.Range("B3").Left .Width = Sheet1.Range("B3").Offset(0, 4).Left – Sheet1.Range("B3").Left .Height = Sheet1.Range("B3").Offset(12, 0).Top – Sheet1.Range("B3").Top End With End Sub 但用户窗体出现在function区上（Excel缩放为100％）。有没有办法正确地考虑到屏幕分辨率/缩放大小？感谢牙医

Excel VBA：ComboBox.Rowsource值的dynamic范围在userForm从commandbutton调用时不显示: 标题应该给出一个公平的问题的概述，但我正在运行一个dynamic的命名范围用于在用户窗体中的combobox。当我运行表单时，值显示为预期的。当我通过命令button调用模块子例程时，值不会出现，我不知道为什么。我将粘贴所有的代码，并突出显示下面的有问题的代码片段： Private Sub btnGetGAToken_Click() '——————————– 'Obtain API Token from Google Analytics (GA), indicate to user that token has been obtained and populate Account combobox 'with a unique list of accounts, which will in turn populate the Profile combobox with the profiles associated with the chosen 'account '——————————– Dim txtEmailField As String Dim […]

excel vba用户表单：未定义用户定义的types: 我的Excel书中包含一个名为myUserForm的用户表单。我想打开它，用数据填充它，然后按下button，但是 Sub myUserFormShow() Dim muf As myUserForm muf.Show End Sub 提示错误User-defined type not defined 。如何解决它？谢谢。

Excel – VBA：Userform.Label不会改变: 我的VBA程序在用户input的input上处理一些操作，最终返回结果。在某个时候，我希望有一些用户performance出来并“调整”研究。例如，如果用户input了一个不适合的州和城市，就会显示“您是否指城市州？”。然后，点击是会考虑到修改，点击不会改变任何东西。我已经尝试了这一点，在一些教程中发现： city = sMain.Range("J12").Value province = sMain.Range("J6").Value provinceSugg = sCurrent.Cells(p, db_column).Value If province = "" And city <> "" Then UserForm2.Show UserForm2.Label1 = "Do you mean : " & city & " in " & provinceSugg Else End If 不幸的是，它根本不起作用，不pipe我为Label1写的文本和我使用的任何写法（Label1.Caption =，UserForm2.Label1.Caption =，Label1 =等），仍然没有改变。谢谢你帮我解决这个问题！

Excel VBA的提问线: 我有一个excel文件，有5个连续的单元格，需要用数据填充1列。我期待创build一个VBA userForm，将通过一系列的问题，以帮助用户input正确的数据。可以说5个单元格是A1到A5。一旦调用了用户表单，它应该显示一个问题（标签也许？），一个input数据的文本框，以及一个命令button来移动下一个问题。一直从A1移动到A2等等，直到询问完成。有谁知道如何做到这一点？我的VB知识是基本的，但我已经试过，并试图无济于事。提前致谢！

EXCEL VBA：dblClick，重复代码改进: 我有一堆类似构造的用户表单上有许多相同的对象。对于我的标签（超过50个），我创build了一个dblClick事件来允许用户更改标题。这工作正常，但我想知道是否有一种方法可以改善我的代码。有没有一种方法可以避免为了处理不同对象上的相同事件而创build相同代码的几十个副本？这是我的代码： Private Sub Item1_Label_dblClick(ByVal Cancel as MSForms.ReturnBoolean) Item1_Label.Caption = InputBox("blah?", "blah", Item1_Label.Caption) if Item1_Label.Caption = "" Then Item1_Label.Caption = "Item 1" End Sub Private Sub Item2_Label_dblClick(ByVal Cancel as MSForms.ReturnBoolean) Item2_Label.Caption = InputBox("blah?", "blah", Item2_Label.Caption) if Item2_Label.Caption = "" Then Item2_Label.Caption = "Item 2" End Sub Private Sub Item3_Label_dblClick(ByVal Cancel as MSForms.ReturnBoolean) […]