[[20141015003957]]　『コンパイルエラー　構文エラー　なぜでしょう？』（超初心者）　ページの最後に飛ぶ

『コンパイルエラー　構文エラー　なぜでしょう？』（超初心者）

はじめまして
超初心者です。あちらこちらからコピーして貼り付けたのですが

"コンパイルエラー　構文エラー" として一気に下までカーソルが飛んでいき

どこがやばいのかわかりません。

ご指導　ご添削のほどよろしくお願い申し上げます

Sub Autofilter()

                    '動きを止める
Application.ScreenUpdating = False

Dim MVL As String

                    'セルの値を　MVL　に格納する
If ActiveSheet.Cells(22, 35).Value <> "" Then
  MVL = ActiveSheet.Cells(22, 35).Value
Else
  Exit Sub
End If

                    'TEMPシートのオールクリア
Sheets("TEMP").Cells.ClearContents

                    'オートフィルターをかけるシートの選択
Sheets("累計").Activate

                    'オートフィルタがかかっていなかったらかける
                   'かかっていたら念の為一度解除し再設定

     If ActiveSheet.AutoFilterMode = False Then
         Range("A1:AJ30000").Select
         Selection.Autofilter
     Else
         Selection.Autofilter
         Range("A1:AJ30000").Select
         Selection.Autofilter
     End If

                    'オートフィルタをかける
        ActiveSheet.Range("A1:AJ30000").Select

        Selection.Autofilter Field:=18, Criteria1:=MVL

        Selection.CurrentRegion.Copy

                    '"TEMP"シートに仮転記
        Sheets("TEMP").Activate
        Sheets("TEMP").Cells(1, 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False

                    '必要データの選択
        ActiveSheet.Range("AC2:AD5").Select
        Selection.Copy

                    '必要データの転記
        Sheets(3).Activate
        ActiveSheet.Cells(22, 32).Select
        Selection.PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

＜使用 Excel：Excel2010、使用 OS：WindowsXP ＞

 コピーしてデバッグ＞コンパイルしてみましたが、コンパイルエラー出ませんね。
 ぱっと見、あやういコードですが、特におかしいところはないような・・・
 どのモジュールに記載していますか？
 このコードの前後に閉じられていないプロシージャ等ございませんか？
（稲葉） 2014/10/15(水) 06:56

 こういう掲示板を使って勉強することの意義のひとつに

 自分が体験した現象や結果をこの掲示板の閲覧者に再現できるような記述をする

 私としては、これは大きい目的です。

 プログラミングの上達に非常に役に立つことだと信じています。

 こういう観点からすると、　超初心者さんが提示されたのは、コードだけですよね！！

 閲覧者は、これを実行すれば、

 >コンパイルエラー　構文エラー" として一気に下までカーソルが飛んでいき 
どこがやばいのかわかりません。

 という結果が再現できますか？

 ご自分が閲覧者になった立場で再度、投稿された内容を見返してみてください。

 投稿された内容だけで　ご自分が経験された現象が再現できるか否かを・・・。

 提示されたコードがコンパイルエラーになるのは、

 >Sub Autofilter() 
 からなるコードをシートモジュールに配置した場合、コンパイルエラーが発生しますね！！

 これは、原因がはっきりしていますから、別のモジュール（標準モジュール）移してみてください。

　
（ ichinose） 2014/10/15(水) 07:17

稲葉様, ichinose様　レスありがとうございます。
作業中いつのまにか　マイナスキーを押し続けた状態があったらしく
end subと　しきりの線の間に

の赤い線がありました

自分にはこれが「模様」にみえて
まさかこれが「構文」だとは思いませんでした

たしかにデバッグのたびにこの線を指摘していたのですが

「構文エラー」＝　コードのミス

という直線思考でした

"このコードの前後に閉じられていないプロシージャ等"

のご指摘がなければわからなかったです

解決です.どうもありがとうございました

（超初心者） 2014/10/15(水) 08:25

 いやーichinoseさんの言うとおり、シートモジュールが一番怪しいと思っていたのですが、
 斜め上のお返事でした。
 ご報告ありがとうございます。

 ichinoseさんのご指摘にも有りますが、
 ＞Sub Autofilter() 
 シートモジュール以外でも、メソッドやプロパティー名と同じプロシージャ名はなるべく避けた方が
 よいと思います。

 ご検討ください。

 #それから、ここには初心者さんが一杯いらっしゃるようなので、次回からは
 #固有のお名前聞かせてください。
 #私はニックネームが「初心者」となっている方はあまり好みません。
（稲葉） 2014/10/15(水) 08:30

コメント返信：

[ 一覧(最新更新順) ]

[[20141015003957]] 『コンパイルエラー 構文エラー なぜでしょう？』（超初心者） ページの最後に飛ぶ

[[20141015003957]]　『コンパイルエラー　構文エラー　なぜでしょう？』（超初心者）　ページの最後に飛ぶ