Tag: 参考

我怎样才能做一个自定义的填充处理模式？: 我有一列A3:A71我希望填充值 =COUNTIF(B3:B71,B3) 第二个参数在每个单元格中递增。显然我不想每次都复制这个函数，所以我希望填充句柄能帮助我。但是，虽然它正确增加了COUNTIF的第二个参数，但它也增加了第一个参数。即使我正确填充列A3:A71的前两个或三个单元格的值 =COUNTIF(B3:B71,B3) =COUNTIF(B3:B71,B4) =COUNTIF(B3:B71,B5) 当我从右下angular拖下去，我得到的function： =COUNTIF(B6:B74,B6) =COUNTIF(B6:B74,B7) =COUNTIF(B6:B74,B8) =COUNTIF(B9:B77,B9) =COUNTIF(B9:B77,B10) =COUNTIF(B9:B77,B11) 任何人都可以告诉我如何强制第一个参数保持不变，而第二个是正确增加？我正在使用MS Office 2011 for MacOS，但Windows解决scheme将同样有用。

用公式中的引用replace为值: 我想find一个解决scheme，我有一个问题。要求用户在包含variables名称（早期用户input的一部分）或者这些inputvariables名称的单元格引用的单元格中写入计算公式。后来这些variables或单元格引用应该被专门创build的随机数字replace，公式应该被parsing为结果值。如何阅读公式并find单元格引用或variables名称？我怎样才能最终处理从vba代码单元格的公式？谢谢！

公式在VBA中不起作用: 在我logging的macros中，我将另一个工作簿中的公式复制到新的公式中，因为我希望macros将此公式插入到单元格中。虽然这个公式在那个时候起作用，但是我不能使用Marco，因为它导致了一个错误。我想这个问题可能是公式中的另一个工作表的引用（settings.xlsm）。有谁可以告诉我如何解决这个问题？代码如下： Sub Macro4() ' ' Macro4 Macro ' ' Rows("2:2").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("I3").Select ActiveCell.FormulaR1C1 = _ "=IF(AND([@Staffnumber]=R[-1]C[-7],OR(AND([@start1]<=settings.xlsm!R4C2,MONTH([@start1]<MONTH(settings.xlsm!R4C2))),[@start1]>=settings.xlsm!R4C2,MONTH([@end1]>MONTH(settings.xlsm!R4C2)))),DATE(YEAR(R[-1]C[-5]),MONTH(R[-1]C[-5]),DAY(R[-1]C[-5]+1)),IF(AND([@Staffnumber]<>R[-1]C[-7],OR(MONTH([@start1])<MONTH(settings.xlsm!R4C2),YEAR([@start1])<YEAR(settings.xlsm!R4C2))" & _ "F(AND([@Staffnumber]<>R[-1]C[-7],OR(MONTH([@end1])>MONTH(settings.xlsm!R4C2),YEAR([@end1])>YEAR(settings.xlsm!R4C2))),DATE(YEAR(R[-1]C[-5]),MONTH(R[-1]C[-5]),1),DATE(YEAR(RC[-5]),MONTH(RC[-5]),1))))" Columns("I:I").Select Selection.NumberFormat = "ddmmmyyyy ""00:00""" Range("J11").Select End Sub 感谢您的帮助！

列sorting不对参考列进行sorting，仅在活动列上sorting: 我正在尝试将一些代码复制并粘贴到另一个表单上，然后按字母顺序对其进行分类。问题是当我隐藏工作表 – 即使我取消隐藏并重新隐藏它运行macros – 它似乎只sorting在活动列。我在下面的第二个macros中以粗体突出显示了sorting代码。 GetNamesListmacros在其代码的末尾调用ConsolidateList。 GetNamesList设置为在打开的工作簿上运行： Private Sub Workbook_Open() GetNamesList End Sub GetNamesList的原始代码来自： http : //bit.ly/1y3dU6n by @ Siddharth-rout Sub GetNamesList() Dim rng As Range, aCell As Range Dim MyAr() As Variant Dim n As Long, i As Long Application.ScreenUpdating = False Sheet28.Visible = True '~~> Change this to the relevant sheet […]

