|
只今勉強中の超初心者です
どなたか教えてください
2 月
16171819202122
名前 火水木金土日月
1岩田 出
2中村 名
3深田 東
4北 東
5藤田 大
6矢野 名
7山内 休
8松村
9山田 休
シート1に上のシフト表があります
c5から番号 d5から氏名 100人とe3からaj3まで日が入ってます(16日から1日)
シート2のc2に日を入力して行き先別に氏名を表示したいのです
A B C D E F G H I J K L M N
1 東京 名古屋 休日
2 2 月 16 日 深田 北 中村 矢野 岩田 山内
3
4
5
6
16日東の人はF2:H6 名の人はI2:K6 大の人はL2:L6 休日の人はM2:P6に表示させたく思います (シート1の "出"の人も休日に表示させる)
Sub マクロ10()
On Error GoTo Errorhandler
Worksheets(2).Range("F2").Value = _
Worksheets(1).Range("E5:E100").Cells.Find(Worksheets(2).Range("F1").Value) _
.Offset(0, -1).Value
Exit Sub
Errorhandler:
MsgBox "検索値は見つかりません"
End Sub
自力ではまだこれが限界でいきずっまってます
C2に入れた値から列範囲を習得するのと 検索結果が複数の処理もうまくいきません どなたか よろしくお願いいたします
|
|