Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  109 110 111 112 113 114 115 116 117   další » ... 156
Podmíněné MAKRO (20.4.2014 11:10)

No bez súboru ťažko poradiť.
Snáď iba toľko, neukladaj tam funkciu RANDBETWEEN ale hodnotu. To urobíš makrom.

Podmíněné MAKRO (19.4.2014 15:44)

Select Case Range("A3")
Case 1
Call makro1
Case 1
Call makro2
Case 3
Call makro3
End Select

Podmíněné MAKRO (19.4.2014 15:37)

Merlin99 napsal/a:

Ahoj Pavlus mam jeste jednu prosbu na tebe potreboval bych aby kdyz v bunce A1 = 1 se zpustilo jedno makro ale kdyz bude v bunce treba A1 = 2 se zpustilo uplne jiny makro atd... a to uz s timahle radkama nejde... nejaky napad byl bych vdecny

takhle to taky nejde =/

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A3").Value = 1 Then
Call MAKRO1
elseIf Range("A3").Value = 2 Then
Call MAKRO2
elseIf Range("A3").Value = 3 Then
Call MAKRO3
End If
End Sub

Alebo
If Range("A3").Value = 1 Then Call MAKRO1
If Range("A3").Value = 2 Then Call MAKRO2
If Range("A3").Value = 3 Then Call MAKRO3
end sub
..

Výpočet buňky (19.4.2014 10:38)

Prípadne takto

Výpočet buňky (19.4.2014 10:34)

Alebo takto, pomocou pomenovaných názvov.

vzorec pre vypocet priemeru z podmnoziny udajov (19.4.2014 10:30)

No bez makier takto.
Neviem ako postupovať ak tam bude viacej rovnakých maximálnych hodnôt. 8

vzorec pre vypocet priemeru z podmnoziny udajov (17.4.2014 23:32)

takto?

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")


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