[Warrior]

Idézet: Delila - Dátum: 2009. jún. 18., csütörtök - 21:01

Adatok/Érvényesítés

Az a baj ezzel, hogy a másik munkalapról nem tudja szedni a forrásadatokat, pedig néha jól jönne.

[Delila]

Idézet: Warrior - Dátum: 2009. jún. 29., hétfõ - 18:32

Az a baj ezzel, hogy a másik munkalapról nem tudja szedni a forrásadatokat, pedig néha jól jönne.

A másik lapon kijelölöd a forrást.
Beszúrás, Név, Név megadása.
Adsz neki egy nevet.
Az érvényesítésnél a lista forrásaként ezt a nevet adod meg egy egyenlõségjel után.
=elnevezés

Szerkesztette: Delila 2009. 06. 29. 18:58 -kor

[Warrior]

Idézet: Delila - Dátum: 2009. jún. 29., hétfõ - 19:35

A másik lapon kijelölöd a forrást.
Beszúrás, Név, Név megadása.
Adsz neki egy nevet.
Az érvényesítésnél a lista forrásaként ezt a nevet adod meg egy egyenlõségjel után.
=elnevezés

Hej, köszy!  1 kiló munkafüzetben vannak a listák, rejtett oszlopokban, felhívva a user figyelmét, hogy nehogy sort töröljön...

Köszy!

[Delila]

Szivi

[negyvenketto]

Idézet: negyvenketto - Dátum: 2009. jún. 29., hétfõ - 14:30

Sziasztok!

Vektorokat szeretnék excelben ábrázolni.
Megvan mindegyik kezdõ és végpontja, de eghyszerûen nem találok rendes megoldást arra, hogy a pontokat összekötõ vektorokat megjelenítsem.

Valami ötletnek nagyon örülnék.

42

Ezermilliárt diagramtípust végignéztem a neten de nincs egy sem, ami jó lenne.

Max írok VB-ben egyet ami azt csinálja amit szeretnék.. eh

[Lacy1]

Sziasztok!

Egy sûrgõs segítségre lenne szükségem Office 2007 - Excel terén.
Az lenne a nagy kérdésem, hogy lehet alakzatra cellehivatkozást írni, konkrétan ha van adott 3 különbözõ szövegem a legördülõ lista alapján és én azt szeretnám ha csoportba foglalt alakzatot váltana a szöveghez tartozóan (ugyszintén 3 alakzat egy külön munkafüzetben)? Lehetséges e ilyen, ha igan akkor hogyan? Ilyem még nem csináltam vele, de ha menne az nagy segítség lenne. Elõre is kössz a segítséget!

[Delila]

Lacy

A füzetedben engedélyezni kell a makrókat (makróbarát mentés).

A legördülõn jobb klikk, Makróhozzárendelés. Felajánlja a Lenyíló1_Váltáskor címet. A Szerkeszt gombbal menj át a szerkesztésbe, és a két automatikusan megadott sor közé másold be ezt a makrót (az elsõ és utolsó már megvan a VB szerkesztõdben):

Sub Lenyíló1_Váltáskor()
    v = Cells(1, 1)
    Select Case v
    Case 1
        Worksheets("Munka2").Shapes(1).Visible = True
        Worksheets("Munka2").Shapes(2).Visible = False
        Worksheets("Munka2").Shapes(3).Visible = False
    Case 2
        Worksheets("Munka2").Shapes(1).Visible = False
        Worksheets("Munka2").Shapes(2).Visible = True
        Worksheets("Munka2").Shapes(3).Visible = False
    Case 3
        Worksheets("Munka2").Shapes(1).Visible = False
        Worksheets("Munka2").Shapes(2).Visible = False
        Worksheets("Munka2").Shapes(3).Visible = True
    End Select
End Sub

