Comado If
Publicado por Jorge luis (43 intervenciones) el 21/03/2013 21:35:40
Me dieron este ejercicio pero no me sale los días de descanso, les envio parte de la programación
que he efectuado
a Cree una nueva macro que se llamará: Descanso, en ella deberá ingresar el valor de
los días laborados por los empleados.
b. Si el empleado ha trabajado menos de 240 días debe tocarle 15 días de descanso,
de lo contrario le tocarán 25 días de descanso.
c. El valor de Días laborados se mostrará en la celda activa, seguido de la cantidad de
días de Descanso (celda adyacente).
d. Deben mostrarse los títulos encima de cada valor (vea el modelo) y la cantidad de
días de descanso también se mostrará a través de una caja de diálogo.
Sub Descanso()
Dim dia_lab As Double
Dim dia_desc As Double
Range("B3").Value = " Días Lab. " 'Coloco los textos en la celda B3
Range("C3").Value = " Días Desc." 'Coloco los textos en la celda B3
If dia_lab < 240 Then
dia_lab = InputBox("Ingrese la Cantidad de Dias Laborados:", "Ïngrese Datos")
Range("B4").Value = dia_lab
dis_desc = desc
desc = 15
Range("C4").Value = desc
MsgBox "Le corresponden : " & desc & " dias de " & "descanso"
Else
dis_desc = desc
desc = 25
Range("C4").Value = desc
MsgBox "Le corresponden : " & desc & " dias de " & "descanso"
End If
End Sub
que he efectuado
a Cree una nueva macro que se llamará: Descanso, en ella deberá ingresar el valor de
los días laborados por los empleados.
b. Si el empleado ha trabajado menos de 240 días debe tocarle 15 días de descanso,
de lo contrario le tocarán 25 días de descanso.
c. El valor de Días laborados se mostrará en la celda activa, seguido de la cantidad de
días de Descanso (celda adyacente).
d. Deben mostrarse los títulos encima de cada valor (vea el modelo) y la cantidad de
días de descanso también se mostrará a través de una caja de diálogo.
Sub Descanso()
Dim dia_lab As Double
Dim dia_desc As Double
Range("B3").Value = " Días Lab. " 'Coloco los textos en la celda B3
Range("C3").Value = " Días Desc." 'Coloco los textos en la celda B3
If dia_lab < 240 Then
dia_lab = InputBox("Ingrese la Cantidad de Dias Laborados:", "Ïngrese Datos")
Range("B4").Value = dia_lab
dis_desc = desc
desc = 15
Range("C4").Value = desc
MsgBox "Le corresponden : " & desc & " dias de " & "descanso"
Else
dis_desc = desc
desc = 25
Range("C4").Value = desc
MsgBox "Le corresponden : " & desc & " dias de " & "descanso"
End If
End Sub
Valora esta pregunta
0