人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルで同一のデータのセルを強調表示することは可能でしょうか?
可能な場合どのようにすればよいでしょうか?
たとえば、添付画像のように、「1」というデータのセルを選択すると、表全体の中で「1」と入力されているセルが強調表示される。
選択セルを「2」に移動すれば、「2」と入力されているセルが強調される。
ご存知の方なにとぞよろしくお願いいたします。

1178685165
●拡大する

●質問者: kanienoteiou
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:エクセル セル データ 入力 画像
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● SALINGER
●100ポイント ベストアンサー

使うワークシートのSelectionChangeイベントに次のコードを入れます。

分からなければVBEの画面のプロジェクトエクスプローラで実行させるシートを

ダブルクリックして出てくる真っ白の画面にコピペしてください。

もともと表とかの枠を設定していると消えてしまうので注意

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim myRange As Range

 Application.ScreenUpdating = False
 
 For Each myRange In ActiveSheet.UsedRange
 With myRange
 .Borders(xlEdgeLeft).LineStyle = xlNone
 .Borders(xlEdgeTop).LineStyle = xlNone
 .Borders(xlEdgeBottom).LineStyle = xlNone
 .Borders(xlEdgeRight).LineStyle = xlNone
 End With
 Next
 
 If Target.Value = "" Then Exit Sub
 
 For Each myRange In ActiveSheet.UsedRange
 If myRange.Value = Target.Value Then
 With myRange.Borders(xlEdgeLeft)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = 3
 End With
 With myRange.Borders(xlEdgeTop)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = 3
 End With
 With myRange.Borders(xlEdgeBottom)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = 3
 End With
 With myRange.Borders(xlEdgeRight)
 .LineStyle = xlContinuous
 .Weight = xlThin
 .ColorIndex = 3
 End With
 End If
 Next

End Sub

ダミー

◎質問者からの返答

ご回答ありがとうございます!!

コードまで書いていただけるとは、、

とてもうれしいです!

さて、上記を試してみたんですが、

そのままコピペして、ためしにデータを

123

232

311

のように入力してみますと、正常に動くのですが、

今度は同じデータを、他のシートからコピーすると、エラーが出てしまいました。

エラーの内容は、

--------------

実行時エラー'13';

型が一致しません。

--------------

となりました。

そこで、「デバッグ」というところをクリックしてみたら、

If Target.Value = "" Then Exit Sub

のところが黄色くマークされました。

修正は可能でしょうか?

もしくは、私が根本的な間違いを犯していますでしょうか?

結構量の多いデータを扱いたいと考えているものですから、

他のシートで作成したデータをコピペできるとうれしいです。

大変恐縮ではありますが、なにとぞご教授ください。


2 ● SALINGER
●0ポイント

複数セルを選択したことで、エラーがでたみたいです。

1行目に

If Target.Cells.Count > 1 Then Exit Sub

を入れてみてください。

ダミー

◎質問者からの返答

ありがとうございました!

完璧です!

これがほしかったんです^^

本当に助かりました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