Usar un if dentro de secuencia for
Buenos Días. Mi pregunta es la siguiente. Tengo el siguiente código
If S1.Value = True Then
NUM1 = 3.5 * (VA1 - AL1)
ElseIf S1.Value = False Then
NUM1 = 0
End If
Pero tengo 15 textbox y debo hacer este código para los 15 casos:
If S2.Value = True Then
NUM1 = 3.5 * (VA2 - AL2)
ElseIf S2.Value = False Then
NUM1 = 0
End If
¿Puedo hacer esta secuencia con un for?
Muchas gracias
If S1.Value = True Then
NUM1 = 3.5 * (VA1 - AL1)
ElseIf S1.Value = False Then
NUM1 = 0
End If
Pero tengo 15 textbox y debo hacer este código para los 15 casos:
If S2.Value = True Then
NUM1 = 3.5 * (VA2 - AL2)
ElseIf S2.Value = False Then
NUM1 = 0
End If
¿Puedo hacer esta secuencia con un for?
Muchas gracias
1 respuesta
Respuesta de vorkosigan
1
Se puede hacer si creas un array de objetos tipo TextBox:
dim oTB(20) as object
dim i as integer
set oTB(0) = TextBox1
set oTB(1) = TextBox2
...
for i=0 to 20
oTB(i)= "hola"
next
dim oTB(20) as object
dim i as integer
set oTB(0) = TextBox1
set oTB(1) = TextBox2
...
for i=0 to 20
oTB(i)= "hola"
next
