Tag: excel vba

列表更新vba excel后刷新combobox

我试图自动更新combobox列表。 只有在closures并打开工作簿时，或者在VBA上按下停止button并再次运行macros时，才能正确更新。 我有以下的VBA代码。 Private Sub UserForm_Initialize() Dim cod As Range Dim pro As Range Dim cli As Range Dim ws As Worksheet Dim ws5 As Worksheet Set ws = Worksheets("ListaProductos") Set ws5 = Worksheets("ListaClientes") For Each cod In ws.Range("CodigoProductoLista") With Me.codigo .AddItem cod.Value .List(.ListCount – 1, 1) = cod.Offset(0, 1).Value End With Next cod For […]

dynamicjoinPower Query（Excel）

我有一个大数据表，需要过滤几列。 我想使用内部连接数据表的filter表来获得结果。 问题是filter是dynamic的。 例如，用户可以使用两列进行过滤（select数据与科目= 1001或1002或1003或1004和Tran = 1或2或3）。 表格在下面。 col1 col2 Acct Tran ==== ==== 1001 1 1002 2 1003 3 1004 或者用户可以在表格末尾添加一列，使用三列进行过滤（selectAcct = 1001或1002或1003或1004，Tran = 1或2或3，Dept = a或b或c的数据）。 表格在下面 col1 col2 col3 Acct Tran Dept ==== ==== ==== 1001 1 a 1002 2 b 1003 3 c 1004 列和列名称的数量可能会改变。 有人知道如何在Power Query中实现这个function吗？ 还是VBA？ 非常感谢。

如何将IFERROR应用于Excel中的所有单元格

我有很多有＃DIV / 0的单元格！ 所以我需要把IFERRORfunction。 有没有办法将此公式应用于所有单元格，而不是将公式手动放入每个单元格中？ 我试过这个VBA代码，但我正在寻找更简单的东西。 Sub WrapIfError() Dim rng As Range Dim cell As Range Dim x As String If Selection.Cells.Count = 1 Then Set rng = Selection If Not rng.HasFormula Then GoTo NoFormulas Else On Error GoTo NoFormulas Set rng = Selection.SpecialCells(xlCellTypeFormulas) On Error GoTo 0 End If For Each cell In rng.Cells […]

直接复制评估的Excel函数的值

我知道我可以复制包含评估公式的列，将其粘贴到相邻的列中，并指定粘贴值（即文本string），以便粘贴值，然后我可以select，复制和编辑值文本如我所愿。 但是，我想要一个更直接的方式来产生一个可编辑的值列。 按照优先顺序，如果我能够： （1）通过指定复制模式/选项直接从包含公式的单元格中直接复制值，而不必指定粘贴模式/选项（这样，如果我想将值粘贴到Excel以外，例如，我可以执行所以直接） – 我相信这是不可能的，但想知道我是否忽略了一些东西 （2）以一种将“遗漏”值“抛出”到其他单元格的方式写公式，根据需要覆盖其他单元格中的任何单元格，但是不会将公式本身的轨迹传递给其他单元格 （3）使用在后台运行的工作表macros，并在列A值更新时自动将列A中的值复制到列B中; （4）在删除公式的公式列上执行一些操作，但留下（可编辑的）值（具有显而易见的缺点，即一旦它们消失就不能重复使用公式）。 哪些是可能的？

棘手的计数公式

我的数据看起来像这样 1|1|1|1 101 1|1|1|2 101 1|1|1|3 101 1|1|2|1 102 1|1|2|2 102 1|1|3|1 103 1|1|3|2 103 1|1|3|3 103 1|1|3|4 103 1|1|3|5 103 1|1|4|1 104 1|1|4|2 104 1|1|4|3 104 <— my eq works till here 1|2|1|1 105 <— my eq needs to return 105 but all my eq modifications have failed 1|2|1|2 105 1|2|2|1 106 1|2|3|1 107 […]

匹配邮编数据库地址

