www.Cursuri-Excel.ro     www.Cursuri-Access.ro     www.Cursuri-Powerpoint.ro     www.Cursuri-Outlook.ro     www.Cursuri-Word.ro     www.CursuriProject.ro     www.codexpert.ro

2 exceluri deschise, pe 2 monitoare

Informatii despre cum se utilizeaza Microsoft Excel 2007. Calcule, Formule, Functii, Tabele pivot, Analiza datelor, etc

2 exceluri deschise, pe 2 monitoare

Mesajde 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.
monicalavi
 
Mesaje: 18
Membru din: Vin Oct 23, 2009 1:33 pm

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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.
Dr.Windows
Site Admin
Site Admin
 
Mesaje: 4503
Membru din: Vin Iul 31, 2009 7:32 am

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde monicalavi » Mie Sep 19, 2012 4:30 pm

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

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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.
Dr.Windows
Site Admin
Site Admin
 
Mesaje: 4503
Membru din: Vin Iul 31, 2009 7:32 am

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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
adof
 
Mesaje: 438
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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.
TudyBTH
Moderator
Moderator
 
Mesaje: 894
Membru din: Joi Feb 11, 2016 2:12 pm
Localitate: Cluj Napoca

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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: 438
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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: 438
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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
adof
 
Mesaje: 438
Membru din: Mie Iul 14, 2010 12:42 pm
Localitate: Sibiu

Re: 2 exceluri deschise, pe 2 monitoare

Mesajde 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
Nills
 
Mesaje: 211
Membru din: Sâm Ian 23, 2016 11:24 am

Următorul

Înapoi la Intrebari despre Excel 2007

Cine este conectat

Utilizatorii ce navighează pe acest forum: Niciun utilizator înregistrat şi 4 vizitatori

Centrul de training si consultanta Dr. Excel activeaza de peste 15 ani pe piata serviciilor de instruire si certificare IT din Romania.

Contact


© 2018 Dr. Excel - Business Intelligence School - Citeste termeni si conditii