2015-09-28 42 views
1

場景:過濾器在OpenOffice的計算器

我有從贈品活動中,我得到每新的Twitter跟隨我的客戶端接收通過我的競選支付信息的電子表格。不幸的是,我使用的應用程序不追蹤新的追隨者與現有的追隨者,因爲他們提供了新的和現有的追隨者的條目,爲「1 Twitter的Follow」。因爲我還提供其他方式來獲取條目,所以我需要導出數據並過濾結果,以便只顯示那些在Twitter Follow中獲得條目的人,然後通過單獨的應用程序過濾掉新的和現有的人。

問題:

應該有每個數據類型單獨的列;姓名,電子郵件,行動等。行動專欄是我期望找到「Follow on Twitter」的地方,但文件非常混亂,行動可以在許多不同的專欄中找到。因此,我需要一種方法來顯示只有那些有「Follow on Twitter」字段的行。我不知道該怎麼做。

回答

2

以下宏將在每個單元格中搜索「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