エクセルの学校：全文検索：Hyper Estraier：条件付き書式

Results of 1 - 1 of about 4502 for 条件付き書式 (0.007 sec.)

[[20040710221510]]: #score: 3708; @digest: 55bb1698f57900c18e60ee8525f73b6b; @id: 7675; @mdate: 2004-07-12T22:21:59Z; @size: 4506; @type: text/plain; #keywords: 票率 (39542), 投票 (25676), 太野 (23445), 鮎郎 (21479), 川太 (17876), xlcelltypeallformatconditions (17227), 目雅 (11236), 夏目 (10743), 雅子 (10116), 子似 (9563), mydata (8503), （夏 (3981), 似） (3865), 計() (3214), 色付 (2306), 件付 (2238), 付書 (1713), 合計 (1693), ルエ (1617), 率の (1514), パイ (1383), ンパ (1365), 条件 (1264), ル→ (1225), 書式 (1061), specialcells (1038), 付き (806), 野鮎 (785), は" (774), interior (773), 提示 (753), 計す (716); 『条件付書式の値のみを合計するには?』（誠）
条件付書式で色が付いている値のみを合計するにはどうすればいいでしょうか。 ---- [[20040326113042]]『色の付いたセルだけの数の合計』（H.O）が参考になりませんでしょうか。または、その条件付書式に入れておられる条件で合計するかでしょうか。（川太野鮎郎） ---- ただ、色のついた%を合計したいだけなんです。 ---- もう少し具体的に提示していただければ、回答が出やすいと思いますよ^^ （川太野鮎郎） ------- おはようございます。。。ただ、合計したいということであれば、、編集→ジャンプ→セル選択→条件付き書式設定でコマンドの「合計の欄」を見るのはどうでしょう? と説明している内に記録すればいいのではないかと。。記録しちゃいましたぁ。。^^; よかったら、参考にしてみておくんなましぃm(__)m （夏目雅子似） Sub 条件付き書式設定() ' ' Macro1 Macro ' マクロ記録日 : 2004/7/11 ユーザー名 : 夏目雅子似 ' ' Dim i As Long Dim MyData As Variant Dim C As Range With ActiveSheet .Range("A1").CurrentRegion.SpecialCells(xlCellTypeAllFormatConditions).Select On Error Resume Next For Each C In .UsedRange.SpecialCells(xlCellTypeAllFormatConditions) MyData = MyData + C.Value Next End With i = Selection.SpecialCells(xlCellTypeAllFormatConditions).Count MsgBox "条件付き書式設定が設定されているセルは" & i & "個です。。" MsgBox "合計は" & MyData & "です。。。" End Sub ---- そうですね〜。たとえばサッカーくじtotoの投票率を条件付書式で結果に応じてセルに色がつくように設定して、その結果の投票率のみを合計する場合。 A1:A13まで結果を記入 B1:D13に投票率を記入結果に応じて投票率のセルに色をつける。（条件付書式） E1に色付きのセルのみの投票率の合計を出す。 ------ こんな感じでどうでしょう? （夏目雅子似） Sub 色付きセルの合計() Dim i As Long Dim MyData As Variant Dim C As Range i = 0 With ActiveSheet For Each C In .Range("B1:D13") If Not C.Interior.ColorIndex = xlNone Then MyData = MyData + C.Value i = i + 1 End If Next .Range("E1").Value = MyData End With MsgBox "色が付いているセルは" & i & "個です。。" End Sub ---- 上記はどのように利用するんでしょうか。初心者なので全く分かりません。詳しい説明を御願いします。 ------ すみませんでした。m(__)m Alt+F11でVBEを起動挿入→標準モジュール→白いところに↑のコードを貼り付けて下さい。ファイル→普通のエクセルに戻ってツール→マクロ→マクロで「色付きセルの合計」を選択してOK E1に合計が表示されるはずです。（夏目雅子似） ------- コンパイルエラーがでてしまいます。 ------ ありゃま、、コードをこちらに貼り付けてくださいませんか? （夏目雅子似） ------- というかぁ、、↑こちらのコードをそのまま貼り付けてみてくださいませんか? （夏目雅子似） ------- 下記でいいですよね。 Sub 色付きセルの合計() Dim i As Long Dim MyData As Variant Dim C As Range i = 0 With ActiveSheet For Each C In .Range("B1:D13") If Not C.Interior.ColorIndex = xlNone Then MyData = MyData + C.Value i = i + 1 End If Next .Range("E1").Value = MyData End With MsgBox "色が付いているセルは" & i & "個です。。" End Sub ----- こちらにコピーして試したら動いたのでいいと思いますが、どこでコンパイルエラーになりますか? ちなみに、私は、Excel2000 98SE です。（夏目雅子似） ------- あっ、すみません。 >結果に応じて投票率のセルに色をつける。（条件付書式） 条件付き書式で、色をつけるんですよね? その場合だと、↑ではカウントされませんが、コンパイルエラーにはならないと思うのですが、、それから、その様な場合は色を数えるのではなく、その条件にあったセルの数を数える様にしてはどうでしょう?この事は、最初に川太野鮎郎さんも提示されていますが、、それから、私が最初に提示したコードでは、条件付き書式が設定されているセルが全て選択されてしまいます。で、その次に対象となる範囲（B1:D13）が提示されましたので、その中で、特定の条件（今回の場合は色付き）のセルをカウントするコードを提示したにすぎません。条件付き書式設定については、過去のログにもありますように、大変設定が難しい様です。この様な事を全て踏まえた上で特定の範囲の中の特定の条件に該当するセルの合計を示すコードの一例としてお考え下さい。当初の質問から、何かピントが外れてしまった様ですが何卒、ご了承くださいませ。m(__)m （夏目雅子似） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200407/20040710221510.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