ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как удалить, повторяющуюся шапку ?
15 сообщений из 15, страница 1 из 1
как удалить, повторяющуюся шапку ?
    #36898458
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
hi all
как удалить, повторяющуюся шапку в xls файле?
...
Рейтинг: 0 / 0
14.10.2010, 07:59
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898470
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
balbes,

корректный файл. проблемы не поняла

-как вы его формируете?
-каждый талончик надо печатать на отдельном листе ?
...
Рейтинг: 0 / 0
14.10.2010, 08:19
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898556
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
for ПЕНСИОНЕРКА
насамом деле это небольшой кусочеГ целого файла который весьма велик, и целью его модификации является собрать единую таблице под одной шапкой, или вообще без нее...
(данные выводятся из БД Oracle с помощью встроеного отчета пользователем, доступа к БД физически не имею :( )
...
Рейтинг: 0 / 0
14.10.2010, 09:41
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898572
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
консолидация?
...
Рейтинг: 0 / 0
14.10.2010, 09:49
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898600
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
balbes,


тогда
-выделить лист
-формат,формат яч,выравнив,объедин яч-снять галочку
-в модуле анализируйте
cell(A,j) на абонент с занесением ф в W

cell(N,j) на в текущем периоде ....ф.....W

cell(F,j) на дебет.........................ф......W

cell(C,j)на 2.................................ф......W

cell(B,j)на дату..(U,J) на значение...ф.....W

проверьте все ли так(может поменяться исходный отчет) и удалите строки с непустым w
...
Рейтинг: 0 / 0
14.10.2010, 10:01
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898608
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
balbes,

хотя можно сформировать w через формулу типа

=iif(a1="a" or n1="n" or c1="c" or f1="f" or b1="b","ф","")
...
Рейтинг: 0 / 0
14.10.2010, 10:05
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898642
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
balbes,

=ИЛИ(A1="Абонент
л/сч";N1="в т.ч. текущий период, руб.";F1="Дебет, руб.";C1="2";B1="13.10.2010")

и удалить при w=истина
...
Рейтинг: 0 / 0
14.10.2010, 10:22
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898677
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
for ПЕНСИОНЕРКА а проще это точно никак не осуществить? (простите плз. но я ничего понять не могу... знаю что слаб в VBA, но что на столько не представлял...)
for PlanB - пытаюсь разобраться пока не получается...

for All в файле в начале каждого листа (печатного) выходит дата 13.10.2010 г.
может както можно сделать поиск (в цикле) данных ячеек (с датой) и исходя из этих данных вычислить и выделить rows (область с "шапкой") и соответственно удалить?
...
Рейтинг: 0 / 0
14.10.2010, 10:34
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898728
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
balbes,

это обычная формула(без модуля) для начала сделай на дубле

=ИЛИ(c1="ФИО";J11="всего";F1="Дебет, руб.";C1="2";B1="13.10.2010")


-ввести в w1 и размножить до конца(можешь скопировать формулу отсюда)
-выделить лист
-формат,формат яч,выравнив,объедин яч-снять галочку

-выбрать по фильтру w=истина
-удалить
...
Рейтинг: 0 / 0
14.10.2010, 10:51
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898775
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub test()
Dim str As String, iCel As Range, myRng As Range, x As Long
str = "Àáîíåíò" & vbLf & "ë/ñ÷"

With ActiveSheet
 x = Application.CountIf(.[a:b], str)
 Set iCel = .[a:b].Find(str, .[A65536])
 With .[a:b]
  Set iCel = .FindNext(iCel)
  Set myRng = iCel.Offset(- 4 ).Resize( 8 ).EntireRow
  If x >  2  Then
   For i =  3  To Application.CountIf([a:b], str)
    Set iCel = .FindNext(iCel)
    Set myRng = Union(myRng, iCel.Offset(- 4 ).Resize( 8 ).EntireRow)
   Next
  End If
 End With
End With
 
'Debug.Print myRng.Address
'myRng.Select
myRng.Delete

End Sub
...
Рейтинг: 0 / 0
14.10.2010, 11:05
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898777
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub test()
Dim str As String, iCel As Range, myRng As Range, x As Long
str = "Абонент" & vbLf & "л/сч"

With ActiveSheet
 x = Application.CountIf(.[a:b], str)
 Set iCel = .[a:b].Find(str, .[A65536])
 With .[a:b]
  Set iCel = .FindNext(iCel)
  Set myRng = iCel.Offset(- 4 ).Resize( 8 ).EntireRow
  If x >  2  Then
   For i =  3  To Application.CountIf([a:b], str)
    Set iCel = .FindNext(iCel)
    Set myRng = Union(myRng, iCel.Offset(- 4 ).Resize( 8 ).EntireRow)
   Next
  End If
 End With
End With
 
'Debug.Print myRng.Address
'myRng.Select
myRng.Delete

End Sub
...
Рейтинг: 0 / 0
14.10.2010, 11:06
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898876
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
ОГРОМНОЕ СПАСИБО все за потраченое на меня время...

Deggasad - КРАСАВЧЕНГ! Низкий Вам поклон. Все прекрастно работает. Как раз анализирую код.
...
Рейтинг: 0 / 0
14.10.2010, 11:34
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36898906
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Если формулой, то можно в любую колонку вставить
=ЕЧИСЛО(ПОИСКПОЗ("Абонент"&СИМВОЛ(10)&"л/сч";ИНДЕКС(B:B;СТРОКА()-3):ИНДЕКС(B:B;СТРОКА()+4);0))
растянуть формулу, отфильтровать по истина и удалить.
...
Рейтинг: 0 / 0
14.10.2010, 11:45
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36899260
balbes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
balbes
Участник
Deggasad спб.
приклоняюсь...
просто нет слов.
...
Рейтинг: 0 / 0
14.10.2010, 13:36
| Ответить | Цитировать | Написать  
как удалить, повторяющуюся шапку ?
    #36899476
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Таки вогнал меня в краску

Кстате не все так хорошо у меня - был недочет:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub test()
Dim str As String, iCel As Range, myRng As Range, x As Long
str = "Абонент" & vbLf & "л/сч"

With ActiveSheet
 x = Application.CountIf(.[a:b], str)
 Set iCel = .[a:b].Find(str, .[A65536])
 With .[a:b]
  Set iCel = .FindNext(iCel)
  Set myRng = iCel.Offset(- 4 ).Resize( 8 ).EntireRow
  If x >  2  Then
  For i =  3  To x
    Set iCel = .FindNext(iCel)
    Set myRng = Union(myRng, iCel.Offset(- 4 ).Resize( 8 ).EntireRow)
   Next
  End If
 End With
End With
 
'Debug.Print myRng.Address
'myRng.Select
myRng.Delete

End Sub
...
Рейтинг: 0 / 0
14.10.2010, 14:38
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как удалить, повторяющуюся шапку ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36898600&tid=2177577]:
 0ms
get settings:
 10ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 170ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 237ms
total:  502ms
созд. / загр.: 502ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]