Tag: 范围

使用VBA命名范围并创build具有这些范围的图表

我是VBA新手。 我试图创build超过500 xlClusteredColumn图表使用两列信息，我想加快工作。 第一列包含我想用于命名范围的名称（即： Line1 ， Line2等），第二列包含数据范围的间接引用（即Sheet1!C4:D28 ， Sheet1!C28:D90 ）。 我注意到，如果我使用“图表数据系列”字段的命名范围，数据很好地显示（但我必须先创build该命名范围，以确保将INDIRECT公式包含在引用中（例如：命名范围Line1等于=INDIRECT(Sheet1!C4:C28) ）。范围将是静态的。 在审查先前的问题，我似乎无法find一个解决scheme，将select该集合中的第一个单元格，并命名它，然后使用第二个单元格来定义该范围。 我想我可能需要ActiveWorkbook.Names.Add Name:=公式，并将其与一个循环（但我不能得到它使用select或单元格来定义添加名称方面，只有一个硬编码名称）。 如果解决scheme需要它，我可以返回并从单元格中提取单个范围（即： C4:D28 ），并且只有在使代码更简单的情况下才具有图表参考。 我知道我的第一个概述的尝试不是唯一的解决scheme，可能有一个更优雅。 我认为使用命名范围会加速图表工作，但是也许有办法切断这一步骤？ 为所有这些范围的图表填充一张新图表将会锦上添花，但是我很乐意获得帮助，以便将数据设置为图表。 示例信息： NameRange1 （在单元格A1：A4中） WKD_1_NB WKD_2_EB WKD_3_EB SerRange1 （在单元格B1：B4中） WKDpivot C4：D43 WKDpivot C84：D140 WKDpivot C197：D233 （图表数据范围要求命名范围“WKD_1_NB”的引用为“= INDIRECT（WKDpivot！C4：D43）”，以便图表工作。

在excel中使if语句成为真的范围内的单元格的访问值

我想检查一个单元格是否等于其他单元格的单元格。 如果是这样，我想将一个单元格的值添加到不同的列中。 所以可以说，我正在search范围A2：A1000，看它是否等于B2（IF（A2：A1000 = B2,1,0））可以说B2等于A5。 然后我想在D2中加上C5的总和。 这可能在Excel中？

将dynamic范围合并到一个Range Excel或VBA中

