| Предыдущая тема :: Следующая тема
|
| Автор |
Сообщение |
Maxx
Prizivnik - draftee
Зарегистрирован: 21.11.2007
Сообщения: 7
|
 Добавлено: Ср Ноя 21, 2007 6:37 pm Заголовок сообщения: Excel работа с массивом ячейки |
 |
|
| Подскажите, как преобразовать «Иванов Иван Иванович» в «Иванов И.И.». Желательно с помощью макроса. |
|
| Вернуться к началу |
|
 |
AsIs
captain
Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб
|
| Добавлено: Вт Ноя 27, 2007 6:58 pm Заголовок сообщения: Re: Excel работа с массивом ячейки |
|
|
| Maxx писал(а): | | Подскажите, как преобразовать «Иванов Иван Иванович» в «Иванов И.И.». Желательно с помощью макроса. |
Если очень кратко:
1. Преобразуешь исходную строку в массив с помощью функции Split. Эта функция по заданному символу - разделителю делит строку на отдельные элементы массива. Таким образом, задав разделителем пробел получим массив из 3 элементов - фамилия, имя, отчество.
2. Из второго и третьего элемента берем только первый символ - это функция Left.
3. Дальше все это соединяем в одну строчку. |
|
| Вернуться к началу |
|
|
Maxx
Prizivnik - draftee
Зарегистрирован: 21.11.2007
Сообщения: 7
|
| Добавлено: Чт Ноя 29, 2007 12:32 pm Заголовок сообщения: |
|
|
| Смысл то понятен, а как воплотить все это? Напиши, пожалуйста, конкретный пример. |
|
| Вернуться к началу |
|
|
AsIs
captain
Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб
|
| Добавлено: Чт Ноя 29, 2007 3:40 pm Заголовок сообщения: |
|
|
| Maxx писал(а): | | Смысл то понятен, а как воплотить все это? Напиши, пожалуйста, конкретный пример. |
Ну если вызов функций вызывает проблемы, тогда нужно учить азы...
Ок... Могут быть неточности, но разбирайся, тебе же нужно...
| Код: |
Sub Spl()
Dim strS As String
Dim strA As String, strB As String, strC As String
Dim arrWords() As String
Dim strReady As String
strS = "Иванов Сергей Петрович"
arrWords = Split(strS, " ")
strA = arrWords(0)
strB = Left(arrWords(1), 1) & "."
strC = Left(arrWords(2), 1) & "."
strReady = strA & " " & strB & " " & strC
MsgBox strReady
End Sub
|
|
|
| Вернуться к началу |
|
|
Maxx
Prizivnik - draftee
Зарегистрирован: 21.11.2007
Сообщения: 7
|
| Добавлено: Чт Ноя 29, 2007 4:53 pm Заголовок сообщения: |
|
|
| Огромнейшее спасибо.!!!! Выручил !!! |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
