Tag: 数组

MATR从ARRAY大和小

直接问题。 我想通过X匹配Z来过滤K值。 从K的过滤值中find相应Y的 LARGE&SMALL。 所以如果X = 10 ,从指数Z = 10的 K值列表中找出大小Y = 1600的值。 LARGE = 1500&SMALL = 2000 XY 5 3000 5 3200 5 2800 10 1600 10 2900 10 3500 15 1800 15 4500 ZK 5 1000 5 2000 5 3000 5 4000 10 1000 10 1500 10 2000 10 3000 10 3500 10 […]

与数组php和父母和孩子pardigma concrouter和concat

基本上我使用phpexcel。 我有3列在那些excel是输出它hierarichal。 列:delivery_order_tli_id是父项。 列:delivery_order_hanwa_id是父项的子项。 COlumn:coil_ids是父级的子级连接。 这是数据。 在这个excel中,像这样的数据: delivery_order_tli_id delivery_order_hanwa_id coil_id 1 1 108 1 1 114 1 1 116 1 1 120 1 1 123 1 1 130 1 1 163 2 1 113 2 1 115 2 1 117 2 1 119 2 1 129 2 1 131 2 1 161 3 3 171 […]

Excel VBA – 确定数组UDF的列或行目标

我有一个简单的Excel UDF的质量值转换为摩尔分数。 大多数时候,输出将是一个列数组(n行1列)。 从VBA环境中,我如何确定工作表中目标单元格的大小,以确保它应该以n行1列与n列1行的顺序返回? Function molPct(chemsAndMassPctsRng As Range) Dim chemsRng As Range Dim massPctsRng As Range Dim molarMasses() Dim molPcts() Set chemsRng = chemsAndMassPctsRng.Columns(1) Set massPctsRng = chemsAndMassPctsRng.Columns(2) chems = oneDimArrayZeroBasedFromRange(chemsRng) massPcts = oneDimArrayZeroBasedFromRange(massPctsRng) 'oneDimArrayZeroBasedFromRange is a UDF to return a zero-based array from a range. ReDim molarMasses(UBound(chems)) ReDim molPcts(UBound(chems)) totMolarMass = 0 For chemNo […]

Ms Excel – > 2列转换为2维数组

我来自一个Unix世界,我从来不需要为VBA开发Office,我现在必须做一些,而且我很难过! 请帮帮我! 🙂 所以我有2个Excel表格(让我们称之为Sheet1和Sheet2)和2个窗体(Form1和Form2)来编辑/添加数据。 在Sheet1中,前两列是MovieId和MovieName。 我们不知道他们将在这个列中有多less行。 Form1控制Sheet1中的数据和Sheet2中的Form2 …。 在Form2初始化时,我想要创build一个2维数组,像(MovieId1,MovieName1; MovieId2,MovieName2; …,…; MovieIdN,MovieNameN),其中这个数据已经从Sheet1中提取出来,就像一个sortingJava的地图,如果你愿意… (0,“MovieId0; MovieName0”; 1,“MovieId1,MovieName1”; ..,“..”; N,“MovieIdN,MovieNameN”)对我来说实际上是可以的。 我不知道如何创build一个variables的最后一行数组,因为编译器似乎总是想要一个常量来初始化一个数组… 请赐教!

隐藏名为范围数组中的图纸

我有一个dynamic命名的范围,它提供列表中的图纸名称(假设A2 =奥地利,A3 =德国,A4 =波兰)这个列表可以根据用户的大小而有所不同,所以我有一个在指定的范围内的偏移量捕获列A中的所有单元格都带有一个名称。 我想使用IF语句来隐藏基于这个命名范围的某些表单。 就像是: Public Sub test() Sheets(Array(Range("MyRange"))).Visible = xlVeryHidden End Sub 与上面我得到以下错误:运行时错误“13”:types不匹配 任何build议,请。 谢谢保罗

不能在PHP中使用对象作为数组?

我试图从这个代码读取Excel中的数据 $row['name'] = $objPHPExcel->getActiveSheet()->getCellByColumnAndRow(3, $l)->getCalculatedValue(); var_dump返回string(4)“CCC3” 但我有一个奇怪的问题 码 $row['name'] = 返回不能使用PHPExcel_Worksheet_Rowtypes的对象作为数组如果我使用简单的 $row_name = 没关系…. 使用phpExcel读取数据。 当然,我可以把它换成第二种select,但我不知道,为什么它不工作 感谢帮助

从Excel中的string数组中查找string数组中的string

在工作簿中有两个Excel工作表。 我在一张表中有参考表。 我需要find某个string是否存在于单元格中(有一个句子),然后在引用表中查找该string的值并写入。 这就是我想要做的:( Sheet 1是操作页; Sheet 2是参考页) VLOOKUP(FIND{"compare","contrast","x",..},from the sheet 1 column 1),if string exists,the value against that string in sheet 2 column 2 written in sheet 2 column 2) {"compare","contrast"} are all words in sheet 1 column 1 我想比较Sheet 2, Column A中的任何string是否与Sheet 2, Column A中的string(在句子或string数​​组中)匹配。 然后,如果它们匹配,则应该在Sheet 1, Column B生成相对于Sheet 2, Column 2string的值。 你能指导我如何写这个macros吗?

excel不同的SUM.IF数组函数

我有一个非常具体的报告,我不能改变布局。 基本上,它看起来像这样: ABC 1 ASD Other 10 2 ASD Other 10 3 ASD Other 10 4 JKL Other 20 5 EFG Other 5 6 EFG Other 5 7 GHJ Other 10 因此,行可以重复,当他们这样做,价值(C)保持不变这条线。 使用条件格式(= $ A2 <> $ A1),重复的值(仅C列)被设为白色。 我怎样才能做这些值的总和,以便每一个不同的行将只被计算一次(应该返回45)? 提前,谢谢 PS:我正在使用Excel 2003

Excel VBA:无法在数据透视表中设置pivotitem“(空白)”位置属性

Excel数据透视表是在VBA代docker痛! 我想要一个VBA代码,循环通过每个数据透视表,然后透视字段和每个枢纽项目是“(空白)”将其移到位置1或到最后的位置。 谢谢你的帮助! For Each pt In ws.PivotTables pt.RefreshTable pt.PivotCache.MissingItemsLimit = xlMissingItemsNone For Each pf In pt.PivotFields For Each pi In pf.PivotItems If pi.Caption = "(blank)" Then pi.position = 1 ' <– Error 2024, not available? If pi.Visible = True Then pi.Visible = False End if Exit For End If Next pi Next pf Next […]

VBA – 当不唯一时从数组中移除两个项目

快速的问题,我一直在努力。 我有两个包含string的不同长度的数组。 我想输出一个新的数组,删除两个元素,如果检测到重复。 目前它只删除重复,但留下原来的不正确的,我想要完成。 例如 input = array ("cat","dog","mouse","cat") expected output = array ("dog","mouse") actual output = array ("cat","dog","mouse") 代码如下: Sub removeDuplicates(CombinedArray) Dim myCol As Collection Dim idx As Long Set myCol = New Collection On Error Resume Next For idx = LBound(CombinedArray) To UBound(CombinedArray) myCol.Add 0, CStr(CombinedArray(idx)) If Err Then CombinedArray(idx) = Empty dups […]