values - selection.copy vba excel

¿Clonación de objetos en VBA?

Question

¿Hay una manera genérica de clonar objetos en VBA? ¿Para que pueda copiar xay en vez de copiar solo el puntero?

 Dim x As New Class1
Dim y As Class1
x.Color = 1
x.Height = 1
Set y = x
y.Color = 2
Debug.Print "x.Color=" & x.Color & ", x.Height=" & x.Height

Por genérico me refiero a algo así como Set y = CloneObject(x) lugar de tener que crear mi propio método para que la clase copie sus propiedades una a una.

Answer 1

No creo que haya nada incorporado, aunque sería bueno.

Creo que al menos debería haber una manera de crear un método Clone automáticamente usando el Editor de VBA. Veré si puedo echarle un vistazo una vez que llevo a los niños a la cama ...

Answer 2

OK, aquí está el comienzo de algo que lo ilustra:

Crea una clase, llámala, oh, "Class1":

Option Explicit
Public prop1 As Long
Private DontCloneThis As Variant
Public Property Get PrivateThing()
PrivateThing = DontCloneThis
End Property
Public Property Let PrivateThing(value)
DontCloneThis = value
End Property

Ahora tenemos que darle una función de clonación. En otro módulo, intente esto:

Opción explícita

Public Sub makeCloneable()
Dim idx As Long
Dim line As String
Dim words As Variant
Dim cloneproc As String
'' start building the text of our new function
cloneproc = "Public Function Clone() As Class1" & vbCrLf
cloneproc = cloneproc & "Set Clone = New Class1" & vbCrLf
'' get the code for the class and start examining it
With ThisWorkbook.VBProject.VBComponents("Class1").CodeModule
For idx = 1 To .CountOfLines
line = Trim(.lines(idx, 1)) '' get the next line
If Len(line) > 0 Then
line = Replace(line, "(", " ") '' to make words clearly delimited by spaces
words = Split(line, " ") '' so we get split on a space
If words(0) = "Public" Then '' can''t set things declared Private
'' several combinations of words possible
If words(1) = "Property" And words(2) = "Get" Then
cloneproc = cloneproc & "Clone." & words(3) & "=" & words(3) & vbCrLf
ElseIf words(1) = "Property" And words(2) = "Set" Then
cloneproc = cloneproc & "Set Clone." & words(3) & "=" & words(3) & vbCrLf
ElseIf words(1) <> "Sub" And words(1) <> "Function" And words(1) <> "Property" Then
cloneproc = cloneproc & "Clone." & words(1) & "=" & words(1) & vbCrLf
End If
End If
End If
Next
cloneproc = cloneproc & "End Function"
'' put the code into the class
.AddFromString cloneproc
End With
End Sub

Ejecuta eso, y lo siguiente se agrega a Class1

Public Function Clone() As Class1
Set Clone = New Class1
Clone.prop1 = prop1
Clone.PrivateThing = PrivateThing
End Function

... que parece un comienzo. Muchas cosas que limpiaría (y probablemente lo haga, esto resultó ser divertido). Una buena expresión regular para encontrar los atributos gettable / lettable / settable, refactorizar en varias funciones pequeñas, codificar para eliminar funciones antiguas de "Clone" (y poner la nueva al final), algo un poco más Stringbuilder-ish to DRY (Don '' t Repeat Yourself) hasta las concatenaciones, cosas así.

Answer 3

Private pOldinfo As YourClass
Public Property Set clone(ByVal Value As YourClass)
Set pOldinfo = Value
End Property

la palabra clave ByVal debería resolver su problema.

Answer 4

Scott Whitlock ha publicado una respuesta fantástica a este problema en otra pregunta.