Select Case に対応する Case がありません
Case ステートメントは、Select Case...End Select Block 内に記述されている必要があります。 このエラーの原因と解決策は次のとおりです。
- Case ステートメントが、先行する Select Case ステートメントと適合しません。 Select Case...Case 構造内の他の制御構造を確認し、それらが正確に適合していることを確認します。 たとえば、Select Case...End Select 構造内の If に、適合する End If がない場合は、このエラーが発生します。
詳細については、該当する項目を選択し、F1 キー (Windows の場合) または HELP (Macintosh の場合) を押してください。
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。
フィードバック
https://aka.ms/ContentUserFeedback」を参照してください。
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「フィードバックの送信と表示