Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Форматирование текста в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Форматирование текста в ячейке (Формулы/Formulas)
Форматирование текста в ячейке
HuKoJIau4 Дата: Пятница, 15.02.2019, 16:19 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Доброго времени суток!
Имеется текст в ячейках некоторые слова которого написаны красным цветом. Необходимо заменить шрифт написанный красным цветом на курсив не меняя цвет.
Таблица большая, более 5000 строк...
К примеру: "Иван Иванов (сын Ивана Ивановича)" нужно заменить на "Иван Иванов (сын Ивана Ивановича)"

Подскажите как это можно осуществить?


Сообщение отредактировал HuKoJIau4 - Пятница, 15.02.2019, 16:20
 
Ответить
СообщениеДоброго времени суток!
Имеется текст в ячейках некоторые слова которого написаны красным цветом. Необходимо заменить шрифт написанный красным цветом на курсив не меняя цвет.
Таблица большая, более 5000 строк...
К примеру: "Иван Иванов (сын Ивана Ивановича)" нужно заменить на "Иван Иванов (сын Ивана Ивановича)"

Подскажите как это можно осуществить?

Автор - HuKoJIau4
Дата добавления - 15.02.2019 в 16:19
_Boroda_ Дата: Пятница, 15.02.2019, 16:26 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Это только макросом
Приложите файл-пример


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЭто только макросом
Приложите файл-пример

Автор - _Boroda_
Дата добавления - 15.02.2019 в 16:26
_Boroda_ Дата: Пятница, 15.02.2019, 16:49 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Убегаю уже, ладно, без файла положу
Работает в предварительно выделенном диапазоне
[vba]
Код
Sub tt()
    Dim d As Range, d0 As Range
    Set d0 = Selection
    col_ = 255
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    For Each d In d0
        With d
            ld_ = Len(.Value)
            For i = 1 To ld_
                With .Characters(Start:=i, Length:=1).Font
                    If .Color = col_ Then
                        .FontStyle = "курсив"
                    End If
                End With
            Next i
        End With
    Next d
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 166.xlsm (15.8 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеУбегаю уже, ладно, без файла положу
Работает в предварительно выделенном диапазоне
[vba]
Код
Sub tt()
    Dim d As Range, d0 As Range
    Set d0 = Selection
    col_ = 255
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    For Each d In d0
        With d
            ld_ = Len(.Value)
            For i = 1 To ld_
                With .Characters(Start:=i, Length:=1).Font
                    If .Color = col_ Then
                        .FontStyle = "курсив"
                    End If
                End With
            Next i
        End With
    Next d
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 15.02.2019 в 16:49
HuKoJIau4 Дата: Пятница, 15.02.2019, 17:40 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_,
Спасибо!
В большинстве случаев форматирует нормально, но есть места где этот макрос не срабатывает должным образом, форматирует только 1 букву в слове.
Пример во вложении.
К сообщению приложен файл: 1384168.xlsm (16.0 Kb)


Сообщение отредактировал HuKoJIau4 - Пятница, 15.02.2019, 18:10
 
Ответить
Сообщение_Boroda_,
Спасибо!
В большинстве случаев форматирует нормально, но есть места где этот макрос не срабатывает должным образом, форматирует только 1 букву в слове.
Пример во вложении.

Автор - HuKoJIau4
Дата добавления - 15.02.2019 в 17:40
HuKoJIau4 Дата: Пятница, 15.02.2019, 18:50 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Проверил, если текст начинается с красного шрифта то макрос не работает...
 
Ответить
СообщениеПроверил, если текст начинается с красного шрифта то макрос не работает...

Автор - HuKoJIau4
Дата добавления - 15.02.2019 в 18:50
HuKoJIau4 Дата: Суббота, 16.02.2019, 09:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Народ, есть варианты допилить макрос?
У меня не получается...
 
Ответить
СообщениеНарод, есть варианты допилить макрос?
У меня не получается...

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 09:48
bmv98rus Дата: Суббота, 16.02.2019, 12:18 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
Переносите текст временно в ворд и там спокойно замените на курсив Ваш красный текст при помощи инструмента замены. Потом перенесете обратно. Там все клацанием кнопок можно делать. Встали в поле что ищем, в расширенном режиме есть кнопка формат, выбрали там цвет. Перешли в поле на что меняем, опять в формат и там выбрали курсив. Нажали заменить все.


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 16.02.2019, 12:23
 
Ответить
СообщениеПереносите текст временно в ворд и там спокойно замените на курсив Ваш красный текст при помощи инструмента замены. Потом перенесете обратно. Там все клацанием кнопок можно делать. Встали в поле что ищем, в расширенном режиме есть кнопка формат, выбрали там цвет. Перешли в поле на что меняем, опять в формат и там выбрали курсив. Нажали заменить все.

Автор - bmv98rus
Дата добавления - 16.02.2019 в 12:18
HuKoJIau4 Дата: Суббота, 16.02.2019, 12:57 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
bmv98rus,
Спасибо!
Но данный метод работает только на небольших объемах. У меня большой объем данных и ворд при копипасте зависает...
 
Ответить
Сообщениеbmv98rus,
Спасибо!
Но данный метод работает только на небольших объемах. У меня большой объем данных и ворд при копипасте зависает...

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 12:57
bmv98rus Дата: Суббота, 16.02.2019, 14:50 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
ну да, размножил Ваш пример на 10000 и при вставке в ворд есть проблема, но ведь мы то не простаки, знаем что из Excel можно сохранить в HTM, его загрузить в Word, все сделать, а после уже перенести опять в Excel.
Короче, если задача разовая или редкая, вариант полностью рабочий.


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 16.02.2019, 15:10
 
Ответить
Сообщениену да, размножил Ваш пример на 10000 и при вставке в ворд есть проблема, но ведь мы то не простаки, знаем что из Excel можно сохранить в HTM, его загрузить в Word, все сделать, а после уже перенести опять в Excel.
Короче, если задача разовая или редкая, вариант полностью рабочий.

Автор - bmv98rus
Дата добавления - 16.02.2019 в 14:50
Pelena Дата: Суббота, 16.02.2019, 14:51 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19163
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Начинать текст с пробела, если первое слово красное


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНачинать текст с пробела, если первое слово красное

Автор - Pelena
Дата добавления - 16.02.2019 в 14:51
bmv98rus Дата: Суббота, 16.02.2019, 15:09 | Сообщение № 11
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
если первое слово красное то начинать надо с кросса :-)


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 16.02.2019, 15:09
 
