使用してVBAのapplication.statusbarは、実行時エラーが発生し

Question

Iプリプロセッサを使用していくつかのコードは、コマンドを持っている：#If、#Elseと基本的に私が持っている#End If

#If Mac then 
    msgbox "Can't update the list when running on a mac" 

#Else 
    Application.StatusBar = "updating names..." 

    ***other code here****   

    Application.StatusBar = false 
#End if 

コード作品私のマシンでは問題ありませんが、スプレッドシートを開いてコードをコンパイルすると、エラーメッセージが表示されます。

保護されたビューでスプレッドシートを開くときに発生するエラーです。保護されていないビューでは、エラーは表示されません。それは、それが開かれた後にサブが呼び出された後に開かれた時点でコンパイルされるとうまく動作します。

ステータスバーのコマンドを削除してもエラーは発生しません。

「On Error Resume Next」を追加しようとしましたが、エラーを停止しません。

したがって、私はプリプロセッサルーチン内でステータスバーを使用することはできないと思われ、動作することを確認してください。

私はExcel 2013を使用していますが、Excel 2013でエラーが発生しました。どちらのマシンも64ビットWindows 8.1で、実際には両方のマシンがコアMプロセッサ搭載のASUS UX305Fと全く同じ仕様です。

誰でも何が起こっているのかも知れませんか？

Answer 1

私は、問題を再現するが、と仮定することはできません。

• プリコンパイラ・ディレクティブは、マクロを無効にするために使用されています
  • Application.StatusBarは細かい外プリコンパイラ・ディレクティブ

  との作品Mac環境の場合

ただ、再編成のものビット、Windows環境で実行する運命コードはプリコンパイラ・ディレクティブで囲まれならないように：

Public Sub Macro1() 
    #If Mac Then 
     MsgBox "Can't update the list when running on a Mac" 
     Exit Sub 
    #Else 
     DoSomething 
    #End If 
End Sub 

そしてDoSomethingに実際のロジックを移動し、実際を残しますプリコンパイラ・ディレクティブの無料コード：

Private Sub DoSomething() 
    Application.StatusBar = "updating names..." 

    '***other code here****   

    Application.StatusBar = false 
End Sub 

ワーストケース、あなたのボタンをクリックするMacユーザーは、コンパイルエラーになりますし、コードが実行されません...しかし、そう、とにかく実行することになっていません...