![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Участник клуба
Регистрация: 16.05.2010
Сообщений: 1,249
|
![]()
Всего несколько функций листа.
|
![]() |
![]() |
![]() |
#12 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,170
|
![]()
Схитрил
![]() А если скобка будет в середине жирной части? Тогда искать пробел после " (LX."?
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#13 |
Участник клуба
Регистрация: 16.05.2010
Сообщений: 1,249
|
![]()
Если бы у бабушки были я... ну, эти... усы! то она было бы дедушкой
![]() Формула составлена по данным в примере. Если будет не так, будет по другому ![]() |
![]() |
![]() |
![]() |
#14 |
Регистрация: 12.10.2010
Сообщений: 5
|
![]()
Итак! С полными, от радости, штанами подведу итоги
![]() Есть три работающих варианта: Первый вариант ув. Hugo121 для полужирного Function ZerGO_B(r As Range) Dim i& With r(1) For i = 1 To Len(.Value) If Not .Characters(i, 1).Font.Bold Then Exit For Next ZerGO_B = Left(.Value, i - 1) End With End Function для простого Function ZerGO_S(r As Range) Dim i& With r(1) For i = 1 To Len(.Value) If Not .Characters(i, 1).Font.Bold Then Exit For Next ZerGO_S = Mid(.Value, i) End With End Function Две отдельные функции работают хорошо! Второй вариант ув. R Dmitry для полужирного Function жирность(TXT As Range) Dim i& For i = 1 To Len(TXT.Value) With TXT.Characters(i, 1) If Not .Font.FontStyle = "обычный" Then жирность = жирность & .Text End With Next End Function для простого Function нежирность(TXT As Range) Dim i& For i = 1 To Len(TXT.Value) With TXT.Characters(i, 1) If .Font.FontStyle = "обычный" Then нежирность = нежирность & .Text End With Next End Function тоже справляются с задачей. Третий, и на мой взгляд самый оптимальный, вариант ув. Казанский для полужирного и простого Function ZerGO(r As Range) Dim i&, x$(0 To 1) With r(1) For i = 1 To Len(.Value) If Not .Characters(i, 1).Font.Bold Then Exit For Next x(0) = Left$(.Value, i - 1) x(1) = Mid$(.Value, i) ZerGO = x End With End Function одна функция которая отлично справляется с задачей и экономит массу времени разделяя полужирный и простой текст по разным ячейкам. ОГРОМНЕЙШИЕ ВАМ СПАСИБО! ![]() П.С. надеюсь ваш труд поможет многим!! Еще рас благодарствую!!! Последний раз редактировалось ZerGO; 30.07.2011 в 03:07. Причина: послушал старших, поправил код)) |
![]() |
![]() |
![]() |
#15 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,170
|
![]()
Первый вариант - это тоже Казанского, я просто его нагло на два поделил, чтоб работало на длинных строках
![]()
webmoney: E265281470651 Z422237915069 R418926282008
|
![]() |
![]() |
![]() |
#16 |
Форумчанин
Регистрация: 07.03.2010
Сообщений: 796
|
![]()
If .Font.FontStyle = "обычный" Then нежирность =??жирность & .Text
вот тут ошибочка если что ![]()
Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234
|
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Копирование части данных ячейки | Doszhan | Microsoft Office Excel | 15 | 04.11.2011 07:49 |
Копирование выделенного текста | peplenko | Общие вопросы по Java, Java SE, Kotlin | 2 | 18.07.2011 04:15 |
Удаление из ячейки StringGrid части текста | SPD | Общие вопросы Delphi | 3 | 21.08.2010 12:24 |
Копирование выделенного текста из чужого окна | Gerzs | Общие вопросы Delphi | 0 | 02.07.2010 18:47 |
Копирование текста ячейки 2 цветов | WIC | Microsoft Office Excel | 3 | 24.09.2007 13:32 |