Re: Как изменить размер кн опки в Автофильтре?

This is a multi-part message in MIME format.
------=_NextPart_000_0037_01CAC425.2EF199E0
Content-Type: text/plain;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable
=D0=BC=D0=BE=D0=B6=D0=BD=D0=BE =
=D0=B2=D1=81=D1=82=D0=B0=D0=B2=D0=B8=D1=82=D1=8C =
=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=8E AutoFilter_Criteria(A4) =
(=D0=BD=D0=B0=D0=BF=D1=80=D0=B8=D0=BC=D0=B5=D1=80 =
=D0=B5=D1=81=D0=BB=D0=B8 =D1=84=D0=B8=D0=BB=D1=8C=D1=82=D1=80 =
=D0=BD=D0=B0 =D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B5 4 =D1=82=D0=BE =D0=B2 =
=D1=81=D1=82=D1=80=D0=BE=D0=BA=D1=83 3 =D0=B8=D0=BB=D0=B8 =D0=B2 =
=D0=B4=D1=80=D1=83=D0=B3=D1=83=D1=8E =
=D1=83=D0=B4=D0=BE=D0=B1=D0=BD=D1=83=D1=8E) :
Function AutoFilter_Criteria(Header As Range) As String
Dim strCri1, strCri2 As String
Application.Volatile
With Header.Parent.AutoFilter
With .Filters(Header.Column - .Range.Column + 1)
If Not .On Then Exit Function
strCri1 =3D .Criteria1
If .Operator =3D xlAnd Then
strCri2 =3D " =D0=98 " & .Criteria2
ElseIf .Operator =3D xlOr Then
strCri2 =3D " =D0=98=D0=9B=D0=98 " & .Criteria2
End If
End With
End With =20
AutoFilter_Criteria =3D ">: " & strCri1 & strCri2
End Function
=20
=D0=BF=D1=80=D0=B0=D0=B2=D0=B4=D0=B0 =D0=B2 2007 =
=D0=BA=D0=BE=D0=B3=D0=B4=D0=B0 =
=D0=BF=D0=BE=D1=88=D1=82=D1=83=D1=87=D0=BD=D0=BE=D0=B5 =
=D0=B2=D1=8B=D0=B4=D0=B5=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5 =
=D0=B2=D1=8B=D0=B4=D0=B0=D0=B5=D1=82 =
=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D1=83 #=D0=97=D0=9D=D0=90=D0=A7!
=D0=A1 =D1=83=D0=B2=D0=B0=D0=B6=D0=B5=D0=BD=D0=B8=D0=B5=D0=BC, =
=D0=92.=D0=98.=D0=9F=D1=8C=D1=8F=D0=BD=D0=BA=D0=BE=D0=B2
"ms145" wrote in message =
news:67B8692C-6F37-46FD-9A23-C1E0C1DB7DEA@microsoft.com...
=D0=9D=D0=B5=D0=BE=D0=B1=D1=85=D0=BE=D0=B4=D0=B8=D0=BC=D0=BE =
=D1=83=D0=B2=D0=B5=D0=BB=D0=B8=D1=87=D0=B8=D1=82=D1=8C =
=D1=80=D0=B0=D0=B7=D0=BC=D0=B5=D1=80 =
=D0=BA=D0=BD=D0=BE=D0=BF=D0=BA=D0=B8 =D1=81=D0=BE =
=D1=81=D1=82=D1=80=D0=B5=D0=BB=D0=BA=D0=BE=D0=B9 =D0=B2 =
=D0=90=D0=B2=D1=82=D0=BE=D1=84=D0=B8=D0=BB=D1=8C=D1=82=D1=80=D0=B5. =
=D0=AD=D1=82=D0=BE =D0=BF=D0=BE=D0=B7=D0=B2=D0=BE=D0=BB=D0=B8=D1=82=20
=D0=BB=D1=83=D1=87=D1=88=D0=B5 =D0=B2=D0=B8=D0=B4=D0=B5=D1=82=D1=8C =
=D0=BF=D0=BE =D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B8=D1=8E =
=D1=86=D0=B2=D0=B5=D1=82=D0=B0 =
=D1=81=D1=82=D1=80=D0=B5=D0=BB=D0=BA=D0=B8, =D0=B2 =
=D0=BA=D0=B0=D0=BA=D0=B8=D1=85 =D0=B8=D0=BC=D0=B5=D0=BD=D0=BD=D0=BE =
=D1=81=D1=82=D0=BE=D0=BB=D0=B1=D1=86=D0=B0=D1=85 =
=D0=BF=D1=80=D0=BE=D0=B8=D0=B7=D0=B2=D0=B5=D0=B4=D0=B5=D0=BD=D0=B0=20
=D1=81=D0=BE=D1=80=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=BA=D0=B0.
------=_NextPart_000_0037_01CAC425.2EF199E0
Content-Type: text/html;
charset="utf-8"
Content-Transfer-Encoding: quoted-printable
=EF=BB=BF






=D0=BC=D0=BE=D0=B6=D0=BD=D0=BE =
=D0=B2=D1=81=D1=82=D0=B0=D0=B2=D0=B8=D1=82=D1=8C =
=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=8E=20
AutoFilter_Criteria(A4) =
(=D0=BD=D0=B0=D0=BF=D1=80=D0=B8=D0=BC=D0=B5=D1=80 =
=D0=B5=D1=81=D0=BB=D0=B8 =D1=84=D0=B8=D0=BB=D1=8C=D1=82=D1=80 =
=D0=BD=D0=B0 =D1=81=D1=82=D1=80=D0=BE=D0=BA=D0=B5 4 =D1=82=D0=BE =D0=B2=20
=D1=81=D1=82=D1=80=D0=BE=D0=BA=D1=83 3 =D0=B8=D0=BB=D0=B8 =D0=B2 =
=D0=B4=D1=80=D1=83=D0=B3=D1=83=D1=8E =
=D1=83=D0=B4=D0=BE=D0=B1=D0=BD=D1=83=D1=8E) :


