Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


5532 / 76732 ←次へ | 前へ→

【76812】Re:検索ワードを入力して検索する時に、ある条件の文字にて検索するとエラー
発言  β  - 15/3/18(水) 5:47 -

引用なし
パスワード
   ▼マナ さん:
>総務部が100件とか、沢山検索されると
>Range(256文字以上)となってエラーがでるかも。

あぁ、Range(●) の ●の文字数が多すぎるんですね。

たとえば以下とか。

Sub 検索ワードを入力して検索2()

  Dim Target As String
  Dim FoundCell As Range, SearchArea As Range
  Dim Addr As String
  Dim i As Long
  Dim sAddr As Range
  
   Target = Application.InputBox("検索ワードを入力してください", "検索", Type:=2)
  If Target = "False" Then Exit Sub
 
   Set SearchArea = ActiveSheet.UsedRange
 
   Set FoundCell = SearchArea.Find(What:=Target, LookIn:=xlValues, _
          LookAt:=xlPart, MatchCase:=False, MatchByte:=False)
  If FoundCell Is Nothing Then Exit Sub
  Addr = FoundCell.Address
 
   Do
    If sAddr Is Nothing Then
      Set sAddr = FoundCell
    Else
      Set sAddr = Union(sAddr, FoundCell)
    End If
    Set FoundCell = SearchArea.FindNext(After:=FoundCell)
    i = i + 1
    If FoundCell Is Nothing Then Exit Do
  Loop Until FoundCell.Address = Addr
 
   sAddr.Select
   MsgBox sAddr.Count & "件見つかりました" '件数表示
End Sub
310 hits

【76807】検索ワードを入力して検索する時に、ある条件の文字にて検索するとエラー さとちぃ 15/3/17(火) 16:38 質問[未読]
【76808】Re:検索ワードを入力して検索する時に、あ... β 15/3/17(火) 17:07 発言[未読]
【76810】Re:検索ワードを入力して検索する時に、あ... マナ 15/3/17(火) 22:19 発言[未読]
【76811】Re:検索ワードを入力して検索する時に、あ... マナ 15/3/17(火) 22:30 発言[未読]
【76812】Re:検索ワードを入力して検索する時に、あ... β 15/3/18(水) 5:47 発言[未読]
【76819】Re:検索ワードを入力して検索する時に、あ... さとちぃ 15/3/18(水) 14:01 質問[未読]
【76814】Re:検索ワードを入力して検索する時に、あ... β 15/3/18(水) 8:22 発言[未読]
【76903】Re:検索ワードを入力して検索する時に、あ... さとちぃ 15/4/8(水) 11:23 お礼[未読]

5532 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free