Excel макрос жирный шрифт - Word и Excel - помощь в работе с программами

Форматирование текста в ячейке при помощи кода VBA Excel. Объект Font и его основные свойства. Примеры изменения начертания строк в заданном диапазоне.

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

Формат отображаемого значения

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

рабочего листа по умолчанию;
установленный для диапазона пользователем;
примененный к диапазону из кода VBA Excel.

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

У объекта Range есть свойство Font (шрифт), которое отвечает за форматирование (начертание) визуально отображаемого текста в ячейках рабочего листа. Его применение вызывает объект Font, который в свою очередь обладает собственным набором свойств, отвечающих за конкретный стиль начертания отображаемого значения.

Свойство	Описание	Значения
Name	наименование шрифта	«Arial», «Calibri», «Courier New», «Times New Roman» и т.д.
Size	размер шрифта	от 1 до 409 пунктов
Bold	полужирное начертание	True, False
Italic	курсивное начертание	True, False
FontStyle	заменяет Bold и Italic	«обычный», «полужирный», «курсив», «полужирный курсив»
Superscript	надстрочный текст	True, False
Subscript	подстрочный текст	True, False
Underline	подчеркнутый текст	True, False
Color*	цвет текста	от 0 до 16777215

*Color — это не единственное свойство, отвечающее за цвет отображаемого текста в ячейке. Оно также может принимать и другие значения, кроме указанных в таблице. Смотрите подробности в статьях Цвет текста (шрифта) в ячейке и Цвет ячейки (заливка, фон).

Примеры форматирования текста

Пример 1
В этом примере ячейкам диапазона «A1:A3» присвоим шрифты разных наименований:

Sub Primer1()

Range(«A1»).Font.Name = «Courier»

Range(«A1») = «Шрифт «Courier»»

Range(«A2»).Font.Name = «Verdana»

Range(«A2») = «Шрифт «Verdana»»

Range(«A3»).Font.Name = «Times New Roman»

Range(«A3») = «Шрифт «Times New Roman»»

End Sub

Пример 2
В этом примере рассмотрим применение одного свойства объекта Font к одной ячейке:

Sub Primer2()

Range(«A5»).Font.Bold = True

Range(«A5») = «Полужирное начертание»

Range(«A6»).Font.FontStyle = «полужирный курсив»

Range(«A6») = «Полужирный курсив»

Range(«A7»).Font.Superscript = True

Range(«A7») = «Надстрочное начертание»

End Sub

Пример 3
Форматирование диапазона из нескольких ячеек:

Sub Primer3()

With Range(«A9:C11»)

.Value = «Форматируем диапазон»

.Font.Underline = True

.Font.Color = 75962

End With

End Sub

Пример 4
Пример форматирования шрифта в разных ячейках по одному свойству:

Sub Primer4()

Cells(1, 1) = «Свойство шрифта Bold = True»

Cells(1, 1).Font.Bold = True

Cells(2, 1) = «Свойство шрифта Color = xlGreen»

Cells(2, 1).Font.Color = xlGreen

Cells(3, 1) = «Свойство шрифта ColorIndex = 32»

Cells(3, 1).Font.ColorIndex = 32

Cells(4, 1) = «Свойство шрифта FontStyle = ««Bold Italic»«»

Cells(4, 1).Font.FontStyle = «Bold Italic»

Cells(5, 1) = «Свойство шрифта Italic = True»

Cells(5, 1).Font.Italic = True

Cells(6, 1) = «Свойство шрифта Name = ««Courier New»«»

Cells(6, 1).Font.Name = «Courier New»

Cells(7, 1) = «Свойство шрифта Size = 14»

Cells(7, 1).Font.Size = 14

Cells(8, 1) = «Свойство шрифта Subscript = True»

Cells(8, 1).Font.Subscript = True

Cells(9, 1) = «Свойство шрифта Superscript = True»

Cells(9, 1).Font.Superscript = True

Cells(10, 1) = «Свойство шрифта Underline = True»

Cells(10, 1).Font.Underline = True

End Sub

Источник

Written by Puneet for Excel 2007, Excel 2010, Excel 2013, Excel 2016, Excel 2019, Excel for Mac

Key Notes

To make changes in a font, you need to use the VBA Font object.
There is a total of 18 properties with the font object that you can access and make changes.

VBA Font Object

In VBA, there is a font object which you can use to change properties of the font from a cell, like, font color, font size, font type, and you can also apply bold and italic to the font.

Syntax

expression.font

To use it, first, you need to define the cell address, which you can specify in the following ways.

Selection.Font
Range("A1").Font
Cells(1, 1).Font
Range("A1:A5").Font

To change the color of the font, you have two different ways:

1. Using Color Constants

Excel has a few color constants that you can use to apply color to the font. For example, if you want to apply the red color to the font in cell A1, the code would be like the below:

Range("A1").Font.Color = vbRed

In the above code, after the font object, color is the property and you have used the vbRed constant that tells VBA to apply the red color to the cell A1. There is a total of eight constants that you can use:

vbBlack: Black
vbRed: Red
vbGreen: Green
vbYellow: Yellow
vbBlue: Blue
vbMagenta: Magenta
vbCyan: Cyan
vbWhite: White

2. Using RGB

You can also use the RGB color code to apply color to the font. RGB is the combination of red, green, and blue colors, where you can create a custom color using the code. Let’s say if you want to apply a combination of green and blue color to cell A1 the code would be:

Range("A1").Font.Color = RGB(0, 255, 255)

VBA Font Size

Font object also gives you access to the size property of the font. Let’s say you want to apply the font size of 16 to the font in the cell A1, the code would be:

Range("A1").Font.Size = 16

If you want to apply font size to all cells in a worksheet you can use the following code:

Cells.Font.Size = 16

And if only want to apply font size to cells where you have data, the code would be:

ActiveSheet.UsedRange.Font.Size = 16

Or to the selected cell.

Selection.Font.Size = 16

VBA Font Name

In the same way, you can also change the font name using the name property of the font object. Let’s say you want to apply the “Consolas” font the cell A1. The code would be:

Range("A1").Font.Name = "Consolas"

While using this property, you need to type the correct name of the font that you want to apply, and if somehow the name is incorrect, it won’t show you an error.

VBA Font Bold, Italic, and Underline

There are also properties that you can use to make the font bold, italic, and underline. Below are the codes that you need to write for this.

Range("A1").Font.Bold = True
Range("A1").Font.Italic = True
Range("A1").Font.Underline = True

With these properties, you need to define TRUE or FALSE. So if the font is already bold or italic and you want to remove it, then you need to use FALSE to remove them.

Other Useful Font Properties

Here add a few more properties that can be useful for you (Strikethrough, Subscript, and Superscript).

Range("A1").Font.Strikethrough = True
Range("A1").Font.Subscript = True
Range("A1").Font.Superscript = True

Шрифт ячейки VBA — изменение цвета, размера, стиля и т. Д.

Шрифт ячейки VBA

В VBA вы можете изменить свойства шрифта с помощью свойства шрифта VBA объекта Range. Введите следующий код в редактор VBA, и вы увидите список всех доступных вариантов:

Ниже мы обсудим несколько наиболее распространенных свойств.

Изменить цвет шрифта

Есть несколько способов установить цвета шрифта.

vbColor

Самый простой способ установить цвета — использовать vbColors:

1	Диапазон («a1»). Font.Color = vbRed

Однако количество доступных цветов очень ограничено. Это единственные доступные варианты:

Цвет — RGB

Вы также можете установить цвета на основе RGB (красный, зеленый, синий). Здесь вы вводите значения цвета от 0 до 255 для красного, зеленого и синего. Используя эти три цвета, вы можете сделать любой цвет:

1	Диапазон («a1»). Font.Color = RGB (255,255,0)

ColorIndex

VBA / Excel также имеет свойство ColorIndex. Это делает вам доступными предварительно созданные цвета. Однако они хранятся в виде порядковых номеров, что затрудняет определение того, что это за цвет:

1	Диапазон («a1»). Font.ColorIndex =…

Мы написали статью о цветовых кодах VBA, включая список кодов VBA ColorIndex. Там вы можете узнать больше о цветах.

Размер шрифта

Это установит размер шрифта на 12:

1	Диапазон («a1»). Размер шрифта = 12

1	Диапазон («a1»). Размер шрифта = 16

Жирный шрифт

Установить полужирный шрифт ячейки легко:

1	Диапазон («A1»). Font.Bold = True

или очистить форматирование полужирным шрифтом:

1	Диапазон («A1»). Font.Bold = False

Название шрифта

Чтобы изменить название шрифта, используйте Имя имущество:

1	Диапазон («A1»). Font.Name = «Calibri»

1	Диапазон («A1»). Font.Name = «Arial»

1	Диапазон («A1»). Font.Name = «Times New Roman»

Стиль ячейки

Excel предлагает возможность создавать «стили» ячеек. Стили можно найти в Главная Лента> Стили:

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

Лично для многих моделей, над которыми я работаю, я обычно создаю стиль ячейки «Вход»:

1	Диапазон («a1»). Style = «Input»

Используя стили, вы также можете легко определять типы ячеек на вашем листе. В приведенном ниже примере выполняется цикл по всем ячейкам на листе и изменяется любая ячейка со Style = «Input» на «InputLocked»:

Источник

Макросы для изменения формата ячеек в таблице Excel

В данном примере описаны макросы для автоматического форматирования или спроса формата для ячеек таблиц Excel средствами VBA.

VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк

В процессе запыления данных сотрудниками отдела на некоторых листах были изменены форматы ячеек:

Необходимо сбросить форматирование ячеек и сделать так чтобы на всех таблицах планов выполнения работ были одинаковые форматы отображения данных. Формат ячеек для исходной таблицы должен быть закреплен за шаблоном, чтобы можно было сделать сброс и применять заданный стиль оформления в дальнейшем.

Чтобы выполнять такие задачи вручную можно попытаться облегчить процесс настройки множества опций форматирования для многих диапазонов ячеек на разных листах и рабочих книгах. Плюс к о всему можно ошибиться и применить несколько другие настройки форматирования.

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

Чтобы написать свой код макроса откройте специальный VBA-редактор в Excel: «РАЗРАБОТЧИК»-«Код»-«Visual Basic» или нажмите комбинацию клавиш ALT+F11:

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него такой VBA-код макроса:

Sub SbrosFormat()
If TypeName(Selection) <> «Range» Then Exit Sub
With Selection
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
.WrapText = True
.Borders.LineStyle = xlContinuous
.Borders.Weight = xlThin
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexAutomatic
.Columns.AutoFit
.Rows.AutoFit
End With
End Sub

Теперь если нам нужно сбросить форматирование таблицы на исходный формат отображения ее данных, выделите диапазон ячеек A1:E20 и запустите макрос: «РАЗРАБОЧТИК»-«Код»-«Макросы»-«SbrosFormat»-«Выполнить». Результат работы макроса изображен ниже на рисунке:

Таблица приобрела формат, который определен макросом. Таким образом код VBA нам позволяет сбросить любые изменения формата ячеек на предустановленный автором отчета.

Описание VBA-макроса для формата ячеек таблицы Excel

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

Текст в значениях ячеек выравнивается по центру горизонтально и вертикально.
Включен построчный перенос текста.
Все границы ячеек получают черную обычной толщины непрерывную линию с черным цветом.
Сброс цвета шрифта на авто.
Удаляется любая заливка ячеек.
Ширина столбцов автоматически настраивается под текст в ячейках.
Автоматически настроить высоту строк по содержимому ячеек.

Модификация исходного кода макроса для форматирования

Если необходимо сделать так чтобы текст выравнивался не по центру относительно горизонтали, а по правую сторону ячейки, тогда измените константу xlHAlignCenter на xlHAlignRight. Она находиться в свойстве .HorizontalAlignment. Сделайте это следующим образом:

Таким же образом можно выровнять текст по левую сторону изменив значение константы на xlHAlignLeft. Или можно выровнять положение текста по ширине ячейки используя константу xlHAlignJustify.

Чтобы макрос выравнивал текст в ячейках по вертикали к низу, измените строку кода, отвечающую за данную настройку форматирования. Измените константу, которая присваивается к свойству VerticalAlignment в следующий способ:

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

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

Описание настройки форматирования для линий границ ячеек. Мы будем получать разные дополнительные типы линий границ если для свойства LineStyle присваивать такие константы:

xlDoshDot – применяется для рисования пунктирных линий в границах ячеек;
xlDouble – рисует двойную линию;
xlHairLine – рисует тонкую линию;
xlThick – для рисования очень толстой линии.

Для настройки цвета линий Excel предлагает всего 8 констант для определенных цветов. Константы для настройки цвета линий границ для свойства Color:

vbBlack – черный;
vbWhite – белый;
vbRed – красный;
vbGreen –зеленый;
vbBlue – синий;
vbYellow – желтый;
vbMagenta – алый;
vbCyan – голубой.

Но при необходимости присвоить линиям границ другие цвета можно вместо константы для свойства Color записать функцию RGB(). Достаточно лишь в аргументе этой функции указать код цвета по шкале от 0 и до 255.

Если нужно применить толстую линию только для границ выделенного диапазона, тогда перед инструкцией End With добавьте следующую строку кода:

.BorderAround xlContinuous, xlMedium, vbBlack

Описание: В первом аргументе для метода BorderAround можно записать также другой стиль линии. Во втором – толщину линии, а в третьем – цвет. Константы, которые можно присвоить в качестве значений для этих аргументов можно использовать те же, которые мы использовали для свойств: LineStyle, Weight, Color.

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

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

.Columns (1).Font.Bold = True

.Columns (1).Font.Italic = True

.Columns (1).Interior.Color = vbCyan

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

Полная версия модифицированного кода макроса выглядит так:

Sub SbrosFormat()
If TypeName(Selection) <> «Range» Then Exit Sub
With Selection
.HorizontalAlignment = xlVAlignCenter
.VerticalAlignment = xlVAlignCenter
.WrapText = True
.Borders.LineStyle = xlDash
.Borders.Color = vbBlue
.Borders.Weight = xlMedium
.Font.ColorIndex = xlColorIndexAutomatic
.Interior.ColorIndex = xlColorIndexAutomatic
.Columns.AutoFit
.Rows.AutoFit
.BorderAround xlContinuous, xlMedium, vbBlack
.Rows(1).Font.Bold = True
.Rows(1).Font.Italic = True
.Rows(1).Interior.Color = vbCyan
.Columns(1).Font.Bold = True
.Columns(1).Font.Italic = True
.Columns(1).Interior.Color = vbCyan
.Rows(.Rows.Count).Font.Bold = True
End With
End Sub

Пример работы измененного кода VBA-макроса:

В данном примере вы ознакомились с базовыми возможностями форматирования с помощью VBA-макросов. Уверен, что теперь вы сможете самостоятельно найти практическое применение этим исходным кодам.

Источник

VBA Excel. Форматирование текста в ячейке (объект Font)

Формат отображаемого значения

рабочего листа по умолчанию;
установленный для диапазона пользователем;
примененный к диапазону из кода VBA Excel.

Основные свойства объекта Font

Свойство	Описание	Значения
Name	наименование шрифта	«Arial», «Calibri», «Courier New», «Times New Roman» и т.д.
Size	размер шрифта	от 1 до 409 пунктов
Bold	полужирное начертание	True, False
Italic	курсивное начертание	True, False
FontStyle	заменяет Bold и Italic	«обычный», «полужирный», «курсив», «полужирный курсив»
Superscript	надстрочный текст	True, False
Subscript	подстрочный текст	True, False
Underline	подчеркнутый текст	True, False
Color*	цвет текста	от 0 до 16777215

Примеры форматирования текста

Пример 1
В этом примере ячейкам диапазона «A1:A3» присвоим шрифты разных наименований:

Пример 2
В этом примере рассмотрим применение одного свойства объекта Font к одной ячейке:

Пример 3
Форматирование диапазона из нескольких ячеек:

Пример 4
Пример форматирования шрифта в разных ячейках по одному свойству:

5 комментариев для “VBA Excel. Форматирование текста в ячейке (объект Font)”

Пример 2 не к одной ячейке, а к трём. Где пример к одной.

Добрый день, Алексей Леонидович!
Во втором примере показано применение одного свойства объекта Font к одной ячейке.
К ячейке «A5»:
Range(«A5»).Font.Bold = True
К ячейке «A6»:
Range(«A6»).Font.FontStyle = «полужирный курсив»
К ячейке «A7»:
Range(«A7»).Font.Superscript = True

Применение нескольких свойств объекта Font к одной ячейке может выглядеть следующим образом:

Скажите пожалуйста, а есть ли способ подставлять вместо свойства ячейки (Bold, Underline, Italic) переменную чтобы в цикле последовательно менять свойства ячейки одной командой? Это упрощенный пример, так сказать в принципе, есть ли способ записи типа .Cells(1,1).Font.Переменная=True где Переменная это одно из Bold, Italic, Underline?
With Worksheets(«Конфигурация»)
For i = 1 To 3
Select Case i
Case 1
s = «Bold»
Case 2
s = «Italic»
Case 3
s = «Underline»
End Select
.Cells(15, 1).Font.?s? = True
Next i
End With

Здравствуйте, Сергей!
Если заменить «Underline» на «Bold Italic» или «обычный» , тогда можно так:

С «Underline» такой фокус не проходит, но возвращает к обычному стилю.

нет, увы. Спасибо конечно, что мимо не прошли, но я дал лишь упрощенную формулировку задачи. На самом деле я хочу работать с объектами WMI, коих, как известно огромное количество и у каждого куча свойств. Я не хочу писать многокилометровый код и все время добавлять строки. Я хочу вынести на лист excel список объектов и слева от каждого в колонках список свойств. И в цикле пробегать по объектам и по внутреннему циклу по свойствам, подставлять все по очереди и получать значения. И для добавления еще одного мне нужно будет только добавить на лист объект или свойство. В код при этом лазить не нужно будет.
Но я уперся в это вот, нужно как-то подставлять в объект вместо свойства переменную. Для этого я и сделал этот крошечный пример. Здесь никто конечно не будет перебирать свойства в таком дурацком цикле, тем более, что свойства разные по формату, кому-то нужны цифры, кому-то булево значение. Так что этот пример смысла не имеет, но дает понять задачу.

Источник

The best way to draw a user’s attention to a cell or some text within a cell is to make it look different from the rest of the text.

One way to do this is to make the text bold, thereby highlighting it or stressing its importance.

The ‘Bold’ button in the Excel Home tab is of course everyone’s go-to way of making any text bold. A lot of people also like to use the keyboard shortcut CTRL+B.

However, you might need to make some text bold based on a certain condition, or only at the end of a calculation.

Unfortunately, there’s no Excel function that you can use to make text bold. But it is possible to do this using VBA.

In this tutorial, we will show you how to make text bold using VBA in a number of different use cases.

To make any text bold in VBA, we can use the Font.Bold property of a Range or Cell.

Let’s say you want to bold the text that is in cell A2 of your spreadsheet.

Here’s the code you can use to get this done:

Cells(1,2).Font.Bold=True

You can also use the Range function to accomplish the same:

 Range("A2").Font.Bold = True

This will also work if you want to bold a whole range of cells, for example:

 Range("A2:A8").Font.Bold = True

This will change cells in the range A1:A8 to bold.

All cells in the specified range are bold

Using the Visual Basic Immediate Window to Bold Text in Excel

You can use the Visual Basic developer’s Immediate Window to quickly run one-line VBA codes, such as the ones we discussed in the previous section.

To run the code in the Immediate Window, simply follow the steps shown below:

From the Developer Menu Ribbon, select Visual Basic.

Click on Developer tab and then on Visual basic

Once your VBA window opens, your Immediate Window should be at the bottom. If you cannot see it, then Click View>Immediate Window or press CTRL+G on the keyboard.

Paste your line of code in the Immediate Window and press the Return key.

When you get back to your Excel window, you should see the result of the executed code.

So if you used the line:

Range("A2:A8").Font.Bold = True

You should see all the cells in the range A2:A8 have the text converted to bold:

Writing a Visual Basic Module to Bold Text in Excel

If you prefer writing a VBA Module to bold the text instead, then you can enclose the same line of code within a Sub procedure as shown below:

Sub ConvertToBold()
Range("A1:A8").Font.Bold = True
End Sub

Here’s what you have to do in order to use the above procedure:

From the Developer Menu Ribbon, select Visual Basic.
Once your VBA window opens, Click Insert->Module and paste the above code in the Module window.

To run the macro, go back to your Excel window and navigate to Developer->Macros.

Click on Developer tab and then click on Macros

Select the name of the module, which is ConvertToBold in our example.

Click Run.

You should find the cells in the range A2:A8 have the text converted to bold.

Some Practical Use-cases of the Font.Bold Property

Let us see some practical applications of the Font.Bold property.

How to Bold Selected Cells in Excel Using VBA

Let’s see a small module that can help you bold only the cells that you selected:

'Code by Steve from SpreadsheetPlanet.com
Sub ConvertSelectedCellsToBold()
Dim Rng As Range
Dim myCell As Object
Set Rng = Selection
For Each myCell In Rng
   myCell.Font.Bold = True
Next
End Sub

To run the code do the following:

Select the cells that you want to bold.

Copy the above code to your Visual Basic module window.
Run the macro.
You should find the contents of all your selected cells converted to bold.

Explanation of the Code

In this code, we stored the selected range of cells in the variable Rng.

Then we used a for-loop to traverse over each cell (myCell) in the range, making the contents of each selected cell bold, using the line:

myCell.Font.Bold = True

How to Bold Cells Containing a Specific Text using VBA

Now consider a scenario where you need to highlight all the cells that contain a specific text using VBA.

This can be achieved by the following code:

'Code by Steve from SpreadsheetPlanet.com
Sub ConvertCellsWithSpecificTextToBold()
Dim Rng As Range
Dim myCell As Object
Dim myUnion As Range
Set Rng = Selection
searchString = InputBox("Please Enter the Search String")
For Each myCell In Rng
If InStr(myCell.Text, searchString) Then
   myCell.Font.Bold = True
End If
Next
End Sub

To run the code do the following:

Select the range of cells that you want to work with.
Copy the above code to your Visual Basic module window.
Run the macro.
You will see a message window that asks you to enter your search string. Type your search string in the input box. In our example, we entered the word “King”.

enter the word you want to bold in the input box

When you press the Return key, you should find all the cells that contain the word “King” highlighted in bold.

Explanation of the Code

In this code, we again stored the selected range of cells in the variable Rng. We used an InputBox to get the user’s search string input and we stored this text in the variable searchString.

We then used a for-loop to traverse over each cell (myCell) in the range and we checked if the cell contained the search string (using the InStr function). If it did, then we made the contents of the cell bold.

How to Find and Bold Specific Text in a Cell using VBA

Now, what if you only want to make the particular search string bold, instead of the entire cell?

For example, you might have a lot of data in your worksheet and you might want to bold only a particular word so that it stands out.

This can be achieved using the following module code:

'Code by Steve from SpreadsheetPlanet.com
Sub ConvertSpecificTextToBold()
Dim Rng As Range
Dim myCell As Object
Dim myUnion As Range
Set Rng = Selection
searchString = InputBox("Please Enter the Search String")
For Each myCell In Rng
If InStr(myCell.Text, searchString) Then
  myCell.Characters(WorksheetFunction.Find(searchString, myCell.Value), Len(searchString)).Font.Bold = True
End If
Next
End Sub

To run the code do the following:

Select the range of cells that you want to work with.
Copy the above code to your Visual Basic module window.
Run the macro.
You will see a message window that asks you to enter your search string. Type your search string in the input box. In our example, we entered the word “King”.

