【最大10000ポイント】当たる!!質問投稿キャンペーン!

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

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

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

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

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんばんは!



>たとえば、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
「住所録のデータのリンクについて」の回答画像1
    • good
    • 0
この回答へのお礼

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

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

お礼日時:2011/06/30 23:06

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング