Příspěvky uživatele
< návrat zpět
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
@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"
Alebo aj vzorcom.
A toto ti ide?
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Ž).
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
If target.value="ano" then Sheets("List1").Range("A9:K9").Copy WorkBooks("Nový_sešit").Sheets("List2").Range("A2")
.End(xlUp)
IFERROR(výraz;"")
nahraď
IF(ISERROR(výraz);"";výraz)
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.
If Target.Address = "$O$9" Then
If target.value="ano" then Sheets("List1").Range("A9:K9").Copy Sheets("List2").Range("A2")
End If
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.
No tak ako to máš ty v tom vzorci, tak to akosi nesedí s tou tabuľkou. 
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)
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š.
Skús či vyhovuje.
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