在 OpenOffice Calc 中过滤

Posted 2023-04-13

【中文标题】在 OpenOffice Calc 中过滤

【英文标题】：Filter in OpenOffice Calc

【发布时间】：2015-09-28 03:19:40

【问题描述】：

场景：

我有一个电子表格，其中包含来自赠品活动的信息，在该电子表格中，我根据客户通过我的活动收到的新 Twitter 获得报酬。不幸的是，我使用的应用程序不会跟踪新关注者和现有关注者，因为它们为“在 Twitter 上关注 1 个条目”提供了新关注者和现有关注者的条目。因为我还提供了其他获取条目的方法，所以我需要导出数据并过滤结果以仅显示那些在 Twitter 关注上获得条目的人，然后通过单独的应用程序过滤掉那些新的和现有的。

问题：

每种数据类型都应该有一个单独的列；姓名、电子邮件、操作等。操作列是我希望找到“在 Twitter 上关注”的地方，但文件非常杂乱，可以在许多不同的列中找到操作。因此，我需要一种方法来仅显示包含“Follow on Twitter”字段的行。我不知道该怎么做。

【参考方案1】：

以下宏将在每个单元格中搜索“Follow On Twitter”。对于每一行，如果找到匹配项，则显示该行，否则将隐藏该行。您必须调整宏以匹配工作表的总行数/列数。

Sub Dummy()
    GlobalScope.BasicLibraries.LoadLibrary("Tools")

    Dim ActiveSheet As Object
    ActiveSheet = ThisComponent.CurrentController.ActiveSheet

    Dim r,c As Integer
    For r = 0 To 25
        Dim found As Boolean
        found = False
        For c = 0 to 10
            Dim cell As Object
            cell = ActiveSheet.getCellByPosition(c, r)
            If cell.String = "Follow On Twitter" Then
                found = True
                Exit For
            End If
        Next c
        Dim row As Object
        row = ActiveSheet.getRows.getByIndex(r)
        row.IsVisible = found
    Next r
    MsgBox "Done"
End Sub