Son Güncelleştirme: 10 Nisan 2019
SORUN
Ekim 2017’de Mac için Excel’de yeni bir Visual Basic Düzenleyicisi kullanıma sunuldu. Bu yeni VB düzenleyicisinde, kod penceresinin üstündeki açılan menüden seçim yapılarak nesne bildirimleri oluşturma konusunda bir sorun yaşanıyordu.
Soldaki açılan menüye tıklayıp listeden bir öğe seçtiğinizde, sağ taraftaki açılan listede seçili olay için bir kod görmeniz gerekir. Sağdaki açılan listeden ek seçimler yaparak seçili olayı işlemek için ek kod oluşturabilirsiniz.
Bunun yerine, kodun oluşturulmadığını bildiren bir hata gerçekleşir.
DURUM: GEÇİCİ ÇÖZÜM
Bu sorun için aşağıdaki geçici çözümlerden birini seçin:
1. GEÇİCİ ÇÖZÜM
Windows için Excel’i çalıştıran bir bilgisayarda benzer adımı gerçekleştirebilir ve sonra kodu Mac için Excel’e kopyalayabilirsiniz.
2. GEÇİCİ ÇÖZÜM
MSDN’ye giderek kullanmak istediğiniz olayın söz dizimini bulabilir ve kodu VBA projenize el ile yazabilirsiniz. Bu makalede Microsoft Excel "çalışma kitabı" olayları - Çalışma Kitabı Olayları açıklanmıştır.
3. GEÇİCİ ÇÖZÜM
Aşağıdaki örneklerden uygun olay kodunu kopyalayıp VBA projenize yapıştırın. Her olay için "Private Sub..." ile "End Sub" dahil olmak üzere bunların arasını kopyaladığınızdan emin olun.
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
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
Diğer Kaynaklar
Uzmanlara sorun
Uzmanlara bağlanın, en son Excel haberlerini, güncelleştirmelerini ve en iyi yöntemlerini tartışın ve blogumuzu okuyun.
Topluluktan yardım alın
Destek Aracılarına, MVP’lere, Mühendislere ve diğer Excel kullanıcılarına soru sorun ve onlardan çözümler bulun.
Yeni bir özellik önerin
Öneri ve görüşlerinizi okumaktan mutluluk duyarız! Düşüncelerinizi paylaşın. Sizi dinliyoruz.
Ayrıca Bkz:
Mac için Excel’de karşılaşılan yeni sorunlar için düzeltmeler veya geçici çözümler
