|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.02.2008, 15:40 | #1 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Макрос - до конца данных
Привет всем!
У меня очередной банальный вопрос. В макрос очень часто пользуюсь "скопируй эту ячейку до конца данных" Делаю это так: ALL = [a65536].End(xlUp).Row Range("D2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-3],RC[-1],""BOOZ"")" For x = 3 To ALL Range("D" & x).Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-3],RC[-1],""BOOZ"")" Next x Вопрос: Как сделать это проще??? Как 'ALL' применить в Range("D2:???").Select ? Это возможно? Заранее спасибо за ответ!
Jungo must die!!! (C) Bill Gates.
|
05.02.2008, 17:41 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Range("D3:D" & All).Select
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
06.02.2008, 08:31 | #3 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Огромное приогромное ПАСИБА!!!!
Это решило проблему когда мне нужно копиравать один столбец, а если их допустим два? Например: Это макрос: ALL = [a65536].End(xlUp).Row Range("D2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-2]=RC[-3],RC[-1],""BOOZ"")" Range("E2").Select ActiveCell.FormulaR1C1 = "=IF(RC[-3]=RC[-4],RC[-2],""BOOZ"")" End Sub Прикрепил пример. Как скопировать D2 и E2 до конца таблицы?
Jungo must die!!! (C) Bill Gates.
Последний раз редактировалось jungo; 06.02.2008 в 13:06. |
06.02.2008, 13:09 | #4 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
Вот пример.
Jungo must die!!! (C) Bill Gates.
|
06.02.2008, 13:53 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Есть два варианта:
1) подправить в формуле относительные ссылки "=IF(RC[-2]=RC[-3],RC[-1],""BOOZ"")" на абсолютные и тогда одна и та же формула может быть записана в колонках D и E. Range("D3:E" & All).FormulaR1C1 = "=IF(RC2=RC1,RC3,""BOOZ"")" 2) вставить формулы в D2, E2. скопировать это Range("D2:E2").Select Selection.Copy и, извиняюсь, вставить, как следует Range("D3:D"& All).Select ActiveSheet.Paste
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.02.2008, 08:20 | #6 |
Форумчанин Подтвердите свой е-майл
Регистрация: 14.11.2007
Сообщений: 163
|
IgorGO
Всё работает! Спасибо!
Jungo must die!!! (C) Bill Gates.
|
08.02.2008, 09:47 | #7 |
Регистрация: 07.02.2008
Сообщений: 5
|
добрый день! Помогите прописать макрос к задачке:
открываю документ. ввожу дату и другие данные, как сделать чтобы на другой странице велась статистика по заполнению. т.е отобразилась введенная дата и рядом относящие к ней значения. Потом закрыли документ и открываем через неделю. снова на первом листе вводим дату (уже другую разумеется) и надо чтоб на 2 листе уже ниже записалась новая дата. т.е шла статистика заполнения на первом листе.... Заранее спасибо |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как заставить макрос работай автоматически при внесении данных ? | artfunk | Microsoft Office Excel | 9 | 31.08.2008 20:01 |
Макрос по копированию данных из другого фаила | Devourer12345 | Microsoft Office Excel | 30 | 17.07.2008 04:54 |
МАКРОС!ПОИСК ДАННЫХ. HELP! | jungo | Microsoft Office Excel | 8 | 02.04.2008 10:50 |
удаление текста с конца | Lonix | Общие вопросы Delphi | 7 | 12.07.2007 14:00 |