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

Příspěvky uživatele

EXCEL - podmíněné formátování.
VBA - musíš to dát do cyklu.

Sub ProFormat()
Dim rdW As Byte
For rdW = 2 To 20
If Cells(rdW, 1) < Cells(1, 2) And Cells(rdW, 3) = "open" Then
With Union(Cells(rdW, 1), Cells(rdW, 3)).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 6684927
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
Next rdW
End Sub

Pole nejprve deklarovat až potom naplnit.
"i" definovano porad 0 tzn. že Pole(i-1) je pole(-1) => chyba!
Proč makro?
V Excelu naplň hodnoty do sloupců a pak funkce VYHLEDAT.
Nebo přímo vzorec:
Hodnota Odporu > R1C1 = Vstup
Teplota > R1C2 "=ZAOKROUHLIT((R1C1-80,31)^1,0094;0)*2,5-50"

Pokud se nejedná o PasteSpecial, proč Activate, Select.
Stačí přímo,

Sheets("List1").Activate
With ActiveSheet.Range(Cells(1, 1), Cells(10, 10))
.Copy Sheets("List2").Cells(1, 1)
.Copy Sheets("List3").Cells(1, 1)
End With

nebo v cyklu

For xL = 2 To 3
ActiveSheet.Range(Cells(1, 1), Cells(10, 10)).Copy Sheets(xL).Cells(1, 1)
Next xL

zaslán soubor

Ten "=HYPERTEXTOVÝ.ODKAZ((SVYHLEDAT($F$10;seznam;44;0)))" ti vrací "Nelze otevřít zadaný soubor", protože v seznamu u těch hypertextových odkazů se neshodují adresa a zobrazený text.
Řešení? Zobrazený text = adresa, přidat do seznamu sloupec(např.45), do něj vložit požadovaný název odkazu a pak HYPERTEXTOVÝ.ODKAZ(umístění;název)=>
"=HYPERTEXTOVÝ.ODKAZ(SVYHLEDAT($F$10;seznam;44;0);SVYHLEDAT($F$10;seznam;45;0))"!

Zdravím v Novém roce! Už asi měsíc mi nejde otevřít web. stránka "excelplus.net". Adresa se neobjevuje ani ve výsledcích vyhledávačů. Na googlu nemůžu nic najít a tak využívám tohoto fora. Nemáte prosím někdo tušení proč to?! Díky!

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje