„ Visual Basic“ rengyklės, veikiančios „Excel“, skirtoje „Mac“, klaida „Kintamasis naudoja nepalaikomą automatizavimą tipą“

Paskutinį kartą atnaujinta: 2017 m. lapkrič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“.

    
    

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

Ekspertų piktograma (smegenys, krumpliaračiai)

Klauskite ekspertų

Sužinokite ekspertų nuomonę, aptarkite „Excel“ naujienas, naujinimus ir geriausią praktiką, taip pat skaitykite mūsų interneto dienoraštį.

„Excel“ techninės pagalbos bendruomenė

Bendruomenės piktograma

Gaukite pagalbos bendruomenėje

Užduokite klausimą ir raskite sprendimus su palaikymo agentais, MVP, inžinieriais ir kitais „Excel“ vartotojais.

„Excel“ forumo atsakymai

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.

„Excel UserVoice“

Taip pat žr.

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

Tobulinkite savo „Office“ įgūdžius
Ieškoti mokymo
Pirmiausia gaukite naujų funkcijų
Prisijunkite prie „Office Insider“ dalyvių

Ar ši informacija buvo naudinga?

Dėkojame už jūsų atsiliepimus!

Dėkojame už jūsų atsiliepimą! Panašu, kad gali būti naudinga jus sujungti su vienu iš mūsų „Office“ palaikymo agentų.

×