[Guest]

 это уже сделал..... не помогло :-(

да еще забыл сказать, WinXP установлен на разделе NTFS

bd proffy
Можно написать примерно след. код в редакторе VBA (вызывается по Alt+F11) для нужного листа:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1" Then
   Range("A1".Copy
   ActiveSheet.Paste Destination:=Worksheets("Sheet2".Range("C1"
End If
End Sub

Вместо A1, C1, Sheet2 нужно поставить свои значения.

Лучше использовать следующий код:

Dim Check1

Private Sub Worksheet_Activate()
Check1 = 0
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
   Range("A1".Copy
   ActiveSheet.Paste Destination:=Worksheets("Sheet1".Range("C1"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Set myRange = Intersect(Range("A1:A1", Target)
If Not myRange Is Nothing Then
   Check1 = 1
Else
   If Check1 = 1 Then
      Range("A1".Copy
      ActiveSheet.Paste Destination:=Worksheets("Sheet1".Range("C1"
      Check1 = 0
   End If
End If
End Sub

[DSK]

Подскажите пожалуйста каким образом в документе Exel можно вывести суммы значений ячеек столбца по каждой странице в "подвале" каждой страницы ?
Пример:
есть данные:
Страница 1
колонка 1
1
2
3
4
5
Страница 2
колонка 1
6
7
8
9
10
Хочется получить:
Страница 1
колонка 1
1
2
3
4
5
всего по странице1 колонка1 15
Страница 2
колонка 1
6
7
8
9
10
всего по странице2 колонка1 40
и т.д.

[Greyman]

DSK

Подскажите пожалуйста каким образом в документе Exel можно вывести суммы значений ячеек столбца по каждой странице в "подвале" каждой страницы ?

А под "подвалом " что имеется в виду, нижний колонтитул что-ли? Тебе итоговые суммы именно с таким текстом нужны или достаточно просто итоговое число? Не знаю, можно ли сделать автоматом, но можно попробовать макрос, вставляющий дополнительные строчки с разрывами страницы прямо в рабочий лист (соответственно применять его нужно будет только один раз, иначе надо либо предварительно удалять вставленные постраничные итоги, либо услажнять сам макрос, перекладывая на него эту работу).

[DSK]

Greyman, спасибо за ответ !

А под "подвалом " что имеется в виду, нижний колонтитул что-ли?

Да.

Тебе итоговые суммы именно с таким текстом нужны или достаточно просто итоговое число?

Достаточно просто итоговое число.

Не знаю, можно ли сделать автоматом, но можно попробовать макрос ...

Получилось сделать процедуру на Visual Basic, которая вставляет итоги на каждой странице, провозился целый день
*
Мне кажется что должно быть какое-то более простое решение ... Типа в колонтитул вставить какую-нибудь формулу ... Пробовал сделать так, но не получилось
Хочется всё-таки узнать: можно ли выводить итоги на каждой странице по колонкам стандартными (имеется ввиду без применения VB) средствами Exel? И если можно, то как ?

[Greyman]

DSK
Непосредственно в колонтитулы нельзя вставлять ни формулы, ни ссылки на ячейки или рисунки (если тока в 2003-ем че появилось - не в курсе). Максимально близкое к этому - раздел "Итоги" в меню "Данные". Там можно включить промежуточные итоги по группам со вставкой разрывов страниц. Однако промежуточные итогоги там вставляются при изменении в одном из столбцов, соответственно все равно придется вводить дополнительный скрытый столбец, в который например макросом записывать в ячейках текущий номер страницы.
* *А если те нужны стандартные средства, то я бы посоветовал посмотреть в сторону баз данных с их настраиваемыми отчетами, а ексел они все элементарно импортируют. Единственное, Аксесс например вроде группировку по страницам не делает (у меня не получилось), но думаю что кто-то это должен делать...

[DSK]

Greyman, спасибо !

[Greyman]

DSK
Дык скожи хоть, за что спасибо. На каком варианте в итоге остановился? Если на промежуточных итогах, то доп-столбец можно даже без макросов формировать, просто можно копировать формулу, которая меняет свое значение, например каждые 60 строк, соответствено в итоге на странице у тебя будет 60 строк с их строничными итогами...

[s]Исправлено: Greyman, 21:29 15-03-2004[/s]

[DSK]

Дык скожи хоть, за что спасибо. На каком варианте в итоге остановился?

Спасибо за обсуждение !
как в итоге сделал - писал ...

Получилось сделать процедуру на Visual Basic, которая вставляет итоги на каждой странице, провозился целый день ...

Хотелось бы найти более рациональный вариант ...

Если на промежуточных итогах, то доп-столбец можно даже без макросов формировать, просто можно копировать формулу, которая меняет свое значение, например каждые 60 строк

Как копировать формулу ? Руками ?
Это можно делать когда строк не много, а когда их много - руками забодаешься копировать ...
У меня в итоге получился документ размером 800 страниц ...

А значения в дополнительный столбец каким образом можно заносить без макросов ? Есть ли в Exel какая-нибудь переменная окружения или функция, которая бы хранила или возвращала № текущей страницы на листе? Если есть, то можно это значение вставить в ячейку дополнительного столбца и размножить эту ячейку на все строки документа...
И тогда вариант с итогами по группам годится !