Марлен — учитель, и у нее есть ученики, которые любят поиск слов. Она считает, что на их изготовление уходит много времени, но студенты, кажется, намного лучше запоминают материал курса, когда она их использует. Марлен поинтересовалась, есть ли способ автозаполнения диапазона ячеек буквами алфавита от A до Z. Таким образом, она может использовать эту функцию для заполнения квадратов поиска слова буквами, прежде чем она заменит некоторые из этих букв на фактические слова для поиска.

Инструмент «Автозаполнение» в Excel имеет несколько стандартных последовательностей, которые заполняются автоматически, например даты и числовые последовательности. Однако очень мощная часть автозаполнения заключается в том, что вы можете создавать настраиваемые списки, которые инструмент использует так же легко, как и встроенные последовательности. Чтобы создать собственный список вручную, вы можете выполнить следующие действия:

  1. Откройте диалоговое окно «Параметры Excel». (В Excel 2007 нажмите кнопку «Офис», а затем — «Параметры Excel. В Excel 2010 и Excel2013 откройте вкладку« Файл »на ленте, а затем нажмите« Параметры ».)

  2. Если вы используете Excel 2007, убедитесь, что в левой части диалогового окна выбрано «Популярные». Если вы используете Excel 2010 или Excel 2013, нажмите «Дополнительно» в левой части экрана и прокрутите вниз до области «Общие».

  3. Щелкните Изменить настраиваемые списки. Excel отображает диалоговое окно «Настраиваемые списки» и скрывает диалоговое окно «Параметры Excel». (См. Рис. 1.)

  4. Выберите параметр НОВЫЙ СПИСОК из списка Настраиваемые списки в левой части диалогового окна.

  5. В поле «Список записей» введите каждую букву алфавита, по одной букве в строке. (Нажимайте Enter после каждой вводимой буквы.)

  6. Когда вы закончите, нажмите кнопку «Добавить».

  7. Щелкните OK, чтобы закончить.

Чтобы использовать недавно созданный настраиваемый список, просто введите одну или две буквы, с которых вы хотите начать последовательность, выберите эти ячейки и используйте маркер автозаполнения, чтобы перетащить столько ячеек, сколько вы хотите заполнить.

Есть еще один способ создать собственный список, который может быть немного проще, на случай, если вы не хотите вводить двадцать шесть букв в диалоговом окне. Вместо этого, если у вас уже есть буквы алфавита в двадцати шести ячейках, выполните следующие действия:

  1. Выделите ячейки, содержащие буквы алфавита.

  2. Откройте диалоговое окно «Параметры Excel». (В Excel 2007 нажмите кнопку «Офис», а затем — «Параметры Excel. В Excel 2010 и Excel2013 откройте вкладку« Файл »на ленте, а затем нажмите« Параметры ».)

  3. Если вы используете Excel 2007, убедитесь, что в левой части диалогового окна выбрано «Популярные». Если вы используете Excel 2010 или Excel 2013, нажмите «Дополнительно» в левой части экрана и прокрутите вниз до области «Общие».

  4. Щелкните Изменить настраиваемые списки. Excel отображает диалоговое окно «Настраиваемые списки» и скрывает диалоговое окно «Параметры Excel». Вы также должны заметить, что диапазон ячеек, выбранных вами на шаге 1, указан слева от кнопки «Импорт».

  5. Щелкните кнопку Импорт. Excel добавляет содержимое выбранных ячеек в виде настраиваемого списка.

  6. Щелкните ОК.

Конечно, у использования настраиваемого списка есть один недостаток, особенно когда речь идет о поиске слов: буквы, добавленные в пустые квадраты, всегда находятся в предсказуемой последовательности, что может сделать поиск реальных слов немного проще, чем вы хотите. Чтобы головоломки были немного сложнее, лучше заполнить квадраты без слов случайными буквами.

Один из простых способов получить случайные буквы — использовать следующую формулу:

=CHAR(RANDBETWEEN(65,90))

Эта формула работает, потому что функция RANDBETWEEN возвращает случайное числовое значение между двумя предоставленными граничными значениями. В этом случае он вернет значение от 65 до 90, которые являются значениями ASCII букв A и Z соответственно. Затем функция CHAR используется для преобразования этого случайного числового значения в фактическую букву.

Если вы создаете много головоломок с поиском слов, вы можете использовать макрос для заполнения диапазона ячеек случайными буквами алфавита.

Существует множество способов составить такой макрос; следующее — особенно гибкое. Он будет работать либо с предварительно выбранным диапазоном (диапазон, выбранный при запуске макроса), либо вы можете выбрать диапазон после запуска макроса.

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

Код макроса в том виде, в котором он написан, вставляет заглавные буквы в любой указанный вами диапазон. Если вы хотите использовать вместо этого строчные буквы, все, что вам нужно сделать, это установить для переменной UpperCase значение False, а не True.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (7803) применим к Microsoft Excel 2007, 2010 и 2013. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-AutoFilling_with_the_Alphabet [Автозаполнение с помощью алфавита].