Ez akkor mûködik jól, ha az elsõ 3 rajzot a  felvitelük után csoportba foglalod [ez lesz a shapes(1)], azután felviszed a következõ 3 rajzot, ismét csoportba foglalod [shapes(2)], és ugyanígy a jársz el a harmadik csoporttal is. A Munka2 helyett a saját lapod nevét írd be idézõjelek között.
A v=Cells(1,1) jelentése, hogy az A1 cella értékét figyeli a makró. Ehelyett azt a cellát írd be, ahova a legördülõd csatolását adtad meg. A zárójelben lévõ elsõ szám a sor-, a második az oszlop. Pl. ha F10 a csatolás címe, akkor v=Cells(10,6) -ra írd át a makró elsõ sorát.

[Lacy1]

Idézet: Delila - Dátum: 2009. júl. 18., szombat - 7:07

Lacy

A füzetedben engedélyezni kell a makrókat (makróbarát mentés).

A legördülõn jobb klikk, Makróhozzárendelés. Felajánlja a Lenyíló1_Váltáskor címet. A Szerkeszt gombbal menj át a szerkesztésbe, és a két automatikusan megadott sor közé másold be ezt a makrót (az elsõ és utolsó már megvan a VB szerkesztõdben):

Sub Lenyíló1_Váltáskor()
    v = Cells(1, 1)
    Select Case v
    Case 1
        Worksheets("Munka2").Shapes(1).Visible = True
        Worksheets("Munka2").Shapes(2).Visible = False
        Worksheets("Munka2").Shapes(3).Visible = False
    Case 2
        Worksheets("Munka2").Shapes(1).Visible = False
        Worksheets("Munka2").Shapes(2).Visible = True
        Worksheets("Munka2").Shapes(3).Visible = False
    Case 3
        Worksheets("Munka2").Shapes(1).Visible = False
        Worksheets("Munka2").Shapes(2).Visible = False
        Worksheets("Munka2").Shapes(3).Visible = True
    End Select
End Sub

Ez akkor mûködik jól, ha az elsõ 3 rajzot a  felvitelük után csoportba foglalod [ez lesz a shapes(1)], azután felviszed a következõ 3 rajzot, ismét csoportba foglalod [shapes(2)], és ugyanígy a jársz el a harmadik csoporttal is. A Munka2 helyett a saját lapod nevét írd be idézõjelek között.
A v=Cells(1,1) jelentése, hogy az A1 cella értékét figyeli a makró. Ehelyett azt a cellát írd be, ahova a legördülõd csatolását adtad meg. A zárójelben lévõ elsõ szám a sor-, a második az oszlop. Pl. ha F10 a csatolás címe, akkor v=Cells(10,6) -ra írd át a makró elsõ sorát.

Köszi szépen! elsõre bár egy kicsit bonyolultabb, de jól leírtad és azt hiszem hogy meg is értettem, megpróbálkozom vele, és mégegyszer köszi.   

[Delila]

Szívesen. Remélem, megírod, ha sikerült összehozni.

[Lacy1]

No az addig rendben ment, hogy "Makróbarát Excel-munkafüzet"-ként lementettem. De a legördülõ listán jobbklikkel nem ajálja fel a Makróhozzárendelés-t,csak a csoportbafoglalt alakzatokon. Meg a másik nagy kérdésem hogy a három külön csoportbafoglalt alakzatoknak hogy határozom meg a helyét, mert ugyanakkora téglalapok csak a bennfoglalt alakok mások, tehát ha a legördülõ listán az "1 típus"-t választom akkor az elsõ csoportba foglalt alakzatnak kell megjelennie ha a "2 típus"-t akkor a második csoportba foglalt alaknak kéne megjelennie ugyan azon a helyen. Tehát rakjam õket egymásra, vagy hogy... . Élesben már nem is olyan könnyû :confused: !!!!!

[Delila]

Lacy

Fontos a sorrend, mert az ábrák, alakzatok a felvitelük sorrendjében kapják az automatikus számozást. Az Excel számon tartja az eddig bevitt ábrákat, és az újonnan felvittnek a következõ sorszámot adja, még akkor is, ha közben letöröltél egyet-kettõt közülük. Ha már volt a füzetedben 5 ábra, ebbõl letöröltél hármat, az újonnan bevitt a 6-os számot kapja, a makró hasra esik. Ezért tiszta lappal, új füzettel kezdj a munkához, amibe a régi füzetedbõl majd átmásolod a régi adatokat.

A munka menete:

Munka2 lapon:
Felviszed az elsõ 3 ábrát: háromszor Beszúrás/Ábrák/Kép (vagy Alakzatok, ebben az esetben a beszúrt alakzaton jobb klikkre elõjövõ menübõl kiválaszthatod a Szöveg szerkesztését, és írhatsz az alakzatodba). Elrendezed a képeket, Ctrl és az egér segítségével együtt kijelölöd a 3 képet. Elrendezés/Csoportok/Csoportosítás. A csoportot félre húzod.
Ezt megismétled a másik két csoport képpel. Az összes kép bevite után a 3 egységet egymásra helyezed, oda, ahol majd látni szeretnéd a kiválasztottat.

Munka1 lapon:
Beviszed a három választható szöveget, pl. a G1:G3 tartományba.
Kiválasztod a legördülõ típusát [Fejlesztõeszközök/Beszúrás/Ûrlap-vezérlõelemek/Lista(ûrlap-vezérlõelem)]
Vezérlõn jobb klikk, Vezérlõ formázása/Vezérlõ fül. A Bemeneti tartomány rovatba G1:G3, Cellacsatoláshoz A1, OK.
A legördülõn jobb klikk, Makró-hozzárendelés. Itt a Makrónévnél megjelenik a Listapanel1_Váltás szöveg.
Az Újat gomb lenyomására bejutsz a VB szerkesztõ módba, és már ott is van a makró kezdõ-, és befejezõ sora. A kettõ közé bemásolod az elõzõ hozzászólásban közölt makrót.

A Munka1 lapon a legördülõbõl kiválasztott elem hatására a Munka2 lapon a megfelelõ csoport kép lesz látható.
Ha szeretnéd, hogy mind a 3 csoport el legyen rejtve, a legördülõ bemeneti tartománya legyen G1:G4, ahol az utolsó egy üres sort ad. Akkor az End Select sor elé beviheted:
Case 4
       Worksheets("Munka2").Shapes(1).Visible = False
       Worksheets("Munka2").Shapes(2).Visible = False
       Worksheets("Munka2").Shapes(3).Visible = False

Szerkesztette: Delila 2009. 07. 19. 07:12 -kor

[Lacy1]

Delila

Köszi ûködik ! Végül is a legördülõ listával valt a legfõbb gondom, mert én csak "Adatok" - "Érvényesítés" menüvel csináltam, de így már rendben. És mégegyszer köszi! 

[Delila]

Idézet: Lacy1 - Dátum: 2009. júl. 19., vasárnap - 11:09

Delila

Köszi ûködik ! Végül is a legördülõ listával valt a legfõbb gondom, mert én csak "Adatok" - "Érvényesítés" menüvel csináltam, de így már rendben. És mégegyszer köszi! 

Szívesen örülök, hogy sikerült.

[Lacy1]

Sziasztok!

Ismét kérdéssel illetve kéréssel fordulok hozzátok.
A kérdésem a következõ lenne, hogy tudok egy kétoszlopos táblázatból (melynek egyik oszlopsorai fix sorszámokat tartalmaznak, a másik oszlop sorai pedid függvények alapján változik 1és 0 változók közt) egy másik táblázatot egymás után feltölteni az elõzõ táblázatból úgy hogy, az elõzõ táblázatból csak az 1 változóhoz tartozó sorok sorszámai jelenjenek meg egymás után. Csak úgy mint ha szûrést csinálnék csak mindig frissülne, ha valamelyik érték változik a változók közül.


Elõre is köszönöm a válaszotokat!

[Delila]

Lacy

A sorszámokat az A2:A100 tartományba írtam, melléjük a B-be a feltételt. Az A1:B1 a két oszlop címét tartalmazza.
Az irányított szûréshez kritériumtáblának az H1:I2 helyet adtam meg. A két címet beírtam az H1:I1 cellákba, az I2-be beírtam az 1-et, ami a szûrés feltétele. Rögzítettem makróban a szûrést – a szûrés helyét az E1:F1 cellákban határoztam meg.

