Cómo hacer select case con option button
Tengo estas variables asociadas a unos option button del form:
TipoReg1 = frmregistro.entradaopt.Value
TipoReg2 = frmregistro.cafeinopt.Value
TipoReg3 = frmregistro.cafeoutopt.Value
TipoReg4 = frmregistro.almuerzoinopt.Value
TipoReg5 = frmregistro.almuerzooutopt.Value
TipoReg6 = frmregistro.salidaopt.Value
Y tengo esto:
If TipoReg1 = True Then
'Hoja2.Cells(Fila, Columna + 4) = Hora
'frmregistro.entradalbl.Caption = Hora
'ElseIf TipoReg3 = True Then
'Hoja2.Cells(Fila, Columna + 5) = Hora
ElseIf TipoReg2 = True Then
Hoja2.Cells(Fila, Columna + 6) = Hora
ElseIf TipoReg5 = True Then
Hoja2.Cells(Fila, Columna + 7) = Hora
ElseIf TipoReg4 = True Then
Hoja2.Cells(Fila, Columna + 8) = Hora
ElseIf TipoReg6 = True Then
Hoja2.Cells(Fila, Columna + 9) = Hora
End If
Me funciona, pero quisera hacerlo con un select case.
1 Respuesta
Utilice una variable tipo boolean
Dim btnopt As Boolean
Y luego este código:
btnopt = True
Select Case btnopt
Case TipoReg1 = True
Hoja2.Cells(Fila, Columna + 4) = Hora
Exit For
Case TipoReg3 = True
Hoja2.Cells(Fila, Columna + 5) = Hora
Exit For
Case TipoReg2 = True
Hoja2.Cells(Fila, Columna + 6) = Hora
Exit For
Case TipoReg5 = True
Hoja2.Cells(Fila, Columna + 7) = Hora
Exit For
Case TipoReg4 = True
Hoja2.Cells(Fila, Columna + 8) = Hora
Exit For
Case TipoReg6 = True
Hoja2.Cells(Fila, Columna + 9) = Hora
Exit For
End Select
