データ抽出マクロ？

質問

お世話になります！
ExcelでB～Hまで”1～50”の数字のデータがランダムに入力してあり、その各数のデータ個数が一目で分かる様”J1～S1”に1～10、”J2～S2”に1～10のデータ個数をCOUNTIF関数にて求められる様になっています。　　　同様に”J3～S3”に11～20、”J4～S4”に11～20のデータ個数・・・数字の下にデータ個数という様、一行置きにJ10～S10まであります。
　そこで今回やりたいのは例えば・・・J1をクリックするとJ2に求められた”1”のデータが”B～H”の範囲の何処にあるか分かる様、”1”だけが太字になる、もしくは赤字になるという様にできますか？
同様に50まで出来る様にしたいです。

　すいませんが素人の為、今目的を見つけて勉強しているところなので
宜しくお願いします！

回答No.2

myRange · ベストアンサー

習い始めということなので、簡単な＠「習い始め用」サンプルをひとつ。

最初はデータ範囲をＢ～Ｈ列など列全体ではなく
Ｂ１～Ｈ６、とか小さな範囲でやってみましょう。

----------------------------------------
データシート：　Sheet１
データ範囲＿：　Ｂ１～Ｈ６

また、結果が一目でわかるように、
ヒットしたセルの文字の色ではなく、セルの色を赤にした

以下のコードを標準モジュールではなく、
Sheet1のモジュールにコピペすること。

'-----------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　Dim C As Integer
　Dim R As Long

　If Target.Row = 2 Or Target.Row = 4 Or _
　　　Target.Row = 6 Or Target.Row = 8 Or Target.Row > 9 Then Exit Sub
　If Target.Column < 10 Or Target.Column > 19 Then Exit Sub

　Range("B1:H6").Interior.ColorIndex = xlNone

　For R = 1 To 6 '●１～６行
　　　For C = 2 To 8 '●B～H列
　　　　　If Cells(R, C).Value = Target.Value Then
　　　　　　　Cells(R, C).Interior.ColorIndex = 3
　　　　　End If
　　　Next C
　Next R
End Sub
'-------------------------

見れば分かると思いますが、
上記は範囲のデータをひとつずつ比較していますので
データ範囲が広い場合には処理速度が低下します。
で、そのときはFindメソッドなどを使いスピードアップを図ることになりますが、
いまのところはそこまでは考えなくていいでしょう。

■VBA習得にはちょと時間が掛かると思いますが、
　　途中で投げ出さないよう頑張りましょうねぃ。(^^;;;
以上ここまで。

お礼

myRangeさん、度々ありがとうございます！
おかげさまで開くことができました。
　サンプルまで親切にありがとうございます！
本当に難しくてかなり悪戦していますが、何とか諦めずに頑張ってみます！

回答No.1

nda23

こういう場合、仕様の整理から始めます。
【前提】
(1)B1～H1までの７個のセルに数値が記録されている。
(2)上記の数値は1～50までの整数で、重複もあり得る。
(3)J1～S1には1～10の数値が見出しとして表示される。
(4)J2～S2には直上のセルと同じ値が(1)の中に何回現れたかを示す回数が表示されている。
(5)J3～S3には11～20の数値が見出しとして表示される。
(6)J4～S4には直上のセルと同じ値が(1)の中に何回現れたかを示す回数が表示されている。
(7)以下、同様に数値の見出しと、出現回数の表示が50まで続く。
【機能】(やりたいこと）
(1)J1～S9までのセルをクリックした時に行う。但し、奇数行のみ
(2)B1～H1のフォントを標準に戻す。
(3)クリックされたセルにある数値と同じ値をB1～H1の間で検索
(4)同じ値のセルの文字フォントを「太字」あるいは「赤」に変える

こういう仕様で間違いないか検討する所から始めます。
その上で、機能面の一つ一つについて、実現手段を探ります。
いきなり、コーディングサンプルを貰って、コピペして成功しても
殆ど勉強にならないと思います・

お礼

nda23さん、ありがとうございます！
＞いきなり、コーディングサンプルを貰って、コピペして成功しても
殆ど勉強にならないと思います

確かにそうですね。　　　・・・でもやはり難しく悪戦しています。(-_-#)