|
|
| Řádek 1: |
Řádek 1: |
| Makra (Propojení s Microsoft Excel)
| |
|
| |
|
| == Převod na hodnoty ==
| |
| (označ vše, zkopíruj, vlož jinak - hodnoty)
| |
|
| |
| Cells.Select
| |
| Selection.Copy
| |
| Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
| |
| :=False, Transpose:=False
| |
|
| |
| Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
| |
| SkipBlanks:=False, Transpose:=False
| |
| Application.CutCopyMode = False
| |
| Range("A1").Select
| |
| End Sub
| |
|
| |
| == Obarvení názvu listu ==
| |
| Pevně určený název listu
| |
| Sheets("1.7.2015").Select
| |
| With ActiveWorkbook.Sheets("1.7.2015").Tab
| |
| .Color = 5287936
| |
| .TintAndShade = 0
| |
| End With
| |
|
| |
| Aktivní list
| |
| With ActiveWorkbook.ActiveSheet.Tab
| |
| .Color = 5287936
| |
| .TintAndShade = 0
| |
| End With
| |
|
| |
| == Zamknutí listu ==
| |
|
| |
| Sheets("1.6.2015").Select
| |
| ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
| |
|
| |
| == Jméno aktivního listu ==
| |
|
| |
| aktivni_list = ActiveSheet.Name
| |
|
| |
| == Odkazy ==
| |
| * [[Propojení s Microsoft Excel]]
| |