A rögzített makró:

Sub Ir_Szûrés()
    Range("A1:B100").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H1:I2"), CopyToRange:=Range("E1:F1"), Unique:=False
End Sub

Az Ûrlapok eszköztárról kitettem egy gombot, és a makrót hozzárendeltem. Ezzel bármikor egy gombnyomásra frissül a szûrt állomány az E:F oszlopokban.

[Lacy1]

Delila

Nagyon jól mûködik ez is, és köszi szépen ez ek a segítségek sokat jelentettek nem gyõzök eléggé hálás lenni.    
Még annyi kérdés hogy, lehet úgy is hogy ha valami változik, akkor frissítsen vagy legalább egy szöveg felvillanjon hogy frissíts, de autómatán lenne a legjobb ami a gombnak parancsot adna ha változik a tábla

[Delila]

Lacy

A következõ makrót a laphoz kell rendelned.
Lapfülön jobb klikk, Kód megjelenítése. A jobb oldalon kapott üres lapra másold be:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Range("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H1:I2"), CopyToRange:=Range("E1:F1"), Unique:=False
  End If
End Sub

Az elõzõ makróra nincs szükség, és a gomb sem kell. Az A oszlop adatainak változásakor minden esetben frissül az irányított szûrés.

Figyeld meg, hogy a Range("A1:B100") kezdetû sort átírtam Range("A:B") kezdetûre. Ez azt jelenti, hogy az egész oszlopokat szûri majd, nemcsak a 100. sorig. Ha a B oszlopban a képleted már 5 egymást követõ sorban szerepelt, az Excel a következõ sorokba önállóan beírja, ha az A értéket kap (alap beállítás szerint), amennyiben számokat dolgoz fel a képlet, nem szövegeket.

[Lacy1]

Idézet: Delila - Dátum: 2009. júl. 20., hétfõ - 20:15

Lacy

A következõ makrót a laphoz kell rendelned.
Lapfülön jobb klikk, Kód megjelenítése. A jobb oldalon kapott üres lapra másold be:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 1 Then
    Range("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "H1:I2"), CopyToRange:=Range("E1:F1"), Unique:=False
  End If
End Sub

Az elõzõ makróra nincs szükség, és a gomb sem kell. Az A oszlop adatainak változásakor minden esetben frissül az irányított szûrés.

Figyeld meg, hogy a Range("A1:B100") kezdetû sort átírtam Range("A:B") kezdetûre. Ez azt jelenti, hogy az egész oszlopokat szûri majd, nemcsak a 100. sorig. Ha a B oszlopban a képleted már 5 egymást követõ sorban szerepelt, az Excel a következõ sorokba önállóan beírja, ha az A értéket kap (alap beállítás szerint), amennyiben számokat dolgoz fel a képlet, nem szövegeket.

Delila

Sajna nem mûkszik valamiért, pedig jólenne. Nem csinál semmit. :confused:
Deazért köszi, ha lenne rá valami ötleted azt még megköszönném.

[hkpk]

Idézet: Lacy1 - Dátum: 2009. júl. 21., kedd - 18:47

Delila

Sajna nem mûkszik valamiért, pedig jólenne. Nem csinál semmit. :confused:
Deazért köszi, ha lenne rá valami ötleted azt még megköszönném.

Szerintem - bocs, hogy beleszólok- állítsd a biztonsági szintet közepesre (Eszközök / Makró / Biztonság)

[Delila]

Lacy

Valószínû, hogy nem a laphoz rendelted a makrót.
Lapfülön jobb klikk, Kód megjelenítése. A jobb oldalon kapott üres lapra másold be.

hkpk

Semmi bocs, azért fórum, hogy mindenki elmondhassa a véleményét. Lehet, hogy Lacy ezt a fájlt nem makróbarátként mentette. Neki 2007-ese van, ott máshol lehet beállítani a biztonsági szintet.