根据另一列从Excel中的列中select特定的单元格: 以下是我想要参考的表格： **A** **B** ———————- TRUE ID 100 FALSE 0 FALSE 0 FALSE 0 FALSE 0 TRUE ID 811 FALSE 0 FALSE 0 FALSE 0 TRUE ID 742 基本上我想要在这里能做的是列出行A是真正的行B中的单元格。甚至行B不是0.所以结果应该是这样的： **A** ID 100 ID 811 ID 742 我确定必须有一个简单的方法来做到这一点，但我似乎无法解决这个问题？非常感谢任何帮助提前。

Excel的加载项：找不到引用或库: 在完成加载项后，我开始在其他计算机上进行testing。有一台电脑，我得到以下消息：找不到项目或库注意：此计算机正在运行Excel 2010，并且仅在Excel 2013计算机上成功进行了testing。他们都有相同的参考资料，如下图所示：提示我，如果有任何其他信息是必要的：

公式中的dynamic列参考: 我想在最后一列的左边放置一个公式3单元格。有没有办法做到这一点？也许通过一个列地址？ lc = .Cells(3, Columns.count).End(xlToLeft).Column .Cells(3, lc + 3).Formula = "=CountCcolor(E3:N" & lrPT & ", " & .Cells(0, lc + 2) & "3)" 问候，

使用Excel中的VBA，我可以如何引用一个variables的单元格: 正如标题所示，我无法弄清楚如何去一个单元格使用行的variables。我已经附上我现在有的代码和评论部分是我有问题，谢谢！ Private Sub Go_Click() Dim id As Double Dim qt As Double Dim num As Double Dim rngSearch As Range, rngFound As Range id = Range("D4").Value qt = Range("E4").Value Set rngSearch = Range("A:A") Set rngFound = rngSearch.Find(What:=id, LookIn:=xlValues, LookAt:=xlPart) num = rngFound.Row If rngFound Is Nothing Then MsgBox "Stock ID Not Found" Else MsgBox […]

数组公式导致#REF错误: 我不太清楚为什么会出现这种情况，但似乎无法在网上find解决scheme。我只是试图复制一些公式从一个表到另一个（公式将在目标工作表.FillDown ），但我特别是有一个公式的问题。我相信这是因为公式是一个数组，但即使当我使用.Range.FormulaArray我收到相同的#REF! 错误。这里是公式和转移它的脚本：（注意：公式中的引用对于目标工作表而不是原始工作表是准确的 – 公式将保留在指定的工作表中，因为在closures工作簿以减小文件大小时目标工作表上的所有数据都将被删除）拟定公式 IF(LEFT(H2,1)="2","Platforms",INDEX('Units – Job Numbers'!$A$2:$A$200,SMALL(IF('Units – Job Numbers'!$B$2:$CO$200=I2,ROW('Units – Job Numbers'!$B$2:$CO$200)-ROW('Units – Job Numbers'!$B$2)+1),1))) 转移后的公式 =IF(LEFT(H2,1)="2","Platforms",INDEX('Units – Job Numbers'!#REF!,SMALL(IF('Units – Job Numbers'!#REF!=I2,ROW('Units – Job Numbers'!#REF!)-ROW('Units – Job Numbers'!#REF!)+1),1))) VBA 'Copy and Extend Raw WIP Data Formulas With ThisWorkbook.Worksheets("Raw WIP Data") .Range("AE2:AL2").Formula = ThisWorkbook.Worksheets("Formulas").Range("A7:H7").Formula .Range("AM2").Formula = ThisWorkbook.Worksheets("Formulas").Range("I7").Formula […]

从Excel中将Excel单元格设置为Textbox.text，参考错误C＃: public Excel.Application xlapp = new Excel.Application(); public Excel.Range range; public Excel.Workbook workbook; public Excel.Worksheet worksheet; public string file; private void button1_Click(object sender, EventArgs e) { file = Path.Combine(Application.StartupPath, "Quote Sheet Template.xls"); xlapp.Workbooks.Open(file); workbook = (Excel.Workbook)xlapp.ActiveWorkbook; xlapp.Visible = true; range.get_Range("D6"); range.Value2 = NameTake.Text; workbook.SaveAs(Path.Combine(Application.StartupPath, NameTake.Text + " Quote.xls")); } 所以这里的交易…有人把信息（在这种情况下，他们的名字）放入一个文本框。然后他们点击button1将他们的名字导出到一个excel模板中，然后以自己的名字保存。问题是什么时候到达的 range.get_Range("D6"); /*and*/ range.Value2 = […]