Преобразование ячеек

[Clockgen]

Не могу организовывать на вба,логику понимаю,что нужно проверять по словам,количеству пробелов,учет ковычек,но мне очень нужен один макрос,который сможет допустим в ячейке есть запись: ООО "Государственное Акредитованное учреждение инженерной техники и прочего производства",или
ЗАО "Консалтинговая фирма "ЭРБИС",или организационно правовая форма может так же отсутствовать,например "Консалтинговая фирма "ЭРБИС",нужно преобразовать макросом эти поля, чтобы они стали в такой форме:
ООО "ГАУИТИП"
ЗАО "КФ ЭРБИС"
"КФ ЭРБИС"?

[EducatedFool]

Обязательно макрос, или подойдёт формула (пользовательская функция)?

Выкладывайте пример файла - что есть, и что надо получить.
Чем больше будет вариантов - тем точнее будет макрос формировать краткие названия.

[Clockgen]

Вот он,файл,там где наименование организации,где слишком длинные названия нужно сделать сокращенно как описано выше,т.е. абревиатурами,наверно пользовательскими формулами не обойтись((
а вручную все исправлять-это всю жизнь угробить можно((

Пример.zip

[EducatedFool]

Вот вам пользовательская функция:



Проверяйте корректность работы самостоятельно (на тех 3 примерах из первого поста всё работает правильно)

Обратите внимание на формулу:

  Ячейка: B1      Формула  (стиль A1):   =КороткоеНазвание(A1)
                  Формула  (стиль R1C1): =КороткоеНазвание(RC[-1])

PS: Для работы этой формулы макросы должны быть включены.
PPS: Надеюсь, на других листах формулу напишете самостоятельно.

А вот и весь код пользовательской функции:

Option Compare Binary

Function КороткоеНазвание(ByVal txt As String) As String
    txt = Trim(txt): pos = InStr(1, txt, """")
    If pos > 1 Then КороткоеНазвание = КороткоеНазвание & Left(txt, pos - 1): txt = Mid(txt, pos)
    For Each word In Split(txt, " ")
        КороткоеНазвание = КороткоеНазвание & КороткоеСлово(word)
    Next
    n = Len(КороткоеНазвание) - Len(Replace(КороткоеНазвание, """", ""))
    If n = 3 Then
        pos1 = InStr(1, КороткоеНазвание, """"): pos2 = InStr(pos1 + 1, КороткоеНазвание, """")
        Mid(КороткоеНазвание, pos2, 1) = " "
    End If
End Function

Function КороткоеСлово(ByVal txt As String) As String
    If txt Like """?*" Then КороткоеСлово = """" & КороткоеСлово(Mid(txt, 2)): Exit Function
    If txt Like "*?""" Then КороткоеСлово = КороткоеСлово(Left(txt, Len(txt) - 1)) & """": Exit Function
    If UCase(txt) = txt Then КороткоеСлово = txt: Exit Function
    КороткоеСлово = КороткоеСлово & UCase(Left(Trim(txt), 1))
End Function

[Clockgen]

Вау,щас проверим)

[Clockgen]

У меня еще просьба,вы наверно обратили внимание на примере который я кинул,там адреса стоят в неправильной форме: 123456,Москва,Коломенская ул,16...,а можно как нибудь сделать чтобы адрес преобрел идеальную форму: 123456, г. Москва, ул. Коломенская, д.16??? А то есть некоторые адреса именно в такой форме((

[EducatedFool]

а можно как нибудь сделать чтобы адрес преобрел идеальную форму

Можно.
Но сложно - слишком много вариантов написания надо учесть.
На форуме есть пример такого макроса - поищите, может, и найдёте.

[Clockgen]

Скажите а как можно сделать чтобы моментом перенести все преобразованные строки на место длинных навзваний,а то не получается?
Вот например от длинной сроки я преобразовал в краткое название,а тебе краткое название в этой же книге надо перенести на место длинного названия,ексель ругается что используется циклическая сслыка((

[vikttur]

Копировать, выделить диапазон вставки, меню Правка-Спецвставка-Значения.
Подходит?

[Clockgen]

нет не подходит,а как можно сделать допустим,я выделил диапазон преобразованных из формул ячеек,т.е в них стоит формула,и зафиксировать эти значения чтобы в поле формула,была не формула а значение?