下記内容ですが、GOTO bb. GOTO cc. :bb. :cc. の記述を消去すると動くのですが、
これを記述すると:bbの部分でエラー表示「subまたはfanctionが定義されていません」
となってしまいます。
なぜこの現象が起きるかがわからず困っています。
解消方法を教えていただける方見えましたら教えていただけないでしょうか。
お手数おかけしますがよろしくお願いいたします。
VBA
1Set wb = ThisWorkbook 2Set ws = wb.Sheets("祝日") 3 4k = ws.Cells(Rows.count, 1).End(xlUp).Row '祝日最終行取得 5g = ws.Cells(Rows.count, 3).End(xlUp).Row 'カレンダー最終行取得 6 7h = DateDiff("d", ws.Cells(g, 3), Date) '日付最終行から当日までの数字取得 8 9If h <> 0 Then 10 11 For i = 1 To h 12 g = ws.Cells(Rows.count, 3).End(xlUp).Row 13 14 day = ws.Cells(g, 3).Value + 1 '入力日取得 15 j = Weekday(day) '曜日取得 16 17 If j = 1 Or j = 7 Then '土日の場合は処理を飛ばす 18 GoTo bb 19 End If 20 21 For l = 2 To k 22 If day = ws.Cells(l, 1).Value Then '祝日に日付があったら処理を飛ばす 23 GoTo cc 24 End If 25 Next l 26 27 ws.Cells(g + 1, 3).Value = day '日付を入力 28 29: bb ←ここにカーソルがきてエラー表示されます。 30: cc 31 32 Next i 33 34 End If
その bb ってのはなんのつもりなんでしょうか
回答1件
あなたの回答
tips
プレビュー