Uložit tabulku v excelu pouze jako hodnoty
Uložit tabulku v excelu pouze jako hodnoty
Potřeboval bych tabulku vytvořenou v MS Excel uložit pouze jako hodnoty se zachováním formátování atd. Tzn., aby se místo vzorů uložily pouze hodnoty. Pokud by někdo věděl o nějakém makru, byl bych velmi rád....
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Mohu ti na to udělat makro. Data ve všech listech v excelu budou změněny na hodnoty tj. žádné vzorce.
mmmartin : bohatě stačí
mmmartin : bohatě stačí
"Nabrat" tabulku myší, Ctrl+C, Úpravy/Vložit jinak/zvolit Hodnoty
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Nic nepíšeš a já musím letět do práce...
Počítám s tím, že jediné řešení bude makro, tak jsem ti ho napsal.
Doufám, že víš jak ho dostat do Excelu. Jestli ne, tak tady je návod.
1. Otevři Excel.
2. Otevři Visual basic ( Nástroje --> Makro --> Editor jazyka Visual Basic [nebo použij zkratku Alt+F11] )
V basicu :
Insert --> Module
a do prázdného okna zkopíruj výše uvedené makro. Zavři basic ( Alt+F4)
Spuštění makra :
1. Nástroje --> Makro --> makra... ( Zkratka Alt+F8 )
2. Vyber makro s názvem "hodnoty" a klikni na tlačítko "Spustit"
Snad dobře vysvětleno.
Počítám s tím, že jediné řešení bude makro, tak jsem ti ho napsal.
Kód: Vybrat vše
Sub hodnoty()
'potvrzení, že opravdu chceš spustit makro
If MsgBox("Spustit makro?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
'vybere všechny záložky
Sheets.Select
'vybere všechny buňky
Cells.Select
'zkopíruje na hodnoty
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'potvrzení o ukončení makra
MsgBox ("Hotovo")
End Sub
Doufám, že víš jak ho dostat do Excelu. Jestli ne, tak tady je návod.
1. Otevři Excel.
2. Otevři Visual basic ( Nástroje --> Makro --> Editor jazyka Visual Basic [nebo použij zkratku Alt+F11] )
V basicu :
Insert --> Module
a do prázdného okna zkopíruj výše uvedené makro. Zavři basic ( Alt+F4)
Spuštění makra :
1. Nástroje --> Makro --> makra... ( Zkratka Alt+F8 )
2. Vyber makro s názvem "hodnoty" a klikni na tlačítko "Spustit"
Snad dobře vysvětleno.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Není problém. Tady je aktualizované makro :
Makro se tě ke konci zeptá, jak se bude jmenovat dokument s daty změněnými na hodnoty. Název zadej a potvrď.
Dokument se ti uloží vedle originálu.
Kód: Vybrat vše
Sub hodnoty()
'potvrzení, že opravdu chceš spustit makro
If MsgBox("Spustit makro?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
'vybere všechny záložky
Sheets.Select
'vybere všechny buňky
Cells.Select
'zkopíruje na hodnoty
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
'uložit jako
Name = InputBox("zadej název dokumentu", "", vbOKCancel)
ActiveWorkbook.SaveAs Filename:=Name
'potvrzení o ukončení makra
MsgBox ("Hotovo")
End Sub
Makro se tě ke konci zeptá, jak se bude jmenovat dokument s daty změněnými na hodnoty. Název zadej a potvrď.
Dokument se ti uloží vedle originálu.
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
- mike007
- Master Level 7.5
- Příspěvky: 5860
- Registrován: srpen 07
- Bydliště: Pardubice
- Pohlaví:
- Stav:
Offline
- Kontakt:
Divné. No tak zkus tohle. K originálnímu souboru by se to mělo uložit ať je kdekoliv.
Kód: Vybrat vše
Sub hodnoty()
'potvrzení, že opravdu chceš spustit makro
If MsgBox("Spustit makro?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
'vybere všechny záložky
Sheets.Select
'vybere všechny buňky
Cells.Select
'zkopíruje na hodnoty
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
'uložit jako
Name = InputBox("zadej název dokumentu", "", vbOKCancel)
'cesta k souboru zustane stejna jako k originalu
ChDir ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Name
'potvrzení o ukončení makra
MsgBox ("Hotovo")
End Sub
Nejlepší hra je Excel!
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
• Pravidla fóra PC-help • Jak označit téma za vyřešené
»»»»»»»»»»»»»»»»»»»»»»»
UPOZORNĚNÍ - můj Skype, Soukromé zprávy či email neslouží jako tech. podpora.
Dotazy pište do fóra. Od toho tu je.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
Nastavení měřítka obrazovky na jiné, než předdefinované hodnoty Příloha(y)
od Grander » 29 čer 2023 17:34 » v Windows 11, 10, 8... - 0
- 1067
-
od Grander
Zobrazit poslední příspěvek
29 čer 2023 17:34
-
-
- 18
- 3520
-
od luko02420
Zobrazit poslední příspěvek
16 kvě 2023 11:27
-
- 0
- 770
-
od Jsimi
Zobrazit poslední příspěvek
06 úno 2024 22:43
-
- 2
- 1314
-
od X
Zobrazit poslední příspěvek
02 čer 2023 18:06
-
- 4
- 2171
-
od ski1961
Zobrazit poslední příspěvek
08 říj 2023 11:40
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 3 hosti