PHOTO FORUM /PHOTOGRAPHY/ALBUM/BAZAR

Authors and albums

Contests

Awekening - contest

Category

Рекламирайте тук Затвори

Реклама в секции форуми и базар

Под формата на платени обяви можете да рекламирате ваши продукти, услуги или други комерсиални дейности. Обявата може да бъде публикувана избирателно във форум по ваше желание или във всички форуми на сайта.

За стандартната ценова листа и условия изпратете
запитване до webmaster@photo-forum.net.

Платени обяви

Как да рекламирам?

Нова тема

Всички теми

Към тема

Теми - forum: Клубен живот

1 всички

последна

Въпрос към царете на EXCEL:

Автор: canonio
Дата: 11-09-08 14:38

Имате ли търд парти софт, или екселско макро, което да обедини всички шийтове от документа, в един единствен шийт, като всичко е едно под друго и с един ред разстояние?

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: NeDDRaG
Дата: 11-09-08 15:05

не е ясно какво точно искаш, ама можеш да си го напишеш на VBA (Visual Basic for Applications). Има го стандартно в Еxcel.

Публикацията е редактирана (11-09-08 15:28)

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: ALBIREO
Дата: 11-09-08 15:40

Преди време много често ползвах ето това:
http://www.asap-utilities.com/download-asap-utilities.php

Много полезни макроси има.

Не съм сигурен дали има макрос, който да реши твоя проблем, но можеш да опиташ. [smilie24]

[smilie24]

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: alexoff
Дата: 11-09-08 16:22

Ей тук

http://clubs.dir.bg/postlist.php?Cat=8&Board=tables

бях пускал подобно решение доколкото си спомням преди година може би. Питай там някой може да има нещо готово, което да се приобщи за твоите нужду за нула време. Аз си затрих голяма част от файловете с подобни макроси и ще ми трябва малко време да го направя отново, но не е проблем. Ако имам събота и неделя време може да сглобя нещо на бързо.

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: alexoff
Дата: 11-09-08 17:06

Откъснаха ми се няколко минутки та сглобих нещо на бързо:

Sub Consolidation()

Sheets("All Data").Activate
Range("A2", "IV65536").ClearContents

For Each Sheet In Application.Worksheets
Sheet.Activate
If Application.ActiveSheet.Name = "All Data" Then
MsgBox Application.ActiveSheet.Name
Else
Range("A1").Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select

Selection.Copy
Sheets("All Data").Select
Range("A1").SpecialCells(xlLastCell).Select
Selection.End(xlToLeft).Select
Selection.End(xlUp).Select
Selection.Offset(2, 0).Select
ActiveSheet.Paste
End If
Next Sheet

End Sub

Трябва да си направиш още един sheet, който да се казва All Data където ще ти се консолидират данните. На всяка страница първият ред е антетка която не се пренася, същата антетка си правиш и на страницата All Data.

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: canonio
Дата: 11-09-08 17:23

alexoff,
мерси много [beer]

[beer]

[beer]

[beer]

Само че, копира само колоните "А". Какво да променя в макрото, за да копира всичките А-Z ?

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: alexoff
Дата: 11-09-08 17:26

Трябва да видя каква ти е структурата на таблиците за да мога да ти отговоря как точно ще работи. Принципа тук е че се селектира current range, а за да го хване то проверява първата и последната клетка, т.е. ще хване областта в която на първия ред имаш въведено наименование на колоната, така че до последната колона в която имаш въведено нещо.

Дай един примерен файл със структурата която искаш да бъде обединена и ще стане по лесно.

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: alexoff
Дата: 11-09-08 17:28

и изтрий следния ред:

MsgBox Application.ActiveSheet.Name

това не ти трябва, просто съм забравил да го изтрия докато съм тествал.

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: canonio
Дата: 11-09-08 17:42

Структурата е различна във всеки шийт. Това е лошото...

Не може ли да копира и празни клетки ?

Отговори на това съобщение

Re: Въпрос към царете на EXCEL:

Автор: alexoff
Дата: 11-09-08 18:00

Дай примерен файл и ще се види какво може да се направи.

alex_alexov@mail.bg

Отговори на това съобщение

1 всички

последна

Нова тема

Всички теми

Дървовиден изглед