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