Příspěvky uživatele
< návrat zpět
Alebo takto, pomocou pomenovaných názvov.
No bez makier takto.
Neviem ako postupovať ak tam bude viacej rovnakých maximálnych hodnôt. 
takto?
=SUMPRODUCT((A1:A1000)*(LEFT(B1:B1000;1)="4"))
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
Uživatelské menu
\nMenu
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.
RSS nejnovější články