Excel - Comado If

 
Vista:
sin imagen de perfil
Val: 19
Ha disminuido su posición en 7 puestos en Excel (en relación al último mes)
Gráfica de Excel

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Comado If

Publicado por Armando Montes (240 intervenciones) el 22/03/2013 02:08:01
Intenta con algo asi:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
 
dia_lab = InputBox("Ingrese la Cantidad de Dias Laborados:", "Ingrese Datos")
Range("B4") = dia_lab
Range("C4") = IIf(dia_lab < 240, 15, 25)
MsgBox "Le corresponden : " & Range("C4") & " dias de " & "descanso"
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Comado If

Publicado por Jorge Luis (1 intervención) el 22/03/2013 12:56:12
Gracias Armando ya funciona el ejercicio voy a estudiar un poco este comando iff

Saludos

Jorge
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar