Kļūda “Mainīgais izmanto neatbalstītu automatizācijas veidu” Excel darbam ar Mac rīkā Visual Basic

Pēdējoreiz atjaunināts: 2017. gada 10. novembrī

PROBLĒMA

2017. gada oktobrī programmā Excel darbam ar Mac tika ieviests jauns Visual Basic redaktors. Šī jaunā VB redaktora darbībā ir konstatēta objekta deklarāciju izveides problēma, kad tās tiek atlasītas nolaižamajā izvēlnē kodu loga augšdaļā.

Noklikšķinot uz nolaižamās izvēlnes kreisajā pusē un sarakstā izvēloties vienumu, jums būtu jāierauga atlasītā notikuma kods nolaižamajā sarakstā labajā pusē. Varat arī izveidot papildu kodu izvēlētā notikuma apstrādei un nolaižamajā izvēlnē pa labi atlasīt vairākus vienumus.

VBE redaktors, kurā tiek rādīts objektu atlases nolaižamais saraksts_C3_2017109141018

Taču rodas kļūda un kods netiek izveidots.

Microsoft Visual Basic kļūda: Programmā Visual Basic netiek atbalstīta mainīgo izmantošana un automatizācijas tips._C3_2017109141134

STATUSS: RISINĀJUMS

Izvēlieties kādu no šiem problēmas risinājumiem:

1. RISINĀJUMS

Varat veikt līdzīgu darbību datorā, kurā palaista programma Excel darbam ar Windows, un pēc tam kopēt kodu programmā Excel darbam ar Mac.

2. RISINĀJUMS

Varat doties uz MSDN, atrast attiecīgā notikuma sintaksi un ierakstīt kodu VBA projektā manuāli. Microsoft Excel “darbgrāmatas” notikumi ir izklāstīti rakstā Darbgrāmatas notikumi.

3. RISINĀJUMS

Kopējiet attiecīgo notikuma kodu no tālāk redzamajiem paraugiem un ielīmējiet to VBA projektā. Pārliecinieties, vai katram notikumam esat veicis kopēšanu no “Private Sub...” līdz “End Sub...” (ieskaitot).

    
    

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

Ekspertu ikona (smadzenes, zobrati)

Jautājumu uzdošana ekspertiem

Sazinieties ar ekspertiem, apspriediet Excel jaunumus, atjauninājumus un labāko praksi, kā arī lasiet mūsu emuāru.

Excel tehnoloģiju kopiena

Kopienas ikona

Palīdzības saņemšana kopienā

Uzdodiet jautājumu un atrodiet risinājumus, ko piedāvā atbalsta dienesta pārstāvji, MVP, inženieri un citi Excel lietotāji.

Excel atbilžu forums

Līdzekļu pieprasījuma ikona (spuldzīte, ideja)

Jauna līdzekļa ieteikšana

Mēs labprāt lasām jūsu ieteikumus un atsauksmes! Dalieties ar savām domām. Mēs uzklausām.

Excel UserVoice

Skatiet arī

Nesen atklāto problēmu labojumi vai risinājumi programmā Excel darbam ar Mac

Paplašiniet savas prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×