InputBoxで入力した値でシート内を検索するマクロの実験 LibreOffice Calc Basic

InputBoxで入力した値でシート内を検索するマクロの実験　LibreOffice Calc Basic

Sub oSearchCurrentSheet()
'アクティブシートの内の検索文字が一部含まれる検索
'実験、、不具合あり
 Dim oSheet
 Dim oSearch
 Dim oFind
 Dim oDisp
     '設定
          oSheet = ThisComponent.CurrentController.ActiveSheet
          oSearch = oSheet.createSearchDescriptor()
      'InputBox で検索文字を入力
         SearchWord=inputbox( "検索する文字を入力してください","シート内検索")
        
     'SearchString
          With oSearch .SearchString = SearchWord     '検索文字
              .SearchWords = false                                '検索文字が一部含まれる(false),絶対一致(true)
              .SearchCaseSensitive = false                     '大文字小文字区別( true )
          End With 
    '最初の検索     
          oFind = oSheet.findFirst(oSearch)
       '見つからなかったか？
           If IsNull(oFind) Then
               msgbox "見つかりません"
            exit sub
        end if
    '確認用表示、セルの値とアドレス
         msg="検索文字  " & SearchWord & chr(13) & oFind.getString()  & chr$(13) & oFind.absoluteName & chr(13)
     '次を検索 
          on error goto owari        'While  NOT IsNull(oFind)でのエラー対策？
         Do While  NOT IsNull(oFind)
              oFind = oSheet.findNext(oFind, oSearch)
                         msg=msg & oFind.getString() & chr$(13) & oFind.absoluteName & chr(13)
          Loop
  owari:
    msgbox msg
     msgbox "終了"
   
End Sub

 

 

コメント 1

Cialis 5 Mg Original [url=https://cheapcialisir.com/]generic 5mg cialis best price[/url] Purchase Amoxil <a href=https://cheapcialisir.com/#>Cialis</a> Cheap Cialis Generic
by Bupsfutty (2020-06-10 17:11)