Tag: input

Pentaho Filter正则expression式Excelinput: 好吧，所以我现在要做的是从Excelinput（所有string列）中获取所有的信息，然后在这些列中我想为其中的一个创build特定的filter，在列NO_BIEN上更具体具体expression。 [0-9] +（[0-9] [0-9]）？我做了一个Filter Rows操作，然后单击REGEXPfilter，但是我看不到粘贴expression式的地方，因为我可以看到是否添加一个String。

使用Excel中的excel信息读入和创build一个列表/数组的方法: 想象一下，我给出了两列：a，b，c，d，e，f和e，f，g，h，i，j（表示列中新行的逗号）我怎样才能从excel中读取这些信息，并把它放在两个单独的数组中？我想操作这个信息，稍后阅读。作为输出的一部分。

使用VBA的网页自动化: 我是VBA和编程的新手，我已经发现了一些在线代码来自动化网页处理。现在我只是想login到电子奥斯卡的网页： Do While IE.Busy Application.Wait DateAdd("s", 1, Now()) Loop Set objCollection = IE.document.getElementsByTagName("input") Set objName = IE.document.getElementsByTagName("name") i = 0 While i < objCollection.Length If objCollection(i).ID = "companyId" Then ' Set text for search objCollection(i).Value = "companyId" Else If objCollection(i).ID = "userId" Then objCollection(i).Value = "uId" Else If objCollection(i).ID = "password" Then objCollection(i).Value = […]

Excel VBA – 将input框中的值添加到列中的列表中: 我目前正在制作费用表格，但是我正在努力寻找费用类别清单，我想这样做是为了让我可以在input框中键入我select的类别，然后进入一个用作数据validation。我想要将值添加到Sheet2的列A. 到目前为止，我已经尝试过了 Sub Button1_Click() Dim ExpenseName As String ExpenseName = InputBox( _ "Type in the name of the category you want to add", _ "Add Expense Category", _ "Type expense category here") If Len(ExpenseName) = 0 Then MsgBox "No category chosen" Exit Sub End If '**Struggling what to put here** End Sub 我已经添加了下面，请参阅。 Sub […]

VBA如何强制用户使用Excel内置的范围select来select范围？: 我想达到的目的是一旦macros运行，用户必须select（通过手工，而不是通过input范围）一个范围，然后将其设置为一个范围variables。 Excel在很多领域都有这样的function，例如图表的数据select设置，但我不知道如何访问它。任何和所有的帮助表示赞赏！

Excel Macro用于用户input，如果不正确，则循环返回以供用户重新input: 美好的一天我试图根据用户input和更新表单上的范围，但是我却被要求用户在input不匹配任何预定义条目时“重新input”input。下面是我的代码 Sub testing_input_in_formula() Dim wbk1 As Workbook Dim strName As String test1 = "C:\Users\hayekn\Desktop\book1.xlsx" Set wbk1 = Workbooks.Open(test1) With wbk1.Sheets("Sheet1") On Error Resume Next Application.DisplayAlerts = True strName = InputBox(Prompt:="Enter the week you would like to update", _ Title:="Week Selection.", Default:="Week 1") If strName = "Your Name here" Or _ strName = vbNullString […]

excelmacros将一个文件夹复制到另一个文件夹，用户input的文件夹名称: 我试图通过Excelmacros将一个完整的文件夹复制到一个新的文件夹，但我需要用户每次input新的文件夹名称这是我现在的代码复制到永久/静态文件夹 Sub Copy_Folder() Dim FSO As Object Dim FromPath As String Dim ToPath As String FromPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\3- FINAL Country Files\1" '<< Change ToPath = "C:\Users\hayekn\Desktop\AR Reports\0MENACA Working File\AR Working File\Weekly Back" '<< Change Application.CutCopyMode = False If Right(FromPath, 1) = "\" Then FromPath = Left(FromPath, Len(FromPath) – 1) […]

Excel：如何从VBA打开数据input表单？: Excel中有一个内置的数据input表单。我已经添加了一个捷径，它很好。它有一些小问题（即，它取决于你select了哪个单元格来填充表单中的数据）。所以我想把它包装成一个macros，并添加我自己的button。我的小macros将select适当的单元格。所以问题是，使用VBA，你如何调用内build的数据input表单？ -编辑- 似乎我的问题不清楚…所以这里有一些：有一个内置的数据input表单，你可以使用，见这里：内置的数据input表单我想用excel打开这个表格，像这样： Sub OpenTheBuiltinDataEntryForm() ' Add code here to open the built-in data entry form… End Sub

VBA Excelinput框运行时错误13types不匹配: 我有一个运行良好的macros。但是我遇到的问题是InputBox。当用户从input框中按下CANCEL或X时macros发生错误。用户最多可以input15个值进行search，input0即可开始search。我想让它更强大，所以我不会遇到这些错误。请帮忙。 Sub FindValues() Dim LSearchRow As Integer Dim rw As Integer, cl As Range, LSearchValue As Long, LCopyToRow As Integer Dim iHowMany As Integer Dim aSearch(15) As Long Dim i As Integer ' clear the sheets before it runs so to accurate number of funds opend. Sheet2.Cells.ClearContents Sheets("tier 2").Cells.ClearContents Sheets("tier […]

search范围如果空白提示用户Intup每个单元格: 我有一个信息的范围，并希望检查之前，我保存它。我有麻烦的方程提示用户哪个单元格是空的，然后提示他们input正确的信息。我认为这是因为我将细胞定义为一个范围，或者我错过了其他的东西。一旦popupinput框，我想通过偏移单元格到左边来告诉用户他们丢失了哪些数据。左边的单元格是他们需要input的数据types（如date或名称）。该偏移单元格不会显示在input框的消息中。 For Each CheckCell In Sheets("Sheet1").Range("J5:J17").Cells If Len(Trim(CheckCell.Value)) = 0 Then Cellcheck.Value = Application.InputBox("Please Enter Data for" & CheckCell.Offset(Rowoffset:=0, Columnoffset:=-1).Value, "Mission Info") End If Next CheckCell