Pierakstīties, izmantojot Microsoft
Pierakstīties vai izveidot kontu
Sveicināti!
Atlasīt citu kontu.
Jums ir vairāki konti
Izvēlieties kontu, ar kuru vēlaties pierakstīties.

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

ThisWorkbookWorksheet

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.

Sniegt atsauksmes

Skatiet arī

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

Facebook LinkedIn E-pasts

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Atklāt Kopiena Sazināties ar mums

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Microsoft 365 abonementa priekšrocības

Microsoft 365 apmācība

Microsoft drošība

Pieejamības centrs

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.

Jautājiet Microsoft kopienai

Microsoft Tech kopiena

Programmas Windows Insider dalībnieki

Programmas Microsoft 365 Insider dalībnieki

Atrodiet risinājumus visbiežāk sastopamām problēmām vai saņemiet palīdzību no atbalsta dienesta aģenta.

Tiešsaistes atbalsts

Vai šī informācija bija noderīga?

Cik lielā mērā esat apmierināts ar valodas kvalitāti?
Kas ietekmēja jūsu pieredzi?
Nospiežot Iesniegt, jūsu atsauksmes tiks izmantotas Microsoft produktu un pakalpojumu uzlabošanai. Jūsu IT administrators varēs vākt šos datus. Paziņojums par konfidencialitāti.

Paldies par jūsu atsauksmēm!

×