Excel分組列檢查孩子是否包含數據

Question

我有一個電子表格，其中包含例如軟件產品的列表，有些產品上升到模塊級別，其他產品只是一個產品。我有一個分組，將每個供應商的產品或產品模塊分組...

excel表旨在將供應商產品（或模塊，如果存在的話）映射到某些功能。單元格中的「X」表示該功能受支持。在圖片模塊A1.1中支持函數1. ...和產品A2（沒有定義的模塊）也支持函數1.

問題出現在處理分組列的「樹」時... i需要一個子/功能來完成映射的其餘部分。即...如果我檢查單元格D2和E2我想運行一個函數，將單元格C2更新爲X，然後將單元格B2更新爲X.（X表示所有模塊都支持該功能）

因此在圖形中，手動輸入紅色單元格，非紅色「X」和「O」單元格將自動添加。

我知道這似乎懶問這種格式，但是我將不勝感激幫助甚至獲得定向在正確的想法，大腦是油炸和思考如何解決這個我不能連...

Answer 1

您可以使用位於列中的OutlineLevel屬性根據工作表大綱邏輯定位父級和子級中心。

嘗試：

'This function goes thru the outline childrens of a cell and can apply some logic based on their value 
Function SubComponentsPresent() As String 
    Application.Volatile 

    Dim RefRange As Range 
    Set RefRange = Application.Caller 

    Dim Childrens As Range 
    Set Childrens = OutLineChildren(RefRange) 

    Dim oCell As Range 
    For Each oCell In Childrens 
     '----------- 
     'Insert code here 
     '----------- 
    Next oCell 

    SubComponentsPresent = tOut 
End Function 

'This functions returns the childrens of a cell (Considering a column outLine) 
Function OutLineChildren(RefCell As Range) As Range 
    Dim oCell As Range 
    Dim tOut As String 

    With RefCell.WorkSheet 
     If .Outline.SummaryColumn = xlSummaryOnRight Then 
      Set oCell = RefCell.Offset(0, -1) 
      Do Until oCell.EntireColumn.OutlineLevel <= RefCell.EntireColumn.OutlineLevel 
       If oCell.EntireColumn.OutlineLevel = RefCell.EntireColumn.OutlineLevel + 1 Then 
        If tOut <> "" Then tOut = tOut & "," 
        tOut = tOut & oCell.Address 
       End If 
       Set oCell = oCell.Offset(0, -1) 
      Loop 
     Else 
      Set oCell = RefCell.Offset(0, 1) 
      Do Until oCell.EntireColumn.OutlineLevel <= RefCell.EntireColumn.OutlineLevel 
       If oCell.EntireColumn.OutlineLevel = RefCell.EntireColumn.OutlineLevel + 1 Then 
        If tOut <> "" Then tOut = tOut & "," 
        tOut = tOut & oCell.Address 
       End If 
       Set oCell = oCell.Offset(0, 1) 
      Loop 
     End If 
    End With 
    Set OutLineChildren = RefCell.Worksheet.Range(tOut) 
End Function