Ответить
Сообщениеесли первое слово красное то начинать надо с кросса :-)

Автор - bmv98rus
Дата добавления - 16.02.2019 в 15:09
HuKoJIau4 Дата: Суббота, 16.02.2019, 15:21 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
, знаем что из Excel можно сохранить в HTM, его загрузить в Word

Не вариант... Жутко тормозит Word.

Начинать текст с пробела, если первое слово красное

В смысле?
 
Ответить
Сообщение
, знаем что из Excel можно сохранить в HTM, его загрузить в Word

Не вариант... Жутко тормозит Word.

Начинать текст с пробела, если первое слово красное

В смысле?

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 15:21
bmv98rus Дата: Суббота, 16.02.2019, 15:30 | Сообщение № 13
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
Жутко тормозит Word.

Ну не молния ,

но работает
К сообщению приложен файл: 1595067.jpg (22.9 Kb)


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 16.02.2019, 15:31
 
Ответить
Сообщение
Жутко тормозит Word.

Ну не молния ,

но работает

Автор - bmv98rus
Дата добавления - 16.02.2019 в 15:30
HuKoJIau4 Дата: Суббота, 16.02.2019, 15:40 | Сообщение № 14
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Ну не молния

У меня Word виснет... это извращение.
 
Ответить
Сообщение
Ну не молния

