Excel Avanzando Macros

Registro de Notas

Centro de Alta Tecnología

Microsoft Office 2010
Excel Macros

Sub Calcular_Promedio()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
IFRange(“F7”).Value = ““ Then
IF Range(“F9”).Value = ““ Then
IF Range(“F11”).Value = ““ Then
MsgBox “Ingresar todas las notas.”
Else
MsgBox “Ingresar las notas de Examen Oral y Examen Escrito .”
EndIF
Else
IF Range(“F11”).Value = ““ Then
MsgBox “Ingresar las notas de Examen Oral y Proyecto de Investigación .”
Else
MsgBox “Ingresar la nota de Examen Oral.”
End IF
End IF
Range(“F7”).SelectElse
IF Range(“F9”).Value = ““ Then
IF Range(“F11”).Value = ““ Then
MsgBox “Ingresar las notas de Examen Escrito y Proyecto de Investigación .”
Else
MsgBox “Ingresar la nota de Examen Escrito.”End IF
Range(“F9”).Select
Else
IF Range(“F11”).Value = ““ Then
MsgBox “Ingresar la nota de Proyecto de Investigación .”
Range(“F11”).Select
Else
ActiveSheet.Range(“D4:F4”).Locked = TrueActiveSheet.Range(“F7”).Locked = True
ActiveSheet.Range(“F9”).Locked = True
ActiveSheet.Range(“F11”).Locked = True
ActiveSheet.Range(“D13”).Locked = False
Range(“D13”).Select
ActiveCell.FormulaR1C1 =“=AVERAGE(R[-6]C[2],R[-4]C[2],R[-2]C[2])”
ActiveSheet.Range(“D13”).Locked = True
Range(“A1”).Select
End IF
End IF
End IF
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True1

Santiago Granda Castañeda
Docente del Curso

Excel Avanzado 10 - Macros

Organización Educativa
Leonardo Da Vinci

Organización Educativa
Leonardo Da VinciActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Sub Calcular_Estado()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
IF Range(“D13”).Value = ““ Then
MsgBox “Calcular primero elPromedio.”
Else
ActiveSheet.Range(“D13:D14”).Locked = False
Range(“D13”).Select
IF ActiveCell.Value >= 10.5 Then
Range(“D14”).Font.Color = RGB(0, 0, 255)
Range(“D14”).FormulaR1C1 = “Aprobado”...