エクセルVBAのことで質問します。 sheet1の2行めに、日付のデータが1000列まで並んでいます。 その行の隣には、その日ごとのシフトパターンがいくつか並んでいます。

Visual Basic | Excel61閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

うまくいきました! 他の方も、ありがとうございました!

お礼日時:5/27 22:17

その他の回答(2件)

0

> sheet1の2行めに、日付のデータが1000列まで並んでいます。 行と列を逆に捉えてしまってるように思います。 2列目に、日付が1000行ではないですか? おそらく、やりたいことはこういうことじゃないかと。違ったらすみません。 For kensaku = 1 To Rows.Count If sheet1.Cells(kensaku,2).Value = sheet2.Cells(2,2).Value Exit for End If Next kensaku

0

For kensaku = sheet1.cells(kensaku,2) to 1000 これの中のsheet1.cells(kensaku,2) これがセルの値なので中身が日付でしょう? 日付 to 1000は成り立たないのでエラーでしょう。 根本的に繰り返しの方法も間違ってる気がします。 あと、行と列の言い方が逆と思います。 30日分の日付を取得ですが31日ある月はどうするのでしょうか? 普通に考えたら30日分を取得ではなく、1か月分を取得じゃないでしょうか。