- ベストアンサー
エクセル2000で、表の中の同じ値のあるセル地番を表示させたいのですが?
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
同じような質問がありました。 『どういう式を使うのか?教えてください!』http://www.okweb.ne.jp/kotaeru.php3?q=177971 出来上がった表に対して、同じ値に色を付ける方法です。 >セル地番を表示させたいのですが この『表示』をどう実現すればいいのか質問からははっきりしませんが、『入力したセルと同一値のセル』に色を付けてみました。 下の例では、表をセル範囲A1:C10として同一値があればセルに色を付けています。 範囲と色(コードの『***』がある箇所)は実状に合うように修正して下さい。 セルのアドレスを出力することも可能ですね。 Sheet1で行う例です。 ツール→マクロ→Visual Basic Editor でVBE画面に移り、表示→プロジェクトエクスプローラ でプロジェクトエクスプローラを表示し、そこのSheet1をダブルクリックし出てきたコードウインドウに下記マクロを貼り付けます。 Private Sub Worksheet_Change(ByVal Target As Excel.Range) Dim rg As Range 'セル Dim checkFlg As Boolean '同一値があったか Dim checkRg As Range 'チェックする表番地 Set checkRg = Range("A1:C10") '*** チェックする表の範囲をセットする Const myColorIndex = 36 '*** 色のインデックス(好きな番号にする) On Error GoTo ErrorHandler 'エラーが発生した場合は何もしない '入力が1つのセルに対して行われた場合 If Target.Count = 1 Then '表の中に入力してなければ何もしない If Intersect(checkRg, Target) Is Nothing Then Exit Sub End If '入力されている範囲を調べる For Each rg In checkRg If Val(rg) = Val(Target) Then '値が一致していたら If rg.Address <> Target.Address Then '値が一致して別のセルなら色を塗る rg.Interior.ColorIndex = myColorIndex '同一値があった! checkFlg = True Else '自分だったら色を塗らない rg.Interior.ColorIndex = xlNone End If Else '値が違っていれば塗らない rg.Interior.ColorIndex = xlNone End If Next End If If checkFlg Then '値が一致したセルが有れば自分を塗る Target.Interior.ColorIndex = myColorIndex End If Exit Sub ErrorHandler: End Sub
その他の回答 (1)
- kougasha
- ベストアンサー率32% (34/105)
MATCH関数、INDEX関数とかを調べて見てはいかが?
関連するQ&A
- 違う値のときに、セルの色を変えて表示したい(エクセル)
違う値のときに、セルの色を変えて表示したい(エクセル) 同じシートに2つの表があります。 1つ目は前期の成績(C31からAP35)、2つ目は後期の成績(C36からAP35)です。 前期、後期で成績が違う場合、後期の表でセルの色を変えて表示させることはできるのでしょうか。C31のセル(前期)にはC36(後期)のセルが対応します。 D32のセル(前期)にはD32のセル(後期)が対応します。 対応するセルの値が違う場合、セルの色を変えて表示する方法があれば、教えてください。
- ベストアンサー
- オフィス系ソフト
- エクセル 表の値を拾ってセルに返す計算式って?
下記のような表があり、表の値をとあるセルに返す方法を検討しています。 0~ 30--------23,000 30~ 100--------31,000 100~ 200--------44,000 200~ 500--------60,000 500~1000-------102,000 ある個数を計測し、その値をあるセルに入力した時に上記の表を元に金額を表示したいと 考えています。 当初はif関数にて、30未満なら23,000円、そうでなくて100未満なら31,000円、・・・ と設定してみたのですが、区分が実はもっと有り(20階層くらい)とてもif関数だけでは 対応し切れなさそうなので諦めました。 何かいい設定方法はないのでしょうか? 範囲で特定する方法で何かいい数式ってないのでしょうか?
- ベストアンサー
- オフィス系ソフト
- EXCEL スマートにセルの値をコピペしたい
EXCEL2003を利用しています。 写真のようにとある表があります。(範囲A2:K7セルとします) この表は、タイトル枠を除いて、水色、赤色、白色の3色の背景色があります。 この表の行から、値をひとつ選んで、新たに表を作成します。(範囲A11:K12とします) 値を選ぶルールは下記の通りです。 ・ルール1 白いセルがあれば、そのセルの値を採用する。 ・ルール2 白いセルがなければ、青いセルの値を採用する ・ルール3 白いセルも青いセルもなければ、赤いセルの値を採用する ・ルール4 Noは出来るだけ小さい値であること この作業を延々と手作業で行っており、VBAで行おうとするも、しっくりとしたものができませんでしたので、投稿させていただきました。 どうか、良いお知恵を授けていただきたいです。よろしくお願いいます。
- ベストアンサー
- Excel(エクセル)
- エクセルでVLOOKUPを使うとあるセルだけ値複写されてしまう
こんにちは。エクセルでVLOOKUPを使ってデータを表引きしています。例えば番号を入力すると名前などがセルに表示されます。(そのセルの中にはVLOOKUPの式があり、見た目として名前が表示されます)ですが、あるセルだけセルの中身が関数でなく値が入力されてしまいます。ですので、2回目に番号を入力すると、前の名前が残ってしまい、困っています。どうしたらよいでしょうか。大変困っています。よろしくおねがいします。
- ベストアンサー
- オフィス系ソフト
- エクセル 表の中で無視する値を空白及び詰めて表示する
下記のような表になっている時に、次のルールに従って関数のみで表示することは可能ですか? ・ルール (1)上の値から1以上離れている場合は、空白を表示する (2)上の値が空白になった場合は一つ上の値を参照する ※一つ上の値が空白の場合は、その上を参照する (3)最終的には空白部は詰めて表示させるつもりなので (このやり方は習得済み) 詰めて表示させるやり方でも構わない。 ・表 | A __|______ 1 | 30.0 2 | 30.3 3 | 31.5 4 | 30.4 5 | 29.3 6 | 30.4 7 | 30.5 ↓※下のように表示させたい | A __|______ 1 | 30.0 2 | 30.3 3 | 4 | 30.4 5 | 6 | 30.4 7 | 30.5
- ベストアンサー
- オフィス系ソフト
- エクセルでセルの値が0になってしまいます
エクセル2010を97互換モードで使っていますが以下の状況が起こっており原因がわかりません。 シート1のセルの式:='見積書(一般)'!E35:G35 その値:107,700 シート2のセルの式:='見積書(一般)'!E35:G35 その値:0 つまり、見積書(一般)というシートの同じセルの値をシート1、シート2に引いてくるだけなのにシート2の方はなぜか0になってしまうのです。どちらも表示形式は通貨です。 試しに見積書(一般)の別のセルに値を入れ、そのセルを参照させるとシート2でも正常に値が表示されます。 参照元(見積書(一般))のセルは連結されています。 原因と解決方法を教えてください。
- ベストアンサー
- その他MS Office製品
- エクセルのセルの値はそのままで表示だけ「〃」にしたい
上または左のセルとデータ(値)が同じ場合、値は生かしておいて表示だけ「〃」としたいのですがどうしたらいいでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルでセルの値結合で日付表示
初歩的な質問ですがお願いします。 エクセルで下記のように値が入力されています。 A1 B1 C1 D1 S 45 3 15 このセルの値を結合して別のセルに(例えばE1)にS45.3.15(日付表示)と表示させていのですが・・・ セルの値の結合ができれば、表示方法とかはわかります。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- EXCEL 複数回出てくる値を1回だけ表示したい
各セルに次のように値がならんでいるとします。 AAAABBBBCCCCAAADDDDDDDEEEBBBBBBBCCCC・・・・ この表から ABCDE というように、同じ値を1回だけ表示するようにしたいのです。 また、なるべく、式・関数を入れるセルを少なくしたいと思っています。 どのようなやり方がありますでしょうか? よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- [エクセルVBA]セルの値をテキストボックスに表示
よろしくお願いします。 ユーザーフォームを使って作業しています。 その中で、コンボボックス1で指定した名前を検索値として、VLOOKUPを使ってあるシート(例:シート名「時間検索」)からセルの値をテキストボックスに表示させるようにしたいのです。 コードを作成し表示させることはできたのですが、セルに入っている値の書式が「[h]:mm」の時間形式(例:19:00)のためか、セルの値を引っ張ると小数点(例:0.79166....)で表示されます。 色々と調べてみた中で、format関数を使ったりしてみたんですが不首尾に終わっています。 なんとかテキストボックスに、セルと同じ形式で表示したいのですが、どのように考えればよろしいでしょうか? ご教示お願いいたします。 質問の仕方が悪かった場合は補足・訂正させていただきますので、どうぞよろしくお願いします。
- ベストアンサー
- オフィス系ソフト
補足
お返事ありがとうございます。 MATCH関数、INDEX関数を調べてみたのですが、違うような気がします。 例えば、 A 1 1 2 7 3 3 4 1 5 2 6 1 とあるとします。 A1に1が入るとすると、1と同じ値のあるセルはA4とA6 です。 このA4とA6を導き出すような関数、又は仕方があれば教えてほしいのです。 よろしくお願いします。