Palooo napsal/a:
mozno je to koli tomu ze mam nemecky office
;)
Palooo napsal/a:
... ale zas nadruhu stranu ... to je tak ked programatorom dovolia nedefinovavat premenne .)
Ano - Option Explicit by měl být natvrdo ;)citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Nalezení sloupců dle kritéria
;)
Ano - Option Explicit by měl být natvrdo ;)citovat
Rows("1:1").Replace What:="NEPRAVDA", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Falsecitovat
No ak si prejdeš ten kód, tak zistíš, ze premenná "i" má vždy hodnotu "1". A premenná "counter" síce cykluje, ale v kóde sa nevyužíva.
Teda logicky ti skryje stlpec "A" toľkokrát koľkokrát je v prvom riadku uvedené "False"citovat
MS Excel
Téma: Nalezení sloupců dle kritéria 
Zaslal/a 31.7.2013 10:10
Ahoj. Mohli byste mi prosím poradit s následujícím a ne asi složitým makrem ?
Mám označené sloupce slůvkem PRAVDA a NEPRAVDA.
Potřeboval bych najít všechny sloupce PRAVDA a
překopírovat je na list 1, jeden vedle druhého. Šlo by o určitou oblast.
Např. x5 - x20 kde x znamená určitý sloupec.
Moc děkuji za pomoc.
Strana: « předchozí 1
2
;)
Ano - Option Explicit by měl být natvrdo ;)citovat
@eLCHa
vůbec to neberu jako kritiku. Ba naopak, někdy čekám právě na Vaše řešení, abych se poučil.
Ale tak trochu jsem to tentokráte čekal, že dostanu přes držku, právě za ".Select". A nemýlil se. Rád sleduji Vaše postupy a snažím se něco přiučit. Čeho jste už dosáhl, je to, že se předně snažím o řešení pomocí fcí Excelu než makry. Takže příště zase, budu čekat (rád).
citovat
vůbec to neberu jako kritiku. Ba naopak, někdy čekám právě na Vaše řešení, abych se poučil.
Ale tak trochu jsem to tentokráte čekal, že dostanu přes držku, právě za ".Select". A nemýlil se. Rád sleduji Vaše postupy a snažím se něco přiučit. Čeho jste už dosáhl, je to, že se předně snažím o řešení pomocí fcí Excelu než makry. Takže příště zase, budu čekat (rád).
citovat(31.7.2013 13:39)#014563
Vsem vam moc děkuji. Pokusím to se to nějak sesmolit do mého případu. Zatím se zdá být vše funkční. Učíme se všichni.
Díky moccitovat
Díky moccitovat
(1.8.2013 9:37)#014566
jeste bych měl jeden dotaz. Pro chod makra je potřeba odebrat to NEPRAVDA. Je možné sepsat jeste nejake makro, které by to udělalo ? Aby prošlo celý první řádek a každé nepravda smazlo..?
Nějak mi to nahrazení NEPRAVDA ničím nejde nahrát ani doladit.
Díkycitovat
Nějak mi to nahrazení NEPRAVDA ničím nejde nahrát ani doladit.
Díkycitovat
(1.8.2013 10:53)#014567
Nebo lépe jen skrýt bunky v rozsahu Q1: AZ1, které obsahují NEPRAVDA.
Můj kod, který mám z netu skryje pro mne nepochopitelne vždy jen jednu - první - hodnotu.
Set Rng = Range("Q1:AZ1")
i = 1
For counter = 1 To Rng.Columns.Count
If Rng.Cells(i) = False Then
Rng.Cells(i).Columns.Hidden = False
Else
i = i + 1
End If
Next
citovat
Můj kod, který mám z netu skryje pro mne nepochopitelne vždy jen jednu - první - hodnotu.
Set Rng = Range("Q1:AZ1")
i = 1
For counter = 1 To Rng.Columns.Count
If Rng.Cells(i) = False Then
Rng.Cells(i).Columns.Hidden = False
Else
i = i + 1
End If
Next
citovat
jaro napsal/a:
jeste bych měl jeden dotaz. Pro chod makra je potřeba odebrat to NEPRAVDA. Je možné sepsat jeste nejake makro, které by to udělalo ? Aby prošlo celý první řádek a každé nepravda smazlo..?
Nějak mi to nahrazení NEPRAVDA ničím nejde nahrát ani doladit.
Díky
Rows("1:1").Replace What:="NEPRAVDA", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=Falsecitovat
jaro napsal/a:
Nebo lépe jen skrýt bunky v rozsahu Q1: AZ1, které obsahují NEPRAVDA.
Můj kod, který mám z netu skryje pro mne nepochopitelne vždy jen jednu - první - hodnotu.
No ak si prejdeš ten kód, tak zistíš, ze premenná "i" má vždy hodnotu "1". A premenná "counter" síce cykluje, ale v kóde sa nevyužíva.
Teda logicky ti skryje stlpec "A" toľkokrát koľkokrát je v prvom riadku uvedené "False"citovat
skus takto to zapisat:
Sub test()
Set Rng = Range("A1:H1")
For i = Rng.Columns.Count To 1 Step -1
If Rng.Cells(i) = False Then Rng.Cells(i).Columns.Hidden = True
Next
End Subcitovat
Sub test()
Set Rng = Range("A1:H1")
For i = Rng.Columns.Count To 1 Step -1
If Rng.Cells(i) = False Then Rng.Cells(i).Columns.Hidden = True
Next
End Subcitovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články