VBA Derleme Hatası: Salt Okunur Öğeye Dönen Öğeyi Geri Atanamayan Özellik Atılabilir Özellik Al

Question

VBA'da (Excel 2010) özel bir sınıftan Get özelliği ile ilgili bir sorun yaşıyorum. Bir dizin argümanı verilmediyse, Get özellikim Class 'dizisine bir referans (en azından benim izlenimim) vermelidir. Bir indeks verilirse, belirtilen dizideki değeri özel diziye döndürmelidir.

ReDim temp(1 To 1) As String 
temp(1) = pMtbSheets(index) 
MtbSheets = temp 

: herkes

Answer 1

Bir dizi erişimi vs bir özellik/yöntemle/işlev çağrısı olarak yorumlanmasını MtbSheets(i) arasındaki belirsizliği önlemek için geçici bir dizi ihtiyaç sunabilmektedir herhangi bir yardım için

' Custom Class Properties 
Private pMtbSheets() As String 

'Get and Let Methods 
Public Property Get MtbSheets(Optional index As Variant) As String() 
    If IsMissing(index) Then 
     ReDim MtbSheets(1 To UBound(pMtbSheets)) 
     MtbSheets = pMtbSheets() 
    Else 
     ReDim MtbSheets(1 To 1) 
     MtbSheets(1) = pMtbSheets(index) '**Compiler error occures here** 
    End If 
End Property 

Teşekkür

Answer 2

Düzenleme: Tabii ki cevabım işe yaramayacak, cevapta Alex K. tarafından belirtildiği gibi geçici bir dizi kullanmanız gerekecek. Eğer IsMissing yapmak gibi

Sadece dizi döndürür() şube:

' Custom Class Properties 
Private pMtbSheets() As String 

'Get and Let Methods 
Public Property Get MtbSheets(Optional index As Variant) As String() 
    If IsMissing(index) Then 
     ReDim MtbSheets(1 To UBound(pMtbSheets)) 
     MtbSheets = pMtbSheets() 
    Else 
     ReDim MtbSheets(1 To 1) 
     MtbSheets = pMtbSheets(index) 
    End If 
End Property