Logige sisse Microsofti kontoga
Logige sisse või looge konto.
Tere!
Valige mõni muu konto.
Teil on mitu kontot
Valige konto, millega soovite sisse logida.

Viimati värskendatud 10. aprillil 2019

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).

Sellest töövihikustTööleht

Privaatne sub Workbook_Activate ()
Lõpeta sub

Privaatne sub Workbook_AddinInstall ()
Lõpeta sub

Privaatne sub Workbook_AddinUninstall ()
Lõpeta sub

Privaatne sub Workbook_AfterRemoteChange ()
Lõpeta sub

Private sub Workbook_AfterSave (ByVal edu Boolean)
Lõpeta sub

Privaatne sub Workbook_BeforeClose (Tühista kui Boolean)
Lõpeta sub

Privaatne sub Workbook_BeforePrint (Tühista kui Boolean)
Lõpeta sub

Privaatne sub Workbook_BeforeRemoteChange ()
Lõpeta sub

Privaatsed sub Workbook_BeforeSave (ByVal SaveAsUI nagu Boolean; Tühista kui Boolean
) Lõpeta sub

Privaatne sub Workbook_Deactivate ()
Lõpeta sub

Privaatne sub Workbook_NewChart (ByVal CH diagrammina)
Lõpeta sub

Privaatsed sub Workbook_NewSheet (ByVal sh objekt)
Lõpeta sub

Privaatne sub Workbook_Open ()
Lõpeta sub

Privaatne sub Workbook_PivotTableCloseConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta sub

Privaatne sub Workbook_PivotTableOpenConnection (ByVal sihtmärk PivotTable-liigendtabelina)
Lõpeta sub

Private sub Workbook_RowsetComplete (ByVal kirjeldus stringina, ByVal leht stringina, ByVal edu kui Boolean)
Lõpeta sub

Privaatsed sub Workbook_SheetActivate (ByVal sh objekt)
Lõpeta sub

Privaatsed sub Workbook_SheetBeforeDelete (ByVal sh objekt)
Lõpeta sub

Privaatsed sub Workbook_SheetBeforeDoubleClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta sub

Privaatsed sub Workbook_SheetBeforeRightClick (ByVal sh objekt, ByVal, nupp "Tühista")
Lõpeta sub

Privaatsed sub Workbook_SheetCalculate (ByVal sh objekt)
Lõpeta sub

Privaatsed sub Workbook_SheetChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta sub

Privaatsed sub Workbook_SheetDeactivate (ByVal sh objekt)
Lõpeta sub

Privaatsed sub Workbook_SheetFollowHyperlink (ByVal sh objekt, ByVal sihtmärk hüperlingina)
Lõpeta sub

Privaatsed sub Workbook_SheetPivotTableAfterValueChange (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal TargetRange vahemikuna)
Lõpeta sub

Private sub Workbook_SheetPivotTableBeforeAllocateChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk, tühistage kui
Boolean) Lõpeta sub

Private sub Workbook_SheetPivotTableBeforeCommitChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk, tühistage kui
Boolean) Lõpeta sub

Private sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal sh objekt, ByVal TargetPivotTable kui PivotTable-liigendtabel, ByVal ValueChangeStart nii pikk, ByVal ValueChangeEnd kui pikk
) Lõpeta sub

Privaatsed sub Workbook_SheetPivotTableChangeSync (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta sub

Privaatsed sub Workbook_SheetPivotTableUpdate (ByVal sh objekt, ByVal; PivotTable-liigendtabelina)
Lõpeta sub

Privaatsed sub Workbook_SheetSelectionChange (ByVal sh objekt, ByVal Target vahemikuna)
Lõpeta sub

Private sub Workbook_SheetTableUpdate (ByVal sh objekt, ByVal Target AS TableObject)
Lõpeta sub

Private sub Workbook_Sync (ByVal SyncEventType AS Office. MsoSyncEventType)
Lõpeta sub

Private sub Workbook_WindowActivate (ByVal WN AS Window)
Lõpeta sub

Private sub Workbook_WindowDeactivate (ByVal WN AS Window)
Lõpeta sub

Private sub Workbook_WindowResize (ByVal WN AS Window)
Lõpeta sub

Private Sub Worksheet_Activate()

End Sub

Private Sub Worksheet_BeforeDelete()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub

Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Private Sub Worksheet_Deactivate()

End Sub

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

End Sub

Private Sub Worksheet_LensGalleryRenderComplete()

End Sub

Private Sub Worksheet_PivotTableAfterValueChange(ByVal TargetPivotTable As PivotTable, ByVal TargetRange As Range)

End Sub

Private Sub Worksheet_PivotTableBeforeAllocateChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeCommitChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long, Cancel As Boolean)

End Sub

Private Sub Worksheet_PivotTableBeforeDiscardChanges(ByVal TargetPivotTable As PivotTable, ByVal ValueChangeStart As Long, ByVal ValueChangeEnd As Long)

End Sub

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As TableObject)

End Sub

Veel ressursse

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, tehnikute ja teiste Exceli kasutajate abil.

Exceli foorum Answersi saidil

Funktsioonitaotluse ikoon (lambipirn, idee)

Uue funktsiooni soovitamine

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

Tagasiside andmine

Lisateave

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

Facebook LinkedIn Meil

Kas vajate veel abi?

Kas soovite rohkem valikuvariante?

Tutvustus Kogukonnafoorum Kontaktteave

Siin saate tutvuda tellimusega kaasnevate eelistega, sirvida koolituskursusi, õppida seadet kaitsma ja teha veel palju muud.

Microsoft 365 tellimuse eelised

Microsoft 365 koolitus

Microsofti turbeteenus

Hõlbustuskeskus

Kogukonnad aitavad teil küsimusi esitada ja neile vastuseid saada, anda tagasisidet ja saada nõu rikkalike teadmistega asjatundjatelt.

Nõu küsimine Microsofti kogukonnafoorumis

Microsofti spetsialistide kogukonnafoorum

Windows Insideri programmis osalejad

Microsoft 365 Insideri programmis osalejad

Leidke lahendused levinud probleemidele või võtke ühendust klienditeenindajaga.

Võrgutugi

Kas sellest teabest oli abi?

Kui rahul te keelekvaliteediga olete?
Mis mõjutas teie hinnangut?
Kui klõpsate nuppu Edasta, kasutatakse teie tagasisidet Microsofti toodete ja teenuste täiustamiseks. IT-administraator saab neid andmeid koguda. Privaatsusavaldus.

Täname tagasiside eest!

×