tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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.

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。