Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 22.01.2010, 13:42   #1
sane4ek_d
 
Регистрация: 18.01.2010
Сообщений: 6
По умолчанию Заголовок + данные + удаление пустых строк

Добрый день! Подскажите как приязать заголовок к данным. Но самое интересное как потом сделать так что при удалении нулевых строк, если у заголовка не остается привязанных к нему строк то заголовок тоже удаляется. Пример во вложении.
Вложения
Тип файла: zip Пример по заголовкам.zip (26.2 Кб, 17 просмотров)
sane4ek_d вне форума Ответить с цитированием
Старый 22.01.2010, 16:36   #2
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

Здравствуйте sane4ek_d.
Мнение: технически задача выполнима, но не верна в принципе. Нельзя хранить данные в прайсах и отчетах, и аккуратно потом извлекать и обрабатывать дабы "не разрушить красоту" и не потерять данные. Храните данные в специальных таблицах, даже если это не таблицы баз данных, а текстовые документы или листы Excel. Поверьте создать прайс имея данные намного проще обратного.
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Старый 22.01.2010, 17:30   #3
sane4ek_d
 
Регистрация: 18.01.2010
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Teslenko_EA Посмотреть сообщение
Здравствуйте sane4ek_d.
Мнение: технически задача выполнима, но не верна в принципе. Нельзя хранить данные в прайсах и отчетах, и аккуратно потом извлекать и обрабатывать дабы "не разрушить красоту" и не потерять данные. Храните данные в специальных таблицах, даже если это не таблицы баз данных, а текстовые документы или листы Excel. Поверьте создать прайс имея данные намного проще обратного.
Евгений.
Дело в том что это не прайс а считалка которая копируется постоянно. И когда клиенту считается просто лишнее необходимо удалять
sane4ek_d вне форума Ответить с цитированием
Старый 22.01.2010, 21:37   #4
Teslenko_EA
Участник клуба
 
Регистрация: 10.08.2009
Сообщений: 1,796
По умолчанию

sane4ek_d, так называемая "считалка" тот же прайс только вид сбоку , "копируется постоянно" очевидно значит увеличение возможности получения ошибок. Но дело Ваше, решать Вам...
Код:
Sub DeleteEmptyRowsColumns()
Dim r&, j%, q%, LastRow&
With ActiveSheet.UsedRange
    LastRow = .Row - 1 + .Rows.Count
End With
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
    If (Val(Cells(r, 3).Value) * Not IsNumeric(Cells(r, 1).Value)) <> 0 Then j = j + 1
    If Cells(r, 4).Value = "0" Then
        Rows(r).Delete: q = q + 1
    ElseIf Len(Cells(r, 4).Text) = 0 And Not Len(Cells(r, 1).Text) = 0 Then
        If j = q And j > 0 Then Rows(r).Delete
        j = 0:  q = 0
    End If
Next r
End Sub
Евгений.
Teslenko_EA вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск значений и удаление пустых строк OgE®_M@G Microsoft Office Excel 12 16.12.2009 20:37
Удаление пустых и повторяющихся строк Marsel737 Общие вопросы Delphi 5 03.12.2009 00:58
Заполнение пустых строк.. Balina Microsoft Office Excel 9 02.12.2009 11:49
Удаление пустых строк в таблице Semen90 Microsoft Office Word 23 05.11.2009 20:51
Матрица: добавление пустых строк Romer9999 Паскаль, Turbo Pascal, PascalABC.NET 4 09.12.2008 12:14