Tag: 表单

如何使用Google Script将电子表格复制到GDrive上的特定文件夹中，而无需复制关联的表单和脚本: 我创build了一个表单，将条目logging到Google表单中。每天一次，我希望将电子表格作为附件通过电子邮件发送给我们的技术人员。同时，我想在特定的文件夹中制作电子表格的副本，作为“logging”。我使用下面的代码 function sendEmail() { var oauthConfig = UrlFetchApp.addOAuthService("google"); oauthConfig.setAccessTokenUrl("url"); oauthConfig.setRequestTokenUrl("url"); oauthConfig.setAuthorizationUrl("url"); oauthConfig.setConsumerKey("anonymous"); oauthConfig.setConsumerSecret("anonymous"); var requestData = {"method": "GET", "oAuthServiceName": "google", "oAuthUseToken": "always"}; var url = "url"; var result = UrlFetchApp.fetch(url , requestData); var contents = result.getContent(); var cur_date = Utilities.formatDate(new Date(), "GMT+1", "yyyy/MM/dd") MailApp.sendEmail("bubu@hotmail.com","test" ,"test", {attachments:[{fileName:cur_date + "_Orders.html", content:contents, mimeType:"application/html"}]}); var spreadsheet […]

在Excelfunction区上创build一个button以打开“用户窗体”窗口: 我开发了一个VBA用户界面，允许用户input值，计算结果，然后打印到工作表中。我想知道是否有任何可能的方式，我可以有一个button在Excelfunction区，例如在“数据”选项卡下，这将引发用户界面打开。目前我可以使用该接口的唯一方法是通过开发人员>> Visual Basic >>单击用户窗体>> F5。这也限制了用户表单，因为它只能用在一个特定的工作簿中，而不是许多。或者，如果它是某种可能的话，把它作为一个加载项，而不是。任何帮助是极大的赞赏！

如何在Excel VBA中的列的末尾进行用户表单输出: 我试图使这个用户表单输出选项button结果在一列的结尾。最初我尝试使用相同的我在我的主要模块中的下一个循环，但用户表单将无法识别该variables，即使将其作为公共的尺寸后。有任何想法吗？ Private Sub cmdOk_Click() If opt1 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "None" ElseIf opt2 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "3/8 Plain" ElseIf opt3 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Plain" ElseIf opt4 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Herringbone" ElseIf opt5 Then Range(Range(“E3”), Range(“E3”).End(xlDown)) = "1/2 Diamond" End If Unload frmLagging End Sub

从mac上的给定范围填充Userformcombobox（excel 2011）: 你如何使用mac上的给定范围的值填充combobox。我一直在寻找答案的最后一个小时，但没有任何解决scheme似乎工作。我有一个名为Details的用户窗体和一个名为CurrencyList的combobox，我想用A23:A30值填充。没有可以find的rowource属性。我试着用这个答案的答案如下： Private Sub Details_Initialize() Me.CurrencyList.List = Worksheets("mySheet").Range("A23:A30").Value End Sub 但combobox空了。谢谢你的帮助，我确定它是一个非常简单的问题！

vba中的userform和主模块之间的交换值: 我已经在这个问题上工作了好几个小时，所以我会很感激任何答案。我有一个用户窗体有三个button，我喜欢他们传递一个值，所以我可以在我的主要模块中使用该值，并根据值，运行特定的代码。我到处search，但他们都从文本框传递值这是我的用户表单代码： private sub cancelButton_Click() response = 1 UserForm1.Hide End Sub private Sub SutunButton_Click() response = 2 UserForm1.Hide End Sub private Sub TirButton_Click() response = 3 UserForm1.Hide End Sub 这是我的主要模块： public response as integer sub example() . . . userform1.show if response=1 then msgbox "1" elseif response = 2 then msgbox "2" elseif […]

链接Combobox与文本框在Excel中: 我在Excel中创build一个用户窗体，以方便地将文本input到工作表中。我有第二个工作表，其中包含必须填充到用户窗体中的信息。该表包含2列，一列（A）有数字，第二列（B）有与这些数字链接的项目的描述。目前我有第一部分人口工作。正在使用此代码填充项目编号的combobox： Private Sub UserForm_Initialize() With Worksheets("nummers") cobProductNr.List = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row).Value End With End Sub 我的问题是，我在我的表单写什么代码，以便当我通过我的comboboxselect一个项目（数字），必须包含描述自动填充的文本框？

根据所选号码隐藏和取消隐藏特定的行。: 我正在Excel上创build一个用户窗体，我想隐藏和取消隐藏整行取决于从1到4的数据validation列表（在单元格M5中的数据validation）在这里我想要做的是：如果在M5中select数字1，我想隐藏行9:11和17:20如果在M5中select数字2，我想隐藏行10:11和18:20如果数字3在M5中select，我想隐藏第11行和第20行我想要隐藏的所有行都包含E列中的dateselect器选项（如果必须的话，我很乐意删除dateselect器选项）我将衷心感谢您的帮助。谢谢你们。一个

在Excel VBA中调用用户窗体并继续取决于哪个button被点击: 我在Excel工作簿中有四个模块，三个button和一个用户窗体，一个进度条。我想在所有四个模块的运行期间显示一个进度条。例：我点击一个button，执行下面的代码，使我的进度栏可见： Private Sub GWPCClearDataButton_Click() ProgressBar.Show End Sub 在我的用户表单中，我有以下代码： Private Sub UserForm_Activate() GWPCClearData End Sub 这叫我四个模块之一，迄今为止工作正常。现在，这里是我卡住的地方。当然，我想为所有模块使用相同的进度条，但是如何在用户窗体代码块中确定哪个button被点击，然后根据那个调用另一个模块？例： Private Sub GWPCClearDataButton_Click() ProgressBar.Show End Sub Private Sub GSEPClearDataButton_Click() ProgressBar.Show End Sub 用户窗体： Private Sub UserForm_Activate() If "BUTTON_NAME" = "GWPCClearDataButton" Then GWPCClearData ElseIf "BUTTON_NAME" = "GSEPClearDataButton" Then GSEPClearData End if End Sub 我怎么能这样做？我还没有find一个可能性传递一个参数到我的用户表单将包含button名称。 […]

Excel用户窗体，保存到桌面: 我有一个用户表单，许多不同的用户将打开并完成。我希望用户表单在提交答案后保存到每个用户的桌面。 popup一个消息框后，工作簿应理想地保存到用户的桌面并closures。这是我迄今为止虽然似乎没有工作： answer3 = MsgBox("Please transfer $" & variable & " to:" & vbCr & "BSB: XXX-XXX" & vbCr & "Account Number: XXXX XXXX" & vbCr & "Account Name: XXX XXX") ThisWorkbook.SaveAs((CreateObject("WScript.Shell").specialfolders("Desktop")) ThisWorkbook.Close 任何想法，如何实现这一目标？谢谢

刮在亚马逊总理现在邮编input: 我正在寻找在primenow.amazon.co.uk上提交表格并将结果粘贴到excel中的邮编 Sub PostCode_Delivery_Short() Dim ie As Object Dim form As Variant, button As Variant 'add the “Microsoft Internet Controls” reference in your VBA Project indirectly Set ie = CreateObject("InternetExplorer.Application") 'Input box for postcode Postcode = InputBox("Enter Postcode") With ie .Visible = True .Navigate ("primenow.amazon.co.uk") 'we ensure that the web page downloads completely before we fill […]