0

VBA で Excel-2010 のアドインを作成しました。VBA エディタからコードを実行すると、正常に動作します。しかし、アドイン用に生成されたリボンのボタンを使用してマクロを実行すると、次のエラーがスローされます。Compile Error in Hidden Module: Module 1

私のコード:

Sub QE_eventhandler(control As IRibbonControl)
    If MsgBox("Esta acción no se podrá deshacer. ¿Desea Continuar?", vbExclamation + vbOKCancel, "Confirmar -Quitar Espacios-") = vbOK Then
        QuitaEspacios
    End If
End

Sub QuitaEspacios()
Dim celda As Range
    For Each celda In Selection
        If TypeName(celda.Value) = "String" Then
            celda.Value = Application.WorksheetFunction.Trim(celda.Value)
        End If
    Next
 End Sub

カスタム UI エディターで生成されたコード:

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab id="customTab" label="GARSA Tools">
                <group id="customGroup1" label="Reformateo Texto">
                    <button id="customButton3" label="Quitar Espacios" size="large" onAction="QE_eventhandler" imageMso="TextEffectTracking" />
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>
4

2 に答える 2

2

End Subコールバックの最後に がありません - 次のものがありますEnd:

Sub QE_eventhandler(control As IRibbonControl)
    If MsgBox("Esta acción no se podrá deshacer. ¿Desea Continuar?", vbExclamation + vbOKCancel, "Confirmar -Quitar Espacios-") = vbOK Then
        QuitaEspacios
    End If
End Sub
于 2015-03-12T11:40:06.820 に答える
0

同様の問題について説明している次のリンクを確認してください。

Word または Excel を起動すると、「非表示のモジュールでコンパイル エラーが発生しました」というエラー メッセージが表示される

エクセルでコンパイルエラー

于 2015-03-12T11:49:09.040 に答える