Tema: Re: Rusiavimas pagal stulpelis Excelyje?
Autorius: Raimis
Data: 2009-09-10 16:11:02
:))) nebijok, neskaudes, o standartinem excelio priemonem tai nemanau, kad pavyktu padaryti.

gali ikelti koki mygtuka i forma ir priskirti jam si makro arba kas karta paprastai Tools-Macro-Macros ... Run


"siGis" <s@s.s> wrote in message news:h8at26$359$1@trimpas.omnitel.net...
> :)
> Biski baisoka.
> Nu mazdaug aisku. Meniu tokio punkto matyt ieskoti neverta.
> 
> "Raimis" <no@mail.com> wrote in message news:h8angv$q81$1@trimpas.omnitel.net...
>> na pvz, kad ir taip (pasikoreguok stulpeliu ir eiluciu skaiciu pagal poreiki - pavyzdyje tikrinama 6000 eiluciu ir 200 stulpeliu):
>> 
>> Sub SleptiStulpelius()
>> Dim st As Integer
>> Dim eil As Integer
>> Dim yra As Boolean
>> 
>> Application.ScreenUpdating = False
>> 
>> For st = 1 To 200     ' kiek stulpeliu tikrinti
>>    yra = False
>>    For eil = 1 To 6000    ' kiek eiluciu tikrinti
>>        If Cells(eil, st).Value <> "" Then
>>            yra = True
>>            Exit For
>>        End If
>>        
>>    Next eil
>>    If yra = False Then
>>        Columns(st).Select
>>        Selection.EntireColumn.Hidden = True
>>    End If
>> Next st
>>    
>> Application.ScreenUpdating = True
>>    
>> End Sub
>> 
>> 
>> 
>> 
>> "siGis" <s@s.s> wrote in message news:h8ag8f$eou$1@trimpas.omnitel.net...
>>> 
>>> 
>>> "Raimis" <no@mail.com> wrote in message news:h8af70$d92$1@trimpas.omnitel.net...
>>>> galima, su VBA
>>> 
>>> O kaip? :)