我目前正在尝试将两个范围合并成一个范围。 我的范围是dynamic的，因为它们基于date而变化。 例如，假设我想组合的两个范围是A3：A10和另一个C7：C12。 每天刷新并移动索引1 …所以新的范围是A4：A11和C8：C13。 我想把这两个区域合并成一个不同的列。 我假设这将不得不在VBA实施…但是，我一直运气不大。 我有值表明我想在我的工作表中做我的范围的行号。 我试过制作VBAmacros，但我一直没有运气。 我一直得到9（我想要的范围的第一期）作为我的结果，而不是一个范围，但我想使用该function打印整个组合的范围。 我也想过使用Sub，但我不是很有经验的使用Sub。 这是我迄今为止…请让我知道任何build议或提示。 Function FiveYTwoY() Worksheets("India Data").Activate index5_90 = Cells(10, 2).Value '5Y 90 day index index5_yes = Cells(9, 2).Value '5Y yesterday index index2_90 = Cells(7, 2).Value '2Y 90 day index index2_yes = Cells(6, 2).Value '2Y yesterday index Dim range5 As Range Set range5 = Range(Cells(index5_90, 20), […]

为每个新的范围行添加系列图表

我需要创build一个包含多个只有一对值的序列的图表。 它看起来像这样： 图片显示了一个坐标的六个系列。 系列和值的名称取自三个不同范围的单元格（每个范围只有一列，所有配对数据在同一行但范围不同）。 创buildbutton，触发添加/删除行并相应地调整范围。 是否可以添加/删除系列的每个新的范围大小调整？ 即使这意味着每次删除现有的图表，并绘制新的图表。 基本上需要对行的范围进行计数，并对每一行进行一系列的处理。 希望我能够解释我自己。 我会很感激任何指针。

另一张表中的列数？

在Excel中，查找另一个表单中两个单元格之间的列数的function是什么？

当声明一个范围（从合并的单元格获取值）

我试图从合并单元格（这是在一个.find gcell结果的偏移量）通过一个循环遍历行（并在另一张表中查找特定值）的循环获取值。如果代码我们正在寻找的细胞被合并，并执行以下操作： -Unmerges – 通过使用.Address获取合并单元格的极限 – 查看包含在这些单元格中的值 – 将值重写 在这一点上，它不工作，我相信因为variables格式为.address给出一个string和属性rows.value和.MergeArea需要一个范围我的问题是，我如何从一个地址string更改为范围？ 也许这样我可以解决这个问题。 如果你有其他的信号，我会很乐意听的。 非常感谢你。 码： （循环代码不会显示，因为它工作良好） lineasemergidasCont = gCell.Offset(, 4).MergeArea.Rows.count emergidainicio = gCell.Offset(, 4).Address emergidafinal = gCell.Offset(lineasemergidasCont, 4).Address goes well until here——-> Range(emergidainicio, emergidafinal).MergeArea.UnMerge filainicio = emergidainicio.Rows.Value filafinal = emergidafinal.Rows.Value For p = filainicio To filafinal If .Cells(p, 10).Value <> "" Then .Cells(p, 10).Value = datoemergido […]

dynamic范围公式

我从另一个工作簿中提取了一些数据，并且希望在数据末尾对列进行总结。 问题是我想要在最后一个单元格中的总和公式，而不仅仅是值，所以如果用户在提取数据后更改数据，它将自动更新。 数据从第8行开始，长度也不相同，所以这里是我到目前为止的尝试： ActiveCell.Range("a1").End(xlDown).Select LastRow = Activecell.Row ActiveCell.Offset(2,0).Range("a1").Select ActiveCell.FormulaR1C1 = "=sum(R[-LastRow + 6]C:R[-2]C)" 这将返回一个错误，因为我猜你不能在这个语法中使用一个variables。 我能做什么？

VBA Excel 2007将macros更改为使用范围进行search，而不是将数据放入macros中

我发现了一个适合我需求的macros，但效率并不高。 我有一个6000行的地址列表，我需要使用来自另一个电子表格的数据进行身份识别。 我一直在将需要search的数据复制到macros的ADDRESSES2SEARCH部分，并更改用于标识它们的OWNERNAME。 我希望能够使用另一个电子表格中的命名范围或列作为ADDRESSES2SEARCH。 不幸的是，我不太了解VBA来改变这个macros。 任何人都可以帮助或指向正确的方向吗？ Sub Mark_cells_in_column() Dim FirstAddress As String Dim MyArr As Variant Dim Rng As Range Dim I As Long With Application .ScreenUpdating = False .EnableEvents = False End With MyArr = Array( ADDRESSES2SEARCH ) With Sheets("Adhoc Boundary Scan").Range("A:A") .Offset(0, 1).ClearContents For I = LBound(MyArr) To UBound(MyArr) Set Rng = .Find(What:=MyArr(I), […]

Excel中的VBA：使用范围获取错误

我一直在广泛地寻找答案，但似乎没有人对我有任何答案。 我想要我的代码做的很简单 – 我想从用户select的一部分单元格中删除背景颜色。 这会在用户按下button时触发。 我的代码是： Private Sub clrhi_Click() Dim rng As Range Set rng = Application.InputBox("Select a range from which you wish to remove the highlight", "Select a Range", Type:=8) Range(rng.Address).Interior.ColorIndex = 0 End Sub 当我运行它，它碰到一个错误（运行时错误'1004'：应用程序定义或对象定义的错误）最后一行右上方End Sub。 我也试过： Private Sub clrhi_Click() Dim rng As Range Set rng = Application.InputBox("Select a range from which you […]

C＃Excel Check单元格在VSTO中包含一个名称

我试图检查一个单元格是否包含名称或是一个命名范围，如果不是，我将分配一个名称。 这是我的代码： if (cell.Name.Name == null) { Globals.ThisWorkbook.Names.Add("Temp", cell); } else { // Move on } 但是，上面的代码将抛出一个COMException 。 相反，我试图通过这样做来解决它： try { if (cell.Name.Name == null) { } } catch (COMException) { Globals.ThisWorkbook.Names.Add("Temp", cell); } 第二个代码段工作，但我的电子表格正在受到严重的性能影响。 操作从大约80毫秒到1700毫秒。 这可能看起来不多，但我正在循环select范围。 错误消息是： System.Runtime.InteropServices.COMException was unhandled by user code HResult=-2146827284 Message=Exception from HRESULT: 0x800A03EC Source="" ErrorCode=-2146827284 StackTrace: at System.RuntimeType.ForwardCallToInvokeMember(String memberName, […]