|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.09.2011, 13:36 | #1 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
Макрос присваивает каждому диапазону 1-ый элемент
Доброго всем времени суток!!!
Помогите с этим кодом: Dim r4 As Range, i4& i4 = WorksheetFunction.Sum(Range("Y1:Y" & Cells(Rows.Count, "Y").End(xlUp).Row)) 'Получает количество заполненных строк 'MsgBox i With Application .ScreenUpdating = 0: .DisplayAlerts = 0 For Each r4 In Range("G1:G" & i4).Areas.Item(1) If r4.Text = 0 Then Range(r4, r4.Offset(-1)).Value = ??? Next .ScreenUpdating = 1: .DisplayAlerts = 1 End With Условие в этом макросе соблюдается, то есть имеется диапазон 1 0 0 0 2 0 0 0 0 3 0 0 0 0 0 Программа знает, что в первом диапазоне 4 строки, во втором 5 строк, в третьем 6 строк. Нужно чтоб делала вот так: 1 1 1 1 2 2 2 2 2 3 3 3 3 3 3 Как откорректировать код, пожалуйста помогите! |
24.09.2011, 14:41 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 146
|
ГГГ))) Сам себе отвечаю))) Ура!!! получилось
If r4.Text = 0 Then Range(r4, r4.Offset(0)).Value = Range(r4, r4.Offset(-1)).Item(1) |
24.09.2011, 16:58 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а так пойдет?:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
24.09.2011, 17:25 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
"Ленивый" метод без цикла:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Массив 7х7 целого типа в каждом столбце поменять max элемент и элемент побочной диагонали | Sheport | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 20.06.2011 23:30 |
Поиск по диапазону. | D.O.G | БД в Delphi | 12 | 28.10.2010 10:17 |
Фильтрация по диапазону. | D.O.G | БД в Delphi | 12 | 18.08.2010 10:02 |
Форма фильтрации по диапазону | Малой | БД в Delphi | 3 | 24.02.2010 13:24 |
Каждый раз присваивает заново | V@mpir | Общие вопросы Delphi | 4 | 10.06.2009 18:29 |