2003/XP/2000 - [архив] Microsoft Excel

[Guest]

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



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

[DSK]

bd proffy

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



Private Sub Worksheet_Change(ByVal Target As Range)

If Target = Range("A1&quot Then

   Range("A1&quot.Copy

   ActiveSheet.Paste Destination:=Worksheets("Sheet2&quot.Range("C1&quot

End If

End Sub



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

[DSK]

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



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&quot.Copy

   ActiveSheet.Paste Destination:=Worksheets("Sheet1&quot.Range("C1&quot

End If

End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

Set myRange = Intersect(Range("A1:A1&quot, Target)

If Not myRange Is Nothing Then

   Check1 = 1

Else

   If Check1 = 1 Then

      Range("A1&quot.Copy

      ActiveSheet.Paste Destination:=Worksheets("Sheet1&quot.Range("C1&quot

      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? И если можно, то как ?

[DSK]

Greyman, спасибо !

[Greyman]

DSK

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

* *А если те нужны стандартные средства, то я бы посоветовал посмотреть в сторону баз данных с их настраиваемыми отчетами, а ексел они все элементарно импортируют. Единственное, Аксесс например вроде группировку по страницам не делает (у меня не получилось), но думаю что кто-то это должен делать...

[Greyman]

DSK

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



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

[DSK]

Цитата:



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



Спасибо за обсуждение !

как в итоге сделал - писал ...




Цитата:



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



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




Цитата:



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



Как копировать формулу ? Руками ?

Это можно делать когда строк не много, а когда их много - руками забодаешься копировать ...

У меня в итоге получился документ размером 800 страниц ...



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

И тогда вариант с итогами по группам годится !