Очистка полей (сумма)

@Мировой_Человек · Регистрация: 28.10.2014

Студворк — интернет-сервис помощи студентам

Visual Basic
1
2
3
4
5
6
7
8
Sub ClearSumms()
 
  For i = 6 To 65500
    If Sheets(2).Cells(i, 3).Value = "" Then Exit For
    Sheets(2).Cells(i, 3).ClearContents
    
  Next
End Sub

Необходимо очистить поле сумма

, но к сожалению сумма удаляется только если значения забиты подряд

Нажмите на изображение для увеличения
Название: 11.jpg
Просмотров: 3
Размер: 30.5 Кб
ID: 841291

, если же появляется "пробел"

, то очищение не происходит. Кто чем может помочь? Код выше.

@Sur_L · 06.06.2017, 12:38

Columns(3).EntireColumn.ClearContents

Добавлено через 2 часа 2 минуты
Заметил 6-ку в цикле, если нужно с какого то номера и вниз то можно так чистить:
Range("C6:C" & Cells(Rows.Count, "C").End(xlUp).Row).ClearContents

@Мировой_Человек · 07.06.2017, 05:45 **[ТС]**

Range("C6:C" & Cells(Rows.Count, "C").End(xlUp).Row).ClearContents
ошибка "изменить часть объединенной ячейки невозможно"

@Sur_L · 07.06.2017, 10:24

Сообщение от Мировой_Человек

объединенной ячейки

Новые условия задачи по ходу решения?
Нет чтоб файл приаттачить.

@vice4 · 07.06.2017, 12:19

Если в лоб по Вашей схеме работать - удалите строку № 4.

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@Sur_L 103 / 63 / 10 Регистрация: 13.02.2017 Сообщений: 178
	06.06.2017, 12:38
	Columns(3).EntireColumn.ClearContents Добавлено через 2 часа 2 минуты Заметил 6-ку в цикле, если нужно с какого то номера и вниз то можно так чистить: Range("C6:C" & Cells(Rows.Count, "C").End(xlUp).Row).ClearContents 0

@Мировой_Человек 0 / 0 / 0 Регистрация: 28.10.2014 Сообщений: 57
	07.06.2017, 05:45 [ТС]
	Range("C6:C" & Cells(Rows.Count, "C").End(xlUp).Row).ClearContents ошибка "изменить часть объединенной ячейки невозможно" 0

@vice4 28 / 28 / 4 Регистрация: 07.06.2017 Сообщений: 166
	07.06.2017, 12:19
	Если в лоб по Вашей схеме работать - удалите строку № 4. 0

Опции темы