過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     453
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼セル内の文字列を検索  HPL 02/12/12(木) 18:54
　　　┗Re:セル内の文字列を検索  つん 02/12/12(木) 20:37

　───────────────────────────────────────
　■題名 ： セル内の文字列を検索
　■名前 ： HPL
　■日付 ： 02/12/12(木) 18:54
　-------------------------------------------------------------------------
   
教えてください。



B列にさまざまなメールアドレスが並んでいる表があるとします。

メールアドレスの中に『yahoo.co.jp』が含まれていれば、

その横のA列に”○”を記入したいのです。

何かよい方法はないでしょうか？



よろしくお願いします。


　───────────────────────────────────────
　■題名 ： Re:セル内の文字列を検索
　■名前 ： つん <honey@sweetparty.ne.jp>
　■日付 ： 02/12/12(木) 20:37
　-------------------------------------------------------------------------
   
HPL さん、こんばんは



>B列にさまざまなメールアドレスが並んでいる表があるとします。

>メールアドレスの中に『yahoo.co.jp』が含まれていれば、

>その横のA列に”○”を記入したいのです。

>何かよい方法はないでしょうか？



こんな感じではいかがでしょうか？



Sub test()



　　Dim Rng As Range

　　Dim strAddress As String

　　

　　With Worksheets("Sheet1").Range("b:b")

　　　　Set Rng = .Find(what:="yahoo.co.jp")

　　　　strAddress = Rng.Address

　　　　If Not Rng Is Nothing Then

　　　　　　Rng.Offset(0, -1).Value = "○"

　　　　　　Do

　　　　　　　　Set Rng = .FindNext(Rng)

　　　　　　　　If strAddress = Rng.Address Then

　　　　　　　　　　Exit Do

　　　　　　　　Else

　　　　　　　　　　Rng.Offset(0, -1).Value = "○"

　　　　　　　　End If

　　　　　　Loop

　　　　End If

　　End With

　　

　　Set Rng = Nothing



End Sub



お試しくださいませ

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     453