|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
28.07.2011, 19:19 | #11 |
Участник клуба
Регистрация: 16.05.2010
Сообщений: 1,249
|
Всего несколько функций листа.
|
28.07.2011, 20:04 | #12 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Схитрил
А если скобка будет в середине жирной части? Тогда искать пробел после " (LX."?
webmoney: E265281470651 Z422237915069 R418926282008
|
28.07.2011, 20:12 | #13 |
Участник клуба
Регистрация: 16.05.2010
Сообщений: 1,249
|
Если бы у бабушки были я... ну, эти... усы! то она было бы дедушкой
Формула составлена по данным в примере. Если будет не так, будет по другому |
29.07.2011, 23:05 | #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. Причина: послушал старших, поправил код)) |
29.07.2011, 23:33 | #15 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Первый вариант - это тоже Казанского, я просто его нагло на два поделил, чтоб работало на длинных строках
webmoney: E265281470651 Z422237915069 R418926282008
|
30.07.2011, 00:09 | #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 |