- ベストアンサー
VBA 特定の色がついたセルを数える…
VBA初心者です。 特定の色がついているセルを数えるプログラムが組めなくて困っています。 たとえば Dim a as Integer a=Range(Cell(1,1),Cell(1,12))の間にあるセルが緑色の個数 このようにしたいのです。 できるだけFor文など一つ一つカウントしていくようなプログラムは避けたいです。 Countプロパティが鍵かなとは思ったのですが、思うように組めません。 なにかいい構文などはないでしょうか？
- arukuchibu
- お礼率100% (3/3)
- オフィス系ソフト
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- sineminna
- ベストアンサー率31% (118/370)
自分も未熟なんでひとつひとつカウントする方法しか思いつきませんが・・・ For Each c In Range("A1:J20") If c.Interior.ColorIndex = 6 Then a = a + 1 End If Next MsgBox (a) あるいは関数で Function CountColor(計算範囲, 条件色セル) CountColor = 0 For y = 1 To 計算範囲.Columns.Count For x = 1 To 計算範囲.Rows.Count If 計算範囲.Rows(x).Columns(y).Interior.ColorIndex = 条件色セル.Interior.ColorIndex Then CountColor = CountColor + 1 End If Next Next End Function
お礼
やはりループしかなさそうですね。 For each文は使えそうですね。 とても参考になりました。ありがとうございました！
関連するQ&A
- 色のついたセルと文字を両方数えられるVBA
VBAの初心者です。 エクセルで文字の色でカウントする為に以下のVBAをこちらで教えていただきました。 順調に快適にエクセルを使えていたたのですが今回同じエクセル内で 文字ではなくセルに色付けしたものもカウントしなければならなくなりました。 以下のVBAがあるからかよく言われている4.0マクロ関数ではうまくいきません。 以下のVBAに何かを足せば一方では文字色をカウントし 一方ではセル色をカウントすると言う事は可能でしょうか？ どなたか力を貸してください Function CCount(Rng As Range, idx) Dim R As Range Dim Cnt As Long Application.Volatile For Each R In Rng If R.Font.ColorIndex = idx Then Cnt = Cnt + 1 Next R CCount = Cnt End Function
- ベストアンサー
- オフィス系ソフト
- VBA? 色のついた文字のセルを数えたい
色のついた文字の記載があるセルをカウントしたく 色々調べました。結局VBAで設定する方法にしたのですが 設定しテストをするとどうしてもカウント数が合いません。 全くの初心者の為何が間違っているのか全く分かりません。 どなたか教えて下さい。 VBAも全く知らない者でしたので 調べて以下のものをそのまま貼り付けました。 Function CCount(Rng As Range, idx) Dim R As Range Dim Cnt As Long Application.Volatile For Each R In Rng If R.Font.ColorIndex = idx Then Cnt = Cnt + 1 Next R CCount = Cnt End Function Function GetIndx(Rng As Range) If Rng.Count > 1 Then GetIndx = vbNullString Exit Function End If GetIndx = Rng.Font.ColorIndex End Function 何が間違っているのでしょうか？
- ベストアンサー
- オフィス系ソフト
- VBA 選択された離れたセルの値の取得について
EXCELのVBAでどうしても前に進めず困っております。 目的としているコードは、離れたセル（複数）をあらかじめCtrlキーで選択状態にしておき、選択されたセルの値のみをVBAが別のセルに並べていくというものです。 以下が私の作ったコードなのですが、思ったとおりの動作をしてくれません。 VBA初心者なもので、おかしな記述がたくさんあると思うのですが、どなたかアドバイスお願いします。 Public Sub xx() Dim SelectArea As String Dim TargetCell As Range Dim a As Integer Dim Row As Integer Dim Column As Integer Dim CNT1 As Integer a = 0 Row = 0 Column = 0 For CNT1 = 1 To 10 Row = Row + 1 SelectArea = Selection.Address Set TargetCell = Range("B3").Cells(Row - 1, Column) If Intersect(Range(SelectArea), TargetCell) Is Nothing Then Else Range("A30").Cells(a, 0) = Range("B3").Cells(Row - 1, Column).Value a = a + 1 End If Next End Sub
- ベストアンサー
- オフィス系ソフト
- vba 指定した日付範囲でセルの色を塗る
急遽、エクセルVBAを組んでくれと頼まれたのでわかる方、教えていただけますか？ 開始日時(A行)と終了日時(B行)があり、 開始と終了の範囲でC以降日付になっており 指定の範囲内でセルの色が塗られるいうものなのですが なにせ急ぎとVBAがほとんどわからないのでなるべくわかりやすく 教えていただけるとありがたいです。 ちなみにsheetにコードを記入するのとmoduleにコードを記入するのでは どう違うのですか？わからないまでも一応、色が塗られるところまでは できたのですがどうやってセルの時間を取得して範囲を指定すれば 良いのかなどがわかりませんどうかよろしくお願い致します。 下記は作成途中ですが・・・ Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim row As Integer Dim line As Integer row = 5 line = 9 Set objR = Range("A1").Resize(1, 4).Offset(1, 2) objR.Interior.ColorIndex = 8 End Sub
- ベストアンサー
- Visual Basic
- マクロで塗りつぶしセルのカウント
マクロ初心者です。アドバイスをお願いします。以下のマクロですとB列の100行目までの塗りつぶしのセルのカウントは出来るのですが、シート上の全てをカウントしたいのです。１TO 100の100の部分をどう変更したら良いのか教えてください。 Sub セルの色数1() Dim I As Integer Dim Count As Integer Count = 0 For I = 1 To 100 If Cells(I, 2).Interior.ColorIndex <> xlNone Then Count = Count + 1 Next I Range("C1").Value = Count End Sub
- 締切済み
- オフィス系ソフト
- Excel VBA に関する質問
ExcelのVBA初心者です。 同じ列にランダムに配置された黄色のセルの「数」をカウントするために以下のようなコードを見つけました。確かにこれで列内の黄色のセルをカウントできるのですが、カウントした後でその列内の黄色のセルの数を変える（黄色であったセルを違う色にしたり、新たに黄色のセルにしたり）と、その結果が反映されません。どのようにコードを書きなおせば、随時列内の黄色のセルの個数が変わるたびにちゃんとカウントできるのでしょうか？ Function color6(a As Range) Dim c As Range, cu As Long Application.Volatile For Each c In a If c.Interior.ColorIndex = 6 Then cu = cu + 1 Next color6 = cu End Function でやっています。
- ベストアンサー
- その他MS Office製品
- 指定した範囲のセル内の数値を検索したい(VBA)
いつもありがとうございます。 また皆様のお知恵を拝借したいと思い質問をさせて頂きました。 現在VBAを勉強中なのですが、以下の場合、コードはもっと簡単になるでしょうか？ 【やりたい事】 プログラムを実行すると、シート２に数値が返されます。 ※数値が返される範囲は「A1～A100」だとします。 シート2の「A1～A100」には「１～４」の数値が返され、それぞれの数値が何個あるかを検索。 検索した結果を、「シート１」の指定したセルに表示する。 【記述したコード】 dim x as integer x = 0 For x = 1 To 101 If Sheets("シート2").Cells(x, 1) = "1" Then 1count = 1count + 1 End If If Sheets("シート2").Cells(x, 1) = "2" Then 2count = 2count + 1 End If If Sheets("シート2").Cells(x, 1) = "3" Then 3count = 3count + 1 End If If Sheets("シート2").Cells(x, 1) = "4" Then 4count = 4count + 1 End If Next x 上記のコードで「"x"count」に数値を加算していき、最終的に以下のように各数値をシート１に表示させています。 Sheets("シート1").Range("A1") = 1count Sheets("シート1").Range("A2") = 2count Sheets("シート1").Range("A3") = 3count Sheets("シート1").Range("A4") = 4count 結果的にはうまくカウントされて、結果も正しく表示されるのですが、 列をまとめて検索してやる方法などがあれば、もっと短く分かりやすく おさまるのではと思い、質問をさせて頂きました。 こうやるともっと簡単にできるよなどがあれば、教えて頂けないでしょうか。 Excelの関数などを使用しても構いません。 以上、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAについて
エクセルシートで任意に選択されたセルの個数を VBAのUserFormのTextBoxに表示されるのは どのようにしたらよいのでしょうか？ 例）エクセルシートで、B2～D2をマウスで選択すると、 UserFormのTextBoxに３と表示されるようにする。 任意に選択されたセルの個数を求めるのは 以下のようにしました↓↓↓ ********************************* * Sub GetAreaValue() * Dim CELLNUM As Integer * CELLNUM = Selection.Count * End Sub *********************************
- ベストアンサー
- Visual Basic
- （EXCEL）CELLの条件付き書式で色をつけたセルをカウントする。
（EXCEL）CELLの条件付き書式で色をつけたセルをカウントしたいのですが、適切なVBAはありますか？私はVBAは初心者中の初心者です。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセルVBAで3つ以上のセルをCellsで選択
エクセル2003のVBAについてお尋ねします。 行番号についてDim X As Integer の構文を使っている関係で Cells(X, 1) Cells(X, 3) Cells(X, 5)などのようにセルの選択をCellsで行う必要があります。 Cellsで離れ離れの３つ以上のセルを同時に選択するには、どのようにしたらよいのでしょうか？ Range(Cells(X, 1), Cells(X, 3)).Select では2つしか選択できず困っています。 よろしくお願いいたします。
- 締切済み
- その他MS Office製品
お礼
色のついたセルを正規の方法でカウントすることはできないんですね…。 教えてくださったURL,とてもためになりました。 どうもありがとうございました！