Страница: 1 |
Страница: 1 |
Вопрос: макрос для 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?