Paskutinį kartą atnaujinta: 2019 m. balandžio 10 d.
PROBLEMA
Programoje „Excel for Mac“ 2017 m. spalio mėn. pasirodė nauja „Visual Basic" rengyklė. Šiai naujai VB rengyklei būdinga problema kuriant objekto deklaracijas, kai jos pasirenkamos išskleidžiamame meniu, kodavimo lango viršuje.
Spustelėję išskleidžiamą meniu kairėje ir pasirinkus sąrašo elementą turėtumėte gauti kodą dešiniajame išskleidžiamame sąraše pasirinktam įvykiui. Galite papildomai pasirinkti išskleidžiamame dešiniajame sąraše, kad sukurtumėte papildomą kodą pasirinktam įvykiui.
Vietoje to pasirodo klaidos pranešimas, kad kodas nesukurtas.
BŪSENA: SPRENDIMO BŪDAS
Štai keli šios problemos sprendimo būdai:
1 SPRENDIMO BŪDAS
Galite atlikti tą patį veiksmą atlikti „Excel“, skirtoje „Windows“ ir nukopijuokite kodą į „Excel for Mac“.
2 SPRENDIMO BŪDAS
Galite eiti į MSDN ir rasti įvykiui norimą naudoti sintaksę bei rankiniu būdu įvesti kodą VBA projekte. Šiame straipsnyje aprašomi „Microsoft Excel“ „darbaknygės“ įvykiai – Darbaknygės įvykiai.
3 SPRENDIMO BŪDAS
Nukopijuokite atitinkamą įvykio kodą iš tolesnių pavyzdžių ir įklijuokite VBA projekte. Nepamirškite kiekvienam įvykiui nukopijuoti viską nuo „Private Sub“ iki „End Sub“.
Privatus antrinis Workbook_Activate () Pabaigos tarpinė
Privatus antrinis Workbook_AddinInstall () Pabaigos tarpinė
Privatus antrinis Workbook_AddinUninstall () Pabaigos tarpinė
Privatus antrinis Workbook_AfterRemoteChange () Pabaigos tarpinė
Privatus antrinis Workbook_AfterSave (ByVal sėkmė kaip Bulio logikos) Pabaigos tarpinė
Privatus antrinis Workbook_BeforeClose (atšaukti kaip Bulio logikos) Pabaigos tarpinė
Privatus antrinis Workbook_BeforePrint (atšaukti kaip Bulio logikos) Pabaigos tarpinė
Privatus antrinis Workbook_BeforeRemoteChange () Pabaigos tarpinė
Private sub Workbook_BeforeSave (ByVal SaveAsUI kaip Bulio logikos, atšaukti kaip Bulio logikos) Pabaigos tarpinė
Privatus antrinis Workbook_Deactivate () Pabaigos tarpinė
Private sub Workbook_NewChart (ByVal CH kaip Chart) Pabaigos tarpinė
Private sub Workbook_NewSheet (ByVal SH kaip objektas) Pabaigos tarpinė
Privatus antrinis Workbook_Open () Pabaigos tarpinė
Privatus antrinis Workbook_PivotTableCloseConnection (ByVal TARGET kaip "PivotTable ") Pabaigos tarpinė
Privatus antrinis Workbook_PivotTableOpenConnection (ByVal TARGET kaip "PivotTable ") Pabaigos tarpinė
Private sub Workbook_RowsetComplete (ByVal aprašą kaip eilutę, ByVal lapą kaip eilutę, ByVal sėkmę Bulio logikos ) Pabaigos tarpinė
Private sub Workbook_SheetActivate (ByVal SH kaip objektas) Pabaigos tarpinė
Private sub Workbook_SheetBeforeDelete (ByVal SH kaip objektas) Pabaigos tarpinė
Private sub Workbook_SheetBeforeDoubleClick (ByVal SH kaip objektas, ByVal paskirties vieta kaip intervalas, atšaukti kaip Bulio logikos) Pabaigos tarpinė
Private sub Workbook_SheetBeforeRightClick (ByVal SH kaip objektas, ByVal paskirties vieta kaip intervalas, atšaukti kaip Bulio logikos) Pabaigos tarpinė
Private sub Workbook_SheetCalculate (ByVal SH kaip objektas) Pabaigos tarpinė
Private sub Workbook_SheetChange (ByVal SH kaip objektas, ByVal paskirties vieta kaip intervalas ) Pabaigos tarpinė
Private sub Workbook_SheetDeactivate (ByVal SH kaip objektas) Pabaigos tarpinė
Private sub Workbook_SheetFollowHyperlink (ByVal SH kaip objektas, ByVal paskirtis kaip hipersaitas) Pabaigos tarpinė
Private sub Workbook_SheetPivotTableAfterValueChange (ByVal SH as objektas, ByVal TargetPivotTable kaip "PivotTable", ByVal Targetintervale kaip intervalas) Pabaigos tarpinė
Private sub Workbook_SheetPivotTableBeforeAllocateChanges (ByVal SH kaip objektas, ByVal TargetPivotTable kaip "PivotTable", ByVal Value Changestart, kol ByVal Value Change End, atšaukti kaip Bulio logikos ) Pabaigos tarpinė
Private sub Workbook_SheetPivotTableBeforeCommitChanges (ByVal SH kaip objektas, ByVal TargetPivotTable kaip "PivotTable", ByVal Value Changestart, kol ByVal Value Change End, atšaukti kaip Bulio logikos ) Pabaigos tarpinė
Private sub Workbook_SheetPivotTableBeforeDiscardChanges (ByVal SH kaip objektas, ByVal TargetPivotTable kaip "PivotTable", ByVal Value Changestart, kaip ilgai, ByVal Value Change end ) Pabaigos tarpinė
Private sub Workbook_SheetPivotTableChangeSync (ByVal SH kaip objektas, ByVal TARGET kaip "PivotTable ") Pabaigos tarpinė
Private sub Workbook_SheetPivotTableUpdate (ByVal SH kaip objektas, ByVal TARGET kaip "PivotTable ") Pabaigos tarpinė
Private sub Workbook_SheetSelectionChange (ByVal SH kaip objektas, ByVal paskirties vieta kaip intervalas ) Pabaigos tarpinė
Private sub Workbook_SheetTableUpdate (ByVal SH kaip objektas, ByVal TARGET kaip TableObject) Pabaigos tarpinė
Privatus antrinis Workbook_Sync (ByVal SyncEventType kaip Office. MsoSyncEventType) Pabaigos tarpinė
Privatus antrinis Workbook_WindowActivate (ByVal WN kaip langas) Pabaigos tarpinė
Privatus antrinis Workbook_WindowDeactivate (ByVal WN kaip langas) Pabaigos tarpinė
Privatus antrinis Workbook_WindowResize (ByVal WN kaip langas) Pabaigos tarpinė
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
Daugiau išteklių
Klauskite ekspertų
Susisiekite su ekspertais, aptarkite „Excel“ naujienas, naujinimus ir geriausią praktiką bei skaitykite mūsų tinklaraštį.
Gaukite pagalbos bendruomenėje
Užduokite klausimą ir sužinokite sprendimus iš palaikymo agentų, MVP, inžinierių ir kitų „Excel“ vartotojų.
Pasiūlykite naują funkciją
Džiaugiamės skaitydami jūsų pasiūlymus ir atsiliepimus! Pasidalykite savo mintimis. Mes pasiruošę išklausyti.
Taip pat žiūrėkite
Naujausių „Excel for Mac“ problemų pataisos ir sprendimo būdai
