Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  75 76 77 78 79 80 81 82 83   další » ... 84
kopirovanie (1.3.2010 16:57)

ahoj,
tohle by melo nakpirovat vse do do listu OrdresJ jednim vrzem...

Public Sub copy()
Dim lastROW As Integer

For i = 1 To 3
lastROW = Application.WorksheetFunction.CountA(Worksheets("ordresj").Range("a:a")) + 1

Worksheets("ordresj+" & i).Select
ActiveSheet.Range(Cells(2, 1), Cells(Application.WorksheetFunction.CountA(Worksheets("ordresj+" & i).Range("a:a")), 256)).copy

Worksheets("ordresj").Cells(lastROW, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Next

End Sub

kopirovanie (1.3.2010 15:32)

Jen tak na prvni pohled bych rekl, ze by mohlo byt na liste vic nez 5000 neprazdnych radek, coz ale asi vkladalo do bunky a2.
Slo by prilozit nejakou ukazku, abych se na to podival?

převod času jinak (1.3.2010 13:23)

Zdravim,
tohle neni otazka zobrazeni, protoze v excelovskym formatu ma hodnota 7min a 30sec opravdu hodnotu 0,00521... - pokud z tohoto čísla potřebujeme dostat hodnotu 7,5 - je potřeba ho vynásobit počtem minut v jednom dni, tedy hodnotou 1440, při zobrazení obecného čísla, bude potom vrácena hodnota 7,5.

výpočet ceny, 20 tis. (28.2.2010 16:29)

Je to jednoduche. Pokud jsou polozky pod sebou ve sloupci A, staci do bunky B1 vlozit tento vzorec:
=KDYŽ(A1<100;A1*1,1;A1*1,2) a roztáhnout ho ke všem řádkům.
Pokud je hodnota menší než 100, je násobena 1,1
pokud je větší nebo rovna 100, je násobena 1,2.

Excel nahradit (25.2.2010 11:29)

Tak zkus pro priste definovat problem presne, jinak ti nikdo nemuze pomoct.
vzorec: ="R/"&ČÁST(A1;1;NAJÍT("-ZF";A1)-1)

Excel nahradit (25.2.2010 11:06)

jestli je text, ktery je treba nahradit v bunce A1, zkus vzorec:
="R/" & ZLEVA(A1;3)

Excel mezery (24.2.2010 20:49)

Zdravim, pokud je tam vzdy jen jedna mezera, jde to udelat vzorcem:
=DOSADIT(A1;" ";""), kde v A1 je zmíněný text s mezerou

seznam hodnot v tab. (24.2.2010 20:44)

Kontingenčka jde použít, ale pokud vim, tak kontingencni tabulku je nutne obnovit, takze to neni, jak jsi to nazval "on-line". Nicmene, ten muj vzorec je zas hodne narocnej na prepocitavani, coz by slo snadno upravit, suzenim oblasti, kterou jsem definoval jako A:A, napr. suzeni na A1:A1000

seznam hodnot v tab. (24.2.2010 20:11)

Tak tohle mi dalo hodne zabrat, ale nasledujici vzorec umi ze seznamu ve sloupci A na Listu1 vybrat pouze unikatni zaznamy.
Oznac napr. sloupec B na jiném listu a pri tomto oznaceni zadej do editačního řádku tento vzorec: =KDYŽ(JE.CHYBHODN(INDEX(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));SMALL(KDYŽ(POZVYHLEDAT(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));0)=ŘÁDEK(NEPŘÍMÝ.ODKAZ("1:"&ŘÁDKY(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*")))));POZVYHLEDAT(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));0);"");ŘÁDEK(NEPŘÍMÝ.ODKAZ("1:"&ŘÁDKY(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"))))))))=PRAVDA;"";INDEX(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));SMALL(KDYŽ(POZVYHLEDAT(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));0)=ŘÁDEK(NEPŘÍMÝ.ODKAZ("1:"&ŘÁDKY(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*")))));POZVYHLEDAT(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"));0);"");ŘÁDEK(NEPŘÍMÝ.ODKAZ("1:"&ŘÁDKY(NEPŘÍMÝ.ODKAZ("List1!a1:a"&COUNTIF(List1!A:A;"*"))))))))
vzorec ukonči stiskem CTRL+SHIFT+ENTER

SMAZAT ŘÁDEK - EXCEL (23.2.2010 13:46)

Pokud o uceni se VBA, to se resilo tady: http://wall.cz/index.php?m=topic&id=1121, ale jestli jde jen o to najit konkretni metody, lze si pozadovanou akci nahrat pomoci zaznamu maker a upravit si vytvoreny kod...

seznam hodnot v tab. (23.2.2010 13:43)

Jednou z moznosti je pouzit Rozšíření filtr - Data/Filtr/Rozsireny filtr - bez duplicitnich zaznamu

SMAZAT ŘÁDEK - EXCEL (23.2.2010 9:47)

Zdravím,
je otázka, jestli se má procedura spouštět na základě nějake akce automaticky nebo ji spustit uzivatel; tato procedura zkontroluje prvni sloupec aktivniho radku a pokud se tato bunka rovna "hodnota", smaze cely radek.

Sub DeleteRow()

If Cells(ActiveCell.Row, 1) = "hodnota" Then

Rows(ActiveCell.Row).Select
Selection.Delete Shift:=xlUp

End If

End Sub

Makro-odkazy na soubor (23.2.2010 9:29)

tahle procedura vypise vsechny soubory s priponou .dxf do buněk na listu (pocinaji bunkou A1)

Sub HONORARE_soubory()
Dim f As String
Dim Cesta As String
Dim i As Integer

Cesta = "C:\Documents and Settings\Poki\Dokumenty\" 'Cesta musí končit znakem '\'

ChDir Cesta
f = Dir(Path & "*.dxf")
i = 1

While f <> ""
Cells(i, 1) = f
i = i + 1
f = Dir()
Wend

End Sub

součet skalár. součinů (22.2.2010 16:05)

Zdravice,
tohle jsem teda vůbec nepochopil (a asi ani jini, kdyz nikdo neodpovedel), ale pokud potrebujes soucet skalarnich soucinu sloupce A s dalsimi, tedy A*B + A*C + A*D + A*E, pak lze pouzit tento maticovy vzorec (je treba ukoncit CTRL+SHIFT+ENTER)

=SUMA((A1:A5)*(B1:B5);(A1:A5)*(C1:C5);(A1:A5)*(D1:D5);(A1:A5)*(E1:E5))

Vyhledání a sečtení (22.2.2010 15:55)

Nevim, jestli jsem to dobře pochopil, protože tech linek a typů poruch je tam moře a nevim, co přesně je požadovaný výstup.

Pokud chceš sečíst např. poruchu 'OK Start' u linky 'F16', lze použít tento matickový vzorec (musí se ukončit CTRL+SHIFT+ENTER)

=SUMA((H34:H1838="FIN16")*(E34:E1838="OK Start")*(D34:D1838))


Strana:  1 ... « předchozí  75 76 77 78 79 80 81 82 83   další » ... 84

Uživatelské menu

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

Menu

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.

On-line nástroje