Utilice EXCEL VBA para calcular el día de la semana para cualquier día

Jaja, es súper simple.

No entraré en el proceso de insertar macros. Solo ingresa lo siguiente:

Sub xq()

. p>

Dim j como entero

Dim xq

j = Día de la semana(CDate(Range("A1")), vbSunday)

Seleccionar caso j

p>

Caso 1

xq= "Domingo"

Caso 2

xq= "Lunes"

Caso 3

xq= "Martes"

Caso 4

xq= "Miércoles"

Caso 5

xq = "Jueves"

Caso 6

xq = "Viernes"

Caso 7

xq = "Sábado"

Fin Seleccionar

MsgBox "La hora que ingresaste es:" & Año(Rango("A1")) & "Año" & Mes(Rango("A1" )) & "Mes" & Día(Rango("A1")) & "日." & xq, vbOKOnly, "Preguntar"

End Sub

Si necesita insertar colóquelo en esa celda, antes de MSGbox. Simplemente agregue Range("A5") = xq. Si no está en la hoja de trabajo actual, cámbielo a Sheets("table name").Range("A5")