When you press the Return key, you should find only the word “King” highlighted in all your selected cells.

Explanation of the Code

In this code, we stored the selected range of cells in the variable Rng. We used an InputBox to get the user’s search string input and we stored this text in the variable searchString.

We then used a for-loop to traverse over each cell (myCell) in the range and we checked if the cell contained the search string.

If it did, then we used the WorksheetFunction.Find function to find the starting and ending position of the search string in the cell’s contents.

The WorksheetFunction object is used as a container for Excel worksheet functions that can be used in VBA.

So you can use the functions under this object the same way you would use regular functions in Excel. That means, the WorksheetFunction.Find function works the same way as Excel’s FIND function.

The Find function lets you find a search string in another given string and returns the position of the string in the cell’s contents. We used the function as follows:

WorksheetFunction.Find(searchString, myCell.Value)

This means “return the position of searchString in myCell.Value”. This gives the starting position of our search string. To get the ending position of the string we used the length of the search string itself (Len(searchString)).

We then used this information (starting and ending position of the search string) inside the Characters object.

The Characters object represents a range of characters within the cell (myCell). You can use this Characters object to format specific characters within the cell.

So you can set the Font.Bold property of the characters in your search string using the line:

myCell.Characters(WorksheetFunction.Find(searchString, myCell.Value), Len(searchString)).Font.Bold = True

Note: Once you change the font using VBA, you cannot undo the changes using the Undo button.

How to Remove the Bold.Font Setting in VBA

If you want to change the text font back by removing the bold setting, then all you need to do is set the Font.Bold property of the object to False.

In this tutorial, we saw how to bold text using VBA.

We showed you the basic syntax and then showed a few practical use cases where you might need to bold certain text in Excel using VBA.

We hope this was helpful and easy to follow.

Other Excel tutorials you may also like:

How to Copy Formatting In Excel (4 Easy Ways)
How to Flash an Excel Cell (Easy Step-by-Step Method)
How to Auto Format Formulas in Excel (3 Easy Ways)
How to Reverse a Text String in Excel (Using Formula & VBA)
Highlight Cell If Value Exists in Another Column in Excel
How to Set the Default Font in Excel (Windows and Mac)
How to Add Bullet Points in Excel
How to Rotate Text in Excel?

Источник

VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк

В процессе запыления данных сотрудниками отдела на некоторых листах были изменены форматы ячеек:

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него такой VBA-код макроса:

Sub SbrosFormat() If TypeName(Selection) <> "Range" Then Exit Sub With Selection .HorizontalAlignment = xlVAlignCenter .VerticalAlignment = xlVAlignCenter .WrapText = True .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = xlColorIndexAutomatic .Interior.ColorIndex = xlColorIndexAutomatic .Columns.AutoFit .Rows.AutoFit End With End Sub

Описание VBA-макроса для формата ячеек таблицы Excel

Текст в значениях ячеек выравнивается по центру горизонтально и вертикально.
Включен построчный перенос текста.
Все границы ячеек получают черную обычной толщины непрерывную линию с черным цветом.
Сброс цвета шрифта на авто.
Удаляется любая заливка ячеек.
Ширина столбцов автоматически настраивается под текст в ячейках.
Автоматически настроить высоту строк по содержимому ячеек.

Модификация исходного кода макроса для форматирования

.HorizontalAlignment = xlHAlignRight.

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

.Borders.LineStyle = xlDash

.Borders.Color = vbBlue

.Borders.Weight = xlMedium

xlDoshDot – применяется для рисования пунктирных линий в границах ячеек;
xlDouble – рисует двойную линию;
xlHairLine – рисует тонкую линию;
xlThick – для рисования очень толстой линии.

vbBlack – черный;
vbWhite – белый;
vbRed – красный;
vbGreen –зеленый;
vbBlue – синий;
vbYellow – желтый;
vbMagenta – алый;
vbCyan – голубой.

.BorderAround xlContinuous, xlMedium, vbBlack

.Rows(1).Font.Bold = True

.Rows(1).Font.Italic = True

.Rows(1).Interior.Color = vbCyan

.Columns (1).Font.Bold = True

.Columns (1).Font.Italic = True

.Columns (1).Interior.Color = vbCyan

.Rows(.Rows.Count).Font.Bold = True

Полная версия модифицированного кода макроса выглядит так:

Sub SbrosFormat() If TypeName(Selection) <> "Range" Then Exit Sub With Selection .HorizontalAlignment = xlVAlignCenter .VerticalAlignment = xlVAlignCenter .WrapText = True .Borders.LineStyle = xlDash .Borders.Color = vbBlue .Borders.Weight = xlMedium .Font.ColorIndex = xlColorIndexAutomatic .Interior.ColorIndex = xlColorIndexAutomatic .Columns.AutoFit .Rows.AutoFit .BorderAround xlContinuous, xlMedium, vbBlack .Rows(1).Font.Bold = True .Rows(1).Font.Italic = True .Rows(1).Interior.Color = vbCyan .Columns(1).Font.Bold = True .Columns(1).Font.Italic = True .Columns(1).Interior.Color = vbCyan .Rows(.Rows.Count).Font.Bold = True End With End Sub

Пример работы измененного кода VBA-макроса:

Источник

Содержание

Формат отображаемого значения
Применение стилей к ячейкам листа
VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк
Вывод сообщений о числовых значениях цветов
Выравнивание по горизонтали
Основные свойства объекта Font
Синтаксис и параметры
Именные форматы даты и времени
Именованные форматы чисел
Символы для форматов даты и времени
Заливка ячейки цветом в VBA Excel
Создание новых стилей
Выравнивание по вертикали
Зачем нужны именованные стили
Описание VBA-макроса для формата ячеек таблицы Excel
Использование предопределенных констант
Изменение существующих стилей

Формат отображаемого значения

рабочего листа по умолчанию;
установленный для диапазона пользователем;
примененный к диапазону из кода VBA Excel.

Применение стилей к ячейкам листа

В Excel изначально установлено множество встроенных стилей. Найти их можно в меню Стили ячеек, которая расположена на вкладке Главная -> Стили.

Откроется галерея стилей (рисунок справа).

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

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

В процессе запыления данных сотрудниками отдела на некоторых листах были изменены форматы ячеек:

В редакторе создайте новый модуль выбрав инструмент «Insert»-«Module» и введите в него такой VBA-код макроса:

SubSbrosFormat() IfTypeName(Selection) <>"Range"Then Exit Sub WithSelection .HorizontalAlignment = xlVAlignCenter .VerticalAlignment = xlVAlignCenter .WrapText =True .Borders.LineStyle = xlContinuous .Borders.Weight = xlThin .Font.ColorIndex = xlColorIndexAutomatic .Interior.ColorIndex = xlColorIndexAutomatic .Columns.AutoFit .Rows.AutoFit End With End Sub

Вывод сообщений о числовых значениях цветов

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

Пример кода 2:

Sub ColorTest2()

MsgBox Range(“A1”).Interior.Color

MsgBox Range(“A4:D8”).Interior.Color

MsgBox Range(“C12:D17”).Cells(4).Interior.Color

MsgBox Cells(3, 6).Interior.Color

End Sub

Вместо вывода сообщений можно присвоить числовые значения цветов переменным, объявив их как Long.

Выравнивание по горизонтали

Для выравнивания текста в ячейках рабочего листа по горизонтали в VBA Excel используется свойство HorizontalAlignment объекта Range. Оно может принимать следующие значения:

Выравнивание	Константа	Значение
По левому краю	xlLeft	-4131
По центру	xlCenter	-4108
По правому краю	xlRight	-4152

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

Пример 1
Заполним три первые ячейки листа Excel текстом, соответствующим предполагаемому выравниванию. Затем применим к ним выравнивание по горизонтали, а в ячейках ниже выведем соответствующие значения констант.

Sub Primer1()

‘Заполняем ячейки текстом

Range(“A1”) = “Левая сторона”

