Tag: 范围

问题在VBA中使用range.formula: 我有一个问题，当我下面的代码它不显示在单元格中 wbNew.Sheets（“Sheet1”）。Range（“g2”）。Formula =“= SUMPRODUCT（'P C'！C2：j2;> [t1.xls] input！g14：n14）* E2” 如果将公式直接放入单元格中，则公式完美无缺。当我把它放入单元格时，我只是得到一个空白的单元格，没有结果

在For循环中复制行并粘贴到新工作表: 我有问题根据条件复制/粘贴行。 Dim lastrow1 As Long Dim lastcolumn1 As Long Dim Distance As Long Distance = 14 Set sh = ThisWorkbook.Sheets("Sample Address Database") Set sh2 = ThisWorkbook.Sheets("Workspace") lastrow1 = sh.Cells(Rows.Count, "A").End(xlUp).row lastcolumn1 = sh.Cells(1, Columns.Count).End(xlToLeft).Column Dim L As Long For L = 2 To lastrow1 If _ sh.Cells(L, Distance).Value <= CDbl(cboRadius.Value) Then sh.Range("A" & L & […]

select范围没有过滤单元格: 我有一个包含多行数据的表格。我想过滤一些行，只保留那些符合某些特定细节的行。要做到这一点，我可以在列上设置一些filter。我的问题是我想计算一些列上的值的平均值/和/等，但只是考虑应用这些filter后得到的行。如果我使用快捷键“Shift + Ctrl +箭头键”select范围，则select范围内的所有单元格，包括已过滤的单元格。你知道我怎么解决这个问题？谢谢

VBA脚本除以零: 我试图在VBA中做一个公式，但是由于分母为零，我遇到了错误。如果分母中有一个零，我希望活动单元被设置为零。无论我做什么都不正确，我不是程序员。我不知道我在做什么。任何帮助将不胜感激。这是我的 Range("H" & Row).Activate If Range("F" & Row) = 0 Then ActiveCell.Formula = 0 ActiveCell.Formula = Range("G" & Row) / Range("F" & Row)

如何合并/混合单元格的范围作为公式参数: 在Excel中，我想计算一个项目的XIRR。我的付款有两个单独的范围。但XIRRfunction（和其他）接受单个范围作为参数。如何合并函数参数中的范围？像这样的东西 =XIRR(MixRanges(a1:a4,d1:d2), MixRanges(b1:b4,e1:e2)) 感谢您的任何build议

从给定的单元格excel-vba查找表格: 我有一个表位于电子表格的某个地方，例如b3：f15，并且在它附近没有任何东西（空单元格），我试图select这个表格并为它着色。不知何故，我的代码不起作用，我无法find我的逻辑错误 Sub colorize_table() Dim temp As Range Set temp = Application.InputBox(prompt:="Please choose cell", Type:=8) Dim i As Integer, k As Integer Dim r As Integer, p As Integer i = temp.Row k = temp.Column r = temp.Row p = temp.Column While temp(i, k) <> "" While temp(i, k) <> "" i = i – […]

VBA范围数组 – 什么？: 我在这里感到困惑，这段代码抛出一个下标超出范围错误 – 我看不出为什么 Public Sub Tester() Dim Arr As Variant Dim n As Long Dim size As Integer Dim width As Integer Arr = Sheets("Sheet1").Range("L13:L20") width = LBound(Arr) size = UBound(Arr) Debug.Print size For n = 1 To 8 Debug.Print Arr(n) Next End Sub 任何帮助将是伟大的 – 我希望我可以俯视简单的东西，但所有的下标超出范围的帮助网上迄今没有太多的使用… … –

Excel：Visual Basic：范围作为函数input不起作用: 我在Excel中开始使用VB; 到目前为止，我无法想象以下内容; 我有以下function： Function testGetRange(myRange As Range) Dim weekStart As Integer Dim weekEnd As Integer weekStart = myRange(1).Value weekEnd = myRange(2).Value End Function 如果我尝试像这样执行它： Sub CreationRapport() Dim testRange1 As Range Set testRange1 = Range("A5:B5") testGetRange (testRange1) End Sub 我有一个像“对象需要”的错误（对不起，错误信息是法语：“objet requis”），当我尝试执行该function时停下来。所以：创build范围，函数以范围作为input; 不知道为什么这是行不通的…

VBA中的范围select: 我正在尝试为活动工作表定义一个范围，并在vba中的for循环中select它，并且由于某种原因，每当我这样做，它给我一个对象/应用程序定义的错误消息。这是我正在尝试运行： With ActiveSheet Set rng2 = .Range("C" & position) .Range(rng2).Select End With 我对vba相当陌生，我很困惑为什么这样做不起作用。任何帮助将非常感激。

使用“select”和“范围”时未设置VBA对象variables: 我试图在Excel VBA中拆分包含一些值的行。问题是不分裂和复制行（我还没有！），但在方法'Application.Intersect'。我想我通过2范围但程序崩溃与错误“对象variables或块variables未设置”。当我打印他们时，我看到像“$ A $ 2 $ C $ D false”取决于我select了什么…我做错了什么？我有这个代码， Sub SplitRows() Dim LastRow As Long, _ WS1 As Worksheet, WS2 As Worksheet, _ i As Long, j As Integer, ii As Long, X, Y, _ MySelection As Range Set WS1 = Sheets("Foglio1") Set WS2 = Sheets("Foglio2") LastRow = Range("A" & […]