Tag: vba

VBA：加上不规则的范围: 嗨，大家好，我一直在使用Stackoverflow几个月，通常，我设法find解决scheme，直到现在我所有的VBA挑战：我需要一些帮助来创build一个macros，这些macros在“avg”字的行之间添加列E上的所有值。结果应显示在显示“Sum here”标签的单元格上。 “avg”和“sum here”两个文本仅仅是为了举例说明，“avg”可以被任何其他的词代替，“sum here”实际上应该是它上面的值的聚合。真正的挑战是E列的范围数是可变的，所以我想find一个能够处理E列的“n”个范围的macros。最后，列D上的值只是“求和”单元的期望值的例子。这是我曾经试过的： Sub Macro1() ' ' Macro1 Macro ' Dim sumhere As Range Dim startingpoint As Range Dim endingpoint As Range ' Range("C17").Select Selection.End(xlDown).Select If ActiveCell = "avg" Then ActiveCell.Offset(rowoffset:=0, columnoffset:=2).Select Set sumhere = ActiveCell Set startingpoint = ActiveCell.Offset(rowoffset:=-1, columnoffset:=0) Selection.End(xlUp).Select If (ActiveCell.Value) = "Sum here" […]

VBA正则expression式提取支架之间的文本，没有支架: 像这样的句子： “[x]阿尔法 [33] Beta“ 我成功地使用VBA正则expression式来提取括号数据数组（[x]，[33]）： "(\[x\])|(\[\d*\])" 但是，即使在使用什么web资源build议模式之后，我也不能直接提取出包含联合括号的数据（x，33） "(?<=\[)(.*?)(?=\])" 这是一个VBA的具体问题（即限制正则expression式的实现）还是我理解错误的“向前和向后”模式？我的代码是： Public Function Regx( _ ByVal SourceString As String, _ ByVal Pattern As String, _ Optional ByVal IgnoreCase As Boolean = True, _ Optional ByVal MultiLine As Boolean = True, _ Optional ByVal MatchGlobal As Boolean = True) _ As Variant Dim oMatch As Match Dim […]

在VBE中查找未知的方法或关键字: 在我没有写的代码中，有这一行，不是在一个模块，但你可以把每个工作表的代码（我不知道名字）： ActiveSheet.Sort_Existing.value = True 首先，我想这是一个范围的名称，但事实并非如此，variables也没有到处宣布！那么它只是一个variables，你可以这样设置？

VBA工作表子在另一个工作表中创build命名范围: 我有一个私人小组需要在另一个工作表中创build命名区域。它需要保留一个工作表函数，因为它是一个Worksheet_Change子。我已经成功地使用这一行在另一个工作表上设置了一个等于一个范围的范围variables： Set rng2 = Sheets("Lists").Range(Sheets("Lists").Cells(2, Col), Sheets("Lists").Cells(Unique, Col)) 但是，当我将rng2放入代码的其他部分时，它只是指向活动工作表内的正确范围。这是我所尝试的： ActiveWorkbook.Names.Add Name:="Level" & Col, RefersTo:= _ "= " & Sheets("Lists").Range(Sheets("Lists").Cells(2, Col), Sheets("Lists").Cells(Unique, Col)).Address & "" 和： ActiveWorkbook.Names.Add Name:="Level" & Col, RefersTo:= _ "=" & rng2.Address & "" 底部函数在工作簿内部存储的模块中作为一个整体工作，但又不能在工作表子工作。我也尝试过Sheets("Lists").rng2.Address在底部尝试。

Excelmacros非VBA: 我有一个Excel文件，用一个代码似乎不是VBA的macros选项卡打开。在Excel中启用macros警告时，按照macros来格式化文件。这是什么types的代码？有谁知道在哪里可以得到更多的信息如何编码这种types的macros？看下面这个macros的代码是什么样的：

如何使用Excel VBA中的用户input框数据复制多个filter: 我想通过input框从用户获得多个input并过滤表格。只有一列被过滤。然后将整个行数据复制到另一个工作表。我使用下面的代码。问题是可以用来过滤1个国家。 F列中有很多国家。我需要在input框中input2个或更多的国家。然后复制并粘贴。我想添加Loop。但我不知道如何。帮我 Private Sub CommandButton1_Click() Dim str1 As Variant Dim Tbl As ListObject Dim FiltRng As Range Dim RngArea As Range Set Tbl = Sheet1.ListObjects("DataTable") str1 = Application.InputBox("Select the Country Code") If str1 = False Then MsgBox "Please select one Country", , "Input" Exit Sub Else Tbl.Range.AutoFilter […]

在Excel中获取最后一个非空工作表的最佳方式是什么（VBA）: 我正在尝试写一个VBAmacros为一个组有一个工作簿，他们每天创build新的工作表，也有工作表1 ，工作表2和工作表3放在他们长长的清单末尾。我需要在汇总此信息的其他工作簿的新列中创build外部单元格引用。所以我需要知道如何获得最后的非空白表格，这样我就可以抓取这些数据，并将其恰当地放在摘要中。

将包含换行符的文本文件导入到excel中: 我有一个纯文本文件看起来像这样： "some text containing line breaks" 我想说说excel 2004 (Mac, v.11.5)正确打开这个文件。我期望看到只有一个单元格（A1）包含所有上述（没有引号）… 但是，唉，我不能做到这一点，因为Excel似乎坚持使用CR作为行分隔符，即使我将文本限定符设置为双引号。我有点希望Excel能理解这些换行符是价值的一部分 – 它们embedded在双引号中，这些引号应该将它们限定为价值的一部分。所以我的Excel表格有5行，这不是我想要的。我也试过这个Applescript无济于事： tell application "Microsoft Excel" activate open text file filename ¬ "Users:maximiliantyrtania:Desktop:linebreaks" data type delimited ¬ text qualifier text qualifier double quote ¬ field info {{1, text format}} ¬ origin Macintosh with tab end tell 如果我可以告诉Excel使用CR（或LF）以外的行分隔符，那么我会是一个快乐的露营者，但是excel似乎只允许改变字段分隔符，而不是行分隔符。任何指针？谢谢， Max […]

是否可以将VB添加到POI的Excel表单中？: 有谁知道是否有可能从Java内部添加VB到Excel文档？我基本上想要将数据透视表添加到工作表，并dynamic设置它的一些属性。我知道我可以从VB访问数据透视表设置，但不能直接从POI访问。

在Excel VBA中将图像（jpg）转换为base64？: 我需要将Excel （或通过VBA）内的图像转换为base64 （最终我将输出XML）。我怎样才能做到这一点？我是否需要对DOM进行引用？我一直在阅读这个问题，但它只适用于文本string而不是图像… 有没有人有我能看到的任何代码？