Как сделать сайт:
  HTML
  JavaScript
  PHP
  CMS
Microsoft Office:
  Word
  Excel
  VBA
Просто о сложном
Список форумов on-line-teaching.com on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Excel работа с массивом ячейки

 
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы
Предыдущая тема :: Следующая тема  
Автор Сообщение
Maxx
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 21.11.2007
Сообщения: 7

СообщениеДобавлено: Ср Ноя 21, 2007 6:37 pm    Заголовок сообщения: Excel работа с массивом ячейки Ответить с цитатой

Подскажите, как преобразовать «Иванов Иван Иванович» в «Иванов И.И.». Желательно с помощью макроса.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
AsIs
captain
captain


Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб

СообщениеДобавлено: Вт Ноя 27, 2007 6:58 pm    Заголовок сообщения: Re: Excel работа с массивом ячейки Ответить с цитатой

Maxx писал(а):
Подскажите, как преобразовать «Иванов Иван Иванович» в «Иванов И.И.». Желательно с помощью макроса.


Если очень кратко:
1. Преобразуешь исходную строку в массив с помощью функции Split. Эта функция по заданному символу - разделителю делит строку на отдельные элементы массива. Таким образом, задав разделителем пробел получим массив из 3 элементов - фамилия, имя, отчество.
2. Из второго и третьего элемента берем только первый символ - это функция Left.
3. Дальше все это соединяем в одну строчку.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Maxx
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 21.11.2007
Сообщения: 7

СообщениеДобавлено: Чт Ноя 29, 2007 12:32 pm    Заголовок сообщения: Ответить с цитатой

Смысл то понятен, а как воплотить все это? Напиши, пожалуйста, конкретный пример.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
AsIs
captain
captain


Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб

СообщениеДобавлено: Чт Ноя 29, 2007 3:40 pm    Заголовок сообщения: Ответить с цитатой

Maxx писал(а):
Смысл то понятен, а как воплотить все это? Напиши, пожалуйста, конкретный пример.

Sad
Ну если вызов функций вызывает проблемы, тогда нужно учить азы...
Ок... Могут быть неточности, но разбирайся, тебе же нужно...

Код:

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

Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Maxx
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 21.11.2007
Сообщения: 7

СообщениеДобавлено: Чт Ноя 29, 2007 4:53 pm    Заголовок сообщения: Ответить с цитатой

Огромнейшее спасибо.!!!! Выручил !!!
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Русская поддержка phpBB