https://prirucky.ksprogram.cz/index.php?action=history&feed=atom&title=Makra_%28Propojen%C3%AD_s_Microsoft_Excel%29 2026-10-17T07:36:05Z Historie editací této stránky MediaWiki 1.37.2 https://prirucky.ksprogram.cz/index.php?title=Makra_(Propojen%C3%AD_s_Microsoft_Excel)&diff=24098&oldid=prev 2015-07-27T14:34:19Z

<p>Založena nová stránka: &#039;&#039;&#039;Makra (Propojení s Microsoft Excel)&#039;&#039;&#039; == Převod na hodnoty == (označ vše, zkopíruj, vlož jinak - hodnoty) Cells.Select Selection.Copy Selection.PasteSp…</p> <p><b>Nová stránka</b></p><div>'''Makra (Propojení s Microsoft Excel)'''<br /> <br /> == Převod na hodnoty ==<br /> (označ vše, zkopíruj, vlož jinak - hodnoty)<br /> <br /> Cells.Select<br /> Selection.Copy<br /> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _<br /> :=False, Transpose:=False<br /> <br /> Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _<br /> SkipBlanks:=False, Transpose:=False<br /> Application.CutCopyMode = False<br /> Range(&quot;A1&quot;).Select<br /> End Sub<br /> <br /> == Obarvení názvu listu ==<br /> Pevně určený název listu<br /> Sheets(&quot;1.7.2015&quot;).Select<br /> With ActiveWorkbook.Sheets(&quot;1.7.2015&quot;).Tab<br /> .Color = 5287936<br /> .TintAndShade = 0<br /> End With<br /> <br /> Aktivní list<br /> With ActiveWorkbook.ActiveSheet.Tab<br /> .Color = 5287936<br /> .TintAndShade = 0<br /> End With<br /> <br /> == Zamknutí listu ==<br /> <br /> Sheets(&quot;1.6.2015&quot;).Select<br /> ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True<br /> <br /> == Jméno aktivního listu ==<br /> <br /> aktivni_list = ActiveSheet.Name<br /> <br /> == Odkazy ==<br /> * [[Propojení s Microsoft Excel]]</div>

Petrm