Excel VBA質問箱 IV

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

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


26491 / 76732 ←次へ | 前へ→

【55572】Re:実行範囲の指定方法について
回答  りん E-MAIL  - 08/5/11(日) 20:18 -

引用なし
パスワード
   marumaru さん、こんばんわ。
>下記の内容を指定範囲内で実行したいのですが、どなたかご教授願います。
>
>範囲=("A1:O10")
Findメソッドのヘルプの使用例をちょっと改造。

With Range("A1:O10")
  Set c = .Find("*担当者*", LookIn:=xlFormulas, LookAt:=xlWhole)
  If Not c Is Nothing Then
    firstAddress = c.Address
    Do
      c.Interior.ColorIndex = 5 'とりあえず青く塗ってみたり
      Set c = .FindNext(c) '検索を繰り返す
    Loop While Not c Is Nothing And c.Address <> firstAddress
  End If
End With

こんな感じです。
0 hits

【55571】実行範囲の指定方法について marumaru 08/5/11(日) 20:07 質問
【55572】Re:実行範囲の指定方法について りん 08/5/11(日) 20:18 回答
【55575】Re:実行範囲の指定方法について kanabun 08/5/11(日) 21:22 発言
【55579】Re:実行範囲の指定方法について marumaru 08/5/12(月) 1:39 お礼
【55581】Re:実行範囲の指定方法について VBWASURETA 08/5/12(月) 10:01 発言
【55582】Re:実行範囲の指定方法について kanabun 08/5/12(月) 11:00 発言
【55583】Re:実行範囲の指定方法について VBWASURETA 08/5/12(月) 11:32 発言
【55584】Re:実行範囲の指定方法について kanabun 08/5/12(月) 11:57 発言
【55585】Re:実行範囲の指定方法について VBWASURETA 08/5/12(月) 12:22 発言
【55586】Re:実行範囲の指定方法について kanabun 08/5/12(月) 12:36 発言
【55588】Re:実行範囲の指定方法について VBWASURETA 08/5/12(月) 13:54 発言
【55589】Re:実行範囲の指定方法について VBWASURETA 08/5/12(月) 14:08 発言
【55590】Re:実行範囲の指定方法について kanabun 08/5/12(月) 14:17 質問
【55612】Re:実行範囲の指定方法について ichinose 08/5/13(火) 22:20 発言
【55613】Re:実行範囲の指定方法について kanabun 08/5/13(火) 22:42 発言
【55614】Re:実行範囲の指定方法について n 08/5/14(水) 1:19 発言
【55615】Re:実行範囲の指定方法について ひげくま 08/5/14(水) 8:12 発言
【55617】Re:実行範囲の指定方法について kanabun 08/5/14(水) 9:05 発言
【55632】Re:ご迷惑をかけました。 VBWASURETA 08/5/14(水) 12:15 発言

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