Tag: excel 2007

Excel 2007 VBA If-THEN-ELSE发货物stream: 我有一个包含3列的电子表格： order type ， order date和target ship date 。有四种订单types： USA ， USAPriority ， Canada和Med 。每种订单types只在特定date发货。美国订单types可以在订单date后两天发货， USAPriority在订单date后的第二天发货。如果星期三上午11:59收到加拿大的订单，如果星期二上午11:59收到Med订单，Med订单将在每周星期三发货。我想编写一个代码，根据订单types和订单date生成目标出货date。

合并单元格值如果重复存在: 如果列A中存在重复项，我想合并列B中的值 AB 123 A 123 B 123 C 456 D 456 E 789 F 我的输出应该是这样的 AB 123 ABC 456 DE 789 F 我有大量的数据，这是很难手动，所以你们有任何想法在Excel中的macros？任何帮助将不胜感激..感谢提前

Excel：无需sorting的vector式查找function: 我有一个Excel（2007）电子表格，它由几行组成，前几个像这样： CL DH HL SP FR CB TQ TT 37 33 27 27 26 25 31 26 25 26 33 32 28 25 26 25 21 28 26 31 26 28 26 28 他们需要按照这个顺序出现，因为第一行也作为列的标题。我需要的是在每一行中find最大数字，然后返回列标题，即对于这里的数据，第一行中的最大值是37，所以它返回CL，然后是HL和SP等等。使用向量forms的LOOKUP函数需要查找行进行sorting（这是不可能的，因为每行的顺序是不同的，他们都使用相同的标题），所以我不能使用它。使用HLOOKUP不需要对数据进行sorting，但要求查找行是数组的第一行，这在这里也是不实际的，因为我需要顶部的标题。基本上，我认为我需要的是一个查找types的函数，它使用向量而不是单个数组，但不需要sorting的数据。这可能吗？

如果公式多重条件: 我知道这里有很多线索，我已经经历了我的份额寻找答案。 D7 and F7 is formatted to currency Rand E7 will be text or blank 在提供两个答案之一之前，需要满足公式中的3个条件： cell of formula is F7 if D7 is =>50 if D7 is =<-50 if E7 is =0 基本上任何高于49.99东西，无论是否为负，只要E7是空白单元格。那么它应该产生答案59 。如果所有这些条件都不符合，应该给0 。尝试了下面的公式，但没有给我任何结果，只是停留在零。 =IF(AND(D7<=-50,D7>=50,E7=0),(59),(0))

VBA用于根据表中的行数确定图表types: 我试图写一些VBA，它会根据表中的行数自动生成某种types的图表。我正在使用一个IF循环，如下所示，基于一个lastrowvariables。我已经通过使用F8代码滚动和lastrowvariables注册正确，但这不会影响出现的图表types – 它总是一个列图，我猜是默认设置…任何帮助极大的赞赏。代码段： With Worksheets("TableScores") lastrow = .Cells(Rows.Count, "A").End(xlUp).Row ActiveSheet.Shapes.AddChart.Select If lastrow <= 3 Then .ChartType = xlBar Else: .ChartType = xlLine End If End with

Excel 2007macros将填充到工作簿中所有工作表的第一个工作表的末尾: 下面的代码创build一个新的列（A），给它头“Class”，然后用工作表名称填充列A，直到工作簿中所有工作表的B的最后一行。它正在工作，只是它将所有工作表填充到为所有后续工作表处理的第一张工作表中的最后一行。我做错了什么？我喜欢根据每张纸的最后一行确定填充量。 Option Explicit Sub AddColumnFill() Dim sht As Worksheet For Each sht In ActiveWorkbook.Worksheets sht.Range("A1").EntireColumn.Insert xlShiftToRight sht.Cells(1, 1) = "Class" sht.Range("A2:A" & Cells(Rows.Count, "B").End(xlUp).Row).Value = sht.Name Next sht End Sub

PasteSpecial不工作: 我有一个子查找与一个表中的值的数组匹配的值的SolutionID列，然后将其复制到另一个。不过，我用.PasteSpecial方法.PasteSpecial – 对象不支持这个属性或方法有人知道我在做什么错吗？谢谢。 Private Sub CopySolutions(ByRef SourceTable As ListObject, ByRef DestinationTable As ListObject, ByRef values() As String) On Error Resume Next Dim i, j As Integer ' Dummy for looping '** Loop through all of the ID's to copy… *' For i = LBound(values) To UBound(values) With SourceTable.DataBodyRange For j = 1 […]

使用vlookup公式不正确: 我有一个excel表格： AAl 1 AAr 2 Abu 3 和第二个 AAl AAr ABa ABe ABu 我想在第二个表中的第一个表中有相同的数字。我正在使用vlookup公式： =VLOOKUP(BL3;$BI$3:$BJ$5;2;0) BL3是第二个表中的第一行，$ BI $ 3：$ BJ $ 5是第一个表。不幸的是，我收到了： AAl 1 AAr 2 ABa #N/A ABe #N/A ABu #N/A 最后一行是不正确的，因为阿布应该有3号。你能帮我吗？

使用VBA检查Excel中是否存在已命名的文本框: 平台：MS Excel 2007（MS Visual Basic 6.0）我有几个不同的文本框在他们的Excel文件。所有的文本框都是名字。例如TxTbox_AAAA，TxtBox_BBBB他们大多数具有相同数量的同名文本框。我还需要更新文本框内的内容。但就像我说的…一些Excel文件不包含文本框。例如aaa.xls和bbb.xls有TexTbox_AAAA，TextBox_BBBB和ccc.xls只有TexTbox_AAAA 我的脚本是这样的 xlApp.ActiveSheet.TextBoxes("TextBox_AAAA").Text = TxtAAAA xlApp.ActiveSheet.TextBoxes("TextBox_BBBB").Text = TxtBBBB 但如果我运行，它会遇到运行时错误“1004”：无法获取Worksheet类的TextBoxes属性我怀疑这是由于Excel没有这个文本框命名为“TextBox_BBBB” 所以如何在xlApp.ActiveSheet.TextBoxes("TextBox_BBBB").Text = TxtBBBB之前进行检查xlApp.ActiveSheet.TextBoxes("TextBox_BBBB").Text = TxtBBBB 检查这个工作表/ activesheet是否不包含TextBoxes（“TextBox_BBBB”），它不会执行这个步骤？

在最后（或第四次）发生“。”分隔符处拆分string: 我喜欢按照下面的方式分隔string 给定以下string： Column 1 10.80.111.199.1345 127.0.0.1.3279 我想在最后一个“。”之后分隔数字，这将得到下面的输出 Column 1 Column 2 10.1.12.5 1345 127.0.0.1 3279 我知道excel具有分隔符function，它允许我用特定的符号或通过固定的宽度进行分隔。它似乎并不适用于固定宽度。有没有其他的select，而不是用“。”来划界。可以连接第1列的string？