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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.12.2008, 15:26   #1
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
Сообщение Помогите плиз(Макросы)

Задание:
Создайте программу, которая из списка ФИО студента, форматировала на новом листе список из трех столбцов: Фамилия, Имя, Отчество
(на новом листе не обязательно)


Я уже запарился его делать никак немогу сделать! Уже даже ХЗ как!!!
Помогите плиз
За ранее благодарен за помощь
lokomotiv13 вне форума
Старый 17.12.2008, 15:45   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Выделите ячейки, в которых присутствует ФИО, и запустите "программу".
В 3 столбцах справа от выделенных ячеек появятся отдельно фамилии, имена и отчества.

Код:
Sub Макрос()
    Dim ra As Range: Set ra = Selection
    ra.TextToColumns Destination:=ra.Cells(1).Offset(0, 1), DataType:=xlDelimited, _
                     ConsecutiveDelimiter:=True, Space:=True, Other:=False, _
                     FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2))
End Sub
Цитата:
Я уже запарился его делать никак немогу сделать!
А Вы вообще пытались что-нибудь сделать?
Макрорекордер записал этот макрос за считанные секунды...


Вот Вам ещё 2 варианта "программы". Работают так же, только меньше непонятных слов
Код:
Sub Макрос2()
    Selection.TextToColumns Destination:=Selection.Offset(0, 1), DataType:=xlDelimited, Space:=True
End Sub

Sub Макрос3()
    Selection.TextToColumns Selection.Offset(0, 1), xlDelimited, , , , , , True
End Sub

Последний раз редактировалось EducatedFool; 17.12.2008 в 15:54.
EducatedFool вне форума
Старый 17.12.2008, 16:11   #3
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

Я только учусь! спасибо большое
lokomotiv13 вне форума
Старый 17.12.2008, 16:25   #4
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

а можно как нибудь сделать с помощью функций:
InStr
Len
Left
Right
lokomotiv13 вне форума
Старый 17.12.2008, 16:37   #5
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

В задании ничего не говорилось о том, что нельзя задействовать стандартные функции Excel.

Цитата:
а можно как нибудь сделать с помощью функций
Можно. Но зачем?
При желании можно поизвращаться, и сделать программу даже без использования всех этих функций...
Вот и займитесь этим на досуге.
EducatedFool вне форума
Старый 17.12.2008, 16:40   #6
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

На ДОСУГЕ!
Мне из-за этого задания в колледже не хотят зачет ставить!
lokomotiv13 вне форума
Старый 17.12.2008, 16:41   #7
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

Цитата:
Сообщение от lokomotiv13 Посмотреть сообщение
а можно как нибудь сделать с помощью функций:
InStr
Len
Left
Right
и сказали через эти функции ппц просто
lokomotiv13 вне форума
Старый 17.12.2008, 16:59   #8
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Цитата:
ппц просто
Да ничего сложного... почитайте в справке про эти функции, начните делать программу.

А вот когда напишите программу (или хотя бы её часть), обращайтесь (не забыв прикрепить к сообщению код написанной ВАМИ программы) - тогда мы уже и посоветуем, как её дополнить или улучшить.

Цитата:
Мне из-за этого задания в колледже не хотят зачет ставить!
Вполне естественно, что преподаватель не хочет ставить зачет ученику, не знающему даже азов изучаемого предмета...
EducatedFool вне форума
Старый 17.12.2008, 17:05   #9
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

Да нам даж не обьясняли дали задание и говорят делайте!
lokomotiv13 вне форума
Старый 17.12.2008, 18:46   #10
lokomotiv13
 
Регистрация: 17.12.2008
Сообщений: 8
По умолчанию

СПАСИБО ЗА ПОМОЩЬ!
Я попробую сделать с этими функциями
lokomotiv13 вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макросы Excel Ravil-022 Помощь студентам 2 28.07.2008 21:12
макросы в Excel Ravil-022 Софт 0 28.07.2008 17:56
макросы в Excel Ravil-022 Софт 0 28.07.2008 17:46
макросы Informer Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 23.11.2007 19:42