|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
13.02.2010, 04:12 | #1 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Диапазон ячеек равен 0
Здравствуйте.
Подскажите, как диапазон ячеек приравнять 0 Код:
|
13.02.2010, 05:10 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Замените ; на ,
[Отчет!$U$41,Отчет!$U$78,Отчет!$U$115] = 0 |
13.02.2010, 05:18 | #3 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
А произвести удаление найденной строки переменной I столбца 26 удаление 31 ячейки (то есть все)
Код:
Последний раз редактировалось segail; 13.02.2010 в 05:25. |
13.02.2010, 09:12 | #4 | |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Цитата:
Код:
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
|
13.02.2010, 10:12 | #5 | |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Цитата:
Немного по-другому. Переменная (i) это найденная ячейка, от нее влево на -1 ячейку и вниз на 30 (включая все 30 ячеек с найденной ячейкой, значит 31) удалить. Так что ли? Код:
Последний раз редактировалось segail; 13.02.2010 в 10:23. |
|
13.02.2010, 13:49 | #6 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
так удалить или очистить? это две большие разницы
для очистить (с оффсетом поиграйте как Вам точно надо - не понял) : Private Sub ComboBox1_Change() Dim i As Integer For i = 1 To 1000 If Cells(i, 27).Text = ComboBox1.Text Then range(cells(i,27).offset(0,-1),cells(i,27).offset(30,-1)).clear End If Next End Sub Последний раз редактировалось Dophin; 13.02.2010 в 14:01. |
13.02.2010, 15:04 | #7 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Clear нормально
А как проверить диапазон от минус 27 тридцать одну ячейку и если найдено значение больше “” то удалить данное значение (то есть удалять не полностью а выборочно). Код:
|
13.02.2010, 16:33 | #8 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
так же циклом по каждой ячейке диапазона
Private Sub ComboBox1_Change() Dim i As Integer Dim cell As Range For i = 1 To 1000 If Cells(i, 27).Text = ComboBox1.Text Then For Each cell In Range(Cells(i, 27).Offset(0, -1), Cells(i, 27).Offset(30, -1)) If cell > "" Then cell.Clear Next cell End If Next i End Sub Последний раз редактировалось Dophin; 13.02.2010 в 16:35. |
14.02.2010, 18:45 | #9 |
Форумчанин
Регистрация: 13.06.2009
Сообщений: 691
|
Здравствуйте, как произвести поиск ячейки, без переменной, по совпадению текстов от строки 2 до строки 444 столбца 27
If .Cells(2+444,27).Text =.Range("AA1").Text Последний раз редактировалось segail; 14.02.2010 в 19:21. |
14.02.2010, 19:32 | #10 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
что значит без переменной? поиск это метод Find
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как объявить диапазон ячеек при известных границах | motorway | Microsoft Office Excel | 9 | 29.11.2009 03:08 |
Бейсик. Как передать в формулу диапазон ячеек? | Наталья Ивановна | Помощь студентам | 2 | 02.06.2009 23:36 |
Добавление данных в диапазон ячеек | denneo | Microsoft Office Excel | 1 | 08.02.2009 09:05 |
Как написать в коде чтобы диапазон А копировался как значение в диапазон В. | Dorvir | Microsoft Office Excel | 12 | 23.05.2008 22:11 |
Создать массив только из тех элементов, у которых остаток от деления на М равен L (0<=L<=M-1) | Айвенго | Microsoft Office Excel | 2 | 12.01.2008 16:28 |