Excel+VBA – vložit jako text

Asi to znáte – kopírujete odněkud text do Excelu a on se tam vloží i s formátováním. Jasně, můžete jít na Home / Paste / Paste special / Insert as Unicode, nebo Home / Paste / Paste values (podle toho, jestli vkládáte text z nějakého dokumentu, či jestli vkládáte hodnoty z nějaké excelové tabulky) – ale to je samozřejmě otravné a zdržující.

Takže pro tyto účely jsem si vytvořil toto makro, kterému jsem přiřadil myslím dobře zapamatovatelnou zkratku CTRL+SHIFT+V.

Makro nejdřív zkusí obsah schránky vložit jako Excelové hodnoty, když se nezadaří, tak to zkusí jako Unicode text, a když ani to nejde, tak prostě jen pípne.

Sub Vlozit_jako_text()
'
' Vlozit_jako_text Makro
'
' Klávesová zkratka: Ctrl+Shift+V
'
On Error GoTo unicode
 Selection.PasteSpecial Paste:=xlPasteValues
 Exit Sub
unicode:
 On Error GoTo finish
 'ActiveSheet.PasteSpecial Format:="Text v kódu Unicode"
 ActiveSheet.PasteSpecial Format:="Unicode Text"
 Exit Sub
finish:
 Beep
 
End Sub

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *