2 exceluri deschise, pe 2 monitoare
-
- Mesaje: 18
- Membru din: Vin Oct 23, 2009 1:33 pm
2 exceluri deschise, pe 2 monitoare
Buna,
am si eu o intrebare. Lucrez pe 2 monitoare si vreau sa pot deschide pe embele monitoare, 2 exceluri dar nu pot. Oricate exceluri as avea deschide, mi le deschide unul peste celalalt, pe acelasi monitor. Daca vreau sa trag cu drag-and-drop excelul, se muta toate. Aveti idee cum pot sa fac chestia asta ?
Multumesc frumos.
am si eu o intrebare. Lucrez pe 2 monitoare si vreau sa pot deschide pe embele monitoare, 2 exceluri dar nu pot. Oricate exceluri as avea deschide, mi le deschide unul peste celalalt, pe acelasi monitor. Daca vreau sa trag cu drag-and-drop excelul, se muta toate. Aveti idee cum pot sa fac chestia asta ?
Multumesc frumos.
-
- Moderator
- Mesaje: 4570
- Membru din: Vin Iul 31, 2009 7:32 am
Re: 2 exceluri deschise, pe 2 monitoare
Ca să poţi deschide al 2-lea Excel trebuiesă deschizi APLICATIA Excel din shortcut-ul existent în Start/All Programe sau dacă ai unshortcut pe desktop şi după aceea să incarci documentul. Adică ideea este să lansezi o altă instanţă de Excel dar nu prin dubluclic pe document. Aşa vei putea să pui cealaltă instanţă pe un al doilea monitor.
-
- Mesaje: 18
- Membru din: Vin Oct 23, 2009 1:33 pm
Re: 2 exceluri deschise, pe 2 monitoare
Multumesc frumos
-
- Moderator
- Mesaje: 4570
- Membru din: Vin Iul 31, 2009 7:32 am
Re: 2 exceluri deschise, pe 2 monitoare
Cu placere.
P.S. Pentru ca nu era de categoria "tips and trips" l-am mutat eu aici.
P.S. Pentru ca nu era de categoria "tips and trips" l-am mutat eu aici.
Re: 2 exceluri deschise, pe 2 monitoare
dacă fisierele sunt deja deschise
se poate crea un macro ca pe unul din fisiere sa il inchidă si sa il deschida intr-o noua instanţă ?
multumesc
se poate crea un macro ca pe unul din fisiere sa il inchidă si sa il deschida intr-o noua instanţă ?
multumesc
Re: 2 exceluri deschise, pe 2 monitoare
Buna,
Codul de mai jos presupune ca stiti numele fisierului pe care doriti sa-l deschideti in alta instanta.
Il inchide (cu salvare), il redeschise intr-o noua instanta, [operatii de prelucrare a fisierului] si il inchide (cu salvare)
Codul de mai jos presupune ca stiti numele fisierului pe care doriti sa-l deschideti in alta instanta.
Il inchide (cu salvare), il redeschise intr-o noua instanta, [operatii de prelucrare a fisierului] si il inchide (cu salvare)
Cod: Selectaţi tot
Sub OpenWBinNewExcel()
Dim app As New Excel.Application
Dim wb1 As Workbook, wb As Workbook
Dim pathFile As String, book1 As String
book1 = "File1.xlsx"
For Each wb In Workbooks
If wb.Name = book1 Then
pathFile = wb.FullName
wb.Close True
Exit For
End If
Next wb
Set wb1 = app.Workbooks.Open(pathFile)
app.Visible = True
'prelucrare wb1
wb1.Close True
Set wb1 = Nothing
Set app = Nothing
' va continuati traba cu ThisWorkbook
End Sub
Am invatat sa inotam in apa, ca pestii
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Am invatat sa zburam in aer, ca pasarile
A ramas doar sa invatam sa traim pe Pamant, ca Oamenii.
Re: 2 exceluri deschise, pe 2 monitoare
Multumesc
cred ca daca alocam numele si calea fisierului activ
atunci poate fi inchis si deschis cel activ
multumesc inca o data este super
cred ca daca alocam numele si calea fisierului activ
atunci poate fi inchis si deschis cel activ
multumesc inca o data este super
Re: 2 exceluri deschise, pe 2 monitoare
pentru cei care doresc sa deschida de la inceput 2 instante exel
se poate crea un fisier cu extensia bat
cu urmatoarele :
start "Excel" "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e %1
start "Excel" "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e %1
calea fisierului EXCEL.EXE
poate sa difere de la un sistem la altul sau de la Office la Altul
doar trebuie inlocuita
se poate crea un fisier cu extensia bat
cu urmatoarele :
start "Excel" "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e %1
start "Excel" "C:\Program Files\Microsoft Office\Office\EXCEL.EXE" /e %1
calea fisierului EXCEL.EXE
poate sa difere de la un sistem la altul sau de la Office la Altul
doar trebuie inlocuita
Re: 2 exceluri deschise, pe 2 monitoare
pentru a redeschide fisierul activ , am facut ceva modificari la codul de mai sus
- nu stiam sa il faca daca nu aveam exemplu
mutumesc incă o data pentru ajutor
mai ramane doar sa mutaţi fisierul pe celalat monitor
(daca stie cineva un cod si pentru asta ar fi super)
- nu stiam sa il faca daca nu aveam exemplu
mutumesc incă o data pentru ajutor
mai ramane doar sa mutaţi fisierul pe celalat monitor
(daca stie cineva un cod si pentru asta ar fi super)
Cod: Selectaţi tot
Sub ReOpenActivExcel() 'Redeschidere Fisier Activ in a doua instanta exel
Dim app As New Excel.Application
Dim fis1, fis2, fis3 As Workbook
Dim Cale1, Cale2, NumeFis1, NumeFis2 As String
Set fis2 = ActiveWorkbook
Cale2 = ActiveWorkbook.Path
NumeFis2 = fis2.FullName
fis2.Save
fis2.Close
Set fis3 = app.Workbooks.Open(NumeFis2)
app.Visible = True
End Sub
Re: 2 exceluri deschise, pe 2 monitoare
Salutare,
Treci la Excel 2016 sau Office 365 si nu vei mai avea nevoie de niciun cod. Poti deschide cate fisiere vrei, ele vor aparea in bara de stare.
Cat de trecerea unui fisier pe un alt monitor, verifica setarile monitorului si vei vedea ca poti pune un al doilea monitor.
Apoi pur si simplu tragi de fisierul dorit pana in al doilea monitor.
Treci la Excel 2016 sau Office 365 si nu vei mai avea nevoie de niciun cod. Poti deschide cate fisiere vrei, ele vor aparea in bara de stare.
Cat de trecerea unui fisier pe un alt monitor, verifica setarile monitorului si vei vedea ca poti pune un al doilea monitor.
Apoi pur si simplu tragi de fisierul dorit pana in al doilea monitor.
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on