Предыдущая тема :: Следующая тема
|
Автор |
Сообщение |
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 Заголовок сообщения: |
|
|
Огромнейшее спасибо.!!!! Выручил !!! |
|
Вернуться к началу |
|
 |
|