Конрад хотел бы имитировать возможности Word в Excel. Единственный способ, которым он может это сделать, – это разработать макрос, который проходит через каждого символа в ячейке. Если символ в нижнем регистре и 11 пунктов, то макрос должен изменить символ на верхний регистр 9 пунктов. Если символ в верхнем регистре (или не буква), это не должно происходить. Проблема в том, что Конрад не знает, как повлиять на форматирование отдельных символов в ячейке описанным способом.
При использовании макроса для воздействия только на определенные символы в ячейке хорошо помните, что каждая ячейка имеет свою собственную коллекцию символов, к которой можно получить доступ и изменить. Каждый элемент в коллекции представляет, как и следовало ожидать, один символ в ячейке.
Это позволяет нам составить макрос, который проверяет, что в настоящее время находится в ячейке, и если символ в настоящее время нижний регистр, преобразовать только этот символ в верхний регистр и уменьшить размер шрифта этого символа.
Sub SmallCaps () Dim rCell As Range Dim sWords As String Dim sCharacter As String Dim x As Long ‘пройти по каждой ячейке in selection For Each rCell In Selection ‘Не хочу работать с формулами, если не rCell.HasFormula Then sWords = rCell.Value’ Получить содержимое ячейки For x = 1 To Len (sWords) ‘Действие на каждую букву sCharacter = Mid ( sWords, x, 1) Если sCharacter> = «a» и sCharacter
Этот макрос выполняет свою работу по Ячейки tever выбираются при его запуске. Он проверяет, не содержит ли ячейка формулы (формулы пропускаются), а затем вносит какие-либо изменения в символы нижнего регистра в ячейке.
Использование макросов, таких как это, и вы должны знать о них. Самый большой недостаток в том, что он фактически изменяет то, что находится в ячейках. Когда это будет сделано, ячейки будут содержать весь текст в верхнем регистре, даже несмотря на то, что форматирование может сделать его похожим на маленькие заглавные буквы. Это означает, что у вас могут возникнуть проблемы при последующем запуске макроса во второй раз, а инструменты проверки правописания Excel (например, проверка орфографии) не будут работать со словами, написанными заглавными буквами. (Однако Excel можно настроить так, чтобы по-прежнему проверять орфографию в таких словах.)
Из-за недостатков вы можете выбрать совершенно другой подход — изменить шрифт, который вы используете для ячеек, в которых вы хотите маленькие шапки. Если вы поищете в Интернете «шрифты с заглавными буквами» (без кавычек), вы сможете найти много кандидатов, и значительное количество из них доступны бесплатно. Вот один сайт, на котором может быть что-то, что вам нравится:
https://www.fontsquirrel. com/fonts/list/tag/small% 20caps
Просто загрузите нужный шрифт (из этого или любого другого авторитетного источника) и установите его в своей системе. При перезапуске Excel шрифт должен быть доступен для форматирования ячеек. В ячейках, отформатированных для использования такого шрифта, текст будет отображаться в виде маленьких заглавных букв, даже если фактическое содержимое ячейки представляет собой смесь заглавных и строчных букв.
Источник: