Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.02.2013, 18:57   #1
Kirja23
Пользователь
 
Регистрация: 05.10.2012
Сообщений: 21
По умолчанию макро для обработки текста в ячейках

привет всем!

помогите пожалуйсто написать программку для ...

в столбце А находятся
А1 = www.mail.ru
A2 = www.kz.fresh.com
A3 = www.more.net
A4 = www.raketa.fr

для столбца Б: если после последней точки 2 знака, тогда в столбце Б должен стоять +, иначе -.

Заранеее благодарен!!!!!!!!!!!!!!!!!!!!
Kirja23 вне форума Ответить с цитированием
Старый 12.02.2013, 19:18   #2
nilem
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 616
По умолчанию

попробуйте для В2
=ЕСЛИ(КОДСИМВ(ПРАВСИМВ(A2;3))=46;"+ ";"-")
nilem вне форума Ответить с цитированием
Старый 12.02.2013, 19:25   #3
Kirja23
Пользователь
 
Регистрация: 05.10.2012
Сообщений: 21
По умолчанию

спасибо за ответ, но мне нужен код в vba....

увы не могу написать программки которая будет искать последнею точку с конца текста в ячейках...
Kirja23 вне форума Ответить с цитированием
Старый 12.02.2013, 19:46   #4
nilem
Форумчанин
 
Регистрация: 25.04.2010
Сообщений: 616
По умолчанию

тогда так:
Код:
Sub ert()
Dim x, i&
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    For i = 1 To UBound(x)
        If Len(x(i, 1)) - InStrRev(x(i, 1), ".") = 2 Then x(i, 1) = "+" Else x(i, 1) = "-"
    Next i
    .Offset(, 1).Value = x
End With
End Sub
nilem вне форума Ответить с цитированием
Старый 12.02.2013, 20:02   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

видимо предполагалось так:
Код:
x(i, 1) = Iif(Len(x(i, 1)) - InStrRev(x(i, 1), ".") = 3, "+", "-")
принципиальное исправление это 3 вместо 2 (точка 3-я с конца строки).
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 12.02.2013, 20:41   #6
Kirja23
Пользователь
 
Регистрация: 05.10.2012
Сообщений: 21
По умолчанию

nilem и IgorGo огромное спасибо за ваши ответы.

если можно помогите пожалуйсто еще: в ячейке А1 находится следующее: ПНM2, в столбце Б должен появляться предпоследний знак, ячейки А, т.е. М, если в А2=ДРФГ4, тогда Б2=Г
Kirja23 вне форума Ответить с цитированием
Старый 12.02.2013, 20:49   #7
Watcher_1
Форумчанин
 
Аватар для Watcher_1
 
Регистрация: 22.06.2011
Сообщений: 325
По умолчанию

Так пойдет?
Код:
For i = 1 To [A1].End(xlDown).Row
     Range("B" & i) = Left(Right(Range("A" & i), 2), 1)
Next
Заказать макрос можно на сайте http://excel4you.ru/
Watcher_1 вне форума Ответить с цитированием
Старый 12.02.2013, 21:12   #8
Kirja23
Пользователь
 
Регистрация: 05.10.2012
Сообщений: 21
По умолчанию

конечно пойдет, и вам спасибо!!!!!!!!!!!!!!!!!!!!!!!!!
Kirja23 вне форума Ответить с цитированием
Старый 13.02.2013, 04:54   #9
ikki_pf
Форумчанин
 
Регистрация: 25.02.2012
Сообщений: 166
По умолчанию

без цикла
Код:
Sub t()
  With Range([a1], [a1].End(xlDown)).Offset(, 1)
    .FormulaR1C1 = "=left(right(rc[-1],2),1)"
    .Calculate
    .Value = .Value
  End With
End Sub
ikki_pf вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа анализа и обработки текста (С++) Shaly Помощь студентам 1 30.05.2010 21:29
Выделение диапазона по наличию в ячейке (ячейках) текста или метки as-is Microsoft Office Excel 7 08.03.2010 18:09
Макро команды расширение .inc Doholyan Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 15.11.2009 00:06
Программа обработки текста, С++. darkie Помощь студентам 11 30.11.2008 16:23
Программирование процедур в задачах обработки текста Numi_Pumi Помощь студентам 5 20.12.2007 17:04