Tag: excel 2013

Excel VBA将variables设置为工作表: 我想设置一个Worksheetvariables的Activesheet但我得到一个错误对象variables或块variables未设置这是我的语法 – 这样做的适当方式是什么？ Sub TestIt() Dim ws2 As Worksheet, ws1 As Worksheet ws2 = ActiveWorkbook.ActiveSheet ws1 = "Belgium" Debug.Print ws2 Debug.Print ws1 End Sub

隐藏行的表单行为非常缓慢: 由于某些原因，这个macros在macros观运行时performance的非常迟钝。当每次尝试更改不属于范围的非隐藏单元的信息时，这就变得有问题，它仍然运行更新，并且需要将近5-10秒才能完成。需要发生什么样的变化来缓解这个问题？ Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range For Each c In Range("A7:A98") If c.Value = 0 And c.Value = vbNullString Then c.EntireRow.Hidden = True End If Next c For Each c In Range("A7:A98") If c.Value <> 0 And c.Value <> vbNullString Then c.EntireRow.Hidden = False End If Next c […]

如果条件满足，Excel VBA添加新行: 我正在尝试写一些将完成的VBA 如果行O不为空，则将所有数据复制到新行，然后在当前行中清除列I，J，K，L，M，N 在新插入的行中清除O列我不能解释的警告是-抛出一个 types不匹配错误这是我正在尝试使用的语法 Sub BlueBell() Application.ScreenUpdating = False Dim i As Long, y ReDim y(2 To Range("A" & Rows.Count).End(3).Row) For i = UBound(y) To LBound(y) Step -1 If Cells(i, "O") Then If Cells(i, "I") = "" And Cells(i, "K") = "" And Cells(i, "M") = "" Then GoTo DoNothing Else Rows(i).Copy Cells(i, […]

从表中删除多行: 目前运行Excel 2013.我的电子表格最近成为一个表，它有几千行的数据。在按date范围筛选之前，删除某些行，然后我使用“查找＆select” – >“转到特殊” – >“可见”单元格仅select所有可见单元格，而不删除已过滤的行。显然，我不能删除多行作为表，有没有办法解决这个问题？该选项是灰色的，快捷键CTRL + – 不起作用，我试着改变一个registry键以前一个线程。我的悲剧命运是将信息复制到非表格中，编辑，复制回原来的格式并重新格式化为表格？请告诉我不是这样的。在select“仅可见的单元格”之后，屏幕上显示灰色的选项

仍然获取错误“不能做到这一点受保护的工作表”即使macros正常工作？: 所以我认为我已经完成了这个代码，它正在工作，但是当我从工作表1导航到其他任何工作表，然后回到工作表1 msgboxpopup并通知我，我不能这样做到受保护的工作表。我不清楚为什么这是发生，因为代码正在做它应该是…任何帮助，将不胜感激。编辑：我可能应该提到，工作表是用密码“1”保护的。我意识到这是不是最合适的密码，它是更容易访问，而我通过这个问题的工作。 Sub freezesheet() 'set variable for the naming of the new sheet Dim newname As String 'assignes our open variable to a designated value Sheets("Sheet1").Activate newname = Sheets("Sheet1").Range("C2").Value 'copies the sheet to a new sheet after the designated tab Sheets("Sheet1").Copy after:=Sheets(3) ActiveSheet.Name = newname 'unprotects the sheet so we can copy […]

在Excel PowerPivot的深入查看中显示相关字段: 我们已经在PowerPivot for Excel 2013中构build了一个数据模型。所有数据表格当前都在Excel中。假设我们有一个基本的“销售”事实表和一个“产品”维度表。两个表都有“ProductID”字段，并通过该字段进行关联。如果我使用该数据模型构buildExcel数据透视表，然后在数据透视表中显示度量“GrossSales”，然后双击数据透视表中的度量，我将得到一个向下钻取报告。它将显示所选度量的前1000行，但不显示与两个表相关的字段“ProductID”。在我们的testing中，这似乎发生在每个相关领域。是什么赋予了？有没有办法让相关领域出现在钻取报告中？让我知道，如果语言或语义不清楚。谢谢！

如果函数给出运行计时器错误'438': 我无法看到这行代码中的错误。也许我需要第二双眼睛来认识它： targetWs.Cells(subRow, 7) = Application.WorksheetFunction.MedianIf(sourceWs.Range("X3:X92"), ">" & 0)

在有不同参数的情况下，build立一个公式来计算Excel的总持续时间: 我有一个个人的持续时间的Excel表，我想计算每个活动（在这种情况下，每行）的总持续时间。每个人正在执行的任务是一个平行的或一个顺序的任务。它被标记为每个活动。（P表示并行，S表示顺序）。将会有一个下拉菜单来select任务是并行还是顺序。示例表如下所示。我想计算每一行的总持续时间。条件如下。如果所有的任务是并行的，那么总的持续时间是所有任务的最大持续时间。（以第1行为例，总时间为9,2天）如果所有的任务是连续的，那么总的持续时间是所有单独的持续时间的增加。（以第五行为例，总时长为31,2天）如果有任务混合（并行和顺序）必须计算并行任务的最长持续时间。（并行任务的MAX）必须计算顺序任务的总数。（顺序任务的SUM）然后添加并行任务的MAX和顺序任务的SUM。（以第2行为例，并行任务的MAX是6,5，顺序任务的SUM是16，所以总的持续时间是16 + 6,5 = 22,5）我需要在Excel 2013中为此创build一个公式。我尝试使用IF，MAX和SUM公式，但找不到正确的解决scheme。我想为此build立公式。任何想法？

用两个标准来计算唯一的字母数字值: 这个问题可能会在这里重复input链接描述，但在我的情况下的价值是字母数字。我想查找特定types的特定日历周内收到的独特材料数量。附上的是图像。请提供您的build议。谢谢

在不同工作表上的数据集中findVBA: 来自StackOverflow的粉丝，我试图使用。find与VBA，但不断得到一个相当恼人的错误。确切地说，这是错误424，对象需要。试图学习，但一直在这个错误挣扎超过24小时，而现在似乎无法find我的错。我还在下面添加了一些截图，以便您自己查看数据。屏幕截图说明：截图1是我的第一个数据集，其中我希望从截屏2的F列填充H列，我的通用调用方在第一个数据集的D列和第二个数据集的B列中find。我的问题总结：有错误424，下面的数据所需的对象。请帮我看看我做错了什么，因为我想从中学习，并且一直在为这个错误奋斗了24小时以上。 Dim sht As Worksheet, sht2 As Worksheet Set sht = Sheets("16-Compliancy-Rebuild") Set sht2 = Sheets("OpmerkingBackup") Dim Dept_Row As Long Dim Dept_Clm As Long Dim rng As Range Table1 = sht.Range("D85:D750") Table2 = sht2.Range("B3:B750") Dept_Row = sht.Range("H85").Row Dept_Clm = sht.Range("H85").Column For Each cl In Table1 Set rng = […]