Excel VBA質問箱 IV

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

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


11178 / 13646 ツリー ←次へ | 前へ→

【17440】同じ値のセルを見つけてセルに色を付けたい mamama 04/8/29(日) 19:40 質問[未読]
【17454】Re:同じ値のセルを見つけてセルに色を付け... Asaki 04/8/30(月) 9:07 回答[未読]
【17517】Re:同じ値のセルを見つけてセルに色を付け... mamama 04/9/1(水) 1:27 お礼[未読]
【17543】Asakiさんへ(条件付書式) mamama 04/9/2(木) 1:11 質問[未読]
【17551】Re:Asakiさんへ(条件付書式) Asaki 04/9/2(木) 9:02 回答[未読]
【17581】Asakiさんへ(条件付書式)パート2 mamama 04/9/2(木) 17:06 質問[未読]
【17582】Re:Asakiさんへ(条件付書式)パート2 Asaki 04/9/2(木) 17:26 回答[未読]
【17695】Re:Asakiさんへ(条件付書式)パート2 mamama 04/9/5(日) 2:53 質問[未読]
【17584】Re:同じ値のセルを見つけてセルに色を付け... ふうきち 04/9/2(木) 18:21 回答[未読]
【17585】eが足りなかった ふうきち 04/9/2(木) 19:22 発言[未読]
【17696】ふうきちさんへ mamama 04/9/5(日) 3:02 お礼[未読]
【17702】成功!! mamama 04/9/5(日) 23:52 お礼[未読]

【17440】同じ値のセルを見つけてセルに色を付けた...
質問  mamama  - 04/8/29(日) 19:40 -

引用なし
パスワード
   初心者です。よろしくお願いいたします。m(..)m
あるフォルダ内にあるファイル名がほかのホルダにも存在するかチェックするものを作成したいのですが、下記の1.,2.はできましたが3.がなかなかできません。
1.ファイル名を取得、一覧にしてセルに転記
2.拡張子の削除
3.セルの値(ファイル名)が重複しているものにセルに色を付ける

Sub 重複番号チェック()
  Dim eee As Range
  Dim i As Integer
   i = 1
For Each eee In Range("A1:A16")
  If eee.Value = Cells(i, 3) Then _
    eee.Interior.ColorIndex = 20
   i = 1 + 1
  Next
End Sub

ではお願いいたします。

【17454】Re:同じ値のセルを見つけてセルに色を付...
回答  Asaki  - 04/8/30(月) 9:07 -

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

>For Each eee In Range("A1:A16")
>Next
の内側に、C列のデータについてのループが必要ではないかと思います。
A1:A16のおのおののセルとC列の全データを比較する必要がありますよね?

ちなみに、条件付書式を利用すると、マクロが不要になるかもしれません。

【17517】Re:同じ値のセルを見つけてセルに色を付...
お礼  mamama  - 04/9/1(水) 1:27 -

引用なし
パスワード
   Asakiさんへ
回答ありがとうございました。
条件付書式を使ったことがないのでとりあえず試してみます。
また、ForとNextの間にC列のデータのループ設定も試してみようと思います。
まだまだいろいろと難しいですがめげずにがんばります!
またよろしくお願いいたします。

【17543】Asakiさんへ(条件付書式)
質問  mamama  - 04/9/2(木) 1:11 -

引用なし
パスワード
   Asaki さんへ:
条件付書式をさわってみましたが、A1:A100と(比較側の列→)B1:B100の同じ値に色を設定する場合、A1:A100全部のセルに条件付書式を設定しなければならないようで大変?ですか?
これからまた試してみまっす。

【17551】Re:Asakiさんへ(条件付書式)
回答  Asaki  - 04/9/2(木) 9:02 -

引用なし
パスワード
   色を設定したいセルを全て選択してから設定すれば1度ですみます。
既に設定してしまったセルがあれば、コピーして書式のみ貼り付けすればよいと思います。
(但し、罫線などほかの書式が異なる場合は使えません)

【17581】Asakiさんへ(条件付書式)パート2
質問  mamama  - 04/9/2(木) 17:06 -

引用なし
パスワード
   "A1:A100"をすべて選択して条件付書式を開くとB列は単独セルしか指定できないのです、ってことはB列が"B1:B100"あったら条件100まで設定しなければいけないのでしょうか?「$B$1:$B$100」はだめでした。
すいませんまたご指導お願いします。

【17582】Re:Asakiさんへ(条件付書式)パート2
回答  Asaki  - 04/9/2(木) 17:26 -

引用なし
パスワード
   条件をちゃんと分かってないですが、
A1:A100 を選択して、条件付書式で
数式が
=COUNTIF($B$1:$B$100,A1)
書式はお好みのものを設定

かな?

【17584】Re:同じ値のセルを見つけてセルに色を付...
回答  ふうきち  - 04/9/2(木) 18:21 -

引用なし
パスワード
   ふうきちです
Find を使うとこんな感じでしょうか


>3.セルの値(ファイル名)が重複しているものにセルに色を付ける
>↓

Sub 重複番号チェック()
  Dim eee As Range
  Dim i As Integer
  For Each eee In Range("A1:A16")

    With Columns(3)
      Set c = .Find(ee, Lookat:=xlWhole)
      If Not c Is Nothing Then
        FirstAddress = c.Address
        Do
          c.Interior.ColorIndex = 20
          Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> FirstAddress
      End If
    End With

  Next
End Sub

【17585】eが足りなかった
発言  ふうきち  - 04/9/2(木) 19:22 -

引用なし
パスワード
   >      Set c = .Find(ee, Lookat:=xlWhole)
       Set c = .Find(eee, Lookat:=xlWhole)

でした

【17695】Re:Asakiさんへ(条件付書式)パート2
質問  mamama  - 04/9/5(日) 2:53 -

引用なし
パスワード
   私のやり方がよくないようでうまく設定できません。
asakiさんの教えてくださったCOUNTIF($B$1:$B$100,A1)で設定してセルの色を
付けたのですが色がついてくれませんでした。
まだ条件書式やってみますが・・・・。

【17696】ふうきちさんへ
お礼  mamama  - 04/9/5(日) 3:02 -

引用なし
パスワード
   お忙しい中、ありがとうございます。
やっと試す時間ができ、ただいま置き換えながら実験してみたところ、
空白のセルも全部色がついてしまいました。
countしてセルの数を出してから設定範囲を決めてチャレンジしてみます。
・・・が、なんせ初心者!つまづくこと大なのでそのときまた力を貸してくださいませ。

【17702】成功!!
お礼  mamama  - 04/9/5(日) 23:52 -

引用なし
パスワード
   みごとA列の値のセル部分に色を付けることができました。
ありがとうございました。またつまづいたら質問するので
そのときはぜひともよろしくお願いいたします。

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