No.1
- 回答日時:
[書式]-[条件付き書式]でできますよ。
どの数字をどの色にするのかは設定しないといけないですが。
Excel 2000 で確認したので、Excel 97 になかったらごめんなさい。
参考URL:http://www-6.ibm.com/jp/domino04/pc/support/begi …
この回答への補足
annie xさん、早速の回答ありがとうございます。
書式-条件付き書式は97にもあるのですが、
これにどのように設定すれば
色が変わるのか解りませんでした…(涙)
Excelが初心者レベルな者で…(^^ゞ
恐れ入りますが、少し詳しく教えていただけると嬉しいです~
No.2
- 回答日時:
こんにちは!
>これにどのように設定すれば
>色が変わるのか解りませんでした…(涙)
範囲を例えばA1:A10として
・A1:A10を選択
・書式 条件付き書式 条件1ドロップダウン[数式が]
数式欄 =COUNTIF($A$1:$A$10,A1)>1
($マークのある部分と無い部分に注意)
書式ボタン パターンタブ 好みの色 OK OK
=COUNTIF(範囲を絶対参照で,アクティブセル)>1
アクティブセルは選択範囲で反転していないセル番地です
comvさん、どうもありがとうございました。
COUNT、COUNTAの使い方(要は関数ですね)は
かろうじて学んでいたものの、COUNTIFとは…
しかしやってみたものの、ちょっと設定ができませんでした。
Excel97じゃ、できないのかしら…トホホ(´-`)
No.3
- 回答日時:
[セルの書式設定] ウィンドウで [パターン] タブを選ぶとセルの色が選べます。
。。と書こうとしたらcomv さんが回答してくれていますので詳細は省略します。
annie xさん、度々ありがとうございます。
色の変え方などまでは理解できたのですが、
関数が解っていない等の問題点も含み
できませんでした…
No.4ベストアンサー
- 回答日時:
既に解答されている内容が納得できないので、解答を入れてみます。
A1からB10までを数値が入っている範囲と仮定する。
(1)A1からB10を範囲指定する。
(2)書式->条件付書式->「セルの値が」->「次ぎの値に等しい」をクリック
->その次ぎのボックスに、「2」に等しいセルを赤色にしたいなら「2」と入力する。
(3)「書式」をクリック->「パターン」のタブをクリック>「色」を赤色をクリック
(4)OK->OKをクリック
WIN98,エクセル2000ですので、97で出来なければごめんなさい。
imogasiさん、ありがとうございます。
annie xさんとcomvさんのご回答を聞いて、やって見たのですが
どうも設定できず、imogasiさんの方法を取らせてもらったら
比較的近いものができあがりました。
ただ、現在この表を作業中で今後も数字を入力するものなのですが
同じ列×段に同じ数字が重ならない様に入れるものなのです。
(2~22の中の決められた数字なのですが)
ゲームで似たのがあります(ナンバープレース)が
こんな感じの物なので、今後入れていく時の
注意として打ち込んだ数字が他のどこにあるのか、
色が判ればと思ったのでした…
上記ですと、全て打ち終わった段階で条件付き書式の設定により
色が判別できるので、そこで確認できるようになるのですね。
とりあえず、この方法でやっていこうと思います…
No.5
- 回答日時:
>表の中の同じ数字全てが、同色で変わる
の『同じ数字全て』は『同じ数字』は複数(10が2個で20が3個とか)あるのでしょうか。
入力しながらチェックするなら条件付き書式で表示できますね。
comvさんの書かれた解答で任意の数値、文字に対して判定できると思います。
(データが多量にあると、条件に値を入れるのは大変ですから。)
しかし、一括して調べたり、複数種類の同じ数値がある場合、条件付き書式では同じ色になってしまいますね。
(comvさんの例でA1から10,10,20,20,30,30,40,40,50,50のような場合です)
この辺りを考慮したマクロを書いてみました。
同じ値どうしには同じ色(セルに色を塗っています)、その値によって使う色を変えています。
10が2個で20が3個なら10と20は別の色で塗られます。カラーインデックスを使っていますが、文字が見えなくなるようなカラーは間引いています。
41色使っていますが、同じ値の種類がこれ以上になったら重複して使っています
ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに下記コードを貼り付けます。
シートに戻り、重複を調べたい範囲を選択して、ツール→マクロ→マクロ で実行します。(条件付き書式は設定していません。Excel2000)
長くなってしまいました。 ご参考に。
Public Sub DouchiKensaku()
Dim searchArea As Range '調べる範囲
Dim Rg As Range '調べるセル
Dim schRg As Range '見つかったセル
Dim firstAddress As String '見つかった最初のセル
Dim ColorIdx As String 'カラーインデックス(41色。見づらい色はカット)を並べた文字列
Dim paintPatt As Integer 'セルのパターンに使うカラー
ColorIdx = "030406070810121314151617181920222324262728"
ColorIdx = ColorIdx & "3133343536373839404142434445464748505354"
Set searchArea = Selection 'ここに定義してもいい。例 = Range("A2:X1000")
searchArea.Interior.ColorIndex = xlNone '色を全部消す
For Each Rg In searchArea
If Rg.Interior.ColorIndex = xlNone Then
'まだ色を塗っていないセルを検索する
Set schRg = searchArea.Find(What:=Rg.Value, After:=Rg, LookIn:=xlValues, LookAt:=xlWhole)
'見つかって、そのセルは自分でなかったら
If Not schRg Is Nothing And Rg.Address <> schRg.Address Then
'次の色(次のカラーインデックス)
paintPatt = paintPatt + 1
If paintPatt > Len(ColorIdx) / 2 Then
paintPatt = 1 '登録した色数より多くなったら1にする
End If
'カラーインデックスを取り出して自分を塗る
Rg.Interior.ColorIndex = Val(Mid(ColorIdx, paintPatt * 2 - 1, 2))
'最初に見つけたセル
firstAddress = schRg.Address
Do
'まだ塗っていなかったら
If schRg.Interior.ColorIndex = xlNone Then
'見つけたセルを塗る
schRg.Interior.ColorIndex = Val(Mid(ColorIdx, paintPatt * 2 - 1, 2))
End If
'次の検索
Set schRg = searchArea.FindNext(schRg)
Loop While Not schRg Is Nothing And schRg.Address <> firstAddress
End If
End If
Next
End Sub
nishi6さん、ご回答ありがとうございました。
折角教えていただいたのですが、ちと私には理解が難しかったです。
ごめんなさい…m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式について教えてください。 2 2023/03/04 09:54
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Visual Basic(VBA) EXCEL VBAで教えてください。 1 2022/12/22 04:20
- au(KDDI) iPhoneSEを使用しています。ショートメールを使用していて入力中に70と表示されるのは70文字ま 1 2022/11/28 23:36
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
- Excel(エクセル) 【エクセル】COUNTIFの検索条件が可変する数字の場合の数式 1 2022/09/27 15:34
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/03/09 16:55
- 政治 私の発明した「二階建て漢字」は使えるでしょうか? 3 2023/02/08 16:40
- Excel(エクセル) Excelで数式をそのままコピーしたい どうすればいいですか? 4 2022/09/16 02:16
- Visual Basic(VBA) エクセルの数式で教えてください。 1 2023/07/31 15:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【関数】スペースがいくつ入っ...
-
西暦や和暦の表示をyyyymmdd表...
-
Excelのセルを飛ばして入力する
-
Excelのオートフィル
-
別シートからの文字を変更
-
Excel 2019 のピボットテーブル...
-
エクセルの行の抽出について質...
-
【マクロ】エクセルにかいてあ...
-
スプレッドシート クエリ関数 1...
-
エクセルでセルに「氏名を入力...
-
MOS365 Excel Expert / Excel R...
-
excelの不要な行の削除ができな...
-
EXACT関数とIF関数の組み合わせ...
-
スプレッドシートの関数VLOOKUP...
-
Excelで全角を半角にしたいので...
-
Excel初心者です。 詳しい方、...
-
エクセルの数式で教えてください。
-
4つのパターンを表示するEXACT...
-
スマートな関数を教えて下さい。
-
【Excel】セル内の時間帯が特定...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報