Excel VBA質問箱 IV

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

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


11089 / 13644 ツリー ←次へ | 前へ→

【18180】特定の色がついているセルのみ選択 yossy 04/9/17(金) 11:21 質問[未読]
【18181】Re:特定の色がついているセルのみ選択 Asaki 04/9/17(金) 11:31 回答[未読]
【18182】Re:特定の色がついているセルのみ選択 IROC 04/9/17(金) 11:47 回答[未読]
【18185】Re:特定の色がついているセルのみ選択 yossy 04/9/17(金) 13:21 お礼[未読]

【18180】特定の色がついているセルのみ選択
質問  yossy  - 04/9/17(金) 11:21 -

引用なし
パスワード
   一定の範囲を選択後、その範囲内の特定の色がついているセルのみを
選択することは可能でしょうか?

EXCEL標準の[編集]-[ジャンプ]-[セル選択]では
特定の色を指定した選択ができないようでしたので
途方にくれています。

どなたか知っている方がいらしたら教えてくださらないでしょうか?

【18181】Re:特定の色がついているセルのみ選択
回答  Asaki  - 04/9/17(金) 11:31 -

引用なし
パスワード
   こんにちは。

地道にループして、1つずつセルの色を確認していくしかないのでは?

【18182】Re:特定の色がついているセルのみ選択
回答  IROC  - 04/9/17(金) 11:47 -

引用なし
パスワード
   Asakiさんご提案の方法で作ってみました。

Dim r As Range
Dim myStr As String

  For Each r In ActiveWindow.RangeSelection
    If r.Interior.ColorIndex = 34 Then
      myStr = myStr & "," & r.Address
    End If
  Next r
 
  myStr = Mid(myStr, 2)
  Range(myStr).Select

【18185】Re:特定の色がついているセルのみ選択
お礼  yossy  - 04/9/17(金) 13:21 -

引用なし
パスワード
   AsakiさんIROC さんありがとうございました。

特定の色だけ一度に選択というのはやはり無理でしたか・・・

早速ご指示のあった方法を元にソースを組んでみようと思います。
また、よろしくお願いいたします。m(0 - 0)m

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