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

Příspěvky uživatele

V tomto příkladu se názvy listů v celkovém souboru musí jmenovat stejně jako importované soubory.


Sub copy_data_from_files()
'Zkopírování dat ze souborů

Dim soubory, soubor, nazev_souboru, tento_soubor As String
Dim i As Variant

Application.ScreenUpdating = False
soubory = Array("soubor01", "soubor02", "soubor03", ... )

tento_soubor = ThisWorkbook.Name

For Each i In soubory

soubor = i
nazev_souboru = ThisWorkbook.Path + "\" & soubor

Set wb = Workbooks.Open(Filename:=nazev_souboru)
Cells.Select
Selection.Copy

Windows(tento_soubor).Activate
sheets(soubor).Select
ActiveSheet.Paste
Range("A1").Select

Windows(soubor).Activate
Application.CutCopyMode = False
ActiveWindow.Close SaveChanges:=False

Next

Windows(tento_soubor).Activate
Application.ScreenUpdating = True

End Sub

Řešením by bylo použití funkce NEPŘÍMÝ.ODKAZ, kde by bylo uvedeno:

v A1: C8 (adresa buňku, zapsat jako text)
v A2: List2 (název listu, zapsat jako text)
v A3: =NEPŘÍMÝ.ODKAZ(A2&"!"&A1) (vzorec vrátí obsah buňky C8 na listu List2

Podle potřeb lze modifikovat a kopírovat tak, aby jste získal potřebná data.

Netestoval jsem to na Pocket PC, takže netuším. Pravděpodobně Pocket PC nepodporuje všechny funkce.

V nastavení stylů v system.css.

Vytvoř si na listu zaškrtávací tlačítko. Otevři si editora maker a zkopíruj kód do objektu listu. Vrať se zpět do sešitu a zaškrtni tlačítko.

Příklad pro skrytí/zobrazení řádků 10 až 20


Private Sub CheckBox1_Click()

'Skrýt řádky
If CheckBox1.Value = True Then
CheckBox1.Caption = "Zobrazit"
Rows("10:20").EntireRow.Hidden = True
End
End If

'Zobrazit řádky
If CheckBox1.Value = False Then
CheckBox1.Caption = "Skrýt"
Rows("10:20").EntireRow.Hidden = False
End
End If

End Sub

Bez makra to asi nepůjde. To makro může být přímo na listu a navázáno na událost Change na listu. To se pak chová dynamicky => makro je spuštěno jakoukoliv změnou na listu (nebo jen určité oblasti na listu).

Stačí se jen podívat do fóra:
http://wall.cz/index.php?m=topic&id=362

Soubor zatím měnit nebudu.

Určitě jsou např. excel2html. Já mám v plánu vytvořit vlastní doplněk pro Excel, který bude označenou oblast buněk exportovat do HTML.

Finta neexistuje, ale máme tu makra . Uvedený příklad je pro názvy filmů s hypertextovými odkazy ve sloupci A. Odkaz bude zapsán do vedlejší buňky, tedy sloupce B.

Sub hyperlinky()

Range("A1").Select
For Each h In Worksheets(1).Hyperlinks
ActiveCell.Offset(1, 0).Select
Cells(ActiveCell.Row, ActiveCell.Column + 1) = h.Address
Next

End Sub

Dobrý den.
Zvýraznit aktivní buňku lze jen makrem.

Zaškrtávací políčko ve Formátu ovládacího prvku propojte v buňkou (např. A1).

V buňce A1 se následně po zaškrtnutí tlačítka zobrazí PRAVDA a po odškrtnutí NEPRAVDA.

Do buňky B1 zadejte vzorec =KDYŽ(A1=PRAVDA;"X";""). Teď už jen stačí textové pole propojit s buňkou B1, tak že kliknete na textové pole a do Řádku vzorců napíšete =B1.

V Excelu 2007 klikněte pravým tlačítkem myši na panel Rychlý přístup, zvolte položku Přizpůsobit panel nástrojů Rychlý přístup. V dialogovém okně zvolte buď variantu Příkazy mimo pás karet nebo Všechny příkazy.
Vyberte položku Formulář v levém panelu a tlačítkem Přidat ji doplňte do panelu nástrojů Rychlý přístup.

Jestli se jedná o chybu na free hostingu, tak s tím ti neporadím

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje