Prisijunkite prie „Microsoft“
Prisijunkite arba sukurkite paskyrą.
Sveiki,
Pasirinkti kitą paskyrą.
Turite kelias paskyras
Pasirinkite paskyrą, kurią naudodami norite prisijungti.

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.

VBE rengyklė, kurioje rodomas objekto pasirinkimo išplečiamasis sąrašas

Vietoje to pasirodo klaidos pranešimas, kad kodas nesukurtas.

„Microsoft Visual Basic“ rengyklės klaida „Kintamasis naudoja automatizavimo tipą, kurio nepalaiko „Visual Basic“

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

ThisWorkbookDarbalapis

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ų

Ekspertų piktograma (smegenys, krumpliaračiai)

Klauskite ekspertų

Susisiekite su ekspertais, aptarkite „Excel“ naujienas, naujinimus ir geriausią praktiką bei skaitykite mūsų tinklaraštį.

„Excel“ technologijų bendruomenė

Bendruomenės piktograma

Gaukite pagalbos bendruomenėje

Užduokite klausimą ir sužinokite sprendimus iš palaikymo agentų, MVP, inžinierių ir kitų „Excel“ vartotojų.

„Excel“ atsakymų forumas

Funkcijos užklausų piktograma (lemputė, idėja)

Pasiūlykite naują funkciją

Džiaugiamės skaitydami jūsų pasiūlymus ir atsiliepimus! Pasidalykite savo mintimis. Mes pasiruošę išklausyti.

Pateikite atsiliepimą

Taip pat žiūrėkite

Naujausių „Excel for Mac“ problemų pataisos ir sprendimo būdai

Facebook LinkedIn Elektroninis paštas

Reikia daugiau pagalbos?

Norite daugiau parinkčių?

Galimos funkcijos Bendruomenė Susisiekite su mumis

Sužinokite apie prenumeratos pranašumus, peržiūrėkite mokymo kursus, sužinokite, kaip apsaugoti savo įrenginį ir kt.

„Microsoft 365“ prenumeratos pranašumai

„Microsoft 365“ mokymas

„Microsoft“ sauga

Pritaikymo neįgaliesiems centras

Bendruomenės padeda užduoti klausimus ir į juos atsakyti, pateikti atsiliepimų ir išgirsti iš ekspertų, turinčių daug žinių.

Klauskite „Microsoft“ bendruomenės

„Microsoft“ technologijų bendruomenė

„Windows Insider Preview“ programos dalyviai

„Microsoft 365“ „Insider“ programos dalyviai

Raskite įprastų problemų sprendimus arba gaukite pagalbos iš palaikymo agento.

Palaikymas internetu

Ar ši informacija buvo naudinga?

Ar esate patenkinti kalbos kokybe?
Kas turėjo įtakos jūsų įspūdžiams?
Paspaudus mygtuką Pateikti, jūsų atsiliepimai bus naudojami tobulinant „Microsoft“ produktus ir paslaugas. Jūsų IT administratorius galės rinkti šiuos duomenis. Privatumo patvirtinimas.

Dėkojame už jūsų atsiliepimą!

×