Příspěvky uživatele


< návrat zpět

Strana:  1 ... « předchozí  73 74 75 76 77 78 79 80 81   další » ... 156
Challenge - odstranění sloupců s podmínkou (4.12.2015 10:58)

No ak by ten LABEL bol prekážkou, tak takto
Sub aaa()
Columns(WorksheetFunction.Match(10, Range("1:1"), 0)).Delete
If WorksheetFunction.CountIf(Rows(1), 10) > 0 Then Call aaa
End Sub

Úplne blbuvzdorné to nie je. Ak v riadku nebude žiadna hodnota 10, tak to skončí chybou.

Challenge - odstranění sloupců s podmínkou (3.12.2015 14:56)

No na rekurziu by to išlo aj takto. Skončí to síce chybou, ale zadanie splní. 2
Sub rekur()
Columns(WorksheetFunction.Match(10, Range("1:1"), 0)).Delete
Call rekur
End Sub

Challenge - odstranění sloupců s podmínkou (3.12.2015 12:36)

Takže takto?
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).Replace What:="10", Replacement:="=na()", LookAt:=xlWhole
Range(Cells(1, 1), Cells(1, Columns.Count).End(xlToLeft)).SpecialCells(xlCellTypeFormulas, 23).EntireColumn.Delete

Challenge - odstranění sloupců s podmínkou (3.12.2015 11:55)

Za predpokladu že sa tam nenachádza prázdna bunka asi takto

Range(Cells(1, 1), Cells(1, 1).End(xlToRight)).Replace What:="10", Replacement:=""
Selection.SpecialCells(xlCellTypeBlanks).EntireColumn.Delete

#HODNOTA! místo prázdný bunky (2.12.2015 14:39)

Keby len vzorec. Celé zadanie je akési divné.

#HODNOTA! místo prázdný bunky (2.12.2015 14:11)

Ale fungovala. Keď nenašla, tak zahlásila chybu.

Součet hodnot - fixní hodnota + hodnota z řádku (2.12.2015 13:52)

Ano hloupá otázka. Nikto netuší o čo tu ide.

Možno =SUMA(99;A1:X1)

#HODNOTA! místo prázdný bunky (2.12.2015 13:31)

=IFERROR(IF(FIND("A";A1;1);MID(A1;1;FIND("C";A1;2));" ");"")

automaticky vygenerované čísla (1.12.2015 12:04)

lubo napsal/a:

Třeba RANDBETWEEN

Aj toto je dobrá odpoveď na "geniálnu" otázku. 2

automaticky vygenerované čísla (1.12.2015 11:58)

No keďže príloha žiadna nie je, tak možno takto pre tri zošity

=SUM(SUMIF([Zošit2]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit2]Hárok1!$B$1:$B$10);SUMIF([Zošit3]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit3]Hárok1!$B$1:$B$10);SUMIF([Zošit4]Hárok1!$A$1:$A$10;Hárok1!A1;[Zošit4]Hárok1!$B$1:$B$10))

SUM=SUMA pre český excel
V bunke b1 na Hárku1 v Zošit1 je zadané konkrétne meno. Ale to asi nebude pre teba problém zistiť.

spustit makro hyperlinkem (30.11.2015 16:53)

No nejaký spôsob by bol. Ale to by chcelo viac ako si uviedol. Čo napríklad robí ten hyperlink???

Podmíněné makra (30.11.2015 10:16)

@Vovka
Makro som zobral z prílohy od Opičáka. Samozrejme že GoTo ex je zbytočné. Iba som tam vložil dva riadky. Nemám potrebu sa v tom ďalej špárať.

Přepínač (30.11.2015 10:05)

Urob si na to procedúru. Ani mne sa nechce pridávať prílohu. 4

Podmíněné makra (29.11.2015 21:25)

Merlin99 napsal/a:

Jen mě napadlo nebylo by možný aby se kazdy makro spustilo jen jednou i kdyz kliknu jinam do bunky tak se zpusti zase to same slo by to bez toho? díky moc


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("K2")) Is Nothing Then
Application.EnableEvents = False
Select Case Range("K2")
Case 1: Call Makro1: GoTo ex
Case 2: Call Makro2: GoTo ex
Case 3: Call Makro3: GoTo ex
Case 4: Call Makro4: GoTo ex
Case 5: Call Makro5: GoTo ex
End Select
ex:
Application.EnableEvents = True
End If
End Sub

Zobrazeni/skryti sloupcu - VBA (27.11.2015 11:11)

pepe74287 napsal/a:

eLCHa: Jednoducha a zaroven genialni myslenka :-)

Diky

Neviem prečo geniálna. Veď pomenovanie oblasti predsa slúži na podobné účely.


Strana:  1 ... « předchozí  73 74 75 76 77 78 79 80 81   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