コンパイルエラー：定数が定義されていません 不備箇所

Question

前提・実現したいこと

エラーが出ないようにしたい。

発生している問題・エラーメッセージ

コンパイルエラー：定数が定義されていません。

Case 1: s = .Range("A2"): Worksheets("代金請求書").Range("K19").Font.Size = 11
の行の　s　のところで止まり、変数が定義されていません　と出ます。

該当のソースコード

Sub シート代金請求書()

Sheets("代金請求書").Select     ' 「代金請求書」のシートを選択

Dim cnt As Long
With Worksheets("作成情報")
cnt = .Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1
Select Case cnt
Case 1: s = .Range("A2"): Worksheets("代金請求書").Range("K19").Font.Size = 11
Case 2: s = .Range("A2") & vbCrLf & .Range("A3"): Worksheets("代金請求書").Range("K19").Font.Size = 11
Case 3: s = Join2(.Range("A2:A3")) & vbCrLf & .Range("A4"): Worksheets("代金請求書").Range("K19").Font.Size = 6
Case 4: s = Join2(.Range("A2:A3")) & vbCrLf & Join2(.Range("A4:A5")): Worksheets("代金請求書").Range("K19").Font.Size = 6
Case 5: s = Join2(.Range("A2:A3")) & vbCrLf & Join2(.Range("A4:A5")) & vbCrLf & .Range("A6"): Worksheets("代金請求書").Range("K19").Font.Size = 6
Case 6: s = Join2(.Range("A2:A3")) & vbCrLf & Join2(.Range("A4:A5")) & vbCrLf & Join2(.Range("A6:A7")): Worksheets("代金請求書").Range("K19").Font.Size = 6
Case 7: s = Join2(.Range("A2:A4")) & vbCrLf & Join2(.Range("A5:A7")) & vbCrLf & .Range("A8"): Worksheets("代金請求書").Range("K19").Font.Size = 4
Case 8: s = Join2(.Range("A2:A4")) & vbCrLf & Join2(.Range("A5:A7")) & vbCrLf & Join2(.Range("A8:A9")): Worksheets("代金請求書").Range("K19").Font.Size = 4
Case 9: s = Join2(.Range("A2:A4")) & vbCrLf & Join2(.Range("A5:A7")) & vbCrLf & Join2(.Range("A8:A10")): Worksheets("代金請求書").Range("K19").Font.Size = 4
Case 10: s = Join2(.Range("A2:A5")) & vbCrLf & Join2(.Range("A6:A9")) & vbCrLf & Join2(.Range("A10:A11")): Worksheets("代金請求書").Range("K19").Font.Size = 2
End Select
End With
Worksheets("代金請求書").Range("K19").Value = s
End Sub
Function Join2(r As Range) As String
Join2 = Join(WorksheetFunction.Transpose(r), "?A")
End Function

試したこと

他のシートで同じようなコードで動いたので、このようにしたのですが、エラーが出てしまう。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[maisumakun]

どの行に対してエラーが出たのかはわかりますか？

[ttyp03]

最低限のデータを用意した状態で実行した限りでは特にエラーは発生していません。
別のコードではないでしょうか？

[torisan3]

『変数』でなく『定数が定義されていません』ですね？
念のため確認をお願いします。

[radames1000]

tosiさんの回答で解決しませんでしたか？どのような問題が残っているでしょうか。
⇒解決されたようで良かったです。

Answer 1

sが定義されていません。
Option Explicitを先頭に付けて、デバックのコンパイルを動かして見て下さい。

Comments

[Mkasai]

ありがとうございました。

現在のコードを、

Sub シート代金請求書()

Sheets("代金請求書").Select ' 「代金請求書」のシートを選択

End Sub

Option Explicit

Dim cnt As Long
With Worksheets("作成情報")
cnt = .Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1
Select Case cnt

･･･以下同じ

と修正してみました。

修正したところ次は、

end sub,end function またはend property以降には、コメントのみが記述できます。

とコンパイルエラーが出てしまいました。

[tosi]

書き順間違っています。

Option Explicit
Sub シート代金請求書()

Sheets("代金請求書").Select ' 「代金請求書」のシートを選択

Dim s　'<-------sを定義して下さい。
Dim cnt As Long
With Worksheets("作成情報")
cnt = .Cells(Rows.Count, 1).End(xlUp).Row - 2 + 1
Select Case cnt
･･･以下同じ

End Sub

Function Join2(r As Range) As String
Join2 = Join(WorksheetFunction.Transpose(r), "?A")
End Function

[Mkasai]

ありがとうございました。
思う動きができました。