У меня Word виснет... это извращение.

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 15:40
_Boroda_ Дата: Суббота, 16.02.2019, 15:49 | Сообщение № 15
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Вот так попробуйте
[vba]
Код
Sub tt()
    Dim d As Range, d0 As Range
    Set d0 = Selection
    col_ = 255
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    On Error Resume Next
    For Each d In d0
        With d
            ld_ = Len(.Value)
            ReDim ar(1 To ld_)
            For i = 1 To ld_
                ar(i) = .Characters(Start:=i, Length:=1).Font.Color
            Next i
            .Font.Color = 1
            For i = 1 To ld_
                If ar(i) = col_ Then
                    With .Characters(Start:=i, Length:=1).Font
                        .FontStyle = "курсив"
                        .Color = col_
                    End With
                End If
            Next i
        End With
    Next d
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 1384168_2.xlsm (16.5 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВот так попробуйте
[vba]
Код
Sub tt()
    Dim d As Range, d0 As Range
    Set d0 = Selection
    col_ = 255
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    On Error Resume Next
    For Each d In d0
        With d
            ld_ = Len(.Value)
            ReDim ar(1 To ld_)
            For i = 1 To ld_
                ar(i) = .Characters(Start:=i, Length:=1).Font.Color
            Next i
            .Font.Color = 1
            For i = 1 To ld_
                If ar(i) = col_ Then
                    With .Characters(Start:=i, Length:=1).Font
                        .FontStyle = "курсив"
                        .Color = col_
                    End With
                End If
            Next i
        End With
    Next d
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 16.02.2019 в 15:49
HuKoJIau4 Дата: Суббота, 16.02.2019, 15:54 | Сообщение № 16
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_,
Единственный человек наверное который помогает делом... Спасибо большое, ща попробую.
…а то создал дубль темы на других форумах, налетели девочки, разнылись :D
 
Ответить
Сообщение_Boroda_,
Единственный человек наверное который помогает делом... Спасибо большое, ща попробую.
…а то создал дубль темы на других форумах, налетели девочки, разнылись :D

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 15:54
HuKoJIau4 Дата: Суббота, 16.02.2019, 16:09 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_,
Всё работает! СПАСИБО!!!
 
Ответить
Сообщение_Boroda_,
Всё работает! СПАСИБО!!!

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 16:09
_Boroda_ Дата: Суббота, 16.02.2019, 16:14 | Сообщение № 18
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
а то создал дубль темы на других форумах, налетели девочки, разнылись

А вот так не нужно было писать
1. Это очень уважаемые люди с огромным багажом знаний, которые, между прочим так, если вы вдруг не заметили, хотели вам помочь
2. Все то, о чем писали там, написано абсолютно верно и по делу. А Вы нарушаете Правила этого форума, о чем на Планете Вам прямо и указали. Для справки - "Запрещено ... не предоставлять ссылки ..." - это то же самое, что "Необходимо предоставлять ссылки"
3. Как вы думаете, когда вы в следующий раз придете сюда или туда за помощью, что сделают "девочки"?

И да, я далеко не единственный помогающий делом. Что здесь, что там


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
а то создал дубль темы на других форумах, налетели девочки, разнылись

А вот так не нужно было писать
1. Это очень уважаемые люди с огромным багажом знаний, которые, между прочим так, если вы вдруг не заметили, хотели вам помочь
2. Все то, о чем писали там, написано абсолютно верно и по делу. А Вы нарушаете Правила этого форума, о чем на Планете Вам прямо и указали. Для справки - "Запрещено ... не предоставлять ссылки ..." - это то же самое, что "Необходимо предоставлять ссылки"
3. Как вы думаете, когда вы в следующий раз придете сюда или туда за помощью, что сделают "девочки"?

И да, я далеко не единственный помогающий делом. Что здесь, что там

Автор - _Boroda_
Дата добавления - 16.02.2019 в 16:14
HuKoJIau4 Дата: Суббота, 16.02.2019, 16:25 | Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
так, если вы вдруг не заметили, хотели вам помочь

Не заметил. Если бы хотели, не стали бы придираться к оформлению, всё там было понятно. Вы же поняли.
"Запрещено ... не предоставлять ссылки ..." - это то же самое, что "Необходимо предоставлять ссылки"

Я то понял... Только вот на Планете нет такого пункта в правилах, вы путаете.
 
Ответить
Сообщение
так, если вы вдруг не заметили, хотели вам помочь

Не заметил. Если бы хотели, не стали бы придираться к оформлению, всё там было понятно. Вы же поняли.
"Запрещено ... не предоставлять ссылки ..." - это то же самое, что "Необходимо предоставлять ссылки"

Я то понял... Только вот на Планете нет такого пункта в правилах, вы путаете.

Автор - HuKoJIau4
Дата добавления - 16.02.2019 в 16:25
bmv98rus Дата: Суббота, 16.02.2019, 16:30 | Сообщение № 20
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4099
Репутация: 766 ±
Замечаний: 0% ±

Excel 2013/2016
У меня Word виснет... это извращение.
У Вас неправильный Word, он неправильно виснет.
Я показал, что проделал на 10000 строк, это заняло меньше минуты всех действий. Просто в следующий раз потребуется изменить условие, и потребуется другой макрос, а вместо этого просто нужно осваивать и применять прочие инструменты.

И заканчивайте пререкаться что тут, что там. "девочки" возрастные, "приложат" мало не покажется.

Поздно, там уже доигрался. С малышом сцепился. :D :D


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 16.02.2019, 16:35
 
Ответить
Сообщение
У меня Word виснет... это извращение.
У Вас неправильный Word, он неправильно виснет.
Я показал, что проделал на 10000 строк, это заняло меньше минуты всех действий. Просто в следующий раз потребуется изменить условие, и потребуется другой макрос, а вместо этого просто нужно осваивать и применять прочие инструменты.

И заканчивайте пререкаться что тут, что там. "девочки" возрастные, "приложат" мало не покажется.

Поздно, там уже доигрался. С малышом сцепился. :D :D

Автор - bmv98rus
Дата добавления - 16.02.2019 в 16:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Форматирование текста в ячейке (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!