我想突出标题中的一个特定单元格，作为表单中未来date的可见指示符，可能是看不见的。 数据通常包含400行数据 其中一个标头调用包含今天的date（ =TODAY() ），并在条件格式化公式中使用，以突出显示与其他标准匹配的行，并可能有未来的date。 这个单元格（L1）是我想标记一个不同的颜色，如果有一个未来的date行。 数据并不总是包含未来的date。 因此，我想要一个指标，警告如果有一个行包含未来的date（date在D列）。 有关如何解决这个问题的任何build议？ 数据如下所示： Microsoft Office Professional Plus 2010

我对VBA很新，并没有真正尝试过，所以我希望这是一个相对简单的问题，有人可以帮助。 我想要的是一个具有定义范围的函数，那么如果一个单元格的值是= 0，这个单元格将被从范围中删除。 一旦全零被删除，运行一个简单的“如果”计算给我的结果。 我到目前为止如下… Function BestCalc(rng As Range, weighted As Double) Dim cell As Range For Each cell In rng If cell.Value = 0 Then newrng = rng – ActiveCell.rng End If Next ' Gets rid of zeros in range m = Application.WorksheetFunction.Average(newrng) ' Mean of newrng s = Application.WorksheetFunction.StDev(newrng) ' St dev of […]

我需要一个公式来等于一个单元格，如果它有一个值，但如果一个不同的单元格有一个值，然后等于该单元格，而不需要它在它的末尾有文本 这是一个例子。 如果E11有值，F11也有值= F11 如果E12有值，F12不具有值= E12

我写了一个macros，提示用户input名称，然后input数字。 这用于填充标题行之后列G中的前3个单元格。 我真正需要的macros，然后重复这下三行，但添加10用户input的数字。 Sub Set_Tag() Dim Tag, TagName As String Dim x, TagNum As Integer TagName = InputBox("What is the product tag name? Ex. Apple", "Tag Name") TagNum = InputBox("What is the first product tag #? Ex. 500", "Tag #") Tag = TagName & "_" & TagNum x = Application.WorksheetFunction.CountIf(Range("J:J"), " ") ActiveSheet.Range("G2").Value = TagName […]

下面的问题已经被另一个用户问过了。 我有一个相同的问题的变化。 如果该行存在多个数据点，则需要知道最后一个数据值的列标题。 下面的公式将返回第一个数据点<>“”，但是我需要最后一个数据点是<>“”。 请仅使用非VBA公式。 =IF(COUNTA($E2:$T2)=0,"",INDEX($E$1:$T$1,MATCH(TRUE,INDEX($E2:$T2<>"",0),0))) 点击查看所需结果的例子 更新1： 因为我的问题不清楚，所以我发表第二个例子 例2 因为第2行，在第04项中有值1，因此获得项目名称=项目04.它是随机的并且具有大量的列（500）。 问题： 我想有一个方法来获得一个列标题，如果有任何值input到单元格下的单元格。 请注意，如果第2行和第1列有值，那么第2行的其他单元格将不会有任何值（0除外）。 我很难用文字来解释这个问题，所以我创造了一个例子。

我需要在工作表上dynamic创build和删除1到N个列表框。 因为页面会改变，我不能提前知道在哪里放置控件，所以像…左：= 10，顶：= 10，宽：= 106.8，高：= 154.6将无法正常工作。 我需要能够以编程方式将控件放置在C1或C55上。 我所做的研究只发现了一个固定位置的静态创build的例子，我也一直没能find任何能给我一个单元格坐标的东西（例如：C1 = Left：= 65，Top：87） 。 谢谢你的帮助。

我在Excel中有以下macros来采取这样的两列 Client | Product 12 | A 12 | B 12 | C 15 | A 15 | C 并转置连接成 Client | Product 12 | A,B,C 15 | A,C 现在我想创build一个excelmacros，做相反的事情，并采取这样的两列，反向转置un-concatenates他们进入 Client | Product 12 | A 12 | B 12 | C 15 | A 15 | C 我尝试了文本到列function，但它创build了这个 Client | Product 12 | A […]

我试图让用户input基于托盘数量的重量。 NumberPallets通过代码中其他位置的input框设置。 NumberPallets是3.我想这个循环3次，并要求每个托盘的重量和存储到PalletWeights（p），所以它看起来像这样： PalletWeight(1) = 200 PalletWeight(2) = 100 PalletWeight(3) = 300 TotalPalletWeight = 600 现在它给我一个下标错误，我相信这是因为我没有正确地做arrays。 我谷歌尝试使用PalletWeight（Ubound（PalletWeight）），但这也不起作用。 其他Googlesearch几乎没有单独获取InputBox数据的结果，也没有以逗号分隔的列表。 我需要改变什么来使这个function？ ReDim PalletWeights(1 to NumberPallets) 'Added based on an answer on this question Dim PalletWeights() As String 'Array of pallet weights Dim p As Integer p = 1 Do While p <= NumberPallets PalletWeights(p) = Application.InputBox(Prompt:="What is […]

我想知道是否有可能创build一个这样的表格： 我已经计算了"Calculated field 1"栏中显示的两家公司的权益比率。 现在我想为每个公司创build这个列的平均值和最小值！ 如表中所示（红色数字）。 为了澄清，列C，行C5到C26显示了公司1的平均值。行C28到C49显示了公司2的平均值。 任何想法如何进行这个？

我正在尝试编写一个模板的代码。 每个月我都希望代码进入工作日。 但是，当我尝试代码时，它会更新工作日，但不是我想要的电子表格。 它将更新个人excel文件的date。 请指教。 Sub MG09Nov02 Dim mDay As Integer Dim Col As Integer Dim Dt As Integer Dim mMax As Integer Dim wNam As String Dim c As Long Range("B:C").ClearContents Select Case Month(Now) Case 2: mMax = IIf(Year(Now) Mod 4 = 0, 29, 28) Case 4, 6, 9, 11: mMax = 30 Case […]