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.
Taču rodas kļūda un kods netiek izveidots.
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 SubPrivate sub Workbook_AddinInstall ()
End SubPrivate sub Workbook_AddinUninstall ()
End SubPrivate sub Workbook_AfterRemoteChange ()
End SubPrivate sub Workbook_AfterSave (ByVal Success kā Boolean
) End SubPrivate sub Workbook_BeforeClose (atcelt kā Boolean)
End SubPrivate sub Workbook_BeforePrint (atcelt kā Boolean)
End SubPrivate sub Workbook_BeforeRemoteChange ()
End SubPrivate sub Workbook_BeforeSave (ByVal SaveAsUI kā Boolean, Cancel kā Boolean)
End SubPrivate sub Workbook_Deactivate ()
End SubPrivate sub Workbook_NewChart (ByVal CH kā diagramma)
End SubPrivate sub Workbook_NewSheet (ByVal sh kā objekts)
End SubPrivate sub Workbook_Open ()
End SubPrivate sub Workbook_PivotTableCloseConnection (ByVal mērķis kā Rakurstabula
) End SubPrivate sub Workbook_PivotTableOpenConnection (ByVal mērķis kā Rakurstabula
) End SubPrivāts apakšWorkbook_RowsetComplete (ByVal apraksts kā virkne, ByVal lapa kā virkne, ByVal Success kā Boolean
) End SubPrivate sub Workbook_SheetActivate (ByVal sh kā objekts)
End SubPrivate sub Workbook_SheetBeforeDelete (ByVal sh kā objekts)
End SubPrivate sub Workbook_SheetBeforeDoubleClick (ByVal sh kā objekts, ByVal mērķis kā diapazons, atcelt kā Boolean)
End SubPrivate sub Workbook_SheetBeforeRightClick (ByVal sh kā objekts, ByVal mērķis kā diapazons, atcelt kā Boolean)
End SubPrivate sub Workbook_SheetCalculate (ByVal sh kā objekts)
End SubPrivate sub Workbook_SheetChange (ByVal sh kā objekts, ByVal mērķis kā diapazons)
End SubPrivate sub Workbook_SheetDeactivate (ByVal sh kā objekts)
End SubPrivate sub Workbook_SheetFollowHyperlink (ByVal sh kā objekts, ByVal mērķis kā hipersaite)
End SubPrivate sub Workbook_SheetPivotTableAfterValueChange (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal TargetRange kā diapazons
) End SubPrivā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 SubPrivā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 SubPrivātie apakšWorkbook_SheetPivotTableBeforeDiscardChanges (ByVal sh kā objekts, ByVal TargetPivotTable kā Rakurstabula, ByVal ValueChangeStart kā garš, ByVal ValueChangeEnd,
kamēr tas ir garš) End SubPrivate sub Workbook_SheetPivotTableChangeSync (ByVal sh kā objekts, ByVal mērķis kā Rakurstabula
) End SubPrivate sub Workbook_SheetPivotTableUpdate (ByVal sh kā objekts, ByVal mērķis kā Rakurstabula
) End SubPrivate sub Workbook_SheetSelectionChange (ByVal sh kā objekts, ByVal mērķis kā diapazons)
End SubPrivate sub Workbook_SheetTableUpdate (ByVal sh kā objekts, ByVal mērķis kā TableObject)
End SubPrivate sub Workbook_Sync (ByVal SyncEventType kā Office. MsoSyncEventType)
End SubPrivātais apakšWorkbook_WindowActivate (ByVal, kā logs
) End SubPrivātais apakšWorkbook_WindowDeactivate (ByVal, kā logs
) End SubPrivātais apakšWorkbook_WindowResize (ByVal, kā logs
) End SubPrivate 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
Jautājumu uzdošana ekspertiem
Sazinieties ar ekspertiem, apspriediet Excel jaunumus, atjauninājumus un labāko praksi, kā arī lasiet mūsu emuāru.
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.
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.
Skatiet arī
Nesen atklāto problēmu labojumi vai risinājumi programmā Excel darbam ar Mac