2017-11-28 21 views
1

は時々私はもう、なぜ私でもプログラムを疑問に思うか、私はVBAを使用する理由...私は次のコードしている:それは私のボタンを削除し続けVBA - 文が動作しない場合

Private Sub CommandButton1_Click() 
    Dim bSuccess As Boolean 
    bSuccess = modGenerateGRList.GenerateGRList 

    bSuccess = False 

    If bSuccess Then 
     CommandButton1.Select 
     Selection.Delete 
    End If 
End Sub 

。呼び出されたfunktionが成功したときに私のボタンを削除するはずです。 If bSuccess ThenまたはIf bSuccess = True Thenの結果はどうなりますか?

私はbSuccessが偽であり、それでも私のボタンを削除することを私に示すために、MsgBox bSuccessを1行前に使用しました。

bSuccess = modGenerateGRList.GenerateGRList行を削除すると、コードが正常に動作します。どのように機能modGenerateGRList.GenerateGRList私のコードに影響を与えることができますか?

//編集

私は

CommandButton1.Select 
Selection.Delete 

前にコメントマークを入れた後でも、それはまだ私のボタンを削除することを実現。

私の変更を保存し、すべてのWordプロセスを強制終了し、それでも私のボタンを削除します。たとえ別のPCで実行しても、古いコードを何とか実行するようです。

あなたはそれがどこから来ている、あなたが知っていないか、あなたは常に何らかの形で再定義されているいくつかのグローバル変数を持っていることを、VBAコードを実行している場合には
+0

がBoolean'あなたはまた、機能コードを追加することができますよう、文字列「偽」 '関数GenerateGRList()ブールとして、あるいはとしてfalseを返す' 'modGenerateGRList.GenerateGRListです:

はそれに打撃を与えます。 –

+0

パブリック関数GenerateGRList()ブール値 – user2871190

+0

そのコードを完全にコメントアウトして閉じ、保存してから再度開くとどうなりますか?私はこれが実行されているコードのバージョンではないと思われます.VBAの別の場所に別のコピーがあります。 – ashleedawg

答えて

1

、これら二つの手順に従います。

  • プレスCtrlキー + G
  • 書き込みEndは、Enterキーを押します

それは何かを殺すはずです。

0

このような変わったことが起きたとき、私はこのVBAデコンパイラに手を差し伸べました...私の経験では、あなたが何を記述しているかのような問題に対して多くの機会に取り組んできました。 http://cpap.com.br/orlando/VBADecompilerMore.asp