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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.08.2011, 09:15   #1
Vja4eslav
Пользователь
 
Регистрация: 13.08.2011
Сообщений: 90
Вопрос Название в аббревиатуру

Пытаюсь сделать макрос, который бы переводил название учреждения в аббревиатуру. Получился длинный, с перечислением всех ячеек. Может кто- нибудь помочь переделать в цикл ? (файл прилагаю)
Вложения
Тип файла: rar Аббревиатура!.rar (11.1 Кб, 20 просмотров)
Vja4eslav вне форума Ответить с цитированием
Старый 19.08.2011, 09:52   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Код:
Function Аббревиатура3(s$) As String
    Dim i&, a, t
    If InStrRev(s, ".") > 0 Then tmp = Right(s, Len(s) - InStrRev(s, ".") + 1): s = Replace(s, tmp, "")
    a = Split(s)
    For i = 0 To UBound(a) - 1
        a(i) = IIf(i = 0, UCase(Chr(Asc(a(i)))) & ":", UCase(Chr(Asc(a(i)))))
    Next
    Аббревиатура3 = Replace(Join(a, "") & tmp, ".", "")
End Function
Вложения
Тип файла: rar Аббревиатура!.rar (10.5 Кб, 18 просмотров)
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Старый 19.08.2011, 09:55   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

То есть в А5 - то, что надо получить из А1?
"ГУЗ" - в "Г:", а "МУЗ - в "М:", что ли?
Во что должно превратиться "МУЗ П е р ш и н с к а я . центральная районная больница"?
exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Последний раз редактировалось Казанский; 19.08.2011 в 09:59. Причина: Серж уже сделал на 90%, я влезать не буду.
Казанский вне форума Ответить с цитированием
Старый 19.08.2011, 09:57   #4
Vja4eslav
Пользователь
 
Регистрация: 13.08.2011
Сообщений: 90
По умолчанию

В "М:ПЕРШИНСКАЯ ЦРБ"
Vja4eslav вне форума Ответить с цитированием
Старый 19.08.2011, 10:00   #5
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Код:
Function Аббревиатура3(s$) As String
    Dim i&, a
    a = Split(s)
    For i = 0 To UBound(a)
        a(i) = IIf(i = 0, UCase(Chr(Asc(a(i)))) & ":", UCase(Chr(Asc(a(i)))))
    Next
    Аббревиатура3 = Replace(Join(a, ""), ".", " ")
End Function
Вложения
Тип файла: rar Аббревиатура! (1).rar (10.8 Кб, 23 просмотров)
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728

Последний раз редактировалось kuklp; 19.08.2011 в 10:08.
kuklp вне форума Ответить с цитированием
Старый 19.08.2011, 10:08   #6
Vja4eslav
Пользователь
 
Регистрация: 13.08.2011
Сообщений: 90
Хорошо

Спасибо, уважаемый kuklp, Function из второго примера - то что надо!
Vja4eslav вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Даны сведения о книгах в библиотеке: фамилия автора, название книги и год издания. Напечатать автора и название книг, го greshnik92 Общие вопросы C/C++ 3 21.06.2011 10:45
Считать название по ID artemavd БД в Delphi 4 15.05.2009 08:14
Добавить название Romuald Microsoft Office Excel 2 13.05.2009 10:18
Название компонентов Vladnet Компоненты Delphi 3 31.03.2009 14:36
Название диаграммы Диагностик Microsoft Office Excel 8 07.03.2009 06:15