[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数の文字列のカウント及び管理』(てら)
初めまして、複数の文字列のカウントついて質問があります。
例として
(巨人ファン)
田中一郎
佐藤二朗
伊藤三郎
(阪神ファン)
マイケル
ジャクソン
今日の訪問者(入力欄)
田中一郎
佐藤二朗
マイケル
巨人ファン 2人←ここを出力させる
阪神ファン1人←ここを出力させる
この様な作りで訪問者の下に名前を入力すると、入力された名前からどちらのファンが何人来たか出力させるようにしてあります。
しかし現状、COUNTIFを+で連結させて人数は出力出来ますが、今後名簿が増えていったりファンが入れ替わったりした際にヒューマンエラーが非常に発生しやすい作りとなっております。
なんとか検索条件を範囲指定するなどで管理面をスッキリさせることは出来ないのでしょうか。
< 使用 Excel:Excel2013、使用 OS:Windows8 >
データベース的に扱うと管理しやすくなると思いますので、基の表を正規形にすることをお勧めします。 「データベース 正規化」等で検索いただくと表の作り方が出てくると思いますよ。 データの抽出もやりやすくなると思います。 (ろっくん) 2018/05/08(火) 08:50
Dim i As Long, c As Range, r As Range Sheets("入力").Range("B:B").Clear For i = 1 To Sheets.Count If Sheets(i).Name <> "入力" Then For Each c In Sheets(i).Range("A:A").SpecialCells(xlCellTypeConstants) If WorksheetFunction.CountIf(Sheets("入力").Range("A:A"), c.Value) > 0 Then Set r = Sheets("入力").Range("A:A").Find(Sheets(i).Name, , , xlWhole) If r Is Nothing Then Sheets("入力").Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(, 2).Value = Array(Sheets(i).Name, "1人") Else r.Offset(, 1).Value = Val(r.Offset(, 1).Value) + 1 & "人" End If End If Next c End If Next i End Sub (mm) 2018/05/08(火) 09:31
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.