Марлен – учитель, и у нее есть ученики, которые любят поиск слов. Она считает, что на их изготовление уходит довольно много времени, но студенты, кажется, намного лучше запоминают материал курса, когда она их использует. Марлен поинтересовалась, существует ли способ автозаполнения диапазона ячеек буквами алфавита от A до Z. Таким образом, она может использовать эту функцию для заполнения квадратов поиска слова буквами, прежде чем она заменит некоторые из этих букв на фактические слова, которые нужно найти.
Инструмент автозаполнения в Excel имеет несколько стандартных последовательностей, которые он заполняет автоматически, например даты и числовые последовательности. Однако очень мощная часть автозаполнения заключается в том, что вы можете создавать настраиваемые списки, которые инструмент использует так же легко, как и встроенные последовательности. Чтобы создать настраиваемый список вручную, вы можете выполнить следующие действия:
- Откройте диалоговое окно «Параметры Excel». (В Excel 2007 нажмите кнопку Office, а затем щелкните Параметры Excel. В Excel 2010 и Excel2013 откройте вкладку Файл на ленте, а затем щелкните Параметры.)
- Если вы используете Excel 2007, убедитесь, что Популярные выбираются слева в диалоговом окне. Если вы используете Excel 2010 или Excel 2013, нажмите «Дополнительно» в левой части экрана и прокрутите вниз до области «Общие».
- Нажмите «Изменить настраиваемые списки». Excel отображает диалоговое окно “Настраиваемые списки” и скрывает диалоговое окно “Параметры Excel”. (См. Рис. 1.)
- Выберите параметр НОВЫЙ СПИСОК в списке «Настраиваемые списки» в левой части диалогового окна.
- В в поле «Список записей» введите каждую букву алфавита, по одной букве в строке. (Нажимайте Enter после каждой набираемой буквы.)
- Когда вы закончите, нажмите кнопку «Добавить».
- Нажмите OK, чтобы закончить.
Рис. 1. Диалоговое окно «Настраиваемые списки».
Чтобы использовать вновь созданный настраиваемый список, просто введите одну или две буквы, с которых вы хотите начать последовательность, выберите эти ячейки и используйте маркер автозаполнения, чтобы перетащить их как столько ячеек, сколько вы хотите заполнить.
Есть другой способ создать собственный список, который может быть немного проще, на тот случай, если вы не хотите вводить двадцать шесть букв в диалоговом окне . Вместо этого, если у вас уже есть буквы алфавита в двадцати шести ячейках, выполните следующие действия:
- Выберите ячейки, содержащие буквы алфавита.
- Отобразить диалоговое окно “Параметры Excel”. (В Excel 2007 нажмите кнопку Office, а затем щелкните Параметры Excel. В Excel 2010 и Excel2013 откройте вкладку Файл на ленте, а затем щелкните Параметры.)
- Если вы используете Excel 2007, убедитесь, что Популярные выбираются слева в диалоговом окне. Если вы используете Excel 2010 или Excel 2013, нажмите «Дополнительно» в левой части экрана и прокрутите вниз до области «Общие».
- Нажмите «Изменить настраиваемые списки». Excel отображает диалоговое окно “Настраиваемые списки” и скрывает диалоговое окно “Параметры Excel”.. Вы также должны заметить, что диапазон ячеек, выбранных на шаге 1, указан слева от кнопки «Импорт».
- Нажмите кнопку «Импорт». Excel добавляет содержимое выбранных ячеек в виде настраиваемого списка.
- Нажмите OK.
Конечно, у использования настраиваемого списка есть один недостаток. , особенно когда речь идет о поиске слов: буквы, добавленные в пустые квадраты, всегда находятся в предсказуемой последовательности, что может сделать поиск реальных слов немного проще, чем вы хотите. Чтобы сделать головоломки более сложными, лучше заполнить квадраты без слов случайными буквами.
Один из простых способов получить случайные буквы – использовать следующую формулу:
= CHAR (RANDBETWEEN (65,90))
Эта формула работает, потому что функция RANDBETWEEN возвращает случайное числовое значение между двумя предоставленными граничными значениями. В этом случае он вернет значение от 65 до 90, которые являются значениями ASCII букв A и Z соответственно. Затем функция CHAR используется для преобразования этого случайного числового значения в настоящую букву.
Если вы создаете много головоломок с поиском слов, вы можете использовать макрос для заполнения диапазона ячеек. со случайными буквами алфавита. Существует множество способов составить такой макрос; следующее – особенно гибкое. Он будет работать либо с предварительно выбранным диапазоном (диапазон, выбранный при запуске макроса), либо вы можете выбрать диапазон после запуска макроса.
Sub AlphaFill () Dim Cell, CellChars Dim По умолчанию, подсказка, заголовок Тусклый диапазон Выбрано как диапазон Тусклый верхний регистр как логическое Title = "AlphaFill Cell Selection" По умолчанию = Selection.Address Prompt = vbCrLf _ & "Используйте мышь вместе с" _ & "клавишами SHIFT и CTRL для" & vbCrLf _ & "щелкните и перетащите или введите имя (я)" _ & "ячеек в AlphaFill" & vbCrLf & vbCrLf _ & "Текущие выбранные ячейки:" & Selection.Address On Error Resume Next Set rangeSelected = InputBox (Подсказка, Заголовок, _ По умолчанию, Тип: = 8) Если rangeSelected - Ничего, тогда выйдите из Sub UpperCase = True Randomize для каждой ячейки в rangeSelected CellChars = Chr (64 + Int ((Rnd * 26) + 1)) Если не в верхнем регистре, то CellChars = LCase (CellChars) Cell.Value = CellChars NextEnd Sub
Код макроса, как написано, вставляет прописные буквы в любой диапазон, который вы указываете. cify. Если вы хотите использовать вместо этого строчные буквы, все, что вам нужно сделать, это установить для переменной UpperCase значение False, а не True.