|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
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 |
