Tag: 范围

如何在不同的工作表中使用可变范围: 我为两个范围之间的产品编写了一个代码。其中一个范围是在其他的，当我试图使其变化，出现一些错误。这是代码： Sub Correlacionar() Dim col As Integer Dim random As Range Dim SDesv As Range Dim Chole As Range col = 4 Set Chole = Sheet4.Range("a20:d23") 'Set Chole = Sheet4.Range(Cells(20, 1), Cells(19 + col, col)) Set random = Range(Cells(3, 9), Cells(3, 8 + col)) Set SDesv = Range(Cells(10, 1), Cells(10, col)) SDesv = […]

find包含另一个范围的最短矩形范围: 假设我有以下范围： $A$2:$C$3,$D$4:$E$5,$G$7 有一些方法的组合，给了我包含这个最短的矩形范围？在我的例子中，答案应该是： $A$2:$G$7 OBS：我正在使用VSTO 2013与VB.NET构buildExcel 2013的加载项谢谢！

object_worksheet的方法范围失败1004: 我写了一些代码，它完美的工作，因为它应该当我debugging它。但是，当我删除断点，只是运行代码，它给出了一个运行时错误：运行时错误“1004”方法object_worksheet的范围失败。它是指下一行： Set copyrange = sh.Range("A" & i & ":E" & i & ",I" & i & ":O" & i & ",Q" & i & ",V" & i) 'name column in sheet = Q 但是在debugging的时候，没有问题。也许caching已满？ Private Sub btnGetDevices_Click() 'open every sheet after summary 'copy columns A,B,C,D,E,I,J,K,L,M,N,O, Q,V to summary Dim sh As […]

如何在不同的Excel表格中search范围内的单元格内容: 我正在为以下schemesearch公式（如果存在）：在工作簿中，在单元格“A1”的表单“A”和单元格“B”中，我有“罗杰斯” “B”，在单元格“B1”：“B20”我有一系列的“FirstName LastNames” 我要查找的是如果在该范围内find单元“A1”的内容，则在书“B”的范围“B1：B2O”的范围内的书“A”中search单元“A1”返回“是”，如果没有find，返回“否”。我已经尝试了SEARCH，FIND，ISNUMBER，IF，IF ERROR等几种组合，但是没有一个为我工作，导致我相信，我可能没有input正确的公式。任何帮助，高度赞赏。

发送一个dynamic范围到一个函数: 新手在这里，所以请忍受我。我只是没有正确地把一个dynamic的值的列到数组中。以下代码行适合我： Set RangeD = Sheets("Data").Range("D2:D15") unique2chan = UniqueItems(RangeD, False) RangeD是我将传递给函数的范围，称为“UniqueItems”。 “unique2chan”是由UniqueItems返回的值的数组。上面的假设是值始终从D2到D15。但是对于这些数据，范围的长度可以在每次运行中变化。（所有的值在列中都是连续的，没有空格。）这里是我的问题：我如何将一个不断变化的数值放入一个数组中，我可以传递给我的函数？我添加了一个计数器，告诉我在列中填充了多less行，所以如果列中有12个值（加上标题），我有一个计数器，它将读取13.我怎样才能使用这个数字来定义一个范围所有的值（减头），我可以把数组传递给我的function？任何帮助表示赞赏。我已经尝试了很多我在网上find的东西，但是每个人似乎都有不同的方法，而且我还没有find一个能为我工作的东西。

Countif（s）标准是一个范围加一个数字: 我想countif（s）范围大于另一个范围加3。这是我目前有什么不工作（只有第三个标准不起作用）： =COUNTIFS($F:$F, ">" &G:G,F:F, ">1",F:F, "<" &G:G+3) 将这个问题隔离到一行工作，la： =COUNTIF(F12, "<" &G12+3) 我正在尝试获取countifs来检查给定行中的F单元格是否小于同一行中的G单元格+3。

调整macros以复制表格中的范围，但将范围放在表格中的第一个空白行: 我正在使用下面的代码将数据块复制到另一个工作表中，将所有数据保存为表格。每次人们填写新的数据后，代码都会被用来复制。 Sub Containersgeproduceerd() Worksheets("Production shift summary").Range("A76:J85").Copy Worksheets("Production perform container").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _ :=False, Transpose:=False End Sub 块的范围可以全部或部分填充。当范围被部分填充，我将其复制到表中并多次执行，我得到下一个副本从表中复制块的结束范围开始的效果，因此如果范围未被完全填充，它会离开多次复制表格中的部分填充范围后，表格中的空白行。我想要的是数据被复制到第一个空白行。

使用公式作为范围: 我在Excel 2010中有一个库存跟踪计划，我们正在使用在我的工作场所。它被用来跟踪我们的化学品使用和包装货物。目前有点笨重，如果我们把产品从一个jar子换到另一个jar子，每次都需要重新编程。我希望一个同事能够在不了解VBA的情况下轻松完成所有这些工作。有不同大小的坦克，每个都有自己的量表，由程序参考，以确定量被删除或交付等。所以我的问题是… 我可以使用公式作为范围吗？然后，我将能够更改工作簿中的单元格，以便VBA编程可以引用不同的量表图表。 PS – 我试图find这样的信息，但没有出现。谢谢你的时间。

使用另一个命名的范围来对命名范围进行子集化: 我有两个范围rng1 = A1：D10，rng2 = C7：D10，我想在Excel VBA中访问除C7：D10之外的rng1单元格。

基于单元值的范围: 我需要代码来改变基于单元格值的范围：我可以得到它的行号取决于单元格的值，如下所示，但我需要的列值是可变的： For Nassets = 1 To ws_data.Range("d2") ws_data.Range("B" & Nassets).Value = 3 Next Nassets 如果"d2"的值为4 ，范围B1:B4 = 3 ，但是我想要范围B4:E4 = 3 提前致谢！