ＥＸＣＥＬで顧客管理

質問

• ＥＸＣＥＬを使用して顧客情報を管理する方法について教えてください。
• フリガナを入力すると該当する顧客が一覧表示されるシステムを作成したいです。
• 顧客情報を入力するフォームと一覧表示機能を実現する方法について教えてください。

回答No.3

imogasi

既に出ているご回答が長いので、短くならないかやって見ました。
２５行程度になりました。ただ下記は至らぬ点があります。
（１）Sheet1からSheet7までの範囲を続けて検索する技術が
　　判らず、対応が出来ていない。致命的か？ご存知の方は
　　教えて頂ければと思います。Sheets(Arｒay（”Shｅet1","Sheet2")）　　・・・・が上手く行かなかった。
（２）カナ名索引の例でない。これは下記を少し変えて、直すことがで　　きる。漢字名検索の方を勧めますが。
　なお漢字名の一部でも検索してくることは確認済。（「大木　武」
　　で検索すると「大木　武雄」だけ出る。）
（３）結果をフォームに表示していない。検索氏名をフォームで
　　聞いていない。これに対しては使っていないシートをフォームのよ　　うに使うとかで切りぬけられる（VBと違いユーザーフォームがエク　　セルVBAでは許されていない（？）ようなので）。売り物でなけれ　　ばInputboxで我慢できるのでは。
－－－－－
テストデータとしてA1:C13に下記のデータを入力。
氏名録
黒石　明 　　　　　　北区 ２４歳
山田　治夫 大阪市 ３５歳
金田　俊夫 大阪市 ２３歳
上野　義男 金沢市 ２０歳
大田　信夫 新潟市 ２２歳
安田　寛 　　　　　　　丹後市 ５６歳
澤田　建次 岡山市 ３３歳
大木　茂 　　　　　　　笠岡市 ２６歳
大木　武雄 下関市 ４３歳
山田　謙 　　　　　　　北上市 ２２歳
栗本　裕二 甲府市 ５６歳
VBEのModule1に
Sub Testo1()
Sheets("sheet1").Select
Range("e2:g13").ClearContents
l = Range("a2").CurrentRegion.Rows.Count
i = 2
x = InputBox("名前＝")
Set c = Range(Cells(2, 1), Cells(l, 1)).Find(What:=x, LookIn:=xlValues, _
SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False)
If Not c Is Nothing Then
fadr = c.Address
Do
Worksheets("sheet1").Cells(i, 5) = c.Offset(0, 0)　'a
Worksheets("sheet1").Cells(i, 6) = c.Offset(0, 1) 'b
Worksheets("sheet1").Cells(i, 7) = c.Offset(0, 2) 'c
i = i + 1
Set c = Range(Cells(2, 1), Cells(l, 1)).FindNext(c)
If c.Address = fadr Then Exit Do
Loop
End If
End Sub
実行して「氏名＝」と聞いてくるので、「大木」と入力。
E2:G４に
大木　茂 　　　　　　　笠岡市 ２６歳
大木　武雄 下関市 ４３歳
大木　広 　　　　　　　長野市 ３３歳
と検索結果が出ます。（以上テスト済。エクセル２０００で。）

お礼

出掛けておりまして御礼が遅くなってすみません。
ありがとうございました。
このくらいの長さだと、コピー貼り付けではなく自分で一つ一つ入力できるのでとても勉強になりました。かなり満足のいくものができました。感謝！！！です。