No.2ベストアンサー
- 回答日時:
チカラワザで一つずつ巡回して調べていくのが一番簡単です。
sub macro1()
dim h as range
dim res1 as double, res2 as double
on error resume next
for each h in selection
if h.interior.colorindex = xlnone then
res1 = res1 + h.value
else
res2 = res2 + h.value
end if
next
msgbox "塗り無し合計 " & res1
msgbox "塗りあり合計 " & res2
end sub
「値のみ取得」したのを具体的にどうしたいのかご相談に書かれていませんが、自力で適切に応用してみて下さい。
No.3
- 回答日時:
セルに、ユーザー定義関数としても、関数のまま置くことが可能ですが、以下は、マクロで使った方がよいです。
'//
Function ColorSum(rng As Range, Optional bln = False)
'rng は、セルの範囲, bln は、False デフォルト、色付きのセル, True, 色なしのセル
Dim cSum As Double
Dim nSum As Double
Dim c As Range
For Each c In rng
If VarType(c.Value) = vbDouble Then
If c.Interior.ColorIndex <> xlColorIndexNone Then
cSum = cSum + c.Value
Else
nSum = nSum + c.Value
End If
End If
Next c
If bln Then
ColorSum = nSum
Else
ColorSum = cSum
End If
End Function
'例:
Sub Test01()
Dim r As Range
Set r = Range("A1", Cells(Rows.Count, 1).End(xlUp))
r.Cells(r.Count + 1, 1).Value = ColorSum(r)
r.Cells(r.Count + 2, 1).Value = ColorSum(r, True)
End Sub
'//
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) マクロVBA別Excelブックにデータ転記 2 2022/07/10 23:35
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) Excelのマクロで、特定のセルから順番に値を取得したい 5 2022/12/06 15:34
- その他(プログラミング・Web制作) Pythonでexcelのvbaを作成、実行する方法について Pythonで表の自動集計プログラムを 3 2022/07/09 09:58
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelで色付けしたセルに対し対応するセル値で返す方法
Excel(エクセル)
-
excelのデータで色つき行の抽出方について教えてください
Excel(エクセル)
-
エクセル 色のついた行番号を取得する
Excel(エクセル)
-
-
4
VBマクロ 色の付いたセルを含む行をコピーしたい。
Visual Basic(VBA)
-
5
エクセルで色の付いたセルを抽出したいです
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
複数シートの色付きセルがある行を別シートに抽出
Excel(エクセル)
-
8
Excel 書式を関数で判断。
Excel(エクセル)
-
9
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
10
エクセルでマクロにてセル色と文字を他シートのセルへコピーしたい
その他(コンピューター・テクノロジー)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
エクセルで色の変更を他のシートに反映させるには
Access(アクセス)
-
13
自作マクロをセルの色が変わる度に再計算させるには
Word(ワード)
-
14
エクセルvba (ByVal Target As Range)について
Excel(エクセル)
-
15
エクセル:色の付いたデータをまとめて抽出したい。
Excel(エクセル)
-
16
背景色の有無を判断をして別のセルに「1」と入力
Excel(エクセル)
-
17
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
18
エクセル 背景色のついたセル位置を参考にして固定の数値を取得する
会計ソフト・業務用ソフト
-
19
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
20
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ダブルクリックでセルに色をつ...
-
ファイルサーバー上のexcelファ...
-
行方向の同じ値のセルを結合す...
-
セルをクリックしたら色を変え...
-
ExcelVBA コンボボックスに入力...
-
Excel VBA:フォーム←→セルのア...
-
VBAでの SendKeysの変数指定方法
-
Excel VBA で色付きのセルの値...
-
vbaで指定したセルより下の行を...
-
【VBA】アクティブセルだけ背景...
-
エクセルでアクティブセルに対...
-
エクセル マクロ 線対称・点...
-
VBA Rangeの足し算
-
VBA ボタンをセルの右側に合わ...
-
Excelでプルダウンからフィルタ...
-
エクセルでセルをクリックする...
-
エクセル連結解除時、全てのセ...
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
vbaで指定したセルより下の行を...
-
エクセルでセルをクリックする...
-
VBAでの SendKeysの変数指定方法
-
Excel VBA:フォーム←→セルのア...
-
Excelマクロ セルを行頭に移動
-
【VBA】アクティブセルだけ背景...
-
IF関数で違う値もTRUEになる
-
エクセルマクロで「セルのサイ...
-
Excel VBA で色付きのセルの値...
-
ダブルクリックでセルに色をつ...
-
excel マクロでの特殊文字入力方法
-
マクロのデータ削除
-
ExcelVBA コンボボックスに入力...
-
ファイルサーバー上のexcelファ...
-
VBA Rangeの足し算
-
(エクセルVBA)セルを左クリッ...
-
Excelのマクロで選択している行...
-
セルをクリックしたら色を変え...
-
エクセル:セルの色のコード番...
-
EXCEL(VBA) セルをクリックし...
おすすめ情報