| Вопрос: макрос для excel | Добавлено: 06.02.06 22:05 |
Автор вопроса:  wad
|
|
Добрый день!
В написании макросов для excel на сегодня ничего не понимаю. Подскажите, еслиможно в ячейке с 'А1' по 'А20' записано данные. Например, в 'А1' Торонто Нью-Йорк 104:90 (30:17, 34:30, 20:24, 20:19) в 'А2' Милуоки Бостон 40:34 (13:12, 13:15, 14:7) в 'А3' Рейнджерс Питтсбург 7:1 (4:0, 3:1) и т.д. В столбце В стоит цифра 1 с 'В1' по 'В20'. И вот мне надо каким-то образом содежимое ячейки (на примере ячейки 'А1') оставить только в ячейке 'А1' - Торонто Нью-Йорк 104:90 (т.е убрать, очистить все что в скобках и скобки тоже). Потом скопировать значение - 1-е число перед двоеточием(т.е. 104) в ячейку 'С1', второе число после двоеточия(т.е. 90) в ячейку 'D1'. И так повторить процесс ко всем ячейкам в столбце А(т.е. по 'А20' включительно) Заранее спасибо за помощь. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Дмит Вопросов: 11 Ответов: 160 |
Web-сайт: Профиль | | #1 | Добавлено: 07.02.06 10:07 |
|
Sub qwe() Dim i As Long, j As Long For i = 1 To 20 j = InStr(1, Cells(i, 1), " (" 
If j > 0 Then Cells(i, 1) = Left(Cells(i, 1), j - 1) j = InStrRev(Cells(i, 1), " "
If j > 0 Then Cells(i, 3) = Mid(Cells(i, 1), j) Next Columns("C:C" .TextToColumns Destination:=Range("C1", DataType:=xlDelimited, Other:=True, OtherChar:=":"
End Sub |
||
|
Номер ответа: 2 Автор ответа:  wad Вопросов: 3 Ответов: 6 |
Профиль | | #2 | Добавлено: 07.02.06 13:49 |
|
Мдя...
Ну что Вам сказать... СУПЕР!!!! пойду учить матчасть))) |
||
|
Номер ответа: 3 Автор ответа: m1haВопросов: 1 Ответов: 3 |
Профиль | | #3 | Добавлено: 19.10.06 10:32 |
| а не поможет мне кто нибудь, можно ли както сделать такую штуку - надо в excel файле проверять столбик и если в нем встречается определенное цифровое значенье дальше из этой строки содержимое определенных ячеек переносить в другие ячейки какого-то шаблонного документа. т.е. к примеру на листе 1 смотреть столбик С, если в ячейке этого столбца значение равно 20, к примеру С5=20, то из этой строки ячейки к примеру E5 переносить в С1 с листа 2, F5 переносить в D1 и т.д., при этом если следующая ячейка равна 20, к примеру С7=20, то из этой строки переносить этиже E и F уже в С2 и D2 | ||
|
Номер ответа: 4 Автор ответа: GenyaAВопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #4 | Добавлено: 19.10.06 10:48 |
| Если вопрос заключается только "можно ли сделать такую штуку", то ответ - "Можно". | ||
|
Номер ответа: 5 Автор ответа: m1haВопросов: 1 Ответов: 3 |
Профиль | | #5 | Добавлено: 19.10.06 12:04 |
это уже хорошо если не трудно - с чего начинается написание макроса, может есть ссылки на учебники, ну если совсем не сложно может примерный текст напишете что он из себя представлять будет?
|
||
|
Номер ответа: 6 Автор ответа: GenyaAВопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #6 | Добавлено: 19.10.06 12:58 |
|
Начать написание (и изучение) макросов можно с записи последовательности собственных действий:
- Меню-Сервис-Макрос-Начать запись... - Сделайте что-нибудь на листе книге (редактирование, добавление данных и формул, другие операции) - Оставновить запись (кнопка на появившейся ранее панели или там же в Меню) - Нажмите Alt-А11 (или Меню-Сервис-Макрос-Редактор VBA) - в появившемся окне найдите (обычно слева) ЭтаКнига - под этим должна быть папка Modules - откройте (двойным кликом) вхождение в нее Module1 (или что-то подобное). - изучите получившийся код открывшемся окне. Разобравшись с этим, Вы сможете постепенно двигаться в направлении освоения обектной модели, данных, операций, функций, форм, событий и классов Excel. Материалов для изучения Excel очень много сейчас. Не знаю, приветствуются ли здесь ссылки на другие ресурсы.. но вот например, можно посмотреть здесь: http://excel.1gb.ru/component/option,com_weblinks/catid,16/Itemid,23/ |
||
|
Номер ответа: 7 Автор ответа:  m1haВопросов: 1 Ответов: 3 |
Профиль | | #7 | Добавлено: 19.10.06 14:31 |
| чего-то ничего не понял - пробую записат макрос, потом открываю редактирование, открывается просто редактор VBA, текста записанного макроса нет. может можно как-нибудь по другому сделать или я чегото не понимаю? | ||
|
Номер ответа: 8 Автор ответа: GenyaAВопросов: 0 Ответов: 185 |
Web-сайт: Профиль | | #8 | Добавлено: 19.10.06 14:48 |
|
Думаю, что "чегото" не понимаете.
Когда Вы начали запись в диалоге Запись макроса Вы указали Соханить в "Эта книга"? После проведения операций редактирования (после Начала записи макроса) была ли нажата кнопка "Остановить запись"? Если да, то нашли ли Вы в дереве проекта (слева в окне редактора VBA) имя открытой Вашей книги и нашли ли Вы в ней вхождение Modules? |
||
Страница: 1 |