Tag: 数组

excel vba如何通过引用数组名来改变数组的内容

我正在尝试改变名为arraySrc的数组在下面的方式: Dim arraySrc(0 To 1) As Integer arraySrc(0) = 1 arraySrc(1) = 2 Dim arrayTmp arrayTmp = arraySrc arrayTmp(0) = 0 arrayTmp(1) = 1 实际上,我想用一个名字作为一个句柄来单独改变多个数组,例如,我有一个返回数组名的函数,然后我想设置返回的数组名称为arrayTmp,然后改变arrayTmp直接使用格式arrayTmp(0)= 0例如,希望对原始数组进行更改 但是,通过使用变体不起作用。 任何人都可以让我知道如何实现这个?

使用数组VBA Excel

我正在开发一个macros,以消除用于input自定义订单的工作表中的空白行。 可以说,行7,8,9和12有内容。 我想将第12行的内容移到第10行。 到目前为止,我已经find列c中的最后占用的行,然后确定列e中的行中的单元格是否为空。 现在我想把一个值放入一个0(空白)或1(占用)的数组中。 我得到一个错误(对象需要)的代码行,将石头(1)的值设置为1或0。 出了什么问题? Dim ws As Worksheet Dim rng1 As Range Set ws = Sheets("Belmont") Set rng1 = ws.Columns("c").Find("*", ws.[c1], xlValues, , xlByRows, xlPrevious) Dim zen As String zen = rng1.Address(0, 0) Range(zen).Select Set ruby = Window.ActiveCell.Row – 11 Dim stones() As Boolean ReDim stones(1 To ruby) If IsEmpty(ActiveCell.Offset(2, 0)) Then […]

范围和数组在VBA转换时,他们想要的。 这是怎么回事?

VBA中的Range对象非常奇怪。 这是我的练习代码: a = ActiveSheet.Range("A1:A3").Columns.Count b = ActiveSheet.Range("A1:A3") c = b.Columns.Count 一个给我1,没问题。 b给了我一个二维数组(这是烦恼的索引从1,1开始)而不是一个Range对象 c自然不起作用。 a如何调用范围对象和b是一个数组? 我需要一个范围对象来传入我的函数! *我试过把b声明为范围和范围(),这只是给了我一个错误。

在C#中嵌套的分类静态类中find一个值

我需要在一个结构中find一个价值(我脑海中的第一个是一个静态类,但任何东西都会这样做)必须是一个层次结构,如: public static class SheetGroups { public static class Coverage { public static string sheet1 = "COVC1"; public static string sheet2 = "COVC2"; } public static class IncomeInvestment { public static string Income1 = "IEIC1"; public static string Income2 = "IEIC2"; public static string Income3 = "IEIC3"; public static string Incomes4 = "IEIC4"; public static […]

使用LINEST与数组作为variables(不是范围)

我试图谷歌自己出这个问题,似乎我找不到任何解决scheme。 基本上我有2个数组(XValues和YValues),其中包含我应该find一个多项式适合的数据。 这是一个三次多项式 XValues() as Integer从0到359. 它的值可以从0开始到359,每个位置增加1。 YValues() As Double从0到359, 它的值或多或less地作为抛物线从<-3到0,然后再到<-3。 无论如何,最大可能值是0,最小可能值是-80。 当然,我想用LinEst 。 LinEst的语法可以让你给出“已知的ys”,“已知的xs”以及我目前不需要的其他参数。 现在,如果我使用Application.LinEst ,似乎我的数组被处理,但我不能强制过程给我一个3度多项式的系数 (可以吗?) 而如果我尝试与WorksheetFunction.LinEst我可以指定的程度,但我不能显然与我的variables工作。 当然,我可以把我的数组写在某个地方,然后使用第二个选项,但是我真的很想了解是否有更好的方法。

excel vba试验函数和数组

我正在试验一些东西: 有一个名称列表,我想要做的是读取数组中的单元格值(这部分工作)比运行检查工作表中的每个单元格,如果给定的单元格是一样的string在一个数组中,做一些事情。 但不幸的是我得到了“types不匹配”的错误。 PS。 我知道这没有多大意义,我可以在服务器function内部的东西,但相信我,我有我的理由。 🙂 编辑:修正了几件事,现在看起来像这样(现在我得到的对象不支持这个属性的方法) 如果有帮助,你也可以尝试。 你只需要添加一个名为“服务器”的单元格,在它下面写一些随机单词。 现在它应该在msgbox“ok”中写入x次,其中x是您在单元格下命名为“Servers”的单元格的行数, 1 'server name Function server(ByVal issrvname As String) Dim j As Integer Dim c As Range Dim x As Integer, y As Integer For Each c In Sheets("Topology").UsedRange.Cells Dim srvname() As String j = 0 If c.Cells.Value = "Servers" Then y = c.Column: x = […]

Excel平均行数组公式

我想要取得行将导致列(数组)的平均值。 示例input: 3 4 4 4 4 6 用我想创build的数组公式: 3.5 4 五

dynamic维度VBA中的二维数组

我在Excel中使用VBAbuild模Petri网,我希望能够改变物种和转换的数量,以及它们之间的联系。 我希望通过直接读取用于绘制networking的形状而不是明确地inputmatrix来实现这一点。 这意味着我必须dynamic地维度我的数组variables。 我可以做一维数组,但物种转换链接需要二维数组。 有没有办法做到这一点,或者我将不得不使用电子表格来存储我的variables?

在VBAsearch期间没有响应状态

我正在创build一个工作簿,将根据列中的值将数据从源工作表复制并粘贴到多个其他工作表中。 但是,一旦我启动macros,Excel进入一个不响应的状态。 我在4000到500000行的任何地方操作,但只有4列。 当我只有4000行时,它工作得很快(3秒)。 当我有〜30,000行时,Excel进入一个不响应的状态约10秒钟,然后结束。 我没有等待30万行的testing。 我这样做的思想过程就是根据B列中的string对所有数据进行sorting,将列B (包含我正在search的string)的所有列都放入数组中,然后将所有的唯一string另一个arrays。 例如,如果列B在行1-200中保持“search”,并且在行201-500中“创build”,macros将search行和第二个数组(将其称为场景)将最终保持两个值, “search”和“创build”。 在search过程中,我还创build了两个平行数组,它们与Scenario数组对应,该数组将保存该场景的开始和结束行。 之后,我只需循环并行数组中的值,并从源工作表复制/粘贴到其他工作表。 注:sorting工作正常 有没有办法让这个更快? 这是代码:分配数据 Sub AllocateData() Dim scenarioRange As String 'To hold the composite range Dim parallelScenarioName() As String 'Holds the unique scenario names Dim parallelScenarioStart() As Long 'Holds the starting row of the scenario Dim parallelScenarioEnd() As Long 'Holds the ending row of […]

COUNTA在当前行中的数组公式(Google Sheets)

我有一个固定数量的列和dynamic行的Google工作表。 我喜欢使用countA来计算当前行中具有值(非空白)的字段。 我在这里find了一个公式,但是不明白,也没有办法。 ArrayFormula(MMULT( LEN(A1:E)>0 ; TRANSPOSE(SIGN(COLUMN(A1:E1))))) 工作表给我错误:“函数MMULT参数1期望数字值,但'真'是一个布尔值,不能被强制为一个数字。