我有一个电子表格，其中包含包含邮政编码的实际美国地址。 我也是美国所有邮编的纬度/经度的数据库，可以在这里find： http ： //www.boutell.com/zipcodes/ 我正在寻找一个VBA解决scheme来匹配正确的纬度/经度的邮政编码。 一个声明说：“如果邮政编码匹配，请在新栏中input相应的邮政编码”。

链接来自不同工作表的数据字段

我有报告说，我经常从两个不同的来源运行，这两个来源都有一个唯一的标识符，用于链接两个报告中的数据（我将调用字段ID“LINK ID”）。 该字段出现在两组输出中（但是输出来自2个填充不同数据点的不同系统）。 我通常将每个报告剪切并粘贴到新创build的工作簿中的单独工作表中，然后进行匹配。 有一次，我曾经在一个子例程中循环遍历包含“LINK ID”的列，然后在另一个工作表上包含相同的“LINK ID”的另一列循环，如果发现一个匹配它会复制链接到匹配的整个数据行并粘贴到第一个工作表上。 我所做的代码从来没有完全完成，但是我想看看能否一劳永逸地找出这个问题，因为如果我不必一次一个一个浏览这些代码，那真是太棒了。 。 这是我有什么： Private Sub Find_And_Link() Dim rw As Long Dim mr2 As Long Dim ws3 As Worksheet Set ws3 = Sheets("VM") With Sheets("AY") For rw = 2 To .Cells(Rows.Count, "F").End(xlUp).Row If CBool(Application.CountIf(ws3.Columns(1), .Cells(rw, "F").Value)) Then mrw = Application.Match(.Cells(rw, "F"), ws3.Columns(1), 0) ws3.Cells(mrw, "A").Resize(1, 12).Copy _ Destination:=.Cells(rw, "G") […]

试图创build代码，允许在一个页面中input数据excellogging在第二页创build一个报告

我正在创build一个跟踪表（Sheet1），在一个logging中跟踪信息，然后使用一个button，“更新”它将这个信息传递给“Sheet2”，这将是一个月度报告。 我有第2页8栏标题。 页面一是我在更新button所在的单元格中input数据的位置。 这是我的代码，我只使用了一列： Private Sub CommandButton1_Click() Dim SerialNumber As String Worksheets("Calibration Record").Select SerialNumber = Range("E5") Worksheets("Monthly Due Report").Select Worksheets("Monthly Due Report").Range("A2").Select If Worksheets("Monthly Due Report").Range("A2").Offset(1, 0) <> "" Then Worksheets("Monthly Due Report").Range("A2").End(x1down).Select End If ActiveCell.Offset(1, 0).Select ActiveCell.Value = SerialNumber Worksheets("Calibration Record").Select Worksheets("Calibration Record").Range("A2").Select End Sub 我也尝试了所有8列无济于事。 使用上面显示的代码，我能够使其工作一次。 当我input第二行信息的数据时，它给了我“运行时错误'1004'。应用程序定义或对象定义的错误。 我一直在这个工作了近一个月，我无法弄清楚我做错了什么。 我甚至在YouTube上观看了Dinesh Kumar Takya的video，无济于事。 我已经遵循了他做了很多次的所有事情，而且我仍然能够使其工作一次，但是之后我得到了运行时错误。

用C＃testingEssbasemacros

我正在尝试自动化一些Excel报告。 目前我需要从Essbase服务器中检索一些数据，为了实现这个function，我创build了一个macros来检索和设置Excel工作表中的数据，我的VBA代码如下： Option Explicit Declare Function EssVRetrieve Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal range As Variant, ByVal lockflag As Variant) As Long Declare Function EssVConnect Lib "ESSEXCLN.XLL" (ByVal sheetName As Variant, ByVal userName As Variant, ByVal password As Variant, ByVal server As Variant, ByVal application As Variant, ByVal database As Variant) As Long Declare […]

使用VBA从谷歌检索信息，试图build立一个停止时，谷歌不能按预期工作

Sub test() Dim IE As New InternetExplorer Dim city$, state$ Dim i As Integer Dim dd As Variant Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage Set doc = IE.document i = 2 'start row 'Setting the variables city = Cells(i, 1).Value 'City variable for search […]