[[20081023110927]]　『シート内と全シートをマクロで検索と入力』（えんじにあ）　ページの最後に飛ぶ

『シート内と全シートをマクロで検索と入力』（えんじにあ）

 下のマクロを全シートにかけたく、いろいろ調べたのですが、IF、For、Doなど
 何を使ってどうやるのかわかりません。手作業でやろうと思ったのですが、検索文字は
 シート内に複数あり、シート数も多く、今後のためにもマクロを作りたく、ご教授願います。

 　Sub Macro1()

    Range("A1").Select
    Cells.Find(What:="kikai*", After:=ActiveCell, LookIn:=xlFormulas _
        , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False).Activate

    ActiveCell.Select
    Selection.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "10/10/2008"

 　End Sub

 Sub try()
   Dim ws As Worksheet
   Dim r As Range, rr As Range

   For Each ws In Worksheets
       With ws
            Set r = .Cells.Find(What:="kikai*", LookIn:=xlFormulas _
                    , LookAt:=xlPart)
            If Not r Is Nothing Then
               Set rr = r
               Do
                   r.Offset(0, 1).FormulaR1C1 = "10/10/2008"
                   Set r = .Cells.FindNext(r)
               Loop Until rr.Address = r.Address
            End If
       End With
   Next
 End Sub
 こんな感じでしょうか？
 （じゅんじゅん）

 じゅんじゅん様、走りました！
 自分でもいろいろ作ったのですが、全然動かなくて困っておりました。
 今後も、不定期にこの作業がでてくるので、大変助かります。
 どうもありがとうございました。
 （えんじにあ）

コメント返信：

[ 一覧(最新更新順) ]

[[20081023110927]] 『シート内と全シートをマクロで検索と入力』（えんじにあ） ページの最後に飛ぶ

[[20081023110927]]　『シート内と全シートをマクロで検索と入力』（えんじにあ）　ページの最後に飛ぶ