Цель следующего примера макроса Excel VBA состоит в том, чтобы получить аббревиатуру или аббревиатуру каждой из первых букв любого заданного слова.
Аббревиатура Функции(Слова В Качестве Варианта) Как Строка Dim aWord() Как Строка, ix Как Целое Число aWord = Разделение(Слов.Значение, " ") Для ix = 0 До UBound(aWord) Аббревиатура = Аббревиатура & UCase(Слева(слово(ix), 1)) Следующий ix Функция завершения
Используя функцию разделения и пробел в качестве разделителя, мы создаем массив слов. Затем, используя простой для … для цикла, мы делаем цикл каждого слова и берем первую букву каждого слова в массиве, используя левую функцию.
Используя итерацию и массив, подобные этому, мы получим аббревиатуру рассматриваемого слова.
Мы можем напрямую использовать функцию в строке формул Excel со ссылкой на ячейку, содержащую набор слов, из которых мы хотим сделать аббревиатуру в качестве входных данных.
Для получения подробной информации о каждой используемой функции Разделите/Ucase/Влево, выберите каждую функцию и нажмите клавишу F1 в редакторе Visual Basic.
