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.
(Para mayor visualización de la imagen, hacer click en la misma)
Una breve reseña
(Para mayor visualización de la imagen, hacer click en la misma)
Datos sobre las provincias del país
(Para mayor visualización de la imagen, hacer click en la misma)
Una pequeña trivia
(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