エクセルで、条件付書式を使って、セルの内容が「本見積」ならセルを赤色になるように、「仮見積」なら青色になるようにしてます。
例えば、セル「A1」が「本見積」の場合、セル「A1~A5」までを全部赤色に、同様に「A1」が「仮見積」なら「A1~A5」を青色になるようにしたいのですが、無理でしょうか?

このQ&Aに関連する最新のQ&A

A 回答 (4件)

A1~A5の範囲選択をし、書式を「数式が」として、「=A1="本見積"」とすれば、出きますよ。


(仮見積も同様にする。)
    • good
    • 0
この回答へのお礼

ありがとうございました。
簡単にできました。
まだまだ使いこなせてないですね~。
奥が深い・・・。未熟でした。

お礼日時:2001/12/17 21:16

こんばんは!



まずは、A1に
・データ 入力規則 設定タブ リスト
  元の値欄に 仮見積,本見積 と入力


・A1:A5を選択 セルの色を「青」にする。
・A1:A5を選択 書式 入力書式
 数式が =$A$1="本見積" 書式ボタン パターン「赤」

ではどうでしょうか!
    • good
    • 0
この回答へのお礼

ありがとうございました。
簡単にできました。
まだまだ使いこなせてないですね~。
奥が深い・・・。未熟でした。
みなさん、すぐに回答をいただいて有り難かったのですが、2人にしかポイントを差し上げられないので、先着のお二人にさせていただきました。ごめんなさい。

お礼日時:2001/12/17 21:19

こんにちは



 以下のページがご参考になるのでは?

【エクセル技道場】-条件付き書式
http://www2.odn.ne.jp/excel/waza/cformat.html

参考URL:http://www2.odn.ne.jp/excel/waza/cformat.html
    • good
    • 0
この回答へのお礼

ありがとうございました。
すぐに「お気に入り」に登録して、仕事の後、時間を見つけて、「エクセル技道場」をのぞくようにしてます。
まだまだ奥が深いですね。
精進いたします。

お礼日時:2001/12/17 21:21

1.「A1~A5」を範囲選択します。


2.メニューから「書式」-「条件付書式」を選択します。
3.条件1を「数式が」として、右側に「=$A$1="本見積"」と入力します。
4.書式ボタンをクリックして、書式を選択します。
5.追加ボタンをクリックし、条件2を表示させます。
6.条件2を「数式が」として、右側に「=$A$1="仮見積"」と入力します。
7.書式ボタンをクリックして、書式を選択します。
8.OKボタンをクリックすると完成するはずですが...
    • good
    • 0
この回答へのお礼

ありがとうございました。
簡単にできました。
まだまだ使いこなせてないですね~。
奥が深い・・・。未熟でした。

お礼日時:2001/12/17 21:17

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Qオートフィルで下に「Aシート!A1:A5」「=Aシート!A6:A10 」と続けさせたい

スプレッドシートで別のシートにあるセルを複数参照して、そこからオートフィルで数字を連続させたいです。

Bシートに「=Aシート!A1:A5」を入力して、AシートのA1:A5を参照します。

そこから「Aシート!A1:A5」を入力したセルの下に「=Aシート!A6:A10 」といった具合に数字を連続をさせたいのですが、オートフィルでは上手くいきません。手入力で、6~10、11~15とやっていくのには限界があります。
どうしたら連続させることができるでしょうか?

イメージは添付した画像です。

Aベストアンサー

=SUMPRODUCT(('Aシート'!A3:A12="果物"))の場合
3行目から10行飛び
=SUMPRODUCT((OFFSET(Aシート!A$3,(ROW(A1)-1)*10,,10)="果物"))
Offset関数
=OFFSET(基礎となるセル,何行すらす,何列ずらす,範囲とする行数,範囲とする列数)です。

Q「セルの書式設定」の「ユーザー定義」でセルの値がTRUEなら○FALSEなら×と表示する方法について

マイクロソフトのエクセル2000で
「セルの書式設定」の「ユーザー定義」を
[=1]"○";[赤][=2]"×"にすると、
1なら○、2なら赤字の×をセルに表示される機能がありますが、
これを応用してTRUEなら○、FALSEなら赤字の×をセルに表示したいと思い、
[="TRUE]"○";[赤][=FALSE]"×"と設定してみたのですが、
上手く行かず困ってます。どこが違うのか、それともこの方法では出来ないのかを教えてください。

補足
何故これをやりたいのかと言うと、フォームのチェックボックスを使用し
「コントロールの書式設定」の「リンクするセル」の返り値が
TRUEとFALSEなので、このセル自身を見やすい文字に変更したいと思ったので・・・。
リンクするセルと違うところに○×を置くのは簡単にif関数で出来るんですが、
リンクするセル自身を○×に置くのができないです。

お手数かと思いますが、セルの書式設定に拘らず、
何らかのヒントを知ってる方、教えてください。

Aベストアンサー

質問のような表示ができるようにしてみました。(Excel97,2000で確認)
チェックボックスが何個あるか分かりませんので、2個のケースです。数によって『チェックボックス-1用』等を増やして下さい。『チェックボックス-1』に『チェックボックス-1用』のマクロを登録します。

※質問から推測すると、フォームのチェックボックスを使われているようですが、Excel97以降ならコントロールツールボックスのチェックボックス(他のコントロールも)を使われたほうがいいと思います。新しいし、設定も楽でコードも書き易いです。下はフォームのチェックボックスということで思い出しながら書いてみました。(使えるプロパティが無いのが欠点ですね)

※チェックボックスのリンクするセルを見えないところ(セル)を指定して(別シートでも)、表示したいセルに
  =チェックボックスのリンクするセル番地*1 (または+0)とすれば
「True」、「False」という Bool値を数値に変換できるのでマクロは不要になると思われます。


チェックボックスのリンクするセルの書式は [=1]"○";[赤][=0]"×" とします。

↓ここから。チェックボックスのあるシートのコードウインドウに貼り付けます。
Dim ChechBoxAddress As String 'チェックボックスのリンクするセルの番地
Dim ChechBoxClickFlg As Boolean 'チェックボックスをクリックすればTrue

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = ChechBoxAddress Then
    'チェックボックスのクリックだけに反応させる
    If ChechBoxClickFlg = True Then
      '選択されたセルがチェックボックスのリンクするセルなら
      'True→1、False→0に書き換える(チェックボックスの選択状態は変わらない)
      If Target.Value = True Then
        Target.Value = 1
      Else
        Target.Value = 0
      End If
      ChechBoxClickFlg = False
    End If
  End If
End Sub

'チェックボックス-1用(個々のチェックボックス用。例:F3がリンクするセル)
Sub CheckBox1_Valuechange_Numeric()
  'リンクするセルをセットする
  ChechBoxAddress = "$F$3": selectChechBoxRange ChechBoxAddress
End Sub

'チェックボックス-2用(個々のチェックボックス用。例:F5がリンクするセル)
Sub CheckBox2_Valuechange_Numeric()
  'リンクするセルをセットする
  ChechBoxAddress = "$F$5": selectChechBoxRange ChechBoxAddress
End Sub


'チェックボックスのリンクするセルを選択する(共通)
' ※チェックスボックスのクリックではWorksheet_SelectionChangeが起きないため自力で動かす
Sub selectChechBoxRange(rgChkBox As String)
  Dim rg As Range 'アクティブセルの番地を退避
  Set rg = ActiveCell

  If rg.Address <> rgChkBox Then
    'アクティブセルがチェックボックスのリンクするセルでなかったらリンクするセルを選択する
    Range(rgChkBox).Select
  Else
    'アクティブセルがチェックボックスのリンクするセルならリンクするセルの斜め右下を選択する
    rg.Offset(1, 1).Select
  End If
  '元のアクティブセルを選択状態にする
  rg.Select
End Sub

質問のような表示ができるようにしてみました。(Excel97,2000で確認)
チェックボックスが何個あるか分かりませんので、2個のケースです。数によって『チェックボックス-1用』等を増やして下さい。『チェックボックス-1』に『チェックボックス-1用』のマクロを登録します。

※質問から推測すると、フォームのチェックボックスを使われているようですが、Excel97以降ならコントロールツールボックスのチェックボックス(他のコントロールも)を使われたほうがいいと思います。新しいし、設定も楽でコードも書き...続きを読む

Qエクセルで、A2セルの値を同シート内(A5以降のA列)で検索し、該当セルにジャンプする方法はありますか?

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1417540469

上記のページと同様の質問なのですが、
ベストアンサーに選ばれている回答は別シートにジャンプですが、
同シートでのジャンプの方法はありますでしょうか。

どなたかご教示いただけると助かります。
何卒よろしくお願いいたします。

Aベストアンサー

とりあえずはご提示いただいた回答で
>Set Ws2 = Sheets("Sheet2")

 Set Ws2 = ActiveSheet
にするだけで良いと思います

私ならこんなマクロにします。マクロはシート名タブ右クリック→コードの表示で開く画面に貼り付けてください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim trg As Range
 If Target.Address = "$A$2" Then  
  Set trg = Range(Cells(5, "A"), Cells(65536, "A")).Find(what:=Range("A2").Value _
    , LookIn:=xlValues, Lookat:=xlWhole)
  If Not trg Is Nothing Then
   trg.Select
  End If
 End If
End Sub

QEXCELでA1セルに「13ヶ月」と入力すればA2セルに「1年1ヶ月」と表示されるようにしたい

EXCELで、「●ヶ月」を「●年●ヶ月」に変換する関数や計算式を入力したいです。

例えば、
A1セルに「13ヶ月」と入力すれば、
A2セルには「1年1カ月」と表示されるようにしたいです。

この場合、A2セルに入力するべき計算式を教えて頂けないでしょうか?

※もちろん、入力するのは上記例の「13ヶ月」だけではなく、「24ヶ月」とか「45ヶ月」とか、数値は色々です。

※この場合あまり関係ないかもしれませんが、一応バージョンはEXCEL2007です

よろしくお願いします。

Aベストアンサー

入力は文字でしょうか?
それとも数値で13と入力で表示形式が 0"ヶ月" ですか?
後者ならNo2の方の方法で解決します。
前者の場合はもうひと手間加えて
A2=TEXT(INT(LEFT(A1,LEN(A1)-2)/12),"0年;;")&TEXT(MOD(LEFT(A1,LEN(A1)-2)*1,12),"0ヶ月;;")

Aベストアンサー

マクロコードを使用しなくても、任意に設定した赤い色のセルの
右のセルを赤い色にしたいなら、以下のようなマクロ関数を利用します。

エクセルのバージョンが記載されていませんので2003以前のエクセルで説明すると、たとえばB1セルを選択し、「挿入」「名前」定義」でたとえば「色」と名前を付け、参照範囲に以下の式を入力します。

=GET.CELL(63,!A1)+NOW( )*0

色を付けたいセル(たとえば、C2セル)を選択し、「書式」「条件付き書式」で「数式が」にして「=色=3」として、「書式」をパターンタブで赤の色を選択します。


このカテゴリの人気Q&Aランキング

おすすめ情報