Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Capital de Ucrania

| 0 comments

Ucrania es un estado ubicado al este de Europa, es el segundo país más grande del continente, con una superficie de 603,700 km2, es parte de las naciones que se formaron como consecuencia de la disolución de la Unión Soviética por lo que su independencia fue declarada el 30 de Junio de 1991.

Limita con Polonia, Eslovaquia y Hungría hacia el oeste, con Rusia hacia el este, con Rumania y Moldavia al suroeste, con Bielorrusia al norte y con el mar Negro al sur. Kiev es la capital del país.

Ucrania tiene una población estimada de 46.2 millones de habitantes y cuenta con el segundo ejército más grande en Europa, después de Rusia. El ucraniano es el idioma oficial, aunque gran parte de la población habla ruso también. La mayoría de los ucranianos se declaran ateos.

El territorio ucraniano está formado por estepas y mesetas por la que fluyen ríos que desembocan en el mar Negro y en el mar de Azov por el sur y en la delta del Danubio en la frontera con Rumania. Las montañas más altas se encuentran en los Montes Cárpatos en el oeste del país.

Para conocer un poco más del País se presenta un archivo interactivo donde podrán observar datos sobre las ciudades del país.

Capital de Ucrania 01

(Para mayor visualización de la imagen, hacer click en la misma)

Una breve reseña

Capital de Ucrania 02

(Para mayor visualización de la imagen, hacer click en la misma)

Datos sobre las provincias del país

Capital de Ucrania 03

(Para mayor visualización de la imagen, hacer click en la misma)

Una pequeña trivia

Capital de Ucrania 04

(Para mayor visualización de la imagen, hacer click en la misma)

Desarrollo en VBA:

A continuación se muestra parte del código utilizado en la elaboración del archivo interactivo para los datos demográficos y la trivia.

Datos Demográficos:

Private Sub UserForm_Activate()

Sheets(“Datos”).Select

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

ComboBox1.AddItem (Cells(i, 1))

Next

End Sub

 

Private Sub ComboBox1_Change()

For j = 2 To Cells(Rows.Count, 1).End(xlUp).Row

If ComboBox1.Value = (Cells(j, 1)) Then

TextBox1 = (Cells(j, 2)) & ” hab.”

TextBox2 = (Cells(j, 3)) & ” km²”

TextBox3 = (Cells(j, 4))

End If

Next

End Sub

 

Trivia:

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then

MsgBox (“La respuesta es incorrecta”)

End If

End Sub

 

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then

MsgBox (“La respuesta es correcta”)

End If

End Sub

 

Elaborado por Sebastian Sánchez Michelena

Ucrania

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5