Ｐａｇｅ 190 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼書式変更 平井 02/10/11(金) 10:16 ┗Re:書式変更 ぴかる 02/10/11(金) 10:42 ┗Re:書式変更 BOTTA 02/10/11(金) 11:32 ┗Re:書式変更 平井 02/10/11(金) 12:02 ─────────────────────────────────────── ■題名 ： 書式変更 ■名前 ： 平井 ■日付 ： 02/10/11(金) 10:16 -------------------------------------------------------------------------
| こんにちわ。はじめまして。 エクセルで指定したセルに“0"が入力された場合に同じ行のセルの書式を 変更する方法が知りたいのですが。簡単に出来る方法があれば教えてください。 |
| 平井さん、こんにちは。 >エクセルで指定したセルに“0"が入力された場合に同じ行のセルの書式を >変更する方法が知りたいのですが。簡単に出来る方法があれば教えてください。 一般機能の条件付き書式を使われてはどうですか？。 （メニューバーの書式→条件付き書式） Ａ１セルが０だった時、Ｂ１セルの書式を変更したい場合 １．Ｂ１にセルを合わせて、条件付き書式を選択 ２．"セルの値が"から"数式が"に変更 ３．数式を入力 =AND($A1<>"",$A1=0) ４．お好みの書式に設定 ５．他のセルへの展開が必要なら、Ｂ１セルを該当セルへ書式のコピーを行う。 お試し下さい。 |
| 平井さん、ぴかる さん、こんにちは >>エクセルで指定したセルに“0"が入力された場合に同じ行のセルの書式を >>変更する方法が知りたいのですが。簡単に出来る方法があれば教えてください。 VBAで Worksheetモジュールにコピペして下さい Private Sub Worksheet_Change(ByVal Target As Range) Dim r1 As Range, r2 As Range Set r1 = Range("A10") '指定のセル範囲が "A10"として Set r2 = Application.Intersect(Target, r1) If Not r2 Is Nothing Then If r1.Value = "0" Then '"A10"に"0"が入力された場合 r1.EntireRow.NumberFormatLocal = ";;;" '書式を「非表示」にする Else r1.EntireRow.ClearFormats '"0"以外が入力された場合書式を元に戻す End If End If Set r1 = Nothing: Set r2 = Nothing End Sub |
| ありがとうございます。 早速試してみます。 また、わからないことがあったら宜しくお願いします。 |