Como hago para que Call pase el valor en Visual Basic?

[abeh]

Tengo problemas con la funcion Call en Visual Basic para Excel ya que el codigo de abajo cuando va a la subrutina Letras no pasa ningun valor en la variable letra asi lo ponga en parentesis sencillos o dobles o le ponga ByRef. En mi casa si corre pero en la Universidad que la version es mas antigua, no corre. Como puedo hacer para que me pase un valor A, B, etc. en letra??????

Private Sub Ejecutar_Click()

For dia = o to 365

columnafinal=2
Call Letras(columnafinal, (letra))
letra_fin = letra
'El resto del progarma

Next dia

End Sub
--------------------------------------...
Public Sub Letras(ByVal columna As Integer, ByRef letra As String)

Select Case columna
Case 1
letra = "A"
Case 2
letra = "B"
Case 3
letra = "C"
Case 4
letra = "D"
Case Else
Stop
End Select

End Sub

[manzarinaa]

yo veo que no estas dando ningún valor a letra y que la llamada seria
Call Letras(columnafinal, letra)

[Avellaneda]

Iniciado por abeh

Tengo problemas con la funcion Call en Visual Basic para Excel ya que el codigo de abajo cuando va a la subrutina Letras no pasa ningun valor en la variable letra asi lo ponga en parentesis sencillos o dobles o le ponga ByRef. En mi casa si corre pero en la Universidad que la version es mas antigua, no corre. Como puedo hacer para que me pase un valor A, B, etc. en letra??????

Hola,

un procedimiento Sub no devuelve ningún valor, ese código funcionará si la variable letra está declarada como Public (o al principio del módulo).

Para devolver un valor necesitas una Función. Te pongo un ejemplo en el que con sólo una línea de código obtienes lo esperado:

Código:

Private Sub Ejecutar_Click()
For dia = 0 To 365
    columnafinal = 2
    letra_fin = Letras(columnafinal)
    'El resto del progarma
    '.... aquí supongo que incrementarás el valor de columnafinal, sino te va a repetir
    '366 veces el mismo proceso y con el mismo valor
Next dia
End Sub

Public Function Letras(ByVal columna As Integer) As String
Letras = Chr(columna + 64)
End Function

[Txoco]

Hola!

Manzarinaa tiene razón: si pasas la variable entre paréntesis, estás haciendo un cambio de tipo (lo que se llama casting), que para VB significa que dentro de la función es una variable nueva y distinta a la que está fuera. Es decir, la variable "letra" tiene una posición en memoria, pero si la pasas como "(letra)", le estás diciendo que copie "letra" en otra posición temporal y la pase como cadena, en este caso, ya que es así como está definida la función. Por tanto, la función "Letras" está modificando una variable que desaparece al terminar la llamada y no está disponible en la siguiente instrucción. Además, también es bueno que inicialices las variables antes de usarlas.

No obstante, lo recomendable es que definas la función como te ha dicho Avellaneda, porque es más legible y es la forma en que se debe hacer para obtener valores, y que te reserves los paréntesis únicamente para los "truquillos"