< návrat zpět

MS Excel


Téma: Columns Hidden rss

Zaslal/a 7.10.2013 15:56

Ahojte,

trochu som sa zacal nudil a urobil som vykaz prace, ktory ma mnoho problemov a jeden z nich uz dlhsie riesim ale zacina ma z toho uz boliet hlava a potreboval by som s tym help:

otazka znie ked pustim v subore cuplik visible a tam zakliknem poslednu polozku preco to da navyse jeden stlpec???

vie to niekto zistit? :) robi to vzdy len pri poslednej polozke

jedna sa o event: Private Sub lbKlienti_Change()

Příloha: zip15588_vykaz-prace.zip (112kB, staženo 21x)
Zaslat odpověď >

Strana:  1 2   další »
icon #015589
avatar
@ Palooo: chvíľu som si s tým hral, neprišiel som na dôvod, prečo sa Ti to tak chová, ničmenej, asi by tomu šlo zabrániť pridaním jednej inštrukcie pred End Sub:Private Sub lbKlienti_Change()
If Not mbEvents Then
With Sheets("WorkSheet")
For x = 0 To lbKlienti.ListCount - 1
If lbKlienti.Selected(x) = True Then
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)).Columns.Hidden = False
Else
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)).Columns.Hidden = True
End If
Next
End With
End If

[B3].End(xlToRight).Offset(0, 1).Columns.Hidden = True
End Sub


Nie je to síce zrejme striktne v duchu logiky, ale niekedy stačí použiť hrubú silu :)citovat
#015590
avatar
tato odpoved ma neuspokoji :)

a preco to vlasne robi??
ked tam ma jasne definovane ze kolko stlpcov ma hidnutcitovat
icon #015591
eLCHa
To je jednoduché. Protože mu říkáte, aby to udělal

Pro x=7 je totiž
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)).Columns.Address
rovno

$AG$1:$AK$1

ked tam ma jasne definovane ze kolko stlpcov ma hidnut
ano, máte - 5 sloupců ;)
když budu počítat na prstech tak +5, +6, +7, +8, +9 ;))

Už jsem si všiml, že máte tendenci, řešit věci složitěji, než je třeba
Když už to nechcete dělat najednou a pomocí proměnných, tak to zjednodušte třeba takto
Private Sub lbKlienti_Change()
If Not mbEvents Then
For x = 0 To lbKlienti.ListCount - 1
Range("E:H").Offset(0, x * 4).EntireColumn.Hidden = Not lbKlienti.Selected(x)
Next
End If
End Sub
citovat
#015597
avatar
dik eLCHa tvoje riesene funguje a aj je rychlejsie

Not lbKlienti.Selected(x) tak to ma zrovna nenapadlo :) ale uz to budu tak zapisovat o jeden krok menej

tak uz som si to odkrokoval poriadne a uz chapu proc to tak blbo robi dik :)))) .... jaj a ja ze aka zahadacitovat
icon #015598
eLCHa
1: 9 - 5 = 4
2: 13 - 9 = 4
3: 21 - 17 = 4
4: 25 - 21 = 4
5: 29 - 25 = 4
6: 33 - 29 = 4
7: 37 - 33 = 4
8: 41 - 37 = 4

kludne to moze cyklit aj do 100 ale urobi to len pri poslednom


Nemůžete počítat 9 - 5 = 4,
ale 9 - 4 = 5 (9 je poslední zobrazený, -4 je poslední skrytý) - nevím jak to srozumitelně vyjádřit - musíte si to vyzkoušet sám ;)
proto jsem tam psal to počítání na prstech
Range(Cells(1, (x * 4) + 5), Cells(1, (x * 4) + 9)) =>
Cells(1, (x * 4) + 5)
Cells(1, (x * 4) + 6)
Cells(1, (x * 4) + 7)
Cells(1, (x * 4) + 8)
Cells(1, (x * 4) + 9) -- tato už tam nepatří
tedy 5 buněk

ono se to necyklí - prostě vždy v jednom kroku provedete s tím pátým sloupcem jednu operaci a v dalším kroku je tentýž sloupec jako 1. a provádíte s ním další - mno a ve výsledku je to vidět až na konci ;)citovat
#015599
avatar
elcha si rychlejsi ako ja opravujem prispevok :))))) .... ano uz tomu rozumiemcitovat
#015600
avatar
este jedna vec co ma dlhsie trapi a nedosiel som nato preco to robi :)))

ked si v objecte "Drop Down 1" alebo "Drop Down 2" vyberiete prvu polozku a savnete subor

potom ked ho zapnete tak sa nezobrazi .... preco to robi??citovat
icon #015601
eLCHa
Teď jsem mimo. Co je Drop Down?

Příloha?citovat
#015602
avatar
ta ista priloha je to combo box jeden co vybera roky a druhy mesiace .... len je pomenovany ako drop down ... microsoft nevie uz ako pomenovavat :))citovat
icon #015603
eLCHa
Myslíte - vybrat Január nebo 2012, uložit, zavřít, otevřít a pak ta máte něco jiného?
Mně to tam zůstává.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

excell uprava riadku vzorca

orangezradca • 13.6. 20:37

pomala tlac s exelu

jano5 • 12.6. 9:44

GRAF teploty

JoKe • 12.6. 9:22

Filtrování dat

Imh0tep • 12.6. 8:35

Filtrování dat

Lader • 11.6. 23:22

Filtrování dat

Imh0tep • 11.6. 21:15

Zjištění směny dle data a času

Ontik • 11.6. 14:23