Tag: 函数

用列中的值返回列标题

我有24个列标题与date（K6：AH6） 我需要返回列标题，其中有一个非空白的数字。 值的数量是1,2,3,4 有1120个非空白和数字行（k7：ah1120） 我想列J7显示为2016年7月，因为单元格Q7有一个值。 踢球者是1120行中的75个具有2列或更多列的值。 我可能会手动做这些或插入一行将价值回到1.不知道如何描述这个在公式中。 TIA！

excel 2010 vba“查找”函数返回内容

当我执行这个vba sub时，从variablesTemp1和Search中查找返回的值是单元格的内容，而不是单元格地址的范围variables。 代码在这里： Sub updateFDFList(Fname As String) ' Check for worksheet existence 'last filled row Dim lastLine As Long lastLine = Worksheets("FDFFiles").Range("A" & Rows.Count).End(xlUp).row If lastLine = 1 Then 'List Is Empty Worksheets("FDFFiles").Cells(2, 1).Value = Fname Worksheets("FDFFiles").Cells(2, 2).Value = "No" Else 'Search column A for match Dim Search As Range S1 = "A2:A" & lastLine […]

需要帮助优化vba显示function

我已经做了一些数据库工作与Excel中作为数据库和数据库驱动程序通过与VBA的macros。 我构build了一个函数，该函数应该通过带有testID字段的数据库logging列表进行parsing。 我想基于它的testID来显示每个testing一次，但数据库的设置方式意味着我必须消除重复的testID。 我通过遍历logging集并在列表中显示之前检查当前testing与前一个testing。 我遇到的问题是这个function太慢了。 对于数据库中只有12个testing，大约需要3秒钟将其显示在视图电子表格中。 我很想听听关于如何优化运行时间的一些想法。 这个function： Public Function showAllTests() Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim cstring, sql As String Dim r, c As Integer Dim testsAr As Variant Dim inAr As Boolean cstring = "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=I:\DBtrials.xlsx; Extended Properties=""Excel 12.0 Xml; HDR=YES;ReadOnly=False"";" sql = "SELECT [TestID], [Status], [PFIBox], […]

使用逗号分隔的string作为函数参数

我创build了一个逗号分隔的string。 我想在Application.Run过程中使用这个string作为input。 该string看起来像下面 – 用引号.. MyString = "First_Number", "Second_Number", "Third_Number" 我想用这个string作为参数input： Application.Run("'" & "Book2.xlsm" & "'!MySub", *MyString*) 它不工作..我得到一个“不是最理想的论点”。 我用下面的代码构buildstring，范围只是一个带参数的行。 Function csvRange(myRange As Range) Dim csvRangeOutput For Each entry In myRange csvRangeOutput = csvRangeOutput & entry.Value & """, " & """" Next csvRange = Left(csvRangeOutput, Len(csvRangeOutput) – 4) End Function 希望有人能帮忙。

Excel – 查找等于某个值的相邻单元格

我在Excel中有一个问题，我需要find两个相邻的单元格是否都等于100.我需要一些方法来根据这个条件将单元格值更改为true或false。 这是一个示例数据集 A1: 100 A2: 95 A3: 84 A4: 100 A5: 100 A6: 86 A7: 92 在这种情况下，我想要的结果是真实的，因为A4和A5是相邻的，都包含100。 我在网上find的唯一有用的东西是这个function，但它并没有让我一路上。 =IF(COUNTIF(B:B,B5)>1,1,0) 我会更好地提出一个macros？ 谢谢你的帮助。

条件未满足时退出函数 – Visual Basic

我试图编写一个函数在Visual Basic中运行，如果满足某些条件。 如果不是，则该函数将终止。 现在我有以下， Function answer(list As range) As String Dim extent As Integer extent = list.rows.Value Dim array_1() As Double ReDim array_1(1 To extent) As Double Dim i As Integer For i = 1 To extent array_1(i) = list(i).value If array_1(i) <> "L" Or array_1(i) <> "R" Or array_1(i) <> "PD" Or array_1(i) <> […]

