Příspěvky uživatele

Nejjednodušší bude to zkombinovat :-):

ActiveSheet.Protect "heslo", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingColumns:=True, AllowInsertingHyperlinks:=True, AllowFiltering:=True

M@

Zkuste přiložit soubor s listem před a po vložení odkazů, ve chvíli volna na to mrknu.

M@

Tak jinak :-), podle čeho vy víte, do kterých buňek těch cca 20 odkazů vložit? Jedná se pokaždé o stejný odkaz, nebo i ten se má měnit?

Nějaké pravidlo tam být musí podle kterého vkládáte odkazy tam, či onam.

Vypadá to, že bez makra to asi nepůjde.
Nějaký příklad by pomohl.

M@

Ahoj,

pomocí data -> ověření lze vyhodit hlášku.

Zvuk lze rozeznít snad jedině makrem, přikládám příklad.

Zdrojový kód jsem čerpal z: http://programujte.com/?akce=clanek&cl=2007123000-visual-basic-jak-pridat-zvuk-a-rozezvucet-ho a trochu ho upravil pro danou potřebu.

M@

Nějak nevím v čem je problém, při použití Ctrl+C a následném Ctrl+V se vloží obsah kopírované buňky se vším všudy, tudíž i s odkazem.

Někdo může mít problém s tím jak buňku vybrat, aby mohl sticknout Ctrl+C, když je na ní odkaz a při kliknutí se otvírá :-), ale to asi nebude tento případ :-)

Sice nemám 2007 (měl jsem zkušební verzi a byl jsem z ní nešťastnej), ale předpokládám, že se to bude chovat podobně.
Zkus na tu buňku kde místo výsledku vidíš vzorec kliknout pravým tlačítkem, vybrat formát buňek, nastavit obecný a OK. Poté pořád na stejné buňce stiskni F2 (editace) a beze změny zmáčkni Enter. Je tam pořád vzorec, nebo výsledek?

M@

Poupravit svůj kód, který nefunguje jak by měl, nebo cizí? :-)
Vždycky je lepší, když na to člověk přijde sám, ale sám vím, že je občas potřeba nějaké to nasměrování.

Následující kód vloží nový řádek (oblast D-IV), oblast lze měnit.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
List1.Unprotect "heslo"
If ActiveCell = "zkopíruj" Then
Range("D" & ActiveCell.Row, "IV" & ActiveCell.Row).Copy
Range("D" & ActiveCell.Row + 1, "IV" & ActiveCell.Row + 1).Insert Shift:=xlDown
End If
List1.Protect "heslo"
End Sub

M@

Tady se obávám, že excel předem neví na kolik stránek bude tisknout a tudíž ani takovou funkci neobsahuje, ale třeba se mýlím :-)

Záleží na počtu vložených fotek, je-li jich pár, tak vybrat jednu, zmáčknout Ctrl+C, otevřít malování a stisknout Ctrl+v a uložit.

Je-li jich moc, tak bych doporučil:
Soubor -> Uložit jako webovou stránku -> vybrat List a umístění -> Uložit. Poté se na daném umístění objeví i složka "název stránky_soubory" a v té najdete veškeré obrázky z daného excelu jako jednotlivé soubory.

Ahoj,

to nezní moc jako podmíněné formátování.
Do buňky D1 vzorec
=Když(A1="Grafton";"Student";"")

ale nějak mi uniká to podmíněné formátování.
Kdyžtak mi to trochu přibliž :-).

M@

přidat tlačítko, přiřadit makro, nové a mezi Sub a End Sub vložit kód:
activecell = now
nebo definovat konkrétní buňku
cells(1,1) = now

M@

Na to vkládání pod část řádku se budu muset podívat a odzkoušet, to až později :-).

K tomu zamčenému listu, stačí na začátek makra přidat:
List1.unprotect "heslo"
a na konec zase
List1.protect "heslo"

nebo tak podobně - ztovna to nemám kde zkusit, tak jedu z hlavy :-).

To tlačítko by mělo být na každém řádku? Pokud ano, tak se přiznám, že nevím jak zjistit na jakém řádku se nachází.
Pokud by stačilo jedno (někde nahoře) a nový řádek by se měl vkládat vždy pod první tak pro daný soubor by to bylo pomocí makra na daném tlačítku:

Sub radek()
Rows("8:8").Copy
Rows("9:9").Insert Shift:=xlDown
End Sub

nebo lze upravit, aby nový řádek byl vložen vždy pod aktivní:

Sub radek()
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End Sub

Snad to pomůže

PS:
ještě mě napadla jedna možnost :-)
na řádku nemusí být tlačítka ale buňka s formátováním, tak aby to vypadalo jak tlačítko a makro bude reagovat na definovaný text (pokud jsi vybral buňku s textem "zkopíruj", tak vlož nový řádek pod aktuální kopií z aktuálního:

If ActiveCell = "zkopíruj" Then
Rows(ActiveCell.Row).Copy
Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
End If

M@

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje