No.5ベストアンサー
- 回答日時:
とりあえずこんな感じで良いと思います。
ご確認下さい。---------------------------------------------------------------------
Sub 背景色の合計数()
Dim 基 As Long
Dim 行 As Long
Dim 列 As Long
Dim 数 As Long
For 基 = 0 To 810 Step 27
For 列 = 4 To 36
数 = 0
For 行 = 基 + 3 To 基 + 22
With Cells(行, 列).Interior
If .ColorIndex <> xlNone Then
If .ColorIndex <> 6 Then
数 = 数 + 1
End If
End If
End With
Next
Cells(基 + 23, 列).Value = 数
If 数 = 0 Then Cells(基 + 23, 列).Value = ""
Next
Next
End Sub
---------------------------------------------------------------------
※ 環境によっては黄色の部分がはぶかれない可能性があります。黄色もカウントするようでしたら、マクロの記録でセルを黄色くした場合のコードを提示してください。
No.4
- 回答日時:
とりあえずこんな感じで良いと思います。
ご確認下さい。---------------------------------------------------------------------
Sub 背景色の合計数()
Dim 行 As Long
Dim 列 As Long
Dim 数 As Long
For 列 = 4 To 37
数 = 0
For 行 = 3 To 22
If Cells(行, 列).Interior.ColorIndex <> xlNone Then 数 = 数 + 1
Next
Cells(23, 列).Value = 数
If 数 = 0 Then Cells(23, 列).Value = ""
Next
End Sub
---------------------------------------------------------------------
No.2
- 回答日時:
マクロ(VBA)なら可能ですが、以下が判らないとコードの提示は無理かも知れません。
・シートのレイアウト(セルの行番号や列記号など)
・エクセルのバージョン
・違う行で同じ色が使われていても「1」として扱うのでしょうか?
・白で着色したセルは無いですよね(「色なし」と「白」は区別するか?)
注意事項
・セルへの着色に対してのイベントがないのでリアルタイムでのカウントはできません。マクロを手動で呼び出すか、保存時に更新や、次に開いた時に更新とかになります。
No.1
- 回答日時:
セルの背景色を判断する関数はありません。
背景色を条件付き書式を使って設定するようにしているのであれば、その条件を使って計算をさせることは可能です。
背景色を手入力で設定している場合はマクロで処理する必要があります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字がある行以外を削除...
-
[EXCEL]ボタン押す→時刻が表に...
-
Excelのフィルター後の一番上の...
-
オートフィルターで抽出してコ...
-
エクセルで特定の文字列が入っ...
-
連続データが入った行の一番右...
-
エクセル 上下で列幅を変えるには
-
Excelで非表示のセルをとばして...
-
罫線の斜線を自動で引くマクロ
-
VBAで行削除のできない場合がある
-
エクセルVBA 最終行を選んで並...
-
結合されたセルをプルダウンの...
-
Openoffice calc セルの結合に...
-
エクセル 数字のみ残したい
-
エクセル(VBA) 検索条件に文...
-
excelのデータで色つき行の抽出...
-
エクセル マクロで数値が変っ...
-
サイズの違うセル 並べ変え
-
A1に入力された文字列と同じ文...
-
エクセルVBAのEntireRow.Hidden...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報
お返事遅くなりすいません。
画像を再度添付しました。
バージョンは(おそらく)2010、違う行で同じ色が使われても【1】として扱い、白で着色したセルはありません。
【23】の列に数値がでるようになると有り難いです。
また、シート内に日にち毎(1日、2日、3日…)で枠を作っているので、全体的にマクロが反映するコードを提示していただけるとたすかります (m_ _)m
AI23となります。
よろしくお願いします (m_ _)m
間違えました。
AK23でした。。
すごいです!
できました!
ただ、、すぃません…やってみて私の質問不足で以下の件を含めてコード対応できますでしょうか。
・F〜AJ(AK間違えてました)
・塗り潰しなし+黄色はカウントしない(黄色は実数ではなかった為)
・1〜31日あるので『23』以外にいかの行数も反映できると嬉しいです。
23.50.77.104.131.158.185.212.239.266.293.320.347.374.401.428.455.482.509.536.563.590.617.644.671.698.725.752.779.806.833
(27づつ増えてます)
以上となります。
よろしくお願い致します (m_ _)m