Příspěvky uživatele
< návrat zpět
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@
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články