Tag: 数组

VBA通过计算值创build一个数字为1的数组

题： 如何在不知道结束编号的情况下创build下列数组： myArray = Array(0, 1, 2, 3, 4) 例如，我可以在Python中做类似的事情： myList = range(ending_number) 以及在Matlab中： myVector = 0:ending_number 更多详情： 我在Excel工作表中指定了一个path，该path引用了Linux服务器上的一个位置。 我希望用户只需要用Linux服务器可以理解的方式来指定path，但是也需要引用本地Windows机器和Linux服务器都能理解的位置。 Linux服务器path被指定为 /home/shelf6/some/path/to/a/location/on/the/server 并在Windows中对应的path指定为 \\SB1\home_shelf6\some\path\to\a\location\on\the\server 我正在使用以下命令从一个转换到另一个： WinJobLoc = Split(LinJobLoc, "/", -1, vbTextCompare) WinJobLoc = "\\sb1\" & WinJobLoc(1) & "_" & WinJobLoc(2) & "\" & _ Join(Application.WorksheetFunction.Index(WinJobLoc, 0, _ Array(4, 5, 6, 7, 8, 9, 10, 11)), […]

在Excel VBA中构build数组

期望的结果：结果将是一个函数，它从B列构build一个值的数组。通过在列A中具有相同的值来限制值。'例如，列A值= 1 myArray =（0,1,2）'' B列值= 2 myArray =（4,5,6,7,8）' 第一次尝试在VBA中使用数组，需要帮助。 我在Excel中的列A和B中有以下数据： AB 1 0 1 1 1 2 2 4 2 5 2 6 2 7 2 8 3 9 3 10 3 11 4 12 4 15 4 18 我有以下的VBA代码： Function buildMyArray() Dim ARange as Range Dim B as Integer Dim myArrary as Variant For […]

使用string键从数组中返回一个值

我有一个14行2列的命名数组。 第一个有一个string键（即： Country ），第二个属性（即： Owner ）。 我想通过提供Country来检索Owner 。 我只知道如何使用= INDEX从命名数组中检索值，但是需要col / row数字。 我怎样才能达到我的要求？

添加到Excel VBA中的数组函数

我正在尝试在for循环中将一个数组添加到Double数组的数组中。 这里是我有的代码： Sub Test3() Dim a() As Double, i As Integer ReDim a(1 To 10, 1 To 3) Dim d For i = 1 To 3 d = Array(a) Next i End Sub 在这个testing中，我只是想把“a”的3个副本join到“d”中。 我有d = Array（a）哪个当然不起作用，但是我不知道用什么行来replace它 编辑的代码清晰 新代码尝试： Sub Test3() Dim a() As Double, i As Integer ReDim a(1 To 10, 1 To 3) […]

将多个列的vlookup的结果相加

我试图避免重复。 以下公式适用： =IFERROR(VLOOKUP($C3,'Business Goals'!$A$3:$C$8,3),0)+ IFERROR(VLOOKUP($D3,'Business Goals'!$A$3:$C$8,3),0)+ IFERROR(VLOOKUP($E3,'Business Goals'!$A$3:$C$8,3),0)+ IFERROR(VLOOKUP($F3,'Business Goals'!$A$3:$C$8,3),0)+ IFERROR(VLOOKUP($G3,'Business Goals'!$A$3:$C$8,3),0)+ IFERROR(VLOOKUP($H3,'Business Goals'!$A$3:$C$8,3),0) 基本上我想总结列C：H，我想要求和的值都存储在同一个查找表。 为了我自己的理智，如果你提供了一个答案，而不要求索引/匹配，请使用VLOOKUPexpression你的答案。

基于数组中的值的颜色形状

我正试图自动化在excel中的形状依赖于表中的值。 我采取的方法是将表读入一个数组，然后我想用它来确定如何着色形状。 我遇到的问题是当我使用数组来select一个形状，它会出现，我得到一个数组索引号，而不是实际值。 因为我花了几个小时试图find一个没有运气的结果，所以我会大大地指出正确的方向。 表格数据： Shape Value AB 900 DD 99 DG 647 EH 513 FK 191 G 446 HS 369 IV 259 KA 601 KW 351 KY 23 ML 509 PA 987 PH 167 TD 325 ZE 873 VBA代码： Public i As Variant Public j As Integer Function mkArray() Dim areaArr As Variant areaArr […]

VBA幻影空arrays值

我正在从VBA的Excel范围循环一些数据（只有8个值），但我似乎正在得到一个'幻影'空的数组值在中间。 这是我如何build立数组。 循环的范围导致find2个值，即2个值='rad'。 ' arRoPtsXY is a 2D array counter2 = UBound(arRoPtsXY, 2) Dim arSecPtCt() loopCtr = 0 For i = 1 To counter2 rad = Sqr((secCX – arRoPtsXY(1, i)) ^ 2 + (secCY – arRoPtsXY(2, i)) ^ 2) If rad = secR Then ReDim Preserve arSecPtCt(i) arSecPtCt(loopCtr) = i loopCtr = loopCtr + 1 […]

有没有可能在Excel VBA中添加字典到数组？

我试图弄清楚，这是否是一个可能性方面的能力的Excel。 考虑下面的代码，我想要做什么： Dim some_text, split_text() As String Dim some_array_dict() As String 'This is the array to store the dictionaries Dim some_dict As Dictionary 'The dictionaries that I'll be storing in the array above ReDim some_array_dict(y) As String 'y is previously defined as an integer For i = 0 To y – 1 Set some_dict = […]

如何在目标c中将数组数据写入excel文件（CSV）

我试图将数组数据写入Excel（实际上它是一个CSV，但它是在Excel中打开）。 我用下面的代码来做到这一点： NSMutableArray *list; list = [[NSMutableArray alloc] init]; NSString *string = [list componentsJoinedByString:@","]; NSData *data = [string dataUsingEncoding:NSUTF8StringEncoding]; NSArray *paths = NSSearchPathForDirectoriesInDomains(NSDocumentDirectory, NSUserDomainMask, YES); NSString *documentsDirectory = [paths objectAtIndex:0]; NSString *appFile = [documentsDirectory stringByAppendingPathComponent:@"yourFileName.csv"]; [data writeToFile:appFile atomically:YES]; 它工作正常，但问题是我有我的“列表”数组中的20个对象，所有这20个对象写在并排单元格。 我想要的是将前4个对象写入一行，然后移动到新行，并再次写入该行中的下4个对象，直到列表数组中的所有对象都完成。 任何人都可以帮我解决这个问题吗？

将数组作为parameter passing给VBA函数

我有一个用户自定义Excell工作表函数（线性），从一个X的数组插入，并在一个定义的X1值的Y值的数组，工作正常。 我试图在另一个函数（下面的示例代码中的NPL）中使用它，将其设置为VBA模块中的私有静态函数，然后使用该函数内创build的数据数组调用该函数。 当我在电子表格中使用这个时，我得到一个#VALUE错误。 任何想法我做错了什么？ 示例代码： Function NPL(Length, Beam) A = Array(1, 2, 3, 4) B = Array(2, 4, 6, 8) C = Linear(A, B, 1.5) NPL = C End Function Private Static Function Linear(X, Y, X1) N = 0 I = 1 Do N = I I = I + 1 Loop Until X(I) < […]