![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.5ベストアンサー
- 回答日時:
No.3です。
>比較したいセルが、A1、C1、E1、G1
>という風にとびとびになっているのです
というコトがかなり難しくしています。
条件付書式でなんとかやってみよう努力してみましたが、ギブアップです!
そこでVBAになってしまいますが、一例です。
(作業用としてSheet2を使用していますので、Sheet2は全く使用していない!という前提です)
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてA・C・E・G列データを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
If Target.Column > 7 Or Target.Column Mod 2 = 0 Or Selection.Count <> 1 Then Exit Sub
Dim i, j As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = xlNone
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 7 Step 2
If Cells(i, j) <> "" And Cells(i, j) <> 0 Then
ws.Cells(i, Columns.Count).End(xlToLeft).Offset(, 1) = Cells(i, j)
End If
Next j
For j = 1 To 7 Step 2
If WorksheetFunction.Count(ws.Rows(i)) And _
Cells(i, j) = WorksheetFunction.Min(ws.Rows(i)) Then
Cells(i, j).Interior.ColorIndex = 3 '←「3」が「赤」
End If
Next j
Next i
ws.Cells.Clear
Application.ScreenUpdating = True
End Sub 'この行まで
※ 条件付書式が設定してあるとマクロでの色変更はできませんので、
A~G列の条件付書式はすべて削除しておいてください。
他に良い方法があればごめんなさいね。m(_ _)m
この回答へのお礼
お礼日時:2012/09/10 07:39
tom04さん
ありがとうございます。
なかなかむずかしいですね。。
マクロはまだ勉強中で、、、
難しかったですが、
とても参考になりました!
ありがとうございました!
No.3
- 回答日時:
こんにちは!
仮にA1~F10セルの範囲内で、その中の0以外の最小値に色を付ける場合です。
A1~F10セルを範囲指定 → 条件付書式 → 新しいルール → 「数式を使用して・・・」を選択
→ 数式欄に
=A1=MIN(IF($A$1:$F$10<>0,$A$1:$F$10))
という数式を入れ → 書式 → 「塗りつぶし」→ 好みの色を選択しOK
これではどうでしょうか?
※ 数式内のA1部分は範囲指定した一番左上(最初)のセル番地にしておきます。m(_ _)m
この回答への補足
ありがとうございます。
一点、説明が足りませんでした。
比較したいセルが、A1、C1、E1、G1
という風にとびとびになっているのです。
アドバイスお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel アクティブセルのみ条件付き書式の色を他の色にしたい。 4 2022/06/11 22:19
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) マクロ、条件付き書式のfont.color 1 2023/03/28 01:10
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Excel(エクセル) エクセルで、土日や祝祭日に色をつけるには? 3 2022/05/05 08:11
- Visual Basic(VBA) 昨日、質問した件『VBA にて、条件付き書式で背景色を設定しているセルの範囲で、背景色付きのセルをカ 4 2022/04/07 14:39
- Excel(エクセル) Excel2007での条件付き書式について 6 2023/05/02 10:56
- Excel(エクセル) エクセルの条件付き書式について エクセルでカレンダーを作りました。縦に日付が並んでいて、横にスケジュ 3 2022/10/10 15:32
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- Excel(エクセル) 条件付書式 Sheet1からSheet2に転記した時の転記ミスを反映させたい 5 2022/05/21 09:52
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DATE関数で現在の年齢を出した...
-
エクセルでCtrl+Tでテーブルの...
-
REGEXREPLACE関数について、
-
エクセルのクイックアクセスツ...
-
在庫管理表に使うエクセルの関...
-
職場の人から聞かれており、こ...
-
下記マクロでMsgBox "空白です...
-
Excel関数-文字列で自動作成さ...
-
エクセルでバーコード作成し使...
-
【マクロ】for next構文について
-
ユーザー定義関数をアドイン登...
-
エクセルの関数について教えて...
-
エクセルで表
-
PDFの請求明細をエクセルにしたい
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
エクセルで特定の範囲内から小...
-
Excelで50個のセルに同じ文字を...
-
エクセルで会社の従業員のデー...
-
【マクロ】関数をセルに入力す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報