IF中的函数太长。 如何简化？

我已经在Excel 2003工作表的单元格中编写了一个长的If函数。 我想补充一点，但是，Excel告诉我，我的function太长了。 有人知道如何简化或减less函数的长度？ 在Column K3 ，我有一个缺陷types的下拉列表，然后这个中间函数在列L3中出现一个特定的缺陷描述，这个缺陷描述是根据column K3select的缺陷types。 =IF(ISTEXT(K3)=TRUE,IF(OR(K3="Abnormal Finishing",K3="Bending Mark",K3="Bent",K3="Contamination",K3="Crack",K3="Damage",K3="Dented",K3="Discoloration",K3="Finger Print",K3="Flow Mark",K3="Gap",K3="Insufficient Paint",K3="Scratches",K3="Rusty",K3="Stain Mark",K3="Standoff Mark",K3="Tool Mark",K3="Warpage",K3="Water Mark",K3="White Mark",K3="White Spot"),"Cosmetic",IF(OR(K3="Angle Out",K3="Dimension Out",K3="Fitting Problem"),"Dimension",IF(OR(K3="Assembly Misalignment",K3="Fan Broken",K3="Fan Not Functioning",K3="Assembly Wrong Orientation",K3="Missing Component",K3="Missing Rivet (Assembly)",K3="Part Warping (Assembly)",K3="Rivet Loose (Drop) (Assembly)",K3="Rivet Wrong Location (Assembly)",K3="Rivet Wrong Orientation (Assembly)",K3="Screw Loose (Drop)",K3="Screw Stuck"),"Assembly","ERROR"))),"ERROR")

我可以让Excel的FIND函数只search当前单元格左边的列吗？

我正在使用以下function： =FIND("x";$5:$5;7:7)*(0,25/7,5) 现在我想要function只search： 5美元:(当前列-1）5美元 这可能吗？ 提前致谢。

查找每个客户的MIN发票号码并删除所有不匹配的行

我有一个显示在线销售数据的Excel文件。 有多列，如您所期望的，其中两个是客户ID和发票号码。 我的目标是只保留发票号码是每个客户的第一个（或MIN）发票号码的行。 在重复的选项卡上，我们需要同样的事情，但仅限于每个客户的第二个发票号码（即第二次购买）。 在附注中，对于相同的客户ID和相同的发票号码可以有多行，因为这些行在项目级别，所以它可能看起来像这样： Row 1: Customer ID = 24; Invoice Number = 1014; Item = Jelly Beans Row 2: Customer ID = 24; Invoice Number = 1014; Item = Candy Bars 所以，没关系。 我们只是要确保客户的发票号码不反映他们的第一次购买（或第二次购买，在第二个实例）的任何行从电子表格中删除。 有没有一个VBA（甚至只是function）来实现这一目标？ 即使在步骤中：例如先突出显示那些行，然后使用另一个VBA删除突出显示的行？ 再次，简而言之，我只希望保留具有每个客户ID的MIN（发票号码）的行。

Excel VBA使用.find查找行和列来粘贴数据

我试图find一个行和列号来粘贴数据在该单元格中。 行是要查找的各种度量标准，列是date。 我更喜欢使用它的function，所以我可以简单地调用函数传递不同的参数。 这是从这个线程相反： 如何find基于行和列ID在Excel VBA中的单元格值 。 我想find一个单元格的地址。 我到目前为止的代码是： Sub FindMyCell() Dim myDate As String Dim myMetric As String Dim foundRange As Range Dim pasteRange As Range Dim r As Range, c As Range Worksheets("Sheet1").Range("B20").Select myDate = Worksheets("Sheet1").Range("B20").Value myMetric = Worksheets("Sheet1").Range("B21").Value FindCell(myMetric,myDate) Inputcell = foundRange.Address End Sub Function FindCell(myMetric As String, myDate As String) As […]