Question

这是继续的问题excel不同的SUM。综合框架阵列功能但是,由于我已经指出这个问题已经解决,我产生了一个新的问题。

我所希望的是,一些价值观是独特的,我已经执行了“马克”的解决办法。然而,报告的要求发生了变化。现在,我需要排除所有隐藏的、但仍然保持原计算方法的价值。从根本上说,希望以同样的方式增加一个SBTAL(109,f)会发挥作用的特点。

对我来说,“VBA”功能小组(Range)是一种简单的功能,视小组而定,其回报为0或1。

因此,我最好的猜测是如下公式:{=SUM(IF($B1:$B7<>$B2:$B8,D2:D8,0CellIss NotHidden(D2:D8)}

但是,这一职能并不奏效,因为受感染的细胞并不是一种阵列功能。

我如何解决这一问题?

预先感谢

Gunnar

Edit:

我认为,我应当包括一个简单的传统做法职能:

  Function CellIsNotHidden(InputRange As Range)

  If InputRange.Cells.Height = 0 Then
      CellIsNotHidden = 0
  Else
      If InputRange.Cells.Width = 0 Then
          CellIsNotHidden = 0
      Else
          CellIsNotHidden = 1
      End If
  End If

  End Function

Answer 1

Try this for UDF CellIsNotHidden/aco>. 这将处理1个(校长)和2个阵列。测试:

Function CellIsNotHidden(MyRange As Range) As Variant
  Dim RootCell As Range
  Dim tmpResult() As Long
  Dim i As Long
  Dim j As Long

On Error GoTo Whoops
  ReDim tmpResult(0 To MyRange.Rows.Count - 1, 0 To MyRange.Columns.Count - 1)
  Set RootCell = MyRange.Cells(1, 1)
  For j = 0 To MyRange.Columns.Count - 1
    For i = 0 To MyRange.Rows.Count - 1
      tmpResult(i, j) = Not (RootCell.Offset(i, j).EntireColumn.hidden Or RootCell.Offset(i, j).EntireRow.hidden)
    Next i
  Next j
  CellIsNotHidden = tmpResult
On Error GoTo 0
  Exit Function
Whoops:
  Debug.Print Err & " " & Error
End Function

Answer 2

不要使用UDFCellIss NotHidden(D2:D8),你还可以尝试其中任何一个:

SUBTOTAL(109,OFFSET(D2,ROW(D2:D8)-ROW(D2),))
SUBTOTAL(109,OFFSET(D2:D8,ROW(D2:D8)-MIN(ROW(D2:D8)),,1))

友情链接