住所録のデータのリンクについて

質問

(A)住所録の作成
シート１には　B2セル:会社名、C2セル:住所、D2セル:電話番号　E2セル：有効期限のデータを入力しています。
（データ内容は随時、追加・変更があります。）
A2セルに　五十音で見出しをつけています。「あ」「い」・・・
シート２の名前を「あ」にした場合、シート１の「あ」で始まる会社名をリンクさせたい。
シート１の「あ」のすべてがシート２の行にどんどん増えていくようにしたいのです。

(B)あるいは
シート２「あ」、シート３「い」、シート４「う」・・・・・と五十音順に設定
シート２「あ」には、「あ」から始まる会社名
a2セル：あ、b2セル:会社名、c2セル:住所、d2セル:電話番号、E2セル：有効期限のデータを入力
以降のシートにも、「い」から始まる会社名・・・を入力
シート１に各シートのデータを集めてリンクさせたいのです。
（会社名の数が、各シート毎によって差があります。）

今から作成していきますので、どちらの方法でもいいのですが・・・
なぜ集計するのかというと、「有効期限」の確認をしたいためです。
たとえば、H23年において、有効期限が切れている会社の名前を知りたいのです。

お教えくださいますようお願い申しあげます。

回答No.1

tom04 · ベストアンサー

こんばんは！

＞たとえば、H23年において、有効期限が切れている会社の名前を知りたいのです

の部分の意味が判らないので、
＞(A)住所録の作成
だけの方法です！
VBAでの一例です。

Sheet1でデータを入力・削除等編集するものとし、
Sheet2以降はあ・い・う・・・のようにすでに名前が入った50Sheetあるとします（「ん」のSheetは必要ないと思いますが）

↓の画像のようにSheet1にコマンドボタンを配置し、編集後コマンドボタンをクリックすると
50音別にSheet1のデータを各Sheetにコピー＆ペーストするようにしてみました。
尚、あ～最後のSheetまで操作が繰り返されますのでそれなりに時間がかかるかもしれません。

Sheet1にコマンドボタンを配置　→　デザインモードでコマンドボタンをダブルクリック　→　VBE画面が出ますので
↓のコードをコピー＆ペーストしてみてください。

Private Sub CommandButton1_Click()
Dim i, j As Long
Dim ws As Worksheet
Set ws = Worksheets("sheet1")
Columns(1).Insert
For i = 2 To Cells(Rows.Count, 3).End(xlUp).Row
If Cells(i, 2) <> "" Then
Cells(i, 1) = Cells(i, 2)
Else
Cells(i, 1) = Cells(i - 1, 1)
End If
Next i
i = Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To Worksheets.Count
Range(Cells(1, 1), Cells(i, 6)).AutoFilter field:=1, Criteria1:=Worksheets(j).Name
Columns("B:F").Copy
Worksheets(j).Activate
Worksheets(j).Cells(1, 1).Select
ActiveSheet.Paste
ActiveSheet.Columns("A:E").AutoFit
ActiveSheet.Cells(1, 1).Select
ws.Select
Selection.AutoFilter
Next j
ws.Cells(Rows.Count, 3).End(xlUp).Offset(1, -2).Select
ws.Columns(1).Delete
End Sub

尚、コマンドボタンをダブルクリックした時点で最初の行と最終行が表示されますので
1行目と最終行は必要ありません。

こんなんではどうでしょうか？m(__)m

お礼

早速、VBAを利用したコードを作成していただきありがとうございます。
やはり、少し時間がかかるようですね。

有効期間というのは、運転免許の更新のようなものです。
以前に提出していただいております書類の、期間が切れている場合は
更新された新しい書類を提出していただくので、備忘のため、設定しています。