• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

=KDYŽ(A1="D";10;KDYŽ(A1="";((C2-C1)*15)-0,7;"A co včil?"))

Sheets(CStr(u+2) & "d").Cells(2, 2) = "=List1!R[" & u & "]C[-1]"

Daj prílohu ako to vyzerá.

Naformátuj to ako text.

@elninoslov.
Ako to robíš? Vyrábaš riešenia skôr ako príde zadanie?

Alebo funkcia LOOKUP (vyhledat)

=LOOKUP("T", {"s","t","u","v";10,11,12,13})
Result: 11

=LOOKUP("Tech on the Net", {"s","t","u","v";10,11,12,13})
Result: 11

=LOOKUP("t", {"s","t","u","v";"a","b","c","d"})
Result: "b"

=LOOKUP("r", {"s","t","u","v";"a","b","c","d"})
Result: #N/A

=LOOKUP(2, {1,2,3,4;511,512,513,514})
Result: 512

Daj si to do tabuľky a použi SVYHLEDAT VLOOKUP

prípadne takto
Function PrveCisloZprava(text As String) As Variant
Dim i As Long, j As Long
PrveCisloZprava = "nenalezeno"
For i = Len(text) To 1 Step -1
j = Asc(Mid(text, i, 1))
If (j < 58) * (j > 47) > 0 Then PrveCisloZprava = Len(text) + 1 - i: Exit Function
Next i
End Function

For u = 1 to 20
Sheets(CStr(u+2))..Cells(2, 2) = "=List1!R[" & u & "]C[-1]"
Next

No mne sa aj tak "podarilo" vyplniť všetky štyri bunky.;)

Načo vo VBA?

Stačí aj takto
=INDIRECT(A8&"!c8")

zaokrúhli to. Je to tak malé číslo, že je to skoro nula.

Takto môže byť?
Viac oblastí bez makier ma teraz akosi nenapadá.

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje