Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26689 / 76732

←次へ　｜　前へ→


	【55373】ワークシート関数だと動かない

ねこめ - 08/5/1(木) 12:20 -


	引用なし

	パスワード

はじめまして。お世話になります。
下のように入力シートがあり、データシートにデータを転記したいのですが、
このデータだと、
【入力】の「月分」（B4）と【データ】の1行目で転記する月を決め、
【入力】の「該当者」（B3～B7）と【データ】のA列で該当者を決め、
該当するセルに【入力】の「日付」（B2）を入れたいのですが、

【入力】
　　A　　 B
1 月分　 4月　　　　　　　　　　　　　　　　
2 日付　 4月11日　　　　　　　　　　　　　　　　
3 該当者　　　　東3　　　　　　　　　　　　　　　　
4　　　　西2　　　　　　　　　　　　　　　　
5　　　　南1　　　　　　　　　　　　　　　　
6　　　　北3　　　　　　　　　　　　　　　　
7　　　　東1　　　　　　　　　　　　　　　　

【データ】
　　A　　　B　　 C　　 D　　 E　　 F
1　　　　 4月　 5月　 6月　 7月　 8月
2　東1　　　　4/11　　　　　　　　　　　　　　　　
3　東2　　　　　　　　　　　　　　　　　　　　
4　東3　　　　4/11　　　　　　　　　　　　　　　　
5　西1　　　　　　　　　　　　
8　西2　 4/11
9　西3
10 南1　 4/11
13 南2
14 南3
15 北1
16 北2
17 北3　 4/11

こんな感じで作ってみたのですが、うまくいきません。

Sub test()
Dim gyou As Long
Dim retu As Long
Dim kazu As Long

For kazu = 2 To 17

gyou = WorksheetFunction.Match(Sheets("入力").Cells(kazu, 2), Sheets("データ").Range("D1:D65536"), 0)
retu = WorksheetFunction.Match(Sheets("入力").Range("B1"), Sheets("データ").Range("A1:IV1"), 0)
Sheets("データ").Cells(gyou, retu).Value = Sheets("入力").Range("B2").Value
Next
End Sub

ご指導よろしくお願いします。

1 hits

▼

【55373】ワークシート関数だと動かない ねこめ 08/5/1(木) 12:20

≪