MS Office.Обсуждение.Решение проблем.

мда... надо быть проще

Zwalker, спасибо!

MAE, можно простенький макрос написать шоб при открытии книги запускался

или вот

------

Письмо Дата Срок Оповестить

письмо1 20.11.2006 30 5

письмо2 15.11.2006 10 5

письмо3 17.11.2006 20 5

письмо4 19.11.2006 14 5

письмо5 10.11.2006 16 5

письмо6 05.11.2006 20 5

письмо7 30.10.2006 15 5

письмо8 21.11.2006 18 5

письмо9 22.11.2006 24 5

письмо10 18.11.2006 20 5

---------

Private Sub Workbook_Open()

i = 2

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

If Day(Date - Cells(i, 2) + 1) >= Cells(i, 3) - Cells(i, 4) Then

If Day(Date - Cells(i, 2) + 1) > Cells(i, 3) Then

Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 5

GoTo label1

End If

Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 3

Else

Range(Cells(i, 1), Cells(i, 4)).Interior.ColorIndex = 6

End If

label1:

i = i + 1

Wend

Range(Cells(1, 10), Cells(1, 10)).Interior.ColorIndex = 6

End Sub

-------

на мой взгляд более гибко

SashaR, спасибо! в макросах не силен. но обязательно попробую твой образец

Zwalker, спасибо! самый простой вариант

SashaR,

Аспирин, Возможно стоит защита листа. Посмотри сервис - защита - защитить лист - использование автофильтра (если стоит галочка, то кнопка автофильтра становится неактивной)...

Наверное, проблема кроется где-то в параметрах книги, потому что если лист скопировать в новую книгу, то автофильтр работает.

http://best_computers.at.[censored]/Разр.xls Образец книги Excel с неработающим автофильтром - 26.5 Кб.

greeny, что-то как-то все в куче

не совсем понятно получается

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

greeny, очистка таблиц 3 и 4 необходима при каждом новом цыкле расчета?

greeny, задача не в 5 минут конечно, есть свои нюансы

но все же:

--------------------

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

Dim i As Integer

Dim j As Integer

Dim mass_T1(1000, 4) As Variant

Dim mass_T2(1000, 2) As Variant

Dim mass_T3(1000, 4) As Variant

Dim mass_T4(1000, 4) As Variant

Dim end_T1 As Integer

Dim end_T2 As Integer

Dim end_T4 As Integer

Dim zap_naydena As Boolean

Erase mass_T1, mass_T2, mass_T3, mass_T4

Sheets("T3").Activate

Rows("2:1000").Select

Selection.Clear

Sheets("T4").Activate

Rows("2:1000").Select

Selection.Clear

Sheets("T1").Activate

i = 1

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

mass_T1(i, 1) = Cells(i + 1, 1)

mass_T1(i, 2) = Cells(i + 1, 2)

mass_T1(i, 3) = Cells(i + 1, 3)

mass_T1(i, 4) = Cells(i + 1, 4)

i = i + 1

Wend

end_T1 = i - 1

Sheets("T2").Activate

i = 1

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

mass_T2(i, 1) = Cells(i + 1, 1)

mass_T2(i, 2) = Cells(i + 1, 2)

i = i + 1

Wend

end_T2 = i - 1

end_T4 = 0

zap_naydena = False

For i = 1 To end_T1

For j = 1 To 1000

If mass_T1(i, 1) = mass_T4(j, 1) And mass_T1(i, 2) = mass_T4(j, 2) And mass_T1(i, 3) = mass_T4(j, 3) Then

mass_T4(j, 4) = mass_T4(j, 4) + mass_T1(i, 4)

zap_naydena = True

End If

Next j

If zap_naydena = False Then

end_T4 = end_T4 + 1

mass_T4(end_T4, 1) = mass_T1(i, 1)

mass_T4(end_T4, 2) = mass_T1(i, 2)

mass_T4(end_T4, 3) = mass_T1(i, 3)

mass_T4(end_T4, 4) = mass_T1(i, 4)

End If

zap_naydena = False

Next i

For i = 1 To end_T4

For j = 1 To end_T2

If mass_T2(j, 1) = mass_T4(i, 1) Then

mass_T3(i, 1) = mass_T4(i, 1)

mass_T3(i, 2) = mass_T4(i, 2)

mass_T3(i, 3) = mass_T4(i, 3)

mass_T3(i, 4) = mass_T4(i, 4) * mass_T2(j, 2)

mass_T4(i, 4) = mass_T4(i, 4) * (1 - mass_T2(j, 2))

zap_naydena = True

End If

Next j

If zap_naydena = False Then

MsgBox "Номер модели " & mass_T4(i, 1) & " не найден в таблице №2"

GoTo Exit_Prog

End If

zap_naydena = False

Next i

Sheets("T3").Activate

For i = 1 To end_T4

Cells(i + 1, 1) = mass_T3(i, 1)

Cells(i + 1, 2) = mass_T3(i, 2)

Cells(i + 1, 3) = mass_T3(i, 3)

Cells(i + 1, 4) = mass_T3(i, 4)

Next i

Sheets("T4").Activate

For i = 1 To end_T4

Cells(i + 1, 1) = mass_T4(i, 1)

Cells(i + 1, 2) = mass_T4(i, 2)

Cells(i + 1, 3) = mass_T4(i, 3)

Cells(i + 1, 4) = mass_T4(i, 4)

Next i

Exit_Prog:

End Sub

--------------------------T1

MOD RAZ CVET KOL

577 105-D 1 5

577 105-D 1 10

577 110-D 1 5

577 105-C 100 5

577 105-D 100 5

577 105-C 100 20

577 105-D 100 20

655 110-D 1 5

655 105-C 100 5

655 105-D 100 5

655 105-C 100 20

655 105-D 100 20

--------------------------T2

MOD PROC

577 0,3

655 0,8

10048 0,6

--------------------------T3

MOD RAZ CVET KOL

577 105-D 1 4,5

577 110-D 1 1,5

577 105-C 100 7,5

577 105-D 100 7,5

655 110-D 1 4

655 105-C 100 20

655 105-D 100 20

--------------------------T4

MOD RAZ CVET KOL

577 105-D 1 10,5

577 110-D 1 3,5

577 105-C 100 17,5

577 105-D 100 17,5

655 110-D 1 1

655 105-C 100 5

655 105-D 100 5

-------------------------

оригинал выслал