Excel VBA質問箱 IV

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

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


26556 / 76738 ←次へ | 前へ→

【55513】Find検索からFindNext が作動できない
質問  yukio  - 08/5/9(金) 10:20 -

引用なし
パスワード
   暗中模索状態になり解決できず、皆さんのアドバイスをお願します。
2個のFind検索にしたのは、1個の場合は応用できるのではないかと考えてのですが。
(例)
   Dim MaxRows As Long
   Dim y As Integer
 Dim WorkArea As String
 Dim CellAddress As String
 Dim Result As Variant, Result2 As Variant
 Dim StrCount As String
    MaxRows = ActiveSheet.UsedRange.Rows.Count
    y = MaxRows
    WorkArea = "B1:B" & MaxRows
     Set Result = ActiveSheet.Range(WorkArea).Find(what:="果物")
   If Result Is Nothing Then
   Else
     CellAddress = Result.Address
   End If
    StrCount = Len(CellAddress)
    CellAddress = Right(CellAddress, StrCount - 3)
    WorkArea = "B" & CellAddress & ":C" & MaxRows
     Set Result2 = ActiveSheet.Range(WorkArea).Find(what:="りんご", LookAt:=xlWhole)
  
   If Result2 Is Nothing Then
   Else
    CellAddress = Result2.Address
   End If
    Do
      Set Result2 = ActiveSheet.Range(WorkArea).FindNext(Result2)
    Loop While Not Result2 Is Nothing And Result2.Address <> CellAddress
     CellAddress = Right(CellAddress, StrCount - 3)
     CellAddress = "A" & CellAddress
     ActiveSheet.Range("E2").Value = ActiveSheet.Range(CellAddress)
    
     CellAddress = Right(CellAddress, StrCount - 3)
     CellAddress = "D" & CellAddress
     ActiveSheet.Range("F2").Value = ActiveSheet.Range(CellAddress)
End sub
このコードは中途半端なものです。いろいろ試みたのですが駄目でした。
Resizeの場合、2個のFindになると出来たり出来なかったりで原因がわかりません。
もともと2個のFindからのFindNextのコード利用は無理なのでしょうか。
ご教示をお願いします。
2 hits

【55513】Find検索からFindNext が作動できない yukio 08/5/9(金) 10:20 質問
【55517】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 10:50 回答
【55531】Re:Find検索からFindNext が作動できない yukio 08/5/9(金) 19:29 お礼
【55533】Re:Find検索からFindNext が作動できない kanabun 08/5/9(金) 19:46 発言
【55541】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 14:36 お礼
【55543】Re:Find検索からFindNext が作動できない kanabun 08/5/10(土) 15:31 発言
【55703】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 11:10 お礼
【55704】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 11:29 発言
【55714】Re:Find検索からFindNext が作動できない kanabun 08/5/16(金) 15:41 発言
【55733】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 13:44 お礼
【55735】Re:Find検索からFindNext が作動できない kanabun 08/5/17(土) 13:50 発言
【55534】Re:Find検索からFindNext が作動できない ひげくま 08/5/9(金) 19:47 発言
【55542】Re:Find検索からFindNext が作動できない yukio 08/5/10(土) 15:00 お礼
【55591】Re:Find検索からFindNext が作動できない ひげくま 08/5/12(月) 14:37 回答
【55699】Re:Find検索からFindNext が作動できない yukio 08/5/16(金) 9:12 お礼
【55705】Re:Find検索からFindNext が作動できない テト 08/5/16(金) 11:43 発言
【55737】Re:Find検索からFindNext が作動できない yukio 08/5/17(土) 14:16 お礼

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