Range(“B1”) = “Центр ячейки”

Range(“C1”) = “Правая сторона”

‘Применяем горизонтальное выравнивание

Range(“A1”).HorizontalAlignment = xlLeft

Range(“B1”).HorizontalAlignment = xlCenter

Range(“C1”).HorizontalAlignment = xlRight

‘Выводим значения констант

Range(“A2”) = “xlLeft = “ & xlLeft

Range(“B2”) = “xlCenter = “ & xlCenter

Range(“C2”) = “xlRight = “ & xlRight

End Sub

Основные свойства объекта Font

Свойство	Описание	Значения
Name	наименование шрифта	“Arial”, “Calibri”, “Courier New”, “Times New Roman” и т.д.
Size	размер шрифта	от 1 до 409 пунктов
Bold	полужирное начертание	True, False
Italic	курсивное начертание	True, False
FontStyle	заменяет Bold и Italic	“обычный”, “полужирный”, “курсив”, “полужирный курсив”
Superscript	надстрочный текст	True, False
Subscript	подстрочный текст	True, False
Underline	подчеркнутый текст	True, False
Color*	цвет текста	от 0 до 16777215

*Color – это не единственное свойство, отвечающее за цвет отображаемого текста в ячейке. Оно также может принимать и другие значения, кроме указанных в таблице. Смотрите подробности в статье Цвет текста (шрифта) в ячейке.

Синтаксис и параметры

Format(Expression, [FormatExpression], [FirstDayOfWeek], [FirstWeekOfYear])

Expression – любое допустимое выражение (переменная), возвращающее числовое значение или строку (обязательный параметр).
FormatExpression – выражение формата, именованное или содержащее инструкции из специальных символов (необязательный параметр).
FirstDayOfWeek – константа, задающая первый день недели (необязательный параметр).
FirstWeekOfYear – константа, задающая первую неделю года (необязательный параметр).

Именные форматы даты и времени

Имя формата	Описание
General Date	Стандартное отображение даты и времени в соответствии с параметрами системы.
Long Date	Длинный формат даты.
Medium Date	Средний формат даты.
Short Date	Краткий формат даты.
Long Time	Длинный формат времени.
Medium Time	Средний формат времени.
Short Time	Краткий формат времени.

Проверьте отображение даты и времени с использованием именованных форматов на вашем компьютере при помощи следующего кода VBA Excel:

Sub FormatDateTime()

MsgBox “General Date: “ & Format(Now, “General Date”) & vbNewLine _

& vbNewLine & “Long Date: “ & Format(Now, “Long Date”) & vbNewLine _

& vbNewLine & “Medium Date: “ & Format(Now, “Medium Date”) & vbNewLine _

& vbNewLine & “Short Date: “ & Format(Now, “Short Date”) & vbNewLine _

& vbNewLine & “Long Time: “ & Format(Now, “Long Time”) & vbNewLine _

& vbNewLine & “Medium Time: “ & Format(Now, “Medium Time”) & vbNewLine _

& vbNewLine & “Short Time: “ & Format(Now, “Short Time”)

End Sub

Скорее всего, результат будет таким:

Именованные форматы чисел

Имя формата	Описание
General Number	Стандартное отображение числа без знака разделителя групп разрядов.
Currency	Денежный формат.
Fixed	Отображение числа без знака разделителя групп разрядов с двумя цифрами после разделителя целой и дробной части.
Standard	Отображение числа со знаком разделителя групп разрядов и с двумя цифрами после разделителя целой и дробной части.
Percent	Процентный формат: отображение числа, умноженного на 100, со знаком процента (%), добавленного справа.
Scientific	Отображение числа в экспоненциальном виде.
Yes/No	Возвращается «Нет», если число равно 0, иначе отображается «Да».
True/False	Возвращается «Ложь», если число равно 0, иначе отображается «Истина».
On/Off	Возвращается «Выкл», если число равно 0, иначе отображается «Вкл».

Проверяем работу именованных форматов на числах 2641387.7381962 и 0 с помощью кода VBA Excel:

Sub FormatNumber()

Dim n As Double

n = 2641387.7381962

‘n = 0

MsgBox “Форматируемое число = “ & n & vbNewLine _

& vbNewLine & “General Number: “ & Format(n, “General Number”) & vbNewLine _

& vbNewLine & “Currency: “ & Format(n, “Currency”) & vbNewLine _

& vbNewLine & “Fixed: “ & Format(n, “Fixed”) & vbNewLine _

& vbNewLine & “Standard: “ & Format(n, “Standard”) & vbNewLine _

& vbNewLine & “Percent: “ & Format(n, “Percent”) & vbNewLine _

& vbNewLine & “Scientific: “ & Format(n, “Scientific”) & vbNewLine _

& vbNewLine & “Yes/No: “ & Format(n, “Yes/No”) & vbNewLine _

& vbNewLine & “True/False: “ & Format(n, “True/False”) & vbNewLine _

& vbNewLine & “On/Off: “ & Format(n, “On/Off”)

End Sub

Получаем следующий результат:

Вместо вопросительного знака в отображении числа в формате Currency, по идее, должен быть знак валюты (₽ или руб.).

Символы для форматов даты и времени

Символ	Описание
Точка (.)	Разделитель компонентов даты (день, месяц, год). Используется при отображении месяца в виде числа.
Пробел	Разделитель компонентов даты (день, месяц, год). Используется при отображении месяца прописью.
Двоеточие (:)	Разделитель компонентов времени (часы, минуты, секунды).
d	День в виде числа без нуля в начале (1–31).
dd	День в виде числа с нулем в начале (01–31).
m	Месяц в виде числа без нуля в начале (1–31). Если (m) следует после (h) или (hh), отображаются минуты.
mm	Месяц в виде числа с нулем в начале (01–31). Если (mm) следует после (h) или (hh), отображаются минуты.
mmm	Месяц прописью в сокращенном виде (янв–дек).
mmmm	Полное название месяца (январь–декабрь).
y	День года в виде числа (1–366).
yy	Год в виде 2-значного числа (00–99).
yyyy	Год в виде 4-значного числа (1900–9999).
h	Часы в виде числа без нуля в начале (0–23).
hh	Часы в виде числа с нулем в начале (00–23).
n (m)	Минуты в виде числа без нуля в начале (0–59).
nn (mm)	Минуты в виде числа с нулем в начале (00–59).
s	Секунды в виде числа без нуля в начале (0–59).
ss	Секунды в виде числа с нулем в начале (00–59).

Примеры отображения даты с помощью разных по количеству наборов символа d:

Sub DataIsD()

MsgBox “d: “ & Format(Now, “d”) & vbNewLine _

& vbNewLine & “dd: “ & Format(Now, “dd”) & vbNewLine _

& vbNewLine & “ddd: “ & Format(Now, “ddd”) & vbNewLine _

& vbNewLine & “dddd: “ & Format(Now, “dddd”) & vbNewLine _

& vbNewLine & “ddddd: “ & Format(Now, “ddddd”) & vbNewLine _

& vbNewLine & “dddddd: “ & Format(Now, “dddddd”)

End Sub

Заливка ячейки цветом в VBA Excel

Пример кода 1:

Sub ColorTest1()

Range(“A1”).Interior.Color = 31569

Range(“A4:D8”).Interior.Color = 4569325

Range(“C12:D17”).Cells(4).Interior.Color = 568569

Cells(3, 6).Interior.Color = 12659

End Sub

Поместите пример кода в свой программный модуль и нажмите кнопку на панели инструментов «Run Sub» или на клавиатуре «F5», курсор должен быть внутри выполняемой программы. На активном листе Excel ячейки и диапазон, выбранные в коде, окрасятся в соответствующие цвета.

Есть один интересный нюанс: если присвоить свойству .Interior.Color отрицательное значение от -16777215 до -1, то цвет будет соответствовать значению, равному сумме максимального значения палитры (16777215) и присвоенного отрицательного значения. Например, заливка всех трех ячеек после выполнения следующего кода будет одинакова:

Sub ColorTest11()

Cells(1, 1).Interior.Color = –12207890

Cells(2, 1).Interior.Color = 16777215 + (–12207890)

Cells(3, 1).Interior.Color = 4569325

End Sub

Проверено в Excel 2016.

Создание новых стилей

Если встроенных стилей Excel не достаточно, то можно создать собственные стили. Это достаточно просто сделать:

Выберите любую ячейку и отформатируйте ее обычным способом так как вам нравится. Форматирование этой ячейки в дальнейшим мы сохраним как именованный стиль. Вы можете использовать любое доступное форматирование из диалогового окна Форматирование ячеек.
Перейдите на вкладку Главная -> Стили ячеек и выберите команду Создать стиль ячейки. Откроется диалоговое окно Стиль.
Выберите Имя стиля, которое будет в дальнейшем будете использовать.
Выберите опции, которые будут применяться к выбранному стилю (по умолчанию отмечены все опции). Если нет необходимости в какой то опции, например вы не хотите изменять шрифт ячейки – то снимите выбор.
Нажмите кнопку OK.

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

Выравнивание по вертикали

Для выравнивания текста в ячейках рабочего листа по вертикали в VBA Excel используется свойство VerticalAlignment объекта Range. Оно может принимать следующие значения:

Выравнивание	Константа	Значение
По верхнему краю	xlTop	-4160
По центру	xlCenter	-4108
По нижнему краю	xlBottom	-4107

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

Пример 2
Заполним три первые ячейки третьей строки листа Excel текстом, соответствующим предполагаемому выравниванию. Затем применим к ним выравнивание по вертикали, а в ячейках ниже выведем соответствующие значения констант.

Sub Primer2()

‘Заполняем ячейки текстом

Range(“A3”) = “Верх”

Range(“B3”) = “Центр”

Range(“C3”) = “Низ”

‘Применяем вертикальное выравнивание

Range(“A3”).VerticalAlignment = xlTop

Range(“B3”).VerticalAlignment = xlCenter

Range(“C3”).VerticalAlignment = xlBottom

‘Выводим значения констант

Range(“A4”) = “xlTop = “ & xlTop

Range(“B4”) = “xlCenter = “ & xlCenter

Range(“C4”) = “xlBottom = “ & xlBottom

End Sub

Зачем нужны именованные стили

Идея именованных стилей заключается в следующем:

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

Стили Excel позволяют отформатировать следующие атрибуты:

числовой формат (например, число, короткий формат даты, формат телефонного номера и т.п.);
выравнивание (по вертикали и горизонтали);
шрифт (название, размер, цвет и пр.);
граница (тип линии, цвет границы);
заливка (цвет фона, узор);
защита (защищаемая ячейка, скрытие формул).

Описание VBA-макроса для формата ячеек таблицы Excel

Текст в значениях ячеек выравнивается по центру горизонтально и вертикально.
Включен построчный перенос текста.
Все границы ячеек получают черную обычной толщины непрерывную линию с черным цветом.
Сброс цвета шрифта на авто.
Удаляется любая заливка ячеек.
Ширина столбцов автоматически настраивается под текст в ячейках.
Автоматически настроить высоту строк по содержимому ячеек.

Использование предопределенных констант

В VBA Excel есть предопределенные константы часто используемых цветов для заливки ячеек:

Предопределенная константа	Наименование цвета
vbBlack	Черный
vbBlue	Голубой
vbCyan	Бирюзовый
vbGreen	Зеленый
vbMagenta	Пурпурный
vbRed	Красный
vbWhite	Белый
vbYellow	Желтый
xlNone	Нет заливки

Присваивается цвет ячейке предопределенной константой в VBA Excel точно так же, как и числовым значением:

Пример кода 3:

Range(“A1”).Interior.Color = vbGreen

Изменение существующих стилей

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

Перейти на вкладку Главная -> Стили ячеек.
Щелкнуть правой кнопкой мыши по стилю, который хотите изменить и выбрать команду Изменить.
Откроется диалоговое окно Стиль, в котором указано применяемое к ячейке форматирование.
Нажмите на кнопку Формат, и в появившемся диалоговом окне Формат ячеек задайте необходимое форматирование. Например, чтобы изменить размер шрифта перейдите на вкладку Шрифт, задайте нужный размер и нажмите кнопку ОК.
Нажмите еще раз кнопку ОК, чтобы закрыть окно Стиль и применить форматирование к изменяемому стилю.

Источники

https://vremya-ne-zhdet.ru/vba-excel/formatirovaniye-teksta-v-yacheyke/
https://micro-solution.ru/excel/formatting/formatting-styles
https://exceltable.com/vba-macros/makrosy-dlya-formatirovaniya-yacheek
https://vremya-ne-zhdet.ru/vba-excel/tsvet-yacheyki-zalivka-fon/
https://vremya-ne-zhdet.ru/vba-excel/vyravnivaniye-teksta-v-yacheyke/
https://vremya-ne-zhdet.ru/vba-excel/funktsiya-format/

Источник

andreyka33

Пользователь

Сообщений: 98
Регистрация: 01.02.2017

28.08.2017 10:48:43

Здравствуйте !

Есть текст в ячейках в диапазоне и в этих текстах встречается значение «//»
После «//» весь текст дб жирным до конца строки в ячейке — кусок макроса такой

Код

Sub ЖирныйТекст()
Dim LastRow As Long, r As Long
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For r = 2 To LastRow

'как в этом месте прописать данное условие ?
If Cells(r, 2) Like "//" '''''''''''.Font.Bold 

End If
Next
End Sub

kuklp Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Используйте не like а instr. Я сам — дурнее всякого примера! …

webley

Пользователь

Сообщений: 1991
Регистрация: 01.01.1970

28.08.2017 10:58:29

Код
If Cells(r, 2) Like "//" Then Cells(r, 2).Characters(InStr(1, Cells(r, 2), "//") + 2, Len(Cells(r, 2))).Font.Bold = True End If

Пользователь

Сообщений: 5018
Регистрация: 22.12.2012

28.08.2017 10:59:18

тоже пригодится

Код
Cells(r, 2).Characters(Start:=10, Length:=12).Font.FontStyle = "полужирный"

10 и 12 меняете на свои. как определить их решать вам.

Изменено: V — 28.08.2017 10:59:49

kuklp

Пользователь

Сообщений: 14868
Регистрация: 21.12.2012

E-mail и реквизиты в профиле.

28.08.2017 11:08:41

Код
n = InStr(1, Cells(r, 2), "//") If n Then Cells(r, 2).Characters(n + 3).Font.Bold = True

Я сам — дурнее всякого примера! …

andreyka33

Пользователь

Сообщений: 98
Регистрация: 01.02.2017

28.08.2017 11:09:54

вот так заработало как надо — спасибо большое всем кто откликнулся !

Код

Sub ЖирныйТекст()
Dim LastRow As Long, r As Long
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For r = 2 To LastRow
 
If Cells(r, 2) Like "*//*" Then
Cells(r, 2).Characters(InStr(1, Cells(r, 2), "//") + 2, Len(Cells(r, 2))).Font.Bold = True
End If
 
Next 
End Sub

webley Пользователь Сообщений: 1991 Регистрация: 01.01.1970	Код kuklp, конечно, поизящнее будет, только не Characters(n + 3), а Characters(n + 2)

andreyka33

Пользователь

Сообщений: 98
Регистрация: 01.02.2017

12.09.2017 13:57:51

все бы хорошо но только в тексте ячейки вместо одинарного «//» еще встречается «http://» — а это ( «http:// до первого «//» или «http:// просто)нужно исключить из выделения
пробую макрос но дает ошибку в строке Cells(r, 21).Characters(Mid$(Cells(r, 21), p1 + 0, p2 — p1 — 1)).Font.Bold = False

Код

Sub ЖирныйТекст()
Dim LastRow As Long, r As Long, n As String,, p1 As String, p2 As String
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For r = 4 To LastRow
n = InStr(1, Cells(r, 21), "*//")
If n Then Cells(r, 21).Characters(n + 0).Font.Bold = True
    p1 = InStr(Cells(r, 21), "http://")
    p2 = InStr(Cells(r, 21), "//")
    If p2 > p1 Then  
    Cells(r, 21).Characters(Mid$(Cells(r, 21), p1 + 0, p2 - p1 - 1)).Font.Bold = False
    End If
End Sub

Изменено: andreyka33 — 12.09.2017 14:08:03

Equio Пользователь Сообщений: 274 Регистрация: 05.05.2016	Приведите, пожалуйста, пример строки, в которой есть «http://» c указанием номера позиции, начиная с которой текст должен быть жирным.

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	Решение влоб — сперва заменить (в перменной конечно) «http://» например на «wwwwwww», затем искать «//» Изменено: Hugo — 12.09.2017 14:11:19

andreyka33 Пользователь Сообщений: 98 Регистрация: 01.02.2017	нет в строках номера позиции — в разных ячейках все по разному

Equio Пользователь Сообщений: 274 Регистрация: 05.05.2016	А Вы приведите пример одной (любой) ячейки, и конкретно для неё укажите, начиная с какой позиции должно быть жирным.

andreyka33

Пользователь

Сообщений: 98
Регистрация: 01.02.2017

например в тексте
1)» пппппппппппппппп сайт

http://белая-ночь.ru

текст1 текст2 текст3 //текст4 текст5″
должно быть выделено жирным только //текст4 текст5
2) в таком варианте
» пппппппппппппппп

http://белая-ночь.ru

текст1 текст2 текст3 текст4 текст5″
ничего не выделяется жирным

Изменено: andreyka33 — 12.09.2017 14:23:11

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	Ну так мой алгоритм как раз «в кассу».

andreyka33 Пользователь Сообщений: 98 Регистрация: 01.02.2017	мб http:// мб https:// а вдруг редиректа нету ….

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	Ну замените все возможные варианты, их ведь всего ничего… Ну а на нет и суда нет

Equio

Пользователь

Сообщений: 274
Регистрация: 05.05.2016

Чуть подробнее распишу предложенный выше алгоритм:
1. С помощью Replace заменяете в ячейке «http://» на любые семь символов, не содержащие «//» (семь, потому что в «http://» — семь символов), например «wwwwwww»; «https://» заменяете на 8 символов; результат присваиваете переменной S.
2. Далее делаете всё так же, как и раньше, за исключением того, что для определения наличия «//» и для определения номера позиции обращаетесь к переменной S, а не к ячейке.

andreyka33

Пользователь

Сообщений: 98
Регистрация: 01.02.2017

#18

12.09.2017 16:32:09

до конца не понял алгоритм и как его реализовать
сделал так для лок задачи

Код

Sub ЖирныйТекст()
Dim LastRow As Long, r As Long, n As String,, p1 As String, p2 As String
LastRow = Cells(Rows.Count, 2).End(xlUp).Row
For r = 4 To LastRow
Cells(r, 21) = Application.WorksheetFunction.Trim(Cells(r, 21))
Cells(r, 21).Replace What:="http://", Replacement:="www.", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Cells(r, 21).Replace What:="https://", Replacement:="www.", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
 Cells(r, 21).Font.Bold = False
n = InStr(1, Cells(r, 21), "//")
If n Then Cells(r, 21).Characters(n + 0).Font.Bold = True
End Sub

Изменено: andreyka33 — 12.09.2017 17:02:48

Equio

Пользователь

Сообщений: 274
Регистрация: 05.05.2016

#19

12.09.2017 19:42:57

Код
For r = 4 To LastRow S = Replace(Replace(Cells(r, 2), "http://", "wwwwwww"), "https://", "wwwwwwww") n = InStr(S, "//") If (n > 0) Then Cells(r, 2).Characters(n + 2).Font.Bold = True End If Next r

andreyka33 Пользователь Сообщений: 98 Регистрация: 01.02.2017	#20 12.09.2017 21:00:33 Благодарю Equio за помощь !

Источник

Ниже мы обсудим несколько наиболее распространенных свойств.

Изменить цвет шрифта

Есть несколько способов установить цвета шрифта.

vbColor

Самый простой способ установить цвета — использовать vbColors:

1	Диапазон («a1»). Font.Color = vbRed

Однако количество доступных цветов очень ограничено. Это единственные доступные варианты:

Цвет — RGB

1	Диапазон («a1»). Font.Color = RGB (255,255,0)

ColorIndex

1	Диапазон («a1»). Font.ColorIndex =…

Мы написали статью о цветовых кодах VBA, включая список кодов VBA ColorIndex. Там вы можете узнать больше о цветах.

Размер шрифта

Это установит размер шрифта на 12:

1	Диапазон («a1»). Размер шрифта = 12

или до 16:

1	Диапазон («a1»). Размер шрифта = 16

Жирный шрифт

Установить полужирный шрифт ячейки легко:

1	Диапазон («A1»). Font.Bold = True

или очистить форматирование полужирным шрифтом:

1	Диапазон («A1»). Font.Bold = False

Название шрифта

Чтобы изменить название шрифта, используйте Имя имущество:

1	Диапазон («A1»). Font.Name = «Calibri»

1	Диапазон («A1»). Font.Name = «Arial»

1	Диапазон («A1»). Font.Name = «Times New Roman»

Стиль ячейки

Excel предлагает возможность создавать «стили» ячеек. Стили можно найти в Главная Лента> Стили:

Лично для многих моделей, над которыми я работаю, я обычно создаю стиль ячейки «Вход»:

1	Диапазон («a1»). Style = «Input»

1234567

Тусклая ячейка как диапазонДля каждой ячейки в ActiveSheet.CellsЕсли Cell.Style = «Input», тогдаCell.Style = «InputLocked»Конец, еслиСледующая ячейка

Вы поможете развитию сайта, поделившись страницей с друзьями

Источник

Изменение размера шрифта в одной ячейке

Skorpika

Дата: Воскресенье, 28.12.2014, 18:00 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация:
0
±

Замечаний:
20% ±

Excel 2003 и 13

Спецы, подскажите.
Можно ли при выводе текста тектстбокса в ячейку листа экселя, сделать разные фрагменты текста разного размера и «жирности»
К примеру ТextBox=»Иван Иванов«, при этом в ячейке должно получиться Сеlls(1,1)= «Иван Иванов» и «Иванов» Другим размером шрифта (Большего). Или формат текста буде таким каким задан в ячейке (1, 1) по умолчанию. Вручную изменить размер шрифта фрагмента ячейки вроде прокатывает.

Ответить

wild_pig

Дата: Воскресенье, 28.12.2014, 18:11 |
Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 516

Репутация:
97
±

Замечаний:
0% ±

2003, 2013

И макросом прокатит. Что нужно выделять — второе слово, может весь текст после первого, а может этот пример это «пример»?

Сообщение отредактировал wild_pig — Воскресенье, 28.12.2014, 18:13

Ответить

Skorpika

Дата: Воскресенье, 28.12.2014, 18:34 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация:
0
±

Замечаний:
20% ±

Excel 2003 и 13

Там по итогу получается текстбох из 20-30 строк (шрифт прямой 10 размера), и вот последняя — подпись начальника «Самый главный начальник ____________ Иванов И.И.» (вот ее бы шрифт 12, кривой и жирный). И отделить её от текста пока нет возможности.
[moder]Читаем Правила форума. Прикладываем файл с примером[/moder]

Сообщение отредактировал Skorpika — Воскресенье, 28.12.2014, 18:35

Ответить

Skorpika

Дата: Воскресенье, 28.12.2014, 20:05 |
Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация:
0
±

Замечаний:
20% ±

Excel 2003 и 13

нет проблем
Последнюю строчку с Ивановым сделать бы побольше и пожирнее.
Разнести по разным боксам или по разным ячейкам в листе пока нет возможности.

К сообщению приложен файл:

7037055.xls
(29.0 Kb)

Сообщение отредактировал Skorpika — Воскресенье, 28.12.2014, 20:06

Ответить

SkyPro

Дата: Воскресенье, 28.12.2014, 20:28 |
Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация:
255
±

Замечаний:
0% ±

2010

Запишите макрорекордером форматирование куска текста, при помощи instrrev найдите последнюю «.» , и с этого места примените записанное.

[vba]

Код

‘делает «жирным» текст после последней «точки» в ячейке. Принимает в качестве аргумента ячейку.
Sub setBold(rCell As Range)
     Dim strt&
     With rCell
         strt = InStrRev(.Value, «.») + 1
         If strt > 0 Then .Characters(Start:=strt, Length:=Len(.Value)).Font.FontStyle = «полужирный»
     End With
End Sub

‘Пример использования
Sub setBoldFirstCell()
setBold ActiveCell
End Sub

[/vba]

skypro1111@gmail.com

Сообщение отредактировал SkyPro — Воскресенье, 28.12.2014, 20:37

Ответить

Pelena

Дата: Воскресенье, 28.12.2014, 20:36 |
Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 18797

Репутация:
4284
±

Замечаний:
±

Excel 2016 & Mac Excel

Была похожая тема
По аналогии как-то так
[vba]

Код

Private Sub CommandButton1_Click()
       Dim iStart&, sSearchString
       With Sheets(«Лист1»)
           .Cells(1, 1) = TextBox1.Value
           sSearchString = «Заместитель чегото там»
           If .Cells(1, 1) Like «*» & sSearchString & «*» Then
               iStart = InStr(.Cells(1, 1).Value, sSearchString)
               With .Cells(1, 1).Characters(Start:=iStart, Length:=Len(.Cells(1, 1).Value) — iStart + 1).Font
                   .Bold = True
                   .Italic = True
                   .Size = 12
               End With
           End If
           .Range(«A1:C3»).PrintOut Copies:=1
       End With
End Sub

[/vba]

К сообщению приложен файл:

3195935.xls
(39.5 Kb)

«Черт возьми, Холмс! Но как??!!»
Ю-money 41001765434816

Ответить

Skorpika

Дата: Воскресенье, 28.12.2014, 20:48 |
Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация:
0
±

Замечаний:
20% ±

Excel 2003 и 13

Спс за рекодер. instrrev — к сожалению для меня пока с другой планеты, а вот посчитать количество знаков в ячейке (оно всегда переменное), и изменить исключительно последние требуемые (а их количество с конца одинаково) это уже вроде решаемо. попробую. кстати, как посчитать кол-во знаков в ячейке?
[vba]

Код

Sub Макрос2()
‘
‘ Макрос2 Макрос
‘ Макрос записан 28.12.2014 (SkorpikaCom)
‘

‘

           With Cells(13, 1).Characters(Start:=1, Length:=33).Font
         .Name = «Times New Roman»
         .FontStyle = «курсив»
         .Size = 11
         .Strikethrough = False
         .Superscript = False
         .Subscript = False
         .OutlineFont = False
         .Shadow = False
         .Underline = xlUnderlineStyleNone
         .ColorIndex = xlAutomatic
     End With
     With Cells(13, 1).Characters(Start:=34, Length:=105).Font
         .Name = «Times New Roman»
         .FontStyle = «полужирный курсив»
         .Size = 11
         .Strikethrough = False
         .Superscript = False
         .Subscript = False
         .OutlineFont = False
         .Shadow = False
         .Underline = xlUnderlineStyleNone
         .ColorIndex = xlAutomatic
     End With
End Sub

[/vba]

Сообщение отредактировал Skorpika — Воскресенье, 28.12.2014, 20:51

Ответить

RAN

Дата: Воскресенье, 28.12.2014, 21:01 |
Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

instrrev — к сожалению для меня пока с другой планеты

Не, на Планету, тем паче не друой конец ходить не надо.
[vba][/vba]
Токмо с другого конца. F1 расскажет подробнее.

Быть или не быть, вот в чем загвоздка!

Ответить

Skorpika

Дата: Воскресенье, 28.12.2014, 21:12 |
Сообщение № 9

Группа: Пользователи

Ранг: Новичок

Сообщений: 32

Репутация:
0
±

Замечаний:
20% ±

Excel 2003 и 13

RAN, спс за помощь в прошлые разы, но сейчас тут твой ответ для меня пока на клингонском.
Решил пока как смог
Len(Cells(13, 1)) — считает знаки в ячейке, соответственно

…. Cells(13, 1).Characters(Start:=…, Length:=….).Font….
Длинна Х
старт Len(Cells(13, 1))-X (X=надо посчитать кол-во символов в последней строке)
кстати, ересь с фэлсами в коде я так понимаю можно убрать?

Сообщение отредактировал Skorpika — Воскресенье, 28.12.2014, 21:44

Ответить

RAN

Дата: Воскресенье, 28.12.2014, 22:46 |
Сообщение № 10

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

ересь с фэлсами в коде я так понимаю можно убрать

Можно, наверное.
А что это такое, если не секрет?

Быть или не быть, вот в чем загвоздка!

Ответить

Gustav

Дата: Воскресенье, 28.12.2014, 23:56 |
Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 2398

Репутация:
985
±

Замечаний:
0% ±

начинал с Excel 4.0, видел 2.1

внутри виза после сайза = 11 можно всё безболезненно убрать

МОИ: Ник, Tip box: 41001663842605

Ответить

RAN

Дата: Понедельник, 29.12.2014, 00:09 |
Сообщение № 12

Группа: Друзья

Ранг: Экселист

Сообщений: 5645

Gustav,

Быть или не быть, вот в чем загвоздка!

Ответить

Источник

Формат отображаемого значения

Примеры форматирования текста

Key Notes

VBA Font Object

Syntax

1. Using Color Constants

2. Using RGB

VBA Font Size

VBA Font Name

VBA Font Bold, Italic, and Underline

Other Useful Font Properties

More Tutorials

Шрифт ячейки VBA — изменение цвета, размера, стиля и т. Д.

Шрифт ячейки VBA

Изменить цвет шрифта

vbColor

Цвет — RGB

ColorIndex

Размер шрифта

Жирный шрифт

Название шрифта

Стиль ячейки

Макросы для изменения формата ячеек в таблице Excel

VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк

Описание VBA-макроса для формата ячеек таблицы Excel

Модификация исходного кода макроса для форматирования

VBA Excel. Форматирование текста в ячейке (объект Font)

Формат отображаемого значения

Основные свойства объекта Font

Примеры форматирования текста

5 комментариев для “VBA Excel. Форматирование текста в ячейке (объект Font)”

Using the Visual Basic Immediate Window to Bold Text in Excel

Writing a Visual Basic Module to Bold Text in Excel

Some Practical Use-cases of the Font.Bold Property

How to Bold Selected Cells in Excel Using VBA

Explanation of the Code

How to Bold Cells Containing a Specific Text using VBA

Explanation of the Code

How to Find and Bold Specific Text in a Cell using VBA

Explanation of the Code

How to Remove the Bold.Font Setting in VBA

VBA-макрос: заливка, шрифт, линии границ, ширина столбцов и высота строк

Описание VBA-макроса для формата ячеек таблицы Excel

Модификация исходного кода макроса для форматирования

Формат отображаемого значения

Применение стилей к ячейкам листа

Вывод сообщений о числовых значениях цветов

Выравнивание по горизонтали

Основные свойства объекта Font

Синтаксис и параметры

Именные форматы даты и времени

Именованные форматы чисел

Символы для форматов даты и времени

Заливка ячейки цветом в VBA Excel

Создание новых стилей

Выравнивание по вертикали

Зачем нужны именованные стили

Описание VBA-макроса для формата ячеек таблицы Excel

Использование предопределенных констант

Изменение существующих стилей

Изменить цвет шрифта

vbColor

Цвет — RGB

ColorIndex

Размер шрифта

Жирный шрифт

Название шрифта

Стиль ячейки

Вы поможете развитию сайта, поделившись страницей с друзьями