2 exceluri deschise, pe 2 monitoare

Informatii despre cum se utilizeaza Microsoft Excel 2007. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc
monicalavi
Mesaje: 18
Membru din: Vin Oct 23, 2009 1:33 pm

2 exceluri deschise, pe 2 monitoare

Mesaj de monicalavi » Mie Sep 19, 2012 1:23 pm

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.

Dr.Windows
Site Admin
Site Admin
Mesaje: 4519
Membru din: Vin Iul 31, 2009 7:32 am

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de Dr.Windows » Mie Sep 19, 2012 3:38 pm

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.

monicalavi
Mesaje: 18
Membru din: Vin Oct 23, 2009 1:33 pm

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de monicalavi » Mie Sep 19, 2012 4:30 pm

Multumesc frumos

Dr.Windows
Site Admin
Site Admin
Mesaje: 4519
Membru din: Vin Iul 31, 2009 7:32 am

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de Dr.Windows » Mie Sep 19, 2012 6:45 pm

Cu placere.

P.S. Pentru ca nu era de categoria "tips and trips" l-am mutat eu aici.

adof
Mesaje: 445
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de adof » Mie Feb 07, 2018 1:55 pm

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

TudyBTH
Moderator
Moderator
Mesaje: 904
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de TudyBTH » Mie Feb 07, 2018 9:04 pm

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)

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.

adof
Mesaje: 445
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de adof » Joi Feb 08, 2018 2:45 pm

Multumesc

cred ca daca alocam numele si calea fisierului activ
atunci poate fi inchis si deschis cel activ

multumesc inca o data este super

adof
Mesaje: 445
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de adof » Sâm Feb 10, 2018 9:56 am

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

adof
Mesaje: 445
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de adof » Sâm Feb 10, 2018 10:21 am

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)

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

Nills
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Re: 2 exceluri deschise, pe 2 monitoare

Mesaj de Nills » Sâm Feb 10, 2018 3:56 pm

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.
I don't care what you think of me! Unless you think I'm awesome – in which case, you're right! Carry on :D

Scrie răspuns

Înapoi la “Intrebari despre Excel 2007”