Помогите с MS Excel

Немо, берешь, делаешь ярлык для файл и помещаешь его в C:\Program Files\Microsoft Office\OFFICE11\XLSTART\

Теперь, каждый раз при запуске Excel, от будет у тебя открыт.

Либо поэксперементируй с командой Файл/Сохранить рабочую область...

Немо, рабочая область должна быть. 2007 спецю не ставлю. Нет времени разбираться...

Немо, страдаешь от такого отображения числа? Скачай себе исправление и не мучайся

Или жди первого сервиспака

Туманно описали задачу...

dikar, действительно туманно, но думаю что команда Данные-Сводная таблица должна помочь...

отправляю пример.

оказалось отправляю не самое подходящее слово...

пока прочитал правила перебрал все форматы. только картинкой могу??? думал что и рары примет...

а потом оказалось что пиксели, размеры. вообщем все равно отправляю...

dikar, думаю гораздо проще макросом... строк 15-ть, думаю не больше...

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

Задачка оказалась чуть сложнее...

Решение с учетом того что исходная таблица надодится начиная с ячейки А1

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

Sub Кнопка3_Щелкнуть()

Dim MassIshod(10000, 1000) As Variant

Dim MassItog(10000, 1000) As Variant

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim m As Integer

Dim l As Integer

Dim k As Integer

Erase MassIshod, MassItog

Sheets("Prog".Activate

i = 4

While IsEmpty(Cells(i, 1)) = False

i = i + 1

Wend

n = i - 1

j = 4

While IsEmpty(Cells(3, j)) = False

j = j + 1

Wend

m = j - 1

For i = 3 To n

For j = 2 To m

MassIshod(i - 2, j - 1) = Cells(i, j)

Next j

Next i

MassItog(1, 1) = MassIshod(1, 1)

For j = 3 To m - 1

MassItog(1, j - 1) = MassIshod(1, j)

Next j

k = 1

For i = 2 To n - 2

For l = 1 To k

If MassItog(l, 1) = MassIshod(i, 1) Then

For j = 3 To m - 1

MassItog(l, j - 1) = MassItog(l, j - 1) + MassIshod(i, 2) * MassIshod(i, j)

Next j

Naydena = True

GoTo label1

End If

Next l

If Naydena = False Then

k = k + 1

MassItog(k, 1) = MassIshod(i, 1)

For j = 3 To m

MassItog(k, j - 1) = MassIshod(i, 2) * MassIshod(i, j)

Next j

End If

'*****

label1:

'*****

Naydena = False

Next i

Sheets("Report".Activate

Cells.Select

Selection.Clear

Cells(2, 2) = "общая сумма по группам и по датам, $"

For i = 1 To n - 2

For j = 1 To m - 2

Cells(i + 2, j) = MassItog(i, j)

Next j

Next i

End Sub

задача:

есть 2 числа, сумма процентов от которых должна составить искомую величину, при этом вариации процентных ставок могут быть различными главное чтобы они не были слишком кривыми, т.е. 8,9 это нормально а 8,8996571 это уже не годится. точность нужна до копейки в итоговой величине. плиз хелп.

dikar:

задача:

есть 2 числа, сумма процентов от которых должна составить искомую величину, при этом вариации процентных ставок могут быть различными главное чтобы они не были слишком кривыми, т.е. 8,9 это нормально а 8,8996571 это уже не годится. точность нужна до копейки в итоговой величине. плиз хелп.

Тебе просто подобрать размеры процентых ставок?

Задача имеет множестве решений.

Только что реший ее с помощью Поиска решения