Tag: 数组

Excel公式 – 多列中的多个条件

我有Excel表格，如下所示。 我应该写什么样的公式才能得到结果，如第15行所示（截图下方）。 示例：我想获得Car ID=1 ，付费（ column F ）与服务date（ column B column E ）的价值（ column E column B ），范围为03/07/2017 03/07/2017-30 days至03/07/2017 03/07/2017-30 days 或者，如果它让你更容易：我想获得value为car ID=1与Paid=Yes和Service date>1/07/2017-30 示例Excel电子表格可以在这里下载

计算数组内容的总和，并根据条件列出它

以下代码列出了活动单元格中v(v1(i))数组内容及其偏移量。 我想在上市前提出一个条件。 我想在列表之前检查v1数组中所有值的总和，如果总和>=5且<=10那么只列出它。 我怎样才能做到这一点？ v1 = Split(Replace(Trim(s), "'", ""), " ") For i = LBound(v1) To UBound(v1) ActiveCell.Offset(0, i) = v(v1(i)) Next 谢谢

PHP数组excel上传得到奇怪的结果

伙计们！ 我需要一些我的代码的帮助，为什么我的数组结果在Excel上传得到一个空值？ 我跟踪代码并debugging它，但仍然没有任何东西。 这是我的Excel数据： Title ======================================================================================================= |Region |Branch Id | Agent Code | Cabang | Policy No | Policy Holder | Remark |Date | ======================================================================================================= |NYC | | 12345 | BG 3 | 3003659123 | YU KERY | Remark | 15-05-2017 | |JKT | | 54321 | BG 3 | 3003822124 | PRAWINDRA IRAWAN | […]

VBA从数组中填充范围

我创build了一个满足条件的数组，这个数组到目前为止都非常好。 现在符合条件的值需要被复制到不同的工作表中。 其实我不得不提出一些问题：1.我无法获得范围内的价值。 2.如果符合条件，则数组将存储每行的4列（范围）。 如果我可以确定每个数组列并将其粘贴到特定的列中（数组中的列是彼此相邻的，但是在目标表格中则不是）。 这个代码我到目前为止： Sub determineDelta() 'Start determination and copy values to Delta sheet Worksheets("Source").Activate Range("A2").Select numberOfRecords = Range(Selection, Selection.End(xlDown)).Rows.Count + 1 Dim myArray() As Variant ReDim myArray(1 To 500) As Variant Dim i, j, k As Integer k = 0 ReDim myArray(numberOfRecords, k) As Variant For i = 2 To numberOfRecords If […]

在添加到计数器之前，如何检查行之前的单元格是否相同

我正在制定一个时间表，每个员工每周查看一个小时。 我已经实施了一些代码，确定员工是否属于公司，无薪假，离开公司，或已经离开。 我想要做的是创build一个表格，告诉我join者，离职者和那些无薪假期的人数。 应用代码sorting我的数据后，它看起来像这样： 在哪里我已经用更有意义的描述取代了之前存在的随机值。 我想创build一个表，这是第一次添加到木匠计数器的值是未join'所以我不重复计数。 例如，身份证1，我不想在第2 – 5周的时候把这个人算作木匠，而只是在第2周。 这是我的代码到目前为止，我正在查看每列的行，然后移动到下一列： Dim LastCol As Long Dim LastRow As Long Dim I As Long Dim Z As Long Dim Q As Long Dim Joined As Integer Dim ws As Worksheet 'set worksheet to use Set ws = Sheets("Sheet1") With ws 'Find last col and row for range […]

脚本来search和复制从谷歌我的数据文件的所有条目的定义

在我的微软excel数据文件中，我列出了将近15,000条各种单词和技术术语的条目。 我需要所有的定义或解释。 有没有什么办法可以从谷歌每个单词/术语的定义，并保存到相应的列？ 如果没有可用的定义，那么第一个search结果的片段呢？ 是否可以用任何脚本来做到这一点，这样我就不必一个一个search所有这15000个条目。 像下面的示例图片一样， 坚持卓越不是强制性的。 我愿意接受任何其他可能的解决scheme来达到同样的结果。 预先感谢您的build议。

VBA从彼此减去两个不同的三维arrays

我是一个VBA的新手，需要用macros和vba来解决一个特定的问题。 我希望，你可以帮助我解决这个问题！ 我试图build立一个macros应该帮助我这个步骤： 我使用了一个“驾驶舱文件”，我想用两个工作表中的所有单元格来减去所有的单元格。 我从两个不同的工作簿中获取工作表。 ;-)作为一个例子：我想从F11（Workbook2.Worksheet1）减去单元格F11（Workbook1.Worksheet1），而不是从F12（Workbook2.Worksheet1）的F12（workboosk1.worksheet1），J34（Wb1 .ws1。）从J34（Wb2.ws.1） 我想更改并select文件。 因此，我需要在哪个窗口中select特定的文件。 为了避免错误，math应该通过vba中的数组完成。 新的价值应该被添加到其中一个工作簿中 我试图用循环来解决math问题，但它不工作。 当我来到减法公式时，我得到运行时错误13。 希望你能帮我！ 对不起，我的英语不好 那是我的代码 Sub Makro4() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual 'Variabledef Dim i As Long 'Index Dim j As Long 'Index Dim k As Long 'Index Dim ArrayA As Variant 'Array Dim ArrayB As Variant 'Array Dim ArrayC As Variant 'Array […]

如果第一列中的值与指定值匹配，则在数组中find最大值

我试图在列D（D44：D2015）中匹配一个单词的行中查找数组/行号（E44：I205）中的最大或最大值。 例如： DEFGHI Cheetah Cat 0 1 2 3 4 Tiger Cat 1 1 2 3 4 5 Dog 0 0 1 2 3 在“*”和“猫”这两个字的行中，我想find最大值。 在这个例子中，公式应该是5.我已经尝试了下面的公式，但是它只是返回“cat”的第一个实例和该行中的关联的最大值。 =LARGE(IF($D$25:$D$205="*"&"cat",$E$44:$I$205,),1) 任何帮助深表感谢！

excel vba函数返回数组并粘贴到工作表公式中

是否有可能为vba函数返回数组值并粘贴在Excel表中与Excel公式？ 例如，我想在excel单元格中写一个公式A1 =GetData()并按回车。 它返回4个指标，填入A1：A4，B1：B4单元格。 我尝试了Variant和Collection作为返回types。 值在那里，但它只填充第一个单元格。 Function GetData(Input1 As Range) As Variant Dim value() As Variant value(1, 1) = "somevalue" value(1, 2) = "somevalue" ………… value(2, 2) = "somevalue" GetData = value End Function

如果IsInArray（Cells（r，2），Break_List）= True，那么Excel VBA

我一直在深深地跟踪这个问题 ，试图将一张纸上的Cell(r,2)匹配到我在下面编译的数组中循环遍历另一张纸上的第2列中的行，但是我不断收到函数返回的False值。 Public Break_List(1 To 1000, 1 To 100) As Variant If IsInArray(Cells(r, 2), Break_List) = True Then Sub Store_Break_Categories() Sheets("BackEnd").Select Break_No_of_Rows = 0 'For c = 10 To 15 counter = 0 If Cells(2, 3) <> "" Then lastrow = Cells(65000, 3).End(xlUp).Row For r = 2 To lastrow counter = counter + 1 'Break_List(counter, […]