Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Задача с определение цвета шрифта / 12 сообщений из 12, страница 1 из 1
27.10.2011, 16:34
    #37501041
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Привет всем. Нужно сделать следующее... Есть ячейка (допустим А1), часть текса этой ячейки имеет шрифт красного цвета а другая часть текста имеет шрифт чёрного цвета (в одной этой ячейки). Нужно взять только часть текста который имеет шриф черного цвета и вставить этот кусок текста в ячейку В2. Подскажите как это сделать...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 16:41
    #37501068
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
макросом только.
Формулы с форматированием не работают.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 17:11
    #37501164
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Да я только "ЗА" макрос, вот только не знаю как это узнать, является ли шрифт текста красным цветом или нет.... Подскажите что в макросе будет....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 17:37
    #37501228
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Ну так включите макрорекордер да посмотрите, что получится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 18:10
    #37501306
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
не понимаю, как поможет запись макроса, что смотреть, на что обратить внимание...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 20:12
    #37501501
vikttur
vikttur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Кроме цвета есть какие-либо одинаковые критерии? (длина текста, после первого/десятого пробела, в кавычках, перед определенным словом...)?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2011, 21:42
    #37501621
скукотища
скукотища
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
puma_q,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
dim s$, i%
s=""
with [a1]
  for i =  1  to len(.value2)
    if .characters(i, 1 ).font.color= 0  then s=s & mid(.value2, i,  1 )
  next
end with
[b2].value2=s
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2011, 10:48
    #37502121
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
viktturКроме цвета есть какие-либо одинаковые критерии? (длина текста, после первого/десятого пробела, в кавычках, перед определенным словом...)?


Да есть. Текст красного цвета всегда находится вначале ячейки текста и заканчивается точкой и пробелом. Затем уже идёт текст с черным шрифтом...

это наверное будет вот так:
Код: plaintext
1.
2.
3.
4.
5.
If InStr(Cells( 1 ,  1 ), ". ") <>  0  Then
     If Cells( 1 ,  1 ).Characters(InStr(Cells( 1 ,  1 ), ". "),  1 ).Font.Color <>  0  Then
        Range("B1").Value = Mid(Cells( 1 ,  1 ).Value, VBA.Strings.InStr(Cells( 1 ,  1 ), ". ") +  2 , Len(Cells( 1 ,  1 ).Value))
     End If
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2011, 10:49
    #37502124
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Или можно что то упростить и улучшить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2011, 11:05
    #37502149
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
puma_qДа есть. Текст красного цвета всегда находится вначале ячейки текста и заканчивается точкой и пробелом. Затем уже идёт текст с черным шрифтом...

=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(". ";A1)-1)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2011, 12:50
    #37502416
puma_q
puma_q
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
Serge 007 =ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(". ";A1)-1)


А на VBA как это будет выглядеть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.10.2011, 13:02
    #37502451
Serge 007
Serge 007
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задача с определение цвета шрифта
puma_qSerge 007 =ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(". ";A1)-1)


А на VBA как это будет выглядеть?
А фиг её знает :)
Я не программист.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Задача с определение цвета шрифта / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 473ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2176340]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 168ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 237ms
total:  473ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]