Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11091 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
11091 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free