Marlene es maestra y tiene estudiantes que aman la búsqueda de palabras. A ella le toma bastante tiempo hacerlos, pero los estudiantes parecen recordar mucho mejor el material del curso cuando los usa. Marlene se preguntó si había alguna forma de Autocompletar un rango de celdas con letras del alfabeto, de la A a la Z. De esa manera, puede usar la función para completar los cuadrados de la búsqueda de palabras con letras, antes de reemplazar algunas de esas letras con las palabras reales que se buscarán.

La herramienta Autocompletar en Excel tiene algunas secuencias estándar que completará automáticamente, como fechas y secuencias numéricas. Sin embargo, la parte más poderosa de Autocompletar es que puede crear listas personalizadas que la herramienta usa con la misma facilidad que las secuencias integradas. Para crear una lista personalizada manualmente, puede seguir estos pasos:

  1. Elija Opciones en el menú Herramientas. Excel muestra el cuadro de diálogo Opciones.

  2. Asegúrese de que la pestaña Listas personalizadas esté seleccionada. (Ver figura 1)

  3. En el cuadro Listar entradas, ingrese cada letra del alfabeto, una letra por línea. (Presione Entrar después de cada letra que escriba).

  4. Haga clic en Agregar.

Ahora ha creado su lista personalizada y puede cerrar cualquier cuadro de diálogo abierto. Para usar la lista personalizada, simplemente escriba una o dos letras con las que desea comenzar la secuencia, seleccione esas celdas y use el controlador de Autocompletar para arrastrar tantas celdas como desee completar.

Hay otra forma de crear la lista personalizada que puede ser un poco más sencilla, en caso de que no desee escribir veintiséis letras en el cuadro de diálogo. En cambio, si ya tiene las letras del alfabeto en veintiséis celdas, simplemente seleccione esas celdas y siga estos pasos:

  1. Elija Opciones en el menú Herramientas. Excel muestra el cuadro de diálogo Opciones.

  2. Asegúrese de que la pestaña Listas personalizadas esté seleccionada. El rango de celdas que seleccionó debe mostrarse en el cuadro Importar lista de celdas.

  3. Haga clic en Importar.

Ahora puede cerrar el cuadro de diálogo y usar la lista personalizada como desee.

Por supuesto, hay un inconveniente con el uso de una lista personalizada, especialmente cuando se trata de crear búsquedas de palabras: las letras agregadas a los cuadrados en blanco siempre están en una secuencia predecible, lo que podría hacer que encontrar las palabras reales sea un poco más fácil de lo que desea. Para hacer los rompecabezas un poco más desafiantes, sería mejor llenar los cuadrados que no contienen palabras con letras al azar.

Una forma sencilla de obtener letras al azar es utilizar la siguiente fórmula:

=CHAR(RANDBETWEEN(65,90))

Esta fórmula funciona porque la función RANDBETWEEN devuelve un valor numérico aleatorio entre los dos valores de límite proporcionados. En este caso, devolverá un valor entre 65 y 90, que son los valores ASCII de las letras A y Z, respectivamente. La función CHAR se utiliza para convertir este valor numérico aleatorio en una letra real.

La función RANDBETWEEN es parte de Analysis ToolPak, un complemento que muchas personas han instalado en Excel. (Elija Herramientas | Complementos para ver si lo tiene instalado). Si prefiere no tener el complemento habilitado, puede confiar en una fórmula más básica, como la siguiente:

=CHAR((65+(90-65)*RAND()))

La función CHAR debería resultar familiar; la única diferencia es el uso de la función RAND para generar el valor aleatorio en lugar de RANDBETWEEN.

Si crea muchos acertijos de búsqueda de palabras, es posible que desee utilizar una macro para llenar un rango de celdas con letras aleatorias del alfabeto.

Hay muchas formas en las que se puede armar una macro de este tipo; el siguiente es uno que es particularmente flexible. Funcionará con un rango preseleccionado (un rango seleccionado cuando ejecuta la macro) o puede seleccionar un rango después de ejecutar la macro.

Sub AlphaFill()

Dim Cell, CellChars     Dim Default, Prompt, Title     Dim rangeSelected As Range     Dim UpperCase As Boolean

Title = "AlphaFill Cell Selection"

Default = Selection.Address     Prompt = vbCrLf _       & "Use mouse in conjunction with " _       & "SHIFT and CTRL keys to" & vbCrLf _       & "click and drag or type in name(s) " _       & "of cell(s) to AlphaFill" & vbCrLf & vbCrLf _       & "Currently selected cell(s): "

& Selection.Address

On Error Resume Next     Set rangeSelected = InputBox(Prompt, Title, _       Default, Type:=8)

If rangeSelected Is Nothing Then Exit Sub

UpperCase = True     Randomize     For Each Cell In rangeSelected         CellChars = Chr(64 + Int((Rnd * 26) + 1))

If Not UpperCase Then CellChars = LCase(CellChars)

Cell.Value = CellChars     Next End Sub

El código de macro, tal como está escrito, inserta las letras mayúsculas en cualquier rango que especifique. Si desea utilizar letras minúsculas en su lugar, todo lo que necesita hacer es establecer la variable UpperCase en False en lugar de True.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3109) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-AutoFilling_with_the_Alphabet [Autocompletar con el alfabeto].