Можете ли вы добавить заметку в расширенный фильтр?

Question

При использовании расширенного фильтра в Excel, можете ли вы добавить примечание / код ошибки в зависимости от критериев?

Например, если у меня есть критерии:

Rep |ID |Продажи

Джош |3 |<> 10
Том |4 |<> 10

Могу ли я прикрепить примечание к отфильтрованным результатам, чтобы у меня был столбец ошибок, который может содержать:

"Примечание, где продажи Джоша не были 10"

«Обратите внимание, что продажи Тома не были 10»

Вот мой фактический код:

Sub AdvancedFilter()
    With ThisWorkbook
        .Sheets.Add(After:=.Sheets(.Sheets.Count)).Name = "FilteredData"
    End With
    Worksheets("FilteredData").Activate


        Sheets("DataSheet").Cells.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
        Sheets("Criteria").Range("MyTable[#All]"), CopyToRange:=Range("A1"), Unique _
        :=False
End Sub

Answer 1

Простейший подход, который я могу себе представить, это создать столбец в вашей таблице, чтобы определить, есть ли комментарий, или нет, используя VBA:

Dim i As Long
For i = 1 To 10
    If Cells(i, 1).Comment Is Nothing Then
        Cells(i, 3).Value = 1
    Else
        Cells(i, 3).Value = 0
    End If
Next i

После этого выполните сортировку, используя этот вспомогательный столбец (скрыть, если 0, где 0 = без комментариев).

---

Edit1: я думаю, что я неправильно понял вопрос при первом прочтении.

Если вы хотите добавить комментарий, если критерии удовлетворены, вы можетедобавить комментарии, используя цикл:

Dim i As Long
For i = 1 To 10
    If Cells(i, 1).Value < 10 Then
        Cells(i, 1).ClearComments
        Cells(i, 1).AddComment ("Sales not 10")
    End If
Next i