タイトル : Re^9: Cells.FindNextのループ中の解放 投稿日 : 2009/09/17(Thu) 09:18 投稿者 : camputer
魔界の仮面弁士 様 どうもありがとうございます! どうもすみません。ループ内にばかり気を取られて、離れた場所にある MRComObject(myRng) をコピペしておりませんでした。。。 でも下のようにEndIfの外に出しておりましたが、これでは一番初めの myRng Is Nothingの時にもMRComObjectを通すことになるので良くないですね。。。 ご指摘いただいてから気付きましたm(_ _)m > If Not myRng Is Nothing Then > Dim 最初セル As String = myRng.Address > Do > > > > Dim myFindNext As Excel.Range = xlCells.FindNext(myRng) > MRComObject(myRng) > myRng = myFindNext > If myRng Is Nothing Then Exit Do > Loop Until myRng.Address = 最初セル MRComObject(myRng) '←ご指摘いただいてから修正しました。 > End If > : > : MRComObject(myRng) '←ここに入れておりました。 膨大なアドバイスをいただきどうもありがとうございます! (私の理解とコーディングが遅いせいかも知れませんが・・・orz) 私がずっと扱っておりましたFortranでのコーディング時には、考えもしなかったような 概念ばかりなので悪戦苦闘しておりますが、ご親切にアドバイスいただけるおかげで なんとなくですが、VBで出来る事のイメージングも出来始めたので、 コーディングのアイディアを練るのが楽しみです。 (まだ8割以上が検索・調査時間ですけど。。。^^;) ご指摘どうもありがとうございました!!今後もどうぞよろしくお願いいたします! Camputer. |