Function =
AutoFilter_Criteria(Header As=20
Range) As String
Dim strCri1, strCri2 As String
    =
Application.Volatile

        With=20
Header.Parent.AutoFilter
        =
With=20
.Filters(Header.Column - .Range.Column +=20
1)
            =

If Not=20
.On Then Exit=20
Function
          &=

nbsp;     =20
strCri1 =3D=20
.Criteria1
          =

; =20
If .Operator =3D xlAnd=20
Then
           =

;    =20
strCri2 =3D " =D0=98 " &=20
.Criteria2
          =

; =20
ElseIf .Operator =3D xlOr=20
Then
           =

;    =20
strCri2 =3D " =D0=98=D0=9B=D0=98 " &=20
.Criteria2
          =

; =20
End If
          End=20
With
    End=20
With    
    AutoFilter_Criteria =

=3D ">:=20
" & strCri1 & strCri2
End Function

 

=D0=BF=D1=80=D0=B0=D0=B2=D0=B4=D0=B0 =D0=B2 2007 =
=D0=BA=D0=BE=D0=B3=D0=B4=D0=B0 =
=D0=BF=D0=BE=D1=88=D1=82=D1=83=D1=87=D0=BD=D0=BE=D0=B5 =
=D0=B2=D1=8B=D0=B4=D0=B5=D0=BB=D0=B5=D0=BD=D0=B8=D0=B5 =
=D0=B2=D1=8B=D0=B4=D0=B0=D0=B5=D1=82 =
=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D1=83=20
#=D0=97=D0=9D=D0=90=D0=A7!


=D0=A1 =
=D1=83=D0=B2=D0=B0=D0=B6=D0=B5=D0=BD=D0=B8=D0=B5=D0=BC, =
=D0=92.=D0=98.=D0=9F=D1=8C=D1=8F=D0=BD=D0=BA=D0=BE=D0=B2

style=3D"BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; =
PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
"ms145" < =
href=3D"mailto:ms145@discussions.microsoft.com">ms145@discussions.microso=
ft.com>=20

wrote in message =
href=3D"news:67B8692C-6F37-46FD-9A23-C1E0C1DB7DEA@microsoft.com">news:67B=
8692C-6F37-46FD-9A23-C1E0C1DB7DEA@microsoft.com...
=D0=9D=D0=B5=D0=

=BE=D0=B1=D1=85=D0=BE=D0=B4=D0=B8=D0=BC=D0=BE=20
=D1=83=D0=B2=D0=B5=D0=BB=D0=B8=D1=87=D0=B8=D1=82=D1=8C =
=D1=80=D0=B0=D0=B7=D0=BC=D0=B5=D1=80 =
=D0=BA=D0=BD=D0=BE=D0=BF=D0=BA=D0=B8 =D1=81=D0=BE =
=D1=81=D1=82=D1=80=D0=B5=D0=BB=D0=BA=D0=BE=D0=B9 =D0=B2 =
=D0=90=D0=B2=D1=82=D0=BE=D1=84=D0=B8=D0=BB=D1=8C=D1=82=D1=80=D0=B5. =
=D0=AD=D1=82=D0=BE =D0=BF=D0=BE=D0=B7=D0=B2=D0=BE=D0=BB=D0=B8=D1=82 =

=D0=BB=D1=83=D1=87=D1=88=D0=B5=20

=D0=B2=D0=B8=D0=B4=D0=B5=D1=82=D1=8C =D0=BF=D0=BE =
=D0=B8=D0=B7=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=B8=D1=8E =
=D1=86=D0=B2=D0=B5=D1=82=D0=B0 =
=D1=81=D1=82=D1=80=D0=B5=D0=BB=D0=BA=D0=B8, =D0=B2 =
=D0=BA=D0=B0=D0=BA=D0=B8=D1=85 =D0=B8=D0=BC=D0=B5=D0=BD=D0=BD=D0=BE =
=D1=81=D1=82=D0=BE=D0=BB=D0=B1=D1=86=D0=B0=D1=85 =
=D0=BF=D1=80=D0=BE=D0=B8=D0=B7=D0=B2=D0=B5=D0=B4=D0=B5=D0=BD=D0=B0=20
=

=D1=81=D0=BE=D1=80=D1=82=D0=B8=D1=80=D0=BE=D0=B2=D0=BA=D0=B0. UOTE>

------=_NextPart_000_0037_01CAC425.2EF199E0--



Предыдущие сообщения

::2010-03-11 ::Как изменить размер кнопк и в Автофильтре?

Похожие сообщения

::2010-03-15 ::Re: Как изменить размер кн опки в Автофильтре?

Сообщения рядом

::2010-03-13 ::Re: Как изменить размер кнопки в Автофильтре?

::2010-03-13 ::Печать в файл

::2010-03-15 ::проблема с Outlook 2007

::2010-03-16 ::раскрывающийся список



Архив эхо-конференции

Страницы ::
1 ::2 ::3 ::4 ::5 ::6 ::7 ::8