Office
Logi sisse

Excel for Maci Visual Basicu tõrge „Muutuja kasutab toetuseta automatiseerimistüüpi“

Viimati värskendatud 10. novembril 2017

PROBLEEM

2017. aasta oktoobrist töötab rakenduses Excel for Mac uus Visual Basic Editor. Uus VB-redaktoris esineb tõrge, kui luua objektideklaratsioone, tehes valikuid koodiakna ülaservas asuvas rippmenüüs.

Kui klõpsate vasakule jäävat rippmenüüd ja valite loendist mõne üksuse, peaks valitud sündmuse jaoks loodama paremale jäävas ripploendis kood. Saate paremale jäävas ripploendis teha valitud sündmuse jaoks täiendava koodi loomiseks täiendavaid valikuid.

VBE-redaktoris kuvatakse objekti valimise ripploend

Selle asemel kuvatakse tõrketeade ja koodi ei looda.

Microsoft Visual Basicu tõrge: Visual Basic ei toeta muutuja kasutamist ega automatiseerimistüüpi.

OLEK: AJUTINE LAHENDUS

Valige üks järgmistest ajutistest lahendustest.

AJUTINE LAHENDUS 1

Tehke toimingud arvutis, kus töötab Windowsi jaoks ette nähtud Excel ja seejärel kopeerige kood Excel for Maci.

AJUTINE LAHENDUS 2

Saate liikuda MSDN-i, otsida üles soovitud sündmuse süntaksi ja tippida koodi VBA-projekti käsitsi. Microsoft Exceli töövihikusündmusi kirjeldatakse artiklis Töövihikusündmused (inglise keeles).

AJUTINE LAHENDUS 3

Kopeerige sobiv sündmusekood allolevatest näidetest ja kleepige see oma VBA-projekti. Iga sündmuse puhul kopeerige vahemik „Private Sub..“ kuni „End Sub“ (kaasa arvatud).

    
    

Private Sub Workbook_Activate()

End Sub

Private Sub Workbook_AddinInstall()

End Sub

Private Sub Workbook_AddinUninstall()

End Sub

Private Sub Workbook_AfterRemoteChange()

End Sub

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

End Sub

Private Sub Workbook_BeforeRemoteChange()

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub

Private Sub Workbook_Deactivate()

End Sub

Private Sub Workbook_NewChart(ByVal Ch As Chart)

End Sub

Private Sub Workbook_NewSheet(ByVal Sh As Object)

End Sub

Private Sub Workbook_Open()

End Sub

Private Sub Workbook_PivotTableCloseConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_PivotTableOpenConnection(ByVal Target As PivotTable)

End Sub

Private Sub Workbook_RowsetComplete(ByVal Description As String, ByVal Sheet As String, ByVal Success As Boolean)

End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDelete(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetCalculate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)

End Sub

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

End Sub

Private Sub Workbook_SheetPivotTableAfterValueChange(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Workbook_SheetPivotTableBeforeAllocateChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeCommitChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Workbook_SheetPivotTableBeforeDiscardChanges(ByVal Sh As Object, ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Workbook_SheetPivotTableChangeSync(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetPivotTableUpdate(ByVal Sh As Object, ByVal Target As PivotTable)

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

Private Sub Workbook_SheetTableUpdate(ByVal Sh As Object, ByVal Target As TableObject)

End Sub

Private Sub Workbook_Sync(ByVal SyncEventType As Office.MsoSyncEventType)

End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)

End Sub

Private Sub Workbook_WindowResize(ByVal Wn As Window)

End Sub

Ekspertide ikoon (aju, mutrid)

Küsige nõu asjatundjatelt

Saate ühendust võtta asjatundjatega, arutleda Exceli uudiste, värskenduste ja parimate kasutuskogemuste teemal ning lugeda meie ajaveebi.

Exceli spetsialistide kogukonnafoorum

Kogukonnafoorumi ikoon

Abi kogukonnafoorumist

Saate esitada küsimusi ning leida probleemidele lahendusi tugitöötajate, tippspetsialistide, inseneride ja teiste Exceli kasutajate abil.

Exceli vastustefoorum

Funktsioonitaotluse ikoon (lambipirn, idee)

Uue funktsiooni soovitamine

Meil on alati hea meel teie soovituste ja tagasiside üle! Jagage oma ideid. Me kuulame.

Excel UserVoice

Vt ka

Excel for Maci viimaste väljaannete parandused või ajutised lahendused

Täiendage Office'i kasutamise oskusi
Tutvuge koolitusmaterjalidega
Kasutage uusi funktsioone enne teisi
Liituge Office Insideri programmiga

Kas sellest teabest oli abi?

Täname tagasiside eest!

Täname tagasiside eest! Tundub, et võiksime teid kokku viia ühega meie Office'i tugiagentidest, kes aitab teil probleemi lahendada.

×