Tag: dynamic

在Excel中设置dynamic单元格引用: 我有一个表单设置，可以计算总计。如果数据已经存在，则足够简单，但如果添加新数据则不够。所以我希望能够做的是不为总和公式指定一个特定的结束单元格，而是让它随着更多列的添加而更新。我怎样才能做到这一点=SUM(m4:m?)

dynamic创build集合VBA的集合: 我试图dynamic创build一个集合嵌套在集合。到目前为止，我已经能够通过input一切来创build一个嵌套集合（见下文）。但是，我有一个（可怕的）电子表格，其中一列有17个问题的重复数百次，下一列有答案。我试图把每个问题的答案作为一个项目，而问题本身作为索引。这17个问题的唯一集合将是整个电子表格集合中的一个集合。如果没有任何意义，可以考虑为集合中的每个项目添加一个集合。以下是手动input的集合的集合：谢谢！ Sub test() Dim M As New Collection Dim nst3 As New Collection Dim nst2 As New Collection Dim nst1 As New Collection Dim i As Integer Dim ii As Integer nst1.Add "A", "1" nst1.Add "B", "2" nst1.Add "C", "3" nst1.Add "D", "4" nst2.Add "E", "1" […]

Microsoft Excel 2007 – 如何为Vlookup编写一个dynamic的Table_Array: 我不确定是否需要在特定的地方发布这个问题，但是这里就是这样。警告：墙上的文字。我需要完全解释我的情况，因为这似乎是一个独特的问题，没有多less解决scheme。 TL; DR – Master电子表格通过vlookups从“每周”电子表格中抓取数据。每周发布一个新的电子表格。如何自动执行vlookup以每周从新电子表格抓取数据？现在这里是长版本… 我有一个主电子表格，使用指向另一个电子表格的vlookups。示例代码如下： =VLOOKUP(A2,'…OTC\2016\Reports Sent\[SALES BY SKU STORE wk 3 (retail) (2).xls]SKU'!$D$1:$G$65536,4,FALSE) 大。十分简单。主电子表格当前指向“第3周”的数据。因此，[销售SKU STORE wk3 （零售）（2）.xls]。目前在电子表格所在的文件目录中，第3周的电子表格是最新的。每个星期，一个新的电子表格将被保存在同一个文件夹，但被称为[销售SKU商店wk4 （零售）（2）.xls]。现在得到这个想法..？我希望主电子表格能够指向新的每周数据，每次有新的电子表格存在。所以人们会认为以某种方式使vlookup Table_Arraydynamic。我如何做到这一点？附加说明： – 我已经写了一个PowerShell脚本来输出所有的文件名和文件扩展名为.csv文件。然后我创build了一个macros来将.csv数据导入到主文件中的一个单独的表单中。我做了一个潜在的查找表。下面的示例数据，我们将其称为“文件名单”： [SALES BY SKU STORE wk1 (retail)(2).xls] [SALES BY SKU STORE wk2 (retail)(2).xls] [SALES […]

重新初始化dynamic数组: 当我使用Range.Value函数时，我有大量的单元格（大约30,000行，60列）溢出。这似乎发生，因为由Range.Value函数创build的内存托pipe数组不够大。如果我声明一个数组，那么它工作得很好。所以我需要一个dynamic数组variables，我可以将其设置为等于Range.Value，将数据传送到表单上的其他位置，然后重新初始化它以用于下一个大范围。我不能在我的生活中find有关如何重新初始化dynamic数组的信息。如果我使用Erase myArray那么它似乎我不能再赋值给variables，但我不能再Dim数组。如果我Redim ，我将不得不创build很多复杂的函数来手动find我的数组的大小。这里有什么窍门？

来自数据透视表和静态数据的Exceldynamic图表: 我有三年的数据。今年的数据15/16每周更新一次。前两年的数据是完整的，是静态的（不再更新）。我可以在不同系列的三年中制作图表，但是我必须每周手动更改范围以更新图表。我怎样才能制作一个图表，将前两年和当前每周数据映射到一个图表。从今年的数据来看，从过去两年的数据是静态数据？谢谢更新：在尝试将“= iferror”添加为空白（“”）的build议之后，图表绘制了今年余下的时间，但未来date在图表上显示为0，如何删除该图表，但保留今年余下时间的映射，所以图是dynamic的？

dynamic表格值filter中的date转换错误: 使用excel-Access VBA环境。 excel页面中的vba代码将date单元格的值分配给datefilter。由于我总是以巴拿马的语言环境工作dd / mm / yyyy格式，因此代码在12日以后的date（即指定月份没有歧义）的情况下工作正常，但是对于dateless于13的date，它将date转换为数字值，我收到一条错误消息，说42502（例如可能12,2016年）不是filter的有效值。当一天过去12日，它工作正常。我如何捕获这个错误并解决它？代码： ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh ' Range R1 contains the value we desire to filter the date of dynamic table ' Range B1 contains the date filter of the dynamic table Range("B1").Select ActiveSheet.PivotTables("PivotTable1").PivotFields("fecha").ClearAllFilters Application.ScreenUpdating = False 'ActiveSheet.Range("B1") = Range("R1").Value ff = Range("R1").Value ActiveSheet.Range("B1") = Right("00" & Day(ff), 2) […]

抵消dynamic范围的数据: 我遇到了一些似乎非常基本的问题。我与vba的经验本质上是没有的。我有一个电子表格，其中包含使用我制作的脚本从某些csv文件导入的数据。脚本读取数据，然后创build主电子表格或覆盖以前的主电子表格。我想在同一个脚本中移动这个数据一列。随着更多数据的添加，每次更新电子表格时，需要移动的数据范围都会发生变化。我在代码的末尾添加了以下内容，但是我无法使其工作。 Set myRange = Range(Cells(1, 1).Address(), Cells(lastRow, lastColumn).Address()) Range("myRange").Offset(,1) 我究竟做错了什么？编辑：这是我现在拥有的。我一直跑到第14行的“运行时错误1004”。 Dim myRange As Range Dim DefPath As String Dim lastRow As Long Dim lastColumn As Long Dim lRow As Long Dim lCol As Long DefPath = Application.DefaultFilePath Workbooks.Open Filename:=DefPath & "\SEM Master File" lRow = Cells(Rows.Count, 1).End(xlUp).Row […]

在vba中定义dynamic范围: 如何在电子表格中的最后一个单元格旁边的列中指定单元格，例如，如果我有数据 Range(Cells(1, 1), Cells(lastRow, lastColumn)) 我如何dynamic定义 Range(Cells(1, 2), Cells(lastRow, n_lastColumn)) 在n_lastColumn引用lastColumn之后的下一列的lastColumn ？

统计独特的文本值并在VBA中创builddynamic仪表板: 我有一个我正在做的仪表板的参考文件。我希望能够计算参考文件列中的唯一组织名称，并将该数字作为单独仪表板中列标题的数量。我使用macroslogging器使其独特，但我不确定如何将其转换为根据ref文件中唯一组织名称的计数为我的仪表板创builddynamic数量的列。以下是参考文件可能看起来像的图片附件示例。所以，如果它有5个唯一的名称，我希望单独的仪表板制作5列与这些名称作为标题在每列中。 Sub Macro1() ' Macro1 Macro Columns("F:F").Select Range("F1:F10000000000").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Columns _ ("O:O"), Unique:=True ActiveCell.FormulaR1C1 = "=ROWS(R[-11]C:R[-2]C)" End Sub

将独立工作表中的独特文本放入VBA中的循环列标题中: 我试图从一个单独的工作表中取出一列，并将其只有其唯一值复制到另一个工作表作为列标题。现在，我的代码在reference1中创build了唯一的值，并尝试将它们复制到Sheet1中作为列标题，但由于某种原因，我的范围只循环引用1数据中的第一行（图片显示它只是连续循环title1）表单1中的标题。如果在wsDB语句中放置“Transpose（arrValues）”，它只放置第一行数据，如果在wsDB语句中放置“Transpose（j）”，它只会放置reference1工作表中的实际编号列。 Sub uniqueyes() Dim wsRef As Worksheet Dim wsDB As Worksheet Set wsRef = Worksheets("reference1") Set wsDB = Worksheets("Sheet1") With wsRef .Range("F1:F60").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("I1"), unique:=True Dim arrValues As Variant arrValues = .Range("I2", .Range("I" & .Rows.Count).End(xlUp)) End With For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "Title" Then For j = […]