Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/макрос чистки нулей в ячейках - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
макрос чистки нулей в ячейках
AB0885 Дата: Среда, 30.03.2022, 07:43 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

Здравствуйте, на просторах сети нашёл макрос, который будет чистить ячейки с нолями делая их "пустыми". Пока пробовал его на добавочном листе работал идеально. Проверив его решил его вставить в рабочий лист и тут появилась ошибка 400. Путём проб нашёл где появляется ошибка. У меня рабочий файл состоит из таблицы в каждую ячейку ведёт ссылка с другого листа, если ячейка объединённая и содержит ссылку, то макрос проходя и выполняя работу останавливается именно на объединённой выдавая ошибку. Прошу помочь с макросом. Макрос должен чистить все ячейки с нулями в том числе и объединённые. (Так же имеется проблема со временем выполнения этого макроса). [vba]
Код
Sub ноль()
'
' ноль Макрос
'

'
       For j = 1 To 300
        For i = 1 To 500
            While Cells(i, j) <> "" And Cells(i, j) = 0
               Cells(i, j).ClearContents
            Wend
        Next i
    Next j
    End Sub
[/vba]


Сообщение отредактировал AB0885 - Среда, 30.03.2022, 07:48
 
Ответить
СообщениеЗдравствуйте, на просторах сети нашёл макрос, который будет чистить ячейки с нолями делая их "пустыми". Пока пробовал его на добавочном листе работал идеально. Проверив его решил его вставить в рабочий лист и тут появилась ошибка 400. Путём проб нашёл где появляется ошибка. У меня рабочий файл состоит из таблицы в каждую ячейку ведёт ссылка с другого листа, если ячейка объединённая и содержит ссылку, то макрос проходя и выполняя работу останавливается именно на объединённой выдавая ошибку. Прошу помочь с макросом. Макрос должен чистить все ячейки с нулями в том числе и объединённые. (Так же имеется проблема со временем выполнения этого макроса). [vba]
Код
Sub ноль()
'
' ноль Макрос
'

'
       For j = 1 To 300
        For i = 1 To 500
            While Cells(i, j) <> "" And Cells(i, j) = 0
               Cells(i, j).ClearContents
            Wend
        Next i
    Next j
    End Sub
[/vba]

Автор - AB0885
Дата добавления - 30.03.2022 в 07:43
RAN Дата: Среда, 30.03.2022, 09:09 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Cells(i, j) = Empty
[/vba]


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Cells(i, j) = Empty
[/vba]

Автор - RAN
Дата добавления - 30.03.2022 в 09:09
AB0885 Дата: Среда, 30.03.2022, 13:18 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 60
Репутация: 0 ±
Замечаний: 20% ±

RAN, спасибо, работает
 
Ответить
СообщениеRAN, спасибо, работает

Автор - AB0885
Дата добавления - 30.03.2022 в 13:18
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!