Excel выделение жирным формула - Word и Excel - помощь в работе с программами

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

Прикрепленные файлы

Книга1.xls (13.5 КБ)

ikki

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

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

25.12.2012 12:03:23

Цитата
Михаил Киселев пишет: выделение части текста жирным, в ячейке с формулами

невозможно.

фрилансер Excel, VBA — контакты в профиле
«Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

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

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	Вам же ответили: в ячейке с формулой нельзя. Вставляйте в соседнюю ячейку через спец.вставку значение и форматируйте его.

Работу формулы можно имитировать макросом, и им же форматировать ячейку.
Пробуйте менять E8, F8 и смотрите результат.
Чтобы макрос срабатывал при любом изменении листа, на листе должна быть хотя одна «летучая» формула, см. А16.
Макрос находится в модуле листа: правый клик по ярлычку листа — Исходный текст.

	Ну вот видите, вариант всё-таки есть, а то невозможно, невозможно. Согласен, что в описанном мною случае никак, но человек свой вариант предложил, который вполне приемлем.

Ну вот видите, вариант всё-таки есть, а то невозможно, невозможно. Согласен, что в описанном мною случае никак, но человек свой вариант предложил, который вполне приемлем.

Не подправите макрос для такого случая, а то я стал переносить в рабочий файл и столкнулся с такой бедой. Я в макросах вообще не бум-бум, но возможно ли сделать выделение жирным в ячейке последние 7 символов, включая пробелы?

Прикрепленные файлы

Книга1.xls (14.5 КБ)

Решил часть проблемы разбиением на части текста, которые необходимо выделить жирным. Теперь не знаю как в макросе их объединить для отображения в одной ячейке (А5). И ещё макрос не работает, если в выпадающем списке выбрать незаполненную строку, как всё это решить?

Прикрепленные файлы

Книга1.xls (20.5 КБ)

Маугли Пользователь Сообщений: 348 Регистрация: 22.12.2012

Смысл в том, что из выпадающих списков выбирается тягач и полуприцеп, в ячейку, которая выводится на печать и в этой ячейке необходимо выделить гос. номера. Мне бы подсказать код в макросе, который бы объединял в одну ячейку данные, в моём случае, из четырёх ячеек, где в двух ячейках текст выделяется жирным. Файл из сообщения #8.

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	вариант выбираем значения в списках, результат — справа фрилансер Excel, VBA — контакты в профиле «Совершенствоваться не обязательно. Выживание — дело добровольное.» Э.Деминг

Маугли Пользователь Сообщений: 348 Регистрация: 22.12.2012

Маугли Пользователь Сообщений: 348 Регистрация: 22.12.2012

	Увидел присвоенное имя ячейке G8 «текст». Но всё равно в рабочем файле не работает, уже находившиеся в нём другие коды поудалял, не помогло.

Михаил Киселев

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

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

#15

30.01.2013 07:52:34

Что-то в моей среде работать макрос с присвоением имён ячейкам не хочет работать. Решил поменять присвоенные имена на «родные» имена ячеек, например G8, вместо «тягач» и всё заработало.

Цитата
ikki пишет: вариант выбираем значения в списках, результат — справа

Источник

format sample

Here I want to add text a1+b1+c1, But I want to bold b1 text like command module will be bold.
Is it possible to bold this word.

date formatting

Is it possible to bold date. suppose Date: 08/01/2017

Cœur

36.7k25 gold badges191 silver badges259 bronze badges

asked Aug 1, 2017 at 16:29

No, you can’t. Excel doesn’t provide such functionality to apply rich text formatting to part of the formula.

But you can possibly insert a Text Box over the result cell to achieve this. Here is a link that you can read: Formatting part of a formula

answered Aug 16, 2017 at 17:44

ian0411ian0411

4,0753 gold badges25 silver badges33 bronze badges

Since you can apply rich text formatting to the cells that contain the formula, why not use more than 1 cell and eliminate the display of line between them so the 2 cells look like 1. Then put the word «Date:» in the first cell flush right margin and in the cell next to it, put the formula to gather the date, formatting the cell to flush left margin, and bold that cell.

answered Apr 6, 2021 at 5:45

You cannot format text to italic, but you could change the basic latin letters to corresponding italic unicode characters:

    Function ITALIC(orig As String) As String
        Dim result As String
        Dim c As Long
        result = ""
        For i = 1 To Len(orig)
            c = WorksheetFunction.Unicode(Mid(orig, i, 1))
            If c > 64 And c < 91 Then c = c + 120263
            If c > 64 And c < 123 Then c = c + 120257
            result = result & WorksheetFunction.Unichar(c)
        Next i
        ITALIC = result
    End Function

You may change the text to many other forms as well.
https://lingojam.com/ItalicTextGenerator

answered Feb 3, 2022 at 16:26

Источник

Формула жирного шрифта

Viper25

Дата: Среда, 15.02.2017, 13:58 |
Сообщение № 1

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

Ранг: Участник

Сообщений: 93

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

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

Excel 2007

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

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

2325434.xls
(27.0 Kb)

Ответить

китин

Дата: Среда, 15.02.2017, 14:03 |
Сообщение № 2

Группа: Модераторы

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

Сообщений: 6973

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

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

Excel 2007;2010;2016

формулы этого не умеют. :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

sboy

Дата: Среда, 15.02.2017, 14:18 |
Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 2566

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

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

Excel 2010

Добрый день.
Вот тут недавно похожее делал, посмотрите, может подойдет для Вашей задачи

Яндекс: 410016850021169

Ответить

Wasilich

Дата: Пятница, 17.02.2017, 00:17 |
Сообщение № 4

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

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

Сообщений: 1232

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

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

2003

Так надо? Макрос.
[offtop]А что, в РФ уже на украинский язык переходят? [/offtop]

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

Viper25.xls
(34.5 Kb)

Сообщение отредактировал Wasilich — Пятница, 17.02.2017, 00:20

Ответить

Источник

Hi @Jalil1985

I agree that it seems not possible without a macro, but with VBA it is possible.

Put the different parts in separate cells and generate A2 as static text;

Sub boldSum()
    part1 = Range("Part_1").Value
    part2 = Range("Part_2").Value
    part3 = Range("Part_3").Value
    
    Range("a2").Select
    ActiveCell.Value = part1 & part2 & part3
    
    ActiveCell.Characters(Start:=Len(part1), Length:=Len(part2)).Font.FontStyle = "Bold"
End Sub

Thus, the attached file is xlsM.

-/-

i5:i7 are named Part_1 to 3 to be easy possible to move to another sheet with preferences. Cut and paste and tha macro will still be functional.

Источник