Vba excel увеличить шрифт
Спецы, подскажите.
Можно ли при выводе текста тектстбокса в ячейку листа экселя, сделать разные фрагменты текста разного размера и "жирности"
К примеру ТextBox , при этом в ячейке должно получиться Сеlls(1,1) и "Иванов" Другим размером шрифта (Большего). Или формат текста буде таким каким задан в ячейке (1, 1) по умолчанию. Вручную изменить размер шрифта фрагмента ячейки вроде прокатывает.
Спецы, подскажите.
Можно ли при выводе текста тектстбокса в ячейку листа экселя, сделать разные фрагменты текста разного размера и "жирности"
К примеру ТextBox , при этом в ячейке должно получиться Сеlls(1,1) и "Иванов" Другим размером шрифта (Большего). Или формат текста буде таким каким задан в ячейке (1, 1) по умолчанию. Вручную изменить размер шрифта фрагмента ячейки вроде прокатывает. Skorpika
И макросом прокатит. Что нужно выделять - второе слово, может весь текст после первого, а может этот пример это "пример"?
И макросом прокатит. Что нужно выделять - второе слово, может весь текст после первого, а может этот пример это "пример"? wild_pig
Там по итогу получается текстбох из 20-30 строк (шрифт прямой 10 размера), и вот последняя - подпись начальника "Самый главный начальник ____________ Иванов И.И." (вот ее бы шрифт 12, кривой и жирный). И отделить её от текста пока нет возможности.
[moder]Читаем Правила форума. Прикладываем файл с примером[/moder]
Там по итогу получается текстбох из 20-30 строк (шрифт прямой 10 размера), и вот последняя - подпись начальника "Самый главный начальник ____________ Иванов И.И." (вот ее бы шрифт 12, кривой и жирный). И отделить её от текста пока нет возможности.
[moder]Читаем Правила форума. Прикладываем файл с примером[/moder] Skorpika
нет проблем
Последнюю строчку с Ивановым сделать бы побольше и пожирнее.
Разнести по разным боксам или по разным ячейкам в листе пока нет возможности.
нет проблем
Последнюю строчку с Ивановым сделать бы побольше и пожирнее.
Разнести по разным боксам или по разным ячейкам в листе пока нет возможности. Skorpika
Запишите макрорекордером форматирование куска текста, при помощи instrrev найдите последнюю "." , и с этого места примените записанное.
'делает "жирным" текст после последней "точки" в ячейке. Принимает в качестве аргумента ячейку.
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
Запишите макрорекордером форматирование куска текста, при помощи instrrev найдите последнюю "." , и с этого места примените записанное.
'делает "жирным" текст после последней "точки" в ячейке. Принимает в качестве аргумента ячейку.
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
'делает "жирным" текст после последней "точки" в ячейке. Принимает в качестве аргумента ячейку.
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
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
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
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
Спс за рекодер. 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
Спс за рекодер. 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
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
В этой статье рассмотрены свойства шрифта (объекта Font), определяющие внешнее оформление (начертание) видимого значения ячейки. Это касается не только текста (строк), но и визуального начертания отображаемых дат и числовых значений.
Формат отображаемого значения
Когда мы из кода VBA Excel записываем в ячейку текстовое или другое значение, оно отображается в формате, присвоенном данной ячейке. Это может быть формат:
- рабочего листа по умолчанию;
- установленный для диапазона пользователем;
- примененный к диапазону из кода VBA Excel.
Если ячейка содержит текстовое значение, его начертание можно форматировать по отдельным частям (подстрокам). Такое форматирование доступно как в ручном режиме на рабочем листе, так и из кода VBA Excel.
У объекта Range есть свойство Font (шрифт), которое отвечает за форматирование (начертание) визуально отображаемого текста в ячейках рабочего листа. Его применение вызывает объект 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» присвоим шрифты разных наименований:
Использование цветовой палитры для присвоения цвета тексту в ячейке листа Excel аналогично присвоению цвета фону ячейки, только свойство диапазона .Interior меняем на свойство .Font.
Цвет текста и предопределенные константы
Цвет шрифту в ячейке можно присвоить с помощью предопределенных констант:
Напомню, что вместо индексов строк и столбцов можно использовать переменные. Список предопределенных констант смотрите здесь.
Цвет шрифта и модель RGB
Для изменения цвета текста в ячейке можно использовать цветовую модель RGB:
Аргументы функции RGB могут принимать значения от 0 до 255. Если все аргументы равны 0, цвет — черный, если все аргументы равны 255, цвет — белый. Функция RGB преобразует числовые значения основных цветов (красного, зеленого и синего) в индекс основной палитры.
Список стандартных цветов с RGB-кодами смотрите в статье: HTML. Коды и названия цветов.
Свойство .Font.ColorIndex
Свойство .Font.ColorIndex может принимать значения от 1 до 56. Это стандартная ограниченная палитра, которая существовала до Excel 2007 и используется до сих пор. Посмотрите примеры:
Таблица соответствия значений ограниченной палитры цвету:
Стандартная палитра Excel из 56 цветов
Свойство .Font.ThemeColor
Свойство .Font.ThemeColor может принимать числовые или текстовые значения констант из коллекции MsoThemeColorIndex:
Основная палитра
Основная палитра, начиная c Excel 2007, состоит из 16777216 цветов. Свойство .Font.Color может принимать значения от 0 до 16777215, причем 0 соответствует черному цвету, а 16777215 — белому.
Отрицательные значения свойства .Font.Color
При записи в Excel макрорекордером макроса с присвоением шрифту цвета используются отрицательные значения свойства .Font.Color, которые могут быть в пределах от -16777215 до -1. Отрицательные значения соответствуют по цвету положительному значению, равному сумме наибольшего индекса основной палитры и данного отрицательного значения. Например, отрицательное значение -8257985 соответствует положительному значению 8519230, являющегося результатом выражения 16777215 + (-8257985). Цвета текста двух ячеек из следующего кода будут одинаковы:
Как в этом окне увеличить шрифт?
захожу в редактор visual basic нажимаю инсерт и модуль.шрифт очень мелкий как сделать по крупнее?
Как увеличить шрифт?
Помогите увеличить размер шрифта в панели пуск, ну и заодно цвет поменять. Собственно, нужно.
Как увеличить шрифт
Поскажите пожалуйста как установить большой шрифт в блоке 336*280 (в настройках adsense указан.
Как увеличить шрифт интерфейса?
Привет! Как увеличить шрифт интерфейса? Поставил размер шрифта меню "Большой" (скрин). Не помогает.
Конкретизируйте вопрос.
Для "всего" есть непохожие друг на друга решения, и здесь все это в куче обсуждаться не должно.
Label, TextBox, самой формы.
и если можно, скажите как менять внешний вид символов(жирный, черта, пропись)(как в Word(e)), спасибо
В LAbel и TextBox. Их нужно выделить. Справа в свойствах найти свойство Font и выбрать какой шрифт нужен, какой стиль и так далее. А цвет - свойство ForeColor
Во всяком случае это самое простое.
А посложнее в книжках поищи
Как увеличить шрифт в StatusBar
Можете подсказать, как увеличить размер шрифта компонента Timer на форме procedure.
Шрифт в примечаниях КАК УВЕЛИЧИТЬ.
Ребят, подскажите, как увеличить размер шрифта в примечаниях? а то вывожу на печать - а они.
Как увеличить шрифт в редакторе кода
на хр ктрл+энтер на 7 как?? мозг сломал уже. на хд разрешении на этом малюсеньком окошечке.
Как увеличить шрифт в режиме SQL?
Всем привет. Может кто знает, как увеличить шрифт, все что знал испробовал и нигде не нашел. А то.
Как увеличить шрифт в подменю Джумла3
День добрый! Столкнулась со следующей проблемой. Есть меню справа(рис. 1), в нем необходимо сделать.
Как увеличить шрифт у некоторых пользователей
Добрый день Подскажите как увеличить шрифт у некоторых пользователей ? нашел стиль в.
Программно изменить размер шрифта компонента
Используя MS Excel создать создать форму с текстовой строкой и набором кнопок, при нажатии на.
Можно ли изменить размер шрифта в листбоксе?
Как видно на скрине, размер шрифта в листбоксе не меняется с изменением масштаба листа. Но что-то.
Как мне изменит размер шрифта в стандартных эелементах управления меню 'формы', помещённых на лист?
Как мне изменит размер шрифта в стандартных эелементах управления меню 'формы', помещённых на лист.
Как изменить размер поля через vba?
Нужно установить размер поля с меньшего размера на больший Не могу понять, как можно изменить.
ну ту дана кривая,и нужно, чтобы изменялся её шрифт
Добавлено через 47 секунд
тут график дан.
нужно ещё, чтобы , допустим, с 12-ого шрифта на любой другой перейти.на 13, 14.чтоб список был дан
Добавлено через 1 минуту
нажимаешь. и размер шрифта формата оси изменяется
тут с комментариями коды.тут есть кусок кода, где можно изменять цвет линии графика.а мне нужно изменять не цвет линии графика, а изменять размер шрифта в формате оси.с соответствующим меню
как изменить размер шрифта в формате оси . очень нужно в курсовой работе.помогите пожалуйста.дайте коды на это
Как изменить размер диалоговой формы относительно текущего размера?
Собственно вопрос в сабже. Пытался сделать так: Me.Form1.Height = Me.WindowHeight - 1800 Пишет.
Как изменить размер изображения, вставленного в ячейку таблицы MS Word?
Формирую таблицу с картинками в MS Word из 1С по технологии COM. Столкнулся с тем, что картинка.
Макрос, меняющий размер шрифта на определенную величину
Здравствуйте. Задачка такая. Есть вордовский документ, в котором часть слов набрана Times New.
Определить шрифт и размер шрифта слова в Word
Нужно пройтись по всем документу по каждому слову и определить шрифт слова и размер шрифта. Какая.
Читайте также: