Excel VBA質問箱 IV

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

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


28415 / 76732 ←次へ | 前へ→

【53615】Re:置き換えプログラム
発言  VBWASURETA  - 08/1/24(木) 20:46 -

引用なし
パスワード
   ▼わいわい さん:

こんばんは。

実は最近同じようなの作っていたので。
こんな感じのです。で、わいわいさんのソースのほうが
シンプルでいいなっと見ていたらきづいただけですけどね^^;


あ、こちらこそ、宜しくお願いします。


Sub main()
  Dim SearChIndex As Integer
  Dim firstAddress As Integer
  Dim SearchRange As Range
  
  'B列の検索
  With ActiveSheet.Range("B:B")
    '検索
    Set SearchRange = .Find("*" & "M6" & "*", LookIn:=xlValues)
    
    '検索の文字が見つかった
    If Not SearchRange Is Nothing Then
      '最初に見つかったセル位置確保(同じ検索繰り返し防止)
      firstAddress = SearchRange.Address
      Do
        '見つかった行位置確保(これはセルに書き込むための確保)
        SearChIndex = SearchRange.Row
        '見つかったので見つかったセル行の2列目に書き込むかっと。
        ActiveSheet.Cells(SearChIndex, 2) = "変更"
        '次の検索へ
        Set SearchRange = .FindNext(SearchRange)
        'まだ次の行がある
        If Not SearchRange Is Nothing Then
          '次の行はもしかして最初の検索だったりする?
          If (SearchRange.Address = firstAddress) Then
            'んじゃ終る
            Exit Do
          End If
        End If
      Loop While Not SearchRange Is Nothing
    End If
  End With
End Sub

0 hits

【53601】置き換えプログラム ma 08/1/24(木) 8:44 質問
【53602】Re:置き換えプログラム neptune 08/1/24(木) 10:50 発言
【53603】Re:置き換えプログラム neptune 08/1/24(木) 10:57 発言
【53604】Re:置き換えプログラム ma 08/1/24(木) 11:25 お礼
【53606】Re:置き換えプログラム わいわい 08/1/24(木) 12:14 発言
【53611】Re:置き換えプログラム VBWASURETA 08/1/24(木) 17:35 発言
【53612】Re:置き換えプログラム わいわい 08/1/24(木) 18:56 発言
【53615】Re:置き換えプログラム VBWASURETA 08/1/24(木) 20:46 発言
【53946】Re:置き換えプログラム みそじのおじさん 08/2/17(日) 18:25 回答

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