EXCEL

Lubca · Napísal **Lubca**: 24.04.2009 10:25

Ahojte,

vie mi niekto poradit, prosim?
Mam otvoreny jeden excel sheet, nazov naprikald Lubca1. Potrebujem otvorit druhy, s nazvom Lubca2 ..naprikald chcem porovnavat informacie..alebo kopirovat z Lubca1 do Lubca2

Akonahle vsak chcem otvorit dalsi xls file, teda aj Lubca2, neda sa. Ulozi mi Lubca1 a otvori Lubca2. avsak ja to chcem mat otovrene sucasne a len si preklikavat medzi nimi.

Poradi mi prosim niekto??? Je to urgent.
DAkujem velmi pekne vopred!

raf · Napísal **raf**: 24.04.2009 10:33

Daj vlozit->novy harok alebo tak nejak sa to vola, a potom to mozes lahko premenovat na spodnej liste a mozes aj lahko prepinat medzi nimi. To si chcela?

Lubca · Napísal autor témy **Lubca**: 24.04.2009 10:50

Nie tak celkom

ja chcem samostatne dokumenty prepinat...nie medzi Listami...ale cele zosity .. nezavisle subory... ako aj word-mam doc nazvany Lubca, dalsi nazvany auta, dalsi motorky. ja chcem mat sucasne otvorene aj auta aj motorky aj Lubcu.. jenoducho mi to nejde naraz. vzdy chce prvy zatvorit a dalsi mi az nasôledne otvori ...

PaloPa · Napísal **PaloPa**: 22.07.2009 8:24

Lubca píše:

Nie tak celkom

ja chcem samostatne dokumenty prepinat...nie medzi Listami...ale cele zosity .. nezavisle subory... ako aj word-mam doc nazvany Lubca, dalsi nazvany auta, dalsi motorky. ja chcem mat sucasne otvorene aj auta aj motorky aj Lubcu.. jenoducho mi to nejde naraz. vzdy chce prvy zatvorit a dalsi mi az nasôledne otvori ...

Ak nie je niečo pomršené v počítači, súbory v Exceli sú otvorené oba naraz, aj keď vidieť len posledne otvorený. Kontrola je jednoduchá:

V Exceli 2003 a nižšie:
hl.ponuka "Okno/Window" a celkom naspodu ponuky by mal byť zoznam otvorených súborov (ak nie je rozbalená celá ponuka, treba kliknúť na šípku naspodu ponuky).

Okná sa dajú usporiadať, aby boli vidieť obe (či viac) naraz:
hl.ponuka "Okno/Window" / "Usporiadať/Arrange"

V Exceli 2007:
záložka "Zobraziť/View" / ikonka "Prepnúť okná /Switch Window"

Okná sa dajú usporiadať, aby boli vidieť obe (či viac) naraz:
záložka "Zobraziť/View" / ikonka "Usporiadať všetko/Arrange All"

Tip: prepínanie medzi oknami - kláv. F6

Palo

Shake · Napísal **Shake**: 28.07.2009 15:15

Chcel by som sa opytat akym sposobom je mozne zadat do VBA cyklus, ktory by kontroloval ci objekt typu ComboBox zo skupiny AktiveX je prazdny alebo nie.
Mam vytvorenu formu pomocou prvkou AktiveX, konkretne len Combo boxy aby uzivatel mohol zadat len navolene nazvy. Tato forma sa potom dalej spracovava a vytvara sa z nej tabulka na import do systemu. Obsahuje cez 50 riadkov, kazdy zacina Combo boxom a chcem proceduru spracovania zadat inteligentne do cyklusu For. Avsak vzdy mi to zlyha nakolko neviem ci je mozne oznacit dany Combo Boc indexom cyklusu????

PaloPa · Napísal **PaloPa**: 28.07.2009 16:46

Shake píše:

Chcel by som sa opytat akym sposobom je mozne zadat do VBA cyklus, ktory by kontroloval ci objekt typu ComboBox zo skupiny AktiveX je prazdny alebo nie.
Mam vytvorenu formu pomocou prvkou AktiveX, konkretne len Combo boxy aby uzivatel mohol zadat len navolene nazvy. Tato forma sa potom dalej spracovava a vytvara sa z nej tabulka na import do systemu. Obsahuje cez 50 riadkov, kazdy zacina Combo boxom a chcem proceduru spracovania zadat inteligentne do cyklusu For. Avsak vzdy mi to zlyha nakolko neviem ci je mozne oznacit dany Combo Boc indexom cyklusu????

V Exceli sú "by default" dva typy ComboBoxov - Form a Control (ActiveX),
s každým treba manipulovať inak,
viď príklad:
http://pc-prog.eu/phpBB3/images/xMyKB/ComboBox_test.xls

ActiveX Combo: - Set ObjCombo = ActiveSheet.OLEObjects

Kód:

Public Sub CheckActiveXCombos()
Dim xValue
Dim ObjCombo, oCmb

On Error GoTo errHndl

    Set ObjCombo = ActiveSheet.OLEObjects
    
    For Each oCmb In ObjCombo
        If TypeOf oCmb.Object Is MSForms.ComboBox Then
            xValue = oCmb.Object.Text
            
            If xValue <> "" Then
               x_MsgTxt = x_MsgTxt & oCmb.Name & ":" & xValue & vbCrLf
            End If
        End If
    Next oCmb
    
    If x_MsgTxt <> "" Then
       MsgBox x_MsgTxt, vbOKOnly, "NEPRAZDNE"
    End If

errRes:
    Set oCmb = Nothing
    Set ObjCombo = Nothing
Exit Sub

errHndl:
    MsgBox Err.Description
    GoTo errRes
End Sub

Form COMBO: - Set x_Drps = ActiveWorkbook.Worksheets(ActiveSheet.Name).DropDowns

Kód:

Sub CheckFormCombos()
    Dim x_Drps, x_drp, c, i, xDrpIdx, xDrpValue
    Dim x_MsgTxt As String, x_ShNm, x_DrpNm
    
On Error GoTo xErr
    Set x_Drps = ActiveWorkbook.Worksheets(ActiveSheet.Name).DropDowns
    
    For Each x_drp In x_Drps
        xDrpIdx = x_drp.Value
        xDrpValue = x_drp.List(xDrpIdx)
        
        If xDrpValue <> "" Then
           x_MsgTxt = x_MsgTxt & x_drp.Name & ":" & xDrpValue & vbCrLf
        End If
        
    Next x_drp
    
    If x_MsgTxt <> "" Then
       MsgBox x_MsgTxt, vbOKOnly, "NEPRAZDNE"
    End If

xRes:
    Set x_Drps = Nothing
    Exit Sub
xErr:
    MsgBox Err.Description
    GoTo xRes
End Sub

EXCEL

Podobné témy