Stránka 1 z 1
Otevření několika Excelů v několika oknech
Napsal: 23 led 2015 11:33
od DarkKnight
Ahoj,
Máme v práci menší problém s okny Excel. Pracujeme s několikami tabulkami které se ale otevírají v jednom master okně. A když potřebujeme přeskakovat mezi nimi musíme překlikávat klikáním dole na liště.
Nejdě nějak nastavit aby každý otevřený .xlsx soubor měl svoje master okno a bylo možné mít jeden excel na jedné obrazovce a druhý na druhé?
Díky moc.
Re: Otevření několika Excelů v několika oknech
Napsal: 23 led 2015 15:18
od Azuzula
Ahoj,
Excel můžeš spustit několikrát a pak v každém okně z nabídky "Soubor" otevřít potřebný sešit.
Nebo otevírat ty sešity makrem.
Kód: Vybrat vše
Sub otevrit_v_novem_okne()
Dim appXL As New Excel.Application
appXL.Workbooks.Open "C:\priklad.xlsm"
appXL.Visible = True
End Sub
Taky existuje možnost nastavení přímo v registrech win, ale osobně bych se do toho nepouštěla.
Re: Otevření několika Excelů v několika oknech
Napsal: 23 led 2015 19:16
od VOM
Dobrý den
Používám E2010 a tohle makro. Čísla si upravte dle svých monitorů.
Mám zkušenost, že když otevřu dva Excely špatně funguje schránka (přenese jen hodnoty, nikoliv vzorce). Do registrů bych rozhodně nesahal.
Option Explicit
Private Const SM_CXVIRTUALSCREEN = 78
Private Const SM_CYVIRTUALSCREEN = 79
Private Declare Function GetSystemMetrics Lib "user32" ( _
ByVal nIndex As Long) As Long
Sub FillVirtualScreen()
With Application
.WindowState = xlNormal
.Left = 90
.Top = 0
.Width = 2695
.Height = 870
End With
ActiveWindow.WindowState = xlNormal
With ActiveWindow
.Top = 2.34
.Left = 1.672
.Width = 1190
.Height = 645
End With
Windows.Arrange ArrangeStyle:=xlVertical
End Sub
Snad jsem to zkopíroval správně.
Milan
Re: Otevření několika Excelů v několika oknech Vyřešeno
Napsal: 28 led 2015 17:42
od DarkKnight
Díky moc,
Předám kolegům v práci.
