Příspěvky uživatele
< návrat zpět
Jen ignoruje 4 prázdné řádky za sebou
Na kód od cmucha jste reagoval stejně. Pomohla ta jeho úprava?
Mně to nedělá. Testováno na vašem vzorku v E2003 a E2007, data jsem si dal až na poslední řádek a posunulo jak mělo. Jinak bych sem nedával.
Mimochodem - do kódu jsem přidal vypnutí přepočtu listu - spustil jsem s jiným souborem a projevilo se to
Místo
=Zadání!F5
dejte např. vzorec
=POSUN(Zadání!$F$4;(ŘÁDEK(C3)+2-ŘÁDEK($C$2))/3;0)
a pak kopírujte.
Jestli teda dobře rozumím
@marjankaj
Ano pomocí VBA je to jasné a asi relativně snadné.
NAHRADIT mně taky napadlo, boužel jak píšete by to bylo složité.
Škoda že není "reverzní funkce" k HODNOTA.NA.TEXT - tedy já o ni nevím a proto se ptám - nic jsem nenašel.
Něco jako HODNOTA, ale s parametrem, v jakém formátu je text, takže nějak
=HODNOTA("20-Dec-2012";"[$-409]d-mmm-rrrr")
Na druhou stranu si nevzpomínám, že bych něco takového někdy dělal ...
;))
@AL
1. Dalo by se souhlasit ... ;))
To automatické tam nebylo, takže jsem se chtěl vyhnout VBA. Ovšem, nevím, jestli je to blbuvzdorné.
2. To máte co za systém? Win98? WinXP a výše už mají zip integrovaný (pravé tlačítko -> odeslat do archivu zip), nebo se pletu?
Ne že by na tom záleželo, pořád lepší rar, který otevřu "nepohodlně" ;) pomocí FreeCommanderu, než uložto apod.
A k tomu co napsal JuPa:
Rozšířený filtr je fajn, souhlasím, dal by se využít, nicméně se pořád domnívám, že to jde udělat i jinak.
Napadá mně už teď několik způsobů jak to udělat. Filtr, rozšířený filtr, kontingenční tabulka, VBA na x způsobů - takže ano jde to jinak. Stačí si jen si vybrat. ;)
Těžko říct
Asi proměnná na úrovni modulu, např:
Public iPage as byte
iPage = hodnota z 1. Userform1
Pak v Userform2 načíst tu hodnotu z iPage
jinak to nepude
ale bez přílohy ...
No - pokud se napřed jeden zavře a pak druhý otevře, tak si nejdříve hodnotu z prvního načtěte do proměnné a a potom v druhém ji natáhněte z ní.
Uff - za celou dobu, co dělám s excelem, jsem měl 2 najednou otevřené formuláře pouze několikrát, ale neměly spolu nic společného (jeden něco vyplňoval a druhý mi zobrazil skryté řádky). Natož abych propojoval jejich MultiPage. Co to propánakrále programujete? ;))))
Nebudu si to vytvářet, takže nemůžu odzkoušet, jen tipuji něco takového
Userform1.MultiPage1.Value = Userform2.MultiPage1.Pages("Page3").Index
A ještě tipuji, že oba musí být načtené (mohou být skryté)
Když už jsem to dělal ;)
Minimalizace přístupů na list = rychlejší kód
Oblast $A$6:$K$43 jsem si dal do názvu Data
Sub subReplaceData()
'Data: =List1!$A$6:$K$43
Dim lCalc As Long
lCalc = Application.Calculation
Application.Calculation = xlCalculationManual
With Names("Data").RefersToRange
.Value = .Value 'převede buňky, které se tváří jako prázdné na opravdu prázdné
Dim rData As Range
On Error Resume Next
Set rData = Intersect(.Cells, .SpecialCells(xlCellTypeConstants).EntireRow)
On Error GoTo 0
If Not rData Is Nothing Then
Dim vValues() As Variant
ReDim vValues(0)
Dim rArea As Range
For Each rArea In rData.Areas
If IsEmpty(vValues(0)) Then
vValues(0) = rArea.Value
Else
ReDim Preserve vValues(UBound(vValues) + 1)
vValues(UBound(vValues)) = rArea.Value
End If
Next rArea
Set rArea = Nothing
.ClearContents
Dim iRow As Long
iRow = 1
Dim v As Variant
For Each v In vValues
.Cells(iRow, 1).Resize(UBound(v, 1), UBound(v, 2)).Value = v
iRow = iRow + UBound(v, 1)
Next v
End If
End With 'Names("Data").RefersToRange
Application.Calculation = lCalc
Set rData = Nothing
End Sub
Edit:
Vypnutí kalkulací
@AL
Mám 2 dotazy
1. Proč si myslíte, že je to jednodušší, než k tomu určený Rozšířený filtr, respektive mnou používaný Filtr + 2 kliknutí + 4 dvojhmaty
2. Proč používáte rar, když všichni máme v PC zip ;)))
;)
Náš ústav se vám, pane Hudečku, mými ústy co nejsrdečněji omlouvá za toto politování hodné přehlédnutí, ke kterému dochází maximálně jednou za deset let!
"Mapu znakov nájdeš určite na nete. Ale nie je problém si ju vygenerovať."
Zmátlo mně to vygenerovat mapu znaků a na nic jiného jsem se už nesoustředil ;)
@Opičák
Vidíte, to mně nenapadlo - zeptat se, zda autor nemá anglický excel - pak by bylo vše "easy" ;)
Když jsem viděl to zadání, tak mně hned napadlo to převést na číslo.
vzorec=HODNOTA.NA.TEXT(41263;"d-mmmm-rrrr")vrátí 20-prosinec-2012
inverzně =HODNOTA("20-pro-2012")vrátí 41263
vzorec=HODNOTA.NA.TEXT(41263;"[$-409]d-mmm-rrrr")vrátí tvar ze zadání 20-Dec-2012
jenže v lokalizované verzi =HODNOTA("20-Dec-2012")vrátí samozřejmě chybu ;)
Napadá někoho, jak snadno převést anglické datum na číslo v lokalizované verzi excelu?
Není zač.
Jak říkám, je to standard, takže jsem nic nevymyslel ;)
Pokud by vás to zajímalo, tak já to dělám opravdu "nepohodlně" pomocí filtr+pouze viditelné buňky
není třeba nic pojmenovávat, většinou stačí CTRL+SHIFT+šipka dolů, ALT+;, CTRL+C, CTRL+V
Mno, když myslíte, že je to nepohodlné ;)
tak zkuste Rozšířený filtr
http://excel-navod.fotopulos.net/tabulka/rozsirenyfiltr.html
Data->Seřadit a filtrovat->Upřesnit
Ty sloupce si pojmenujte - např. B=>měsíc, C=>hodnota
do E2 napište měsíc
do E3 napište leden
Pro oblast seznamu B2:C26, oblast kritérií E2:E3
a kopírujte jinam
pak smažte první sloupec
Makro vám schválně nenabízím, protože toto se dá udělat standardně a není ho potřeba - pokud to neděláte 10x za hodinu ;)
Což mi připomnělo, že jsem se chtěl kouknout, jestli se dá spustit mapa znaků standardně přímo z excelu
Dá, ale není to ta systémová, ale nějaká zřejmě vestavěná v office
Karta Vložit - Tlačítko Symbol
Uživatelské menu
\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