Пользовательские типы данных VBA - по умолчанию

Question

Я хотел бы определить пользовательский тип данных в VBA и присвоить значение по умолчанию атрибуту.

пример:

Public Type Fruit 
    Name as String 
    Color as String 
    Amount as Integer 'Default 12 
End Type 

Public Sub UseFruit 
    Dim Banana as Fruit 
    Banana.Name = "Banana" 
    Banana.Color = "Yellow" 
    Debug.Print Banana.Amount 
End Sub 

Я хотел бы последняя строка в суб для печати 12; то есть. если я умру фруктом, сумма по умолчанию равна дюжине, если не укажу иначе.

Как это можно сделать? Заранее спасибо!

Answer 1

Если вы не хотите сделать его Const, лучший способ - создать функцию для создания «Фьючерса по умолчанию» для вас.

Просто, чтобы продемонстрировать Const, справедливо следующее, хотя, конечно, он не может быть изменен (это уже не действует VBA):

Public Type Fruit 
    Name As String 
    Color As String 
    Const Amount As Integer = 12 
End Type 

Поскольку вы хотите по умолчанию, но это должно быть изменяемый, я предлагаю использовать функцию для создания фруктов по умолчанию:

Public Type Fruit 
    Name As String 
    Color As String 
    Amount As Integer 
End Type 

Public Sub UseFruit() 
    Dim Banana As Fruit 
    Banana = getDefaultFruit 
    Banana.Name = "Banana" 
    Banana.Color = "Yellow" 
    Debug.Print Banana.Amount 'Prints 12 
End Sub 

Public Function getDefaultFruit() As Fruit 
    getDefaultFruit.Amount = 12 'Default 12 
End Function