Mac için Excel’deki Visual Basic düzenleyicisinde "Değişken, desteklenmeyen bir Otomasyon türü kullanıyor" hatası

Son Güncelleştirme: 10 Kasım 2017

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.

Nesne seçimi açılan listesini gösteren VBE Düzenleyicisi

Bunun yerine, kodun oluşturulmadığını bildiren bir hata gerçekleşir.

Microsoft Visual Basic Hatası: Değişken kullanımı ve otomasyon türü Visual Basic’te desteklenmiyor.

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

Simge Uzmanları (beyin, dişliler)

Uzmanlara sorun

Uzmanlara bağlanın, en son Excel haberlerini, güncelleştirmelerini ve en iyi yöntemlerini tartışın ve blogumuzu okuyun.

Excel Teknik Topluluğu

Simge Topluluğu

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.

Yanıtlarda Excel Forumu

Simge özellik isteği (ampul, fikir)

Yeni bir özellik önerin

Öneri ve görüşlerinizi okumaktan mutluluk duyarız! Düşüncelerinizi paylaşın. Size yardımcı olmaya hazırız.

Excel UserVoice

Ayrıca Bkz:

Mac için Excel’de karşılaşılan yeni sorunlar için düzeltmeler veya geçici çözümler

Office yeteneklerinizi geliştirin
Eğitimleri keşfedin
Yeni özellikleri ilk olarak siz edinin
Office Insider Programına Katılın

Bu bilgi yararlı oldu mu?

Görüşleriniz için teşekkür ederiz!

Geri bildiriminiz için teşekkürler! Office destek temsilcilerimizden biriyle görüşmeniz yararlı olabilir.

×