Tag: 数组

将数组导出到Excel: 我试图导出一个数组的数组，以Excel。我把它设置为一个头variables，和一个数据variables，基本上build立一个巨大的string，在出口执行。但是，只有头部variables正在经历。让我显示一些代码：这是设置参数： str_replace(" ", "_", $getData['name']); $filename = $getData['name']."_summary.xls"; header("Content-Type: application/x-msdownload"); header("Content-Disposition: attachment; filename=\"$filename\""); header("Pragma: no-cache"); header("Expires: 0"); 哪一个去函数来获取信息： foreach($tempRS as $key=>$value) { foreach($value as $iKey=>$iValue) { if($count == 6) { $iValue = str_replace('"', '""', $iValue); $iValue = '"'.$iValue.'"'."\n"; $data .= trim($iValue); $count = 0; } else { $iValue = str_replace('"', '""', […]

无法在VBA中设置类范围FormulaArray的属性: Sub Parse() Workbooks.OpenText Filename:="C:\Users\karthic.rangaraj\Desktop\4401.csv" ' Parse it using comma and semicolon as delimiters Range(Range("A1"), Range("A1").End(xlDown)).TextToColumns _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=True, Comma:=True, Space:=False, Other:=False, _ FieldInfo:= _ Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 1), Array(5, 2)) Range("B:B,D:D").Delete 'Range("D1").FormulaR1C1 = "Application_ID" Dim lLR As Long Dim vArray As Variant Dim sString As String […]

Excel在将SUMIF公式求和之前，对各个值进行舍入: 我正在使用Excel 2010中的表格，我需要能够在列中显示一个值，以显示符合两个条件的每个值的范围总和。我也需要它在求和之前舍入每个值。我已经看到人们使用一个数组公式，在求和之前独立地舍入每个值，但是我没有看到如何用sumifs语句来做到这一点。我的公式看起来像这样： =sumifs(pData[premium],pdata[Pol],[@[Pol]],pdata[LineNum],[@[LineNum]]) 现在..我不想总结所有的东西，我想在总结之前把所有东西都舍入四舍五入。基本上，对于符合总和标准的每个值，应该在求和之前向上舍入或向下舍入。 =Round(sumifs(pData[premium],pdata[Pol],[@[Pol]],pdata[LineNum],[@[LineNum]]),0)将总和加起来，

数组公式，只返回1个具体的值: 我有一个Excel的数组公式的问题。我有一个数组公式返回10个不同的值。如果我只想要第五个值，我该怎么做？我相信有一个公式，但我不确定它是什么。提前致谢。

处理Excel的VBAmacros中的数组: 我正在尝试在VB（Excelmacros）中编写一个模拟器，从一个工作表中的单元格中获取模拟的input。 input将被放置在许多数组中，例如timePerUser（10）和bytesPerUser（10）。然后会有一些简单的if / for / while的东西来进行基于数组的计算，最后我会把结果写回Excel。所以，Excel将只用于提供input数据并显示结果，其他所有内容都发生在macros内部，包括更改数组中的值。我用Matlab的工作，但不能用于这个模拟器，所以这里是我的问题： Excelmacros中是否有任何现有的matrix/数组操作？例如，是否有一些命令来检查数组中的最小值或下一个最小值？ Excel函数“SMALL”将是完美的，但它似乎不能在macros中工作。或者我只需要用for-loops解决这个问题？有没有其他build议如何创build数组？有一个大matrix，每行对应于时间，数据，用户等（一个NxMmatrix），还是每个参数都有单独的数组？如何加快matrix/arrays操作？任何一般的build议？谢谢！奥斯卡

VBA数组和操作符: 我正在尝试在VBA中为excel编写几行代码，这里是VB.Net版本的代码。 ThisVariable <<= 8 Variable.Add(ThisVariable) 如何在VBA中编写这些代码行？ VBA没有“<< =”运算符，也没有数组的.Add属性。任何帮助将不胜感激。

PowerShell无法读取2维数组内容: 早上好，我使用的PowerShell版本3.6，并希望从MS Excel工作表读取数据。我写了下面的代码： $objExcel = New-Object -ComObject Excel.Application $objworkbook=$objExcel.Workbooks.Open($path) $sheet = $objworkbook.Worksheets.Item(1) $sheet.Visible = $true $r = $sheet.Range("A7:C12").value2 #$r is an 2d array write-host $r[0][0] $objworkbook.SaveAs($path) $objworkbook.Close($false) $objExcel.Application.DisplayAlerts = $False $objExcel.quit() $ExcelProcess=get-process excel $ExcelProcess | foreach {stop-process ($_.id)} 当我运行这个脚本，它显示了范围的包含。但如果我尝试获取与索引数组的价值，它不工作。并给出这个错误：索引[0]对于访问二维数组无效。 + $ r [0] [0] + ~~~~~~~~ + CategoryInfo：InvalidOperation：（:) []，RuntimeException + FullyQualifiedErrorId：NeedMultidimensionalIndex 感谢您的帮助提前

input/输出值到数组中: 编辑：使用下面的一些build议更新了问题。这虽然产生怪异的输出。 Dim ProviderArray() As Variant Sub GetProviderNumbers() Dim InputRange As Range Dim WorkRange As Range Set InputRange = Range("ProviderList") Set WorkRange = Application.Intersect(InputRange, ActiveSheet.UsedRange) SizeOfArray = Application.WorksheetFunction.CountA(WorkRange) ReDim ProviderArray(0 To SizeOfArray) ProviderArray = WorkRange.Value For r = 1 To UBound(ProviderArray, 1) For C = 1 To UBound(ProviderArray, 2) Debug.Print r, C, ProviderArray(r, C) Next […]

在Excel VBA中创build一个wordwrap函数: 通过大量的研究，我发现了一个代码，可以将存储在单元格中的容错性截断为不超过100个字符，并将多余的内容添加到第二个string中。我一直在努力把它变成一个function。我想要的function接受一个范围（1列各行）或，如果这是不可能的，一个相同的范围值的数组。还应该有一种方法来设置每个输出string可以容纳的字符数，以string数组forms输出。即wordWrap（input'范围或数组'，maxLength为整数）wordWrap的输出将是一个结果数组这是我目前的代码： Sub wordWrap() 'This procedure is intended to check the character length of a string and truncate all the words over 100 characters 'To a second string. (basically a word wrap) Dim sumCount As Integer, newCount As Integer, i As Integer Dim newString As String, newString2 As String Dim words […]

VBA，数组，范围，sorting: 我必须编写一个函数来在Excel中对VBA中给定的范围进行sorting。（泡沫sorting）我做了以下几点： Function MySort(M2 As Range) Dim r As Integer r = M2.Rows.Count Dim M1 as range M1 = M2 Dim buffer For i = 0 To r For j = i To r If (M1.Item(i, 0) > M1.Item(j, 0)) Then buffer = M1.Item(i, 0) M1.Item(i, 0) = M1.Item(j, 0) M1.Item(j, 0) = buffer End […]