• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

Načo pomocné stĺpce?
Klikni na to celkom(bunka C5) a vyber si položku filter
Väčsie alebo rovné 1500000

Snáď to ide aj v Excel 2003

No išlo by to takto nejako.

najmenšia => =MIN(ABS(List1!$A$1:$A$5))

Pri toľkých riadkoch to asi bude problém 9000 krát spustiť hľadanie riešenia niečo trvá. Paralelne to asi nepôjde. Je to dosť zložitý vzorec.
Nešlo by to skrátiť? neskúmal som o čo tam ide. Ale vyhodnocovať toľko výsledkov je makačka. Neviem na čo to slúži.

Možno by sa dalo skúsiť toto, ale asi úspora nebude veľká. Záleží aké sú dáta.

If bunka.Offset(0, -8) <> 0 Then bunka.GoalSeek Goal:=0, ChangingCell:=bunka.Offset(0, 1)

Asi som to dobre nepochopil.
Ale tie zmeny nemusíš vracať naspäť. Stačí ak ten súbor po vytvorení pdf proste neuložíš.

Neviem, či som to dobre pochopil.
skús toto makro


Sub reseni()
For Each bunka In Range("ad4:ad27")
bunka.GoalSeek Goal:=0, ChangingCell:=bunka.Offset(0, 1)
Next
End Sub

Nemám tu excel 2007.
Skús toto

Sheets(Array("Hárok1", "Hárok3", "Hárok2")).Select
ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\tisk.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

=LOOKUP(A1;{-99999;0;1235};{"nie";"ano";"nie"})

poprípade aj takto
=LOOKUP(C1;A1:A3;{"nie";"ano";"nie"})
A1=-9999999
A2=0
A3=1235

Skús priložiť súbor.

Pridám jednoduchšiu funkciu bez makra.

=OFFSET($A$1;0;SUMPRODUCT(ISNUMBER(SEARCH(oblast;$A3;1))*COLUMN(oblast))-1)

Nahraj ho do "modulu" tento zošit

Private Sub Workbook_Open()
TVOJE MAKRO
End Sub

Čistá matika.

Vyfarbi si jednu bunku a spusti makro. Snáď som to pochopil dobre.

Uprav si tabuľku podľa tvojich hodnôt

To pôjde jedine makrom. Ale keďže je to "různě rozhozené", tak aj to makro môže "různě vypadat"

A takto by to nemohlo byť? formátovať vzorce tak ako to chceš ty asi nejde.

Sub HorniIndex()
Range("C14:AG33").Select
For Each bunka In Selection
bunka.Value = bunka
Next
With Selection
.Characters(Start:=1, Length:=1).Font.Superscript = False
.Characters(Start:=2, Length:=4).Font.Superscript = True
End With
End Sub

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse