Как пересчитать блоки в которых находятся данные

@moon27 · Регистрация: 05.11.2011

Author24 — интернет-сервис помощи студентам

Добрый день...

Суть проблемы вот в чём…
Есть книга в которой много листов с данными…
Но все данные (слава Богу) жёстко структурированы в блоки…

Помогите пожалуйста написать макрос, который бы мог пересчитать большое количество блоков с данными и дать каждому блоку адрес в книге...

Если не трудно, гляньте пожалуйста, вложение где находится пояснение к проблеме и примеры...

С уважением...

@moon27 · 05.11.2011, 17:49 **[ТС]**

Не пойму куда делось вложение...

Снова залил...

@Казанский · 05.11.2011, 22:34

Не понял, где в примере адреса. Может, удобнее будет гиперссылки создать?
Я исходил из того, что блоки начинаются с ячейки D4 и идут с шагом 58.

@19vitek · 05.11.2011, 23:20

как вариант.

Visual Basic

Sub n()
Dim rng As Range, cel As Range
For Each mySheet In Sheets
Set rng = Range("d:d").SpecialCells(xlCellTypeConstants)
For Each cel In rng
 If cel.Interior.ColorIndex <> 4 And cel.Interior.ColorIndex <> 6 Then
st = st + mySheet.Name & "Блок№" & cel.Value & " "
 End If
Next
Next mySheet
Worksheets.Add.Name = "Результат"
retval1 = Split(st, " ")
For i = UBound(retval1) To 1 Step -1
Cells(i, 1) = retval1(i)
Next i
End Sub

@moon27 · 06.11.2011, 16:16 **[ТС]**

to Казанский, 19vitek

19vitek, спасибо вам, всё считает именно так как надо)

Казанский, "Я исходил из того, что блоки начинаются с ячейки D4 и идут с шагом 58."..
Да, именно в такой структуре находятся все данные…
А с гиперссылками вообще хорошо получилось.
Я думал, что с гиперссылками будет гораздо сложнее и вряд ли кто будет думать как это сделать.
А вообще, хороший макрос… Мудрый какой-то)
Макросы, они ведь как люди - бываю хорошие, бывают плохие).. У них всё как у нас)

Казанский и 19vitek большое спасибо вам… Проблема окончательно решена…

С уважением)

Добавлено через 12 часов 38 минут
to Казанский

Казанский, вообще-то, обычно, так не принято, но я хочу вам выразить повторную благодарность за ваш макрос... Для вас это 15-20 минут благотворительности, а для меня этот вопрос был жизненноважным... Благодаря вашему макросу я сделал всё вовремя и оказался в нужном месте в нужный час...

Спасибо вам, Казанский... Всё возвращается, всё закономерно... Сегодня, вы оказали помощь, оказали услугу совершенно незнакомому вам человеку с ником "moon27", потратив на него своё время... Время, которое, казалось бы, могли потратить на более полезные вещи, а через неделю, вам простят долг, предложат выгодную сделку или жена в течении недели, почему-то, будет относиться к вам с большей любовью чем обычно... Какой-то возврат будет...

Сегодня, с помощью вашего макроса, я кое-что вычислил быстрее, чем мои конкуренты и получил давно желаемое... Я успел...

Спасибо вам...

Хоть, точку поставьте в ответ, что я был спокоен, что вы услышали мою благодарность...

С искренним уважением...

@moon27 0 / 0 / 0 Регистрация: 05.11.2011 Сообщений: 8
		1
	Как пересчитать блоки в которых находятся данные 05.11.2011, 15:25. Показов 1026. Ответов 4 Метки нет (Все метки) Добрый день... Суть проблемы вот в чём… Есть книга в которой много листов с данными… Но все данные (слава Богу) жёстко структурированы в блоки… Помогите пожалуйста написать макрос, который бы мог пересчитать большое количество блоков с данными и дать каждому блоку адрес в книге... Если не трудно, гляньте пожалуйста, вложение где находится пояснение к проблеме и примеры... С уважением... 0

@moon27 0 / 0 / 0 Регистрация: 05.11.2011 Сообщений: 8
	06.11.2011, 16:16 [ТС]	5
	to Казанский, 19vitek 19vitek, спасибо вам, всё считает именно так как надо) Казанский, "Я исходил из того, что блоки начинаются с ячейки D4 и идут с шагом 58.".. Да, именно в такой структуре находятся все данные… А с гиперссылками вообще хорошо получилось. Я думал, что с гиперссылками будет гораздо сложнее и вряд ли кто будет думать как это сделать. А вообще, хороший макрос… Мудрый какой-то) Макросы, они ведь как люди - бываю хорошие, бывают плохие).. У них всё как у нас) Казанский и 19vitek большое спасибо вам… Проблема окончательно решена… С уважением) Добавлено через 12 часов 38 минут to Казанский Казанский, вообще-то, обычно, так не принято, но я хочу вам выразить повторную благодарность за ваш макрос... Для вас это 15-20 минут благотворительности, а для меня этот вопрос был жизненноважным... Благодаря вашему макросу я сделал всё вовремя и оказался в нужном месте в нужный час... Спасибо вам, Казанский... Всё возвращается, всё закономерно... Сегодня, вы оказали помощь, оказали услугу совершенно незнакомому вам человеку с ником "moon27", потратив на него своё время... Время, которое, казалось бы, могли потратить на более полезные вещи, а через неделю, вам простят долг, предложат выгодную сделку или жена в течении недели, почему-то, будет относиться к вам с большей любовью чем обычно... Какой-то возврат будет... Сегодня, с помощью вашего макроса, я кое-что вычислил быстрее, чем мои конкуренты и получил давно желаемое... Я успел... Спасибо вам... Хоть, точку поставьте в ответ, что я был спокоен, что вы услышали мою благодарность... С искренним уважением... 0