Příspěvky uživatele
< návrat zpět
@elninoslov
A ako to vyskúša bez tlačiarne???
poopp napsal/a:
marjankaj napsal/a: A kde je ten súbor?
No, to by mě zajímalo, tady nic není..Příloha: 25217_xlstart.jpg
Priložiť súbor ako prílohu znamená že sem dáš súbor v exceli teda *.xlsx anie nejaký obrázok
To ako keby si prišiel k lekárovi, že tvoju manželku pichá v chrbte. Lekár asi nezistí, že tam má zapichnutý nôž alebo niečo iné.
poopp napsal/a:
jestli se jedná o soubor PERSONAL.XLSB kterej by měl být v adresáři: C:\Users\K65\AppData\Roaming\Microsoft\Excel\XLStart tak ani na jednom PC v této složce bohužel nic není.
A kde je ten súbor?
Excel 2003
IF(ISERROR(s);"";s)
Daj(skopíruj) to všetko na jeden list a vyfiltruj.
Pôvodné ti zostane.
No keby jeden tušil, ako sa ten súbor vytvára a načo slúži, tak by sa vedel adekvátnejšie vyjadriť. Ale to zrejme budú "citlivé" informácie.
Nemaže Head1? Ani v tomto súbore?
Ja sa nehádam, proste som neprečítal tú nuansu.
A prečo by sa to malo spúšťať ešte raz? To zadávateľ neuviedol.
xlDown sa dá použiť, zadávateľ uviedol, že stlpec A je vždy vyplnený textom.
Inak pozri aj jeho koment z (23.5.2015 14:04)
No takéto zadania sú fakt úžasné.
@elninoslov.
Reagoval som na tvoj prvý súbor. Keby tam mal 20000 riadkov, tak to by si sa ukódoval. 
S tým Head1 máš pravdu. Len mi nie je jasné, či presne to chcel aj zadávateľ.
Ale ak je zaplnené všetko po Head4 dokonca aj Head5, tak to funguje podľa zadania.
Ale keď inak nedáš, tak takto.
Sub Posun()
For Each bunka In Range("A2", Range("A2").End(xlDown))
bunka.Offset(, 5).End(xlToLeft).Cut bunka.Offset(, 4)
Next bunka
End Sub
@elninoslov
Aj tak sa dá prohramovať.
Sub Posun()
For Each bunka In Range("A2", Range("A2").End(xlDown))
bunka.End(xlToRight).Cut bunka.Offset(, 4)
Next bunka
End Sub
A hľadáš "Internet Mall" alebo "=Internet Mall"?
Cells(4, 4).FormulaR1C1 = "=IF(R[" & prvnicislo + 5 & "]C[" & sloupecjc - 5 & "]="""","""",666)"
Síce netuším čo sleduješ, ale asi takto.
IF(A1>10;A1;IF(A1=0;0;10))
@elninoslov
Rozhodujúce pre určenie sadzby by asi mal byť začiatok. Koniec je irelevantný.
Inak trochu zvláštne zadanie.
napríklad takto
text = Replace(Text, "á", "a")
Ale to nerieši situáciu. Čo ak to řízení potrvá do 19:00?
Uživatelské menu
\nMenu
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.
RSS nejnovější články