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

Office 2016 darbam ar Mac atbalsta dienestu drīz beigsies

Jauniniet uz Microsoft 365, lai strādātu jebkur no jebkuras ierīces un turpinātu saņemt atbalstu.

Jaunināt tagad

Pēdējoreiz atjaunināts: 2019. gada 10. aprīlis

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

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.

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 kā Boolean
) End Sub

Private sub Workbook_BeforeClose (atcelt kā Boolean)
End Sub

Private sub Workbook_BeforePrint (atcelt kā Boolean)
End Sub

Private sub Workbook_BeforeRemoteChange ()
End Sub

Private sub Workbook_BeforeSave (ByVal SaveAsUI kā Boolean, Cancel kā Boolean)
End Sub

Private sub Workbook_Deactivate ()
End Sub

Private sub Workbook_NewChart (ByVal CH kā diagramma)
End Sub

Private sub Workbook_NewSheet (ByVal sh kā objekts)
End Sub

Private sub Workbook_Open ()
End Sub

Private sub Workbook_PivotTableCloseConnection (ByVal mērķis kā Rakurstabula
) End Sub

Private sub Workbook_PivotTableOpenConnection (ByVal mērķis kā Rakurstabula
) End Sub

Privāts apakšWorkbook_RowsetComplete (ByVal apraksts kā virkne, ByVal lapa kā virkne, ByVal Success kā Boolean
) End Sub

Private sub Workbook_SheetActivate (ByVal sh kā objekts)
End Sub

Private sub Workbook_SheetBeforeDelete (ByVal sh kā objekts)
End Sub

Private sub Workbook_SheetBeforeDoubleClick (ByVal sh kā objekts, ByVal mērķis kā diapazons, atcelt kā Boolean)
End Sub

Private sub Workbook_SheetBeforeRightClick (ByVal sh kā objekts, ByVal mērķis kā diapazons, atcelt kā Boolean)
End Sub

Private sub Workbook_SheetCalculate (ByVal sh kā objekts)
End Sub

Private sub Workbook_SheetChange (ByVal sh kā objekts, ByVal mērķis kā diapazons)
End Sub

Private sub Workbook_SheetDeactivate (ByVal sh kā objekts)
End Sub

Private sub Workbook_SheetFollowHyperlink (ByVal sh kā objekts, ByVal mērķis kā hipersaite)
End Sub

Private sub Workbook_SheetPivotTableAfterValueChange (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal TargetRange kā diapazons
) End Sub

Privātie apakšWorkbook_SheetPivotTableBeforeAllocateChanges (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal ValueChangeStart kā garš, ByVal ValueChangeEnd kā ilgtermiņa, atcelt kā
Boolean) End Sub

Privātie apakšWorkbook_SheetPivotTableBeforeCommitChanges (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal ValueChangeStart kā garš, ByVal ValueChangeEnd kā ilgtermiņa, atcelt kā
Boolean) End Sub

Privātie apakšWorkbook_SheetPivotTableBeforeDiscardChanges (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal ValueChangeStart kā garš, ByVal ValueChangeEnd,
kamēr tas ir garš) End Sub

Private sub Workbook_SheetPivotTableChangeSync (ByVal sh kā objekts, ByVal mērķis kā Rakurstabula
) End Sub

Private sub Workbook_SheetPivotTableUpdate (ByVal sh kā objekts, ByVal mērķis kā Rakurstabula
) End Sub

Private sub Workbook_SheetSelectionChange (ByVal sh kā objekts, ByVal mērķis kā diapazons)
End Sub

Private sub Workbook_SheetTableUpdate (ByVal sh kā objekts, ByVal mērķis kā TableObject)
End Sub

Private sub Workbook_Sync (ByVal SyncEventType kā Office. MsoSyncEventType)
End Sub

Privātais apakšWorkbook_WindowActivate (ByVal, kā logs
) End Sub

Privātais apakšWorkbook_WindowDeactivate (ByVal, kā logs
) End Sub

Privātais apakšWorkbook_WindowResize (ByVal, kā logs
) End 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

Papildu resursi

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 Office 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 jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×