Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  109 110 111 112 113 114 115 116 117   další » ... 156
funkce SUMIF (15.4.2014 14:35)

=SUMPRODUCT((A1:A1000)*(LEFT(B1:B1000;1)="4"))

Cele číslo VBA (14.4.2014 18:19)

Wally napsal/a:

Dobrý den, potřebovala bych poradit jak definovat celé číslo a číslo desetinné.
Chci napsat makro:
pokud je číslo celé, tak....
POkud je číslo desetinné, tak...

Děkuji.


Sub aa()
i = 15
If Fix(i) = i Then
MsgBox "cele"
Else
MsgBox "desatinne"
End If
End Sub

Funkce KDYŽ a SVYHLEDAT - zobrazení více záznamů (14.4.2014 10:31)

@eLCHa

Veď nemusí to byť funkcia. Stačí makro ktoré sa spustí iba keď to bude potrebné

For each bunka in selection
bunka.offset(0,1)= "Vzorce od opičáka"

rozdělení textu a čisla (12.4.2014 10:12)

Alebo aj vzorcom.

rozdělení textu a čisla (12.4.2014 9:56)

A toto ti ide?

zaškrtávací políčko (12.4.2014 7:58)

Akosi nechápem dôvod. Nestačí zobraziť ANO alebo NE? Načo tam má byť ešte aj to druhé prečiarknuté?
Stačil by jednoduchý IF (KDYŽ).

rozdělení textu a čisla (12.4.2014 7:48)

mikkinachtik napsal/a:

dalo by se to nějak napsat do makra?


Public Function lavý(text As String) As String
text = Replace(text, Chr(10), " ")
a = Split(text, " ")
lavý = a(0)
End Function

Public Function pravý(text As String) As Long
text = Replace(text, Chr(10), " ")
a = Split(text, " ")
pravý = a(1)
End Function

Kopírování do jiného sešitu (9.4.2014 9:17)

If target.value="ano" then Sheets("List1").Range("A9:K9").Copy WorkBooks("Nový_sešit").Sheets("List2").Range("A2")

Výbě souvislé oblasti - první prvek (9.4.2014 9:07)

.End(xlUp)

Rozevírací seznam bez prázdných buňek (7.4.2014 19:18)

IFERROR(výraz;"")
nahraď

IF(ISERROR(výraz);"";výraz)

POUŽITÍ FUNKCE "KDYŽ" ,"A", (7.4.2014 15:33)

Skús toto Urobil som to pre RT a PT ostatné si doplň analogicky.
V tabuľke chýbajú niektoré rozsahy. Treba to doplniť.
Preštuduj si funkciu SVYHLEDAT.

Kopírování do jiného sešitu (7.4.2014 14:50)

If Target.Address = "$O$9" Then

If target.value="ano" then Sheets("List1").Range("A9:K9").Copy Sheets("List2").Range("A2")

End If

POUŽITÍ FUNKCE "KDYŽ" ,"A", (6.4.2014 21:22)

Ivo K. napsal/a:

DOBRÁ ZKUSÍM TO. MŮŽU TI PSÁT NA EMAIL? ASI TO BUDE DELŠÍ, ABYCH TU ZBYTEČNĚ NEOTRAVOVAL.

Obávam sa, že sem chodím častejšie ako na email.
Kľudne môžeš otravovať tu. 5

POUŽITÍ FUNKCE "KDYŽ" ,"A", (6.4.2014 17:17)

No tak ako to máš ty v tom vzorci, tak to akosi nesedí s tou tabuľkou. 4

A môžeš ten môj vzorec
=VLOOKUP(C9;INDIRECT(VLOOKUP(D9;$U$6:$V$10;2;0));3;1)

nahradiť

=VLOOKUP(IF(C9="";I9;C9);INDIRECT(VLOOKUP(D9;$U$6:$V$10;2;0));3;1)

POUŽITÍ FUNKCE "KDYŽ" ,"A", (6.4.2014 15:15)

Ivo K. napsal/a:


To má být výsměch nebo jak? Nevím jak na to tak jsem to prostě zkusil takto.

Prečo hneď výsmech.
Vôbec som nemal chuť lúštiť ten vzorec. A ani som ho nelúštil. A podľa všetkého asi ani nikto iný.
Vieš si predstaviť, keby si si tam mal hľadať nejakú chybu?????

Radšej si skontroluj, či to robí tak ako si to predstavuješ.


Strana:  1 ... « předchozí  109 110 111 112 113 114 115 116 117   další » ... 156

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