[Root_Kiskacsa]

Idézet: qqcs - Dátum: 2006. júl. 10., hétfõ - 10:43

Koszi!
Haladunk a cel fele:)
Most mar csak azt kene kitalalni hogy hogy tudom kapcsolni hogy ha exceltablara kattintva nyitom meg az excelt akkor ne egy excelben nyiljanak meg hanem mindig kulon excel nyiljon meg.

Ez is megoldható, mindössze az xls társítását át kell írni.
Nyiss meg egy Windows mappát (pl. Sajátgép), aztán a menüsorból válaszd ki az Eszközök -> Mappa beállításai menüpontot. A Fájltípusok fülön belül keresd meg az XLS kiterjesztést, jelöld ki, majd lent nyomj rá a speciális gombra. Dupla klikk az Open soron. A DDE használata jelölést töröld, ettõl össze is ugrik az ablak. A mûvelet végrehajtásához használt alkalmazás sorban az EXCEL.EXE után a /e paramétert írd át "%1"-re (macskakörömmel).
Tehát valahogy így nézzen ki:

"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" "%1"

Ezután okézz mindent.
Célszerû esetleg felírni valahová a régi beállításokat, ha mégis vissza akarnál térni a régi xls megnyitás formához.

[WolfSK]

Nekem van egy egyszû táblázat excelben ami összead, szoroz, stb. Ha ezt átmásolom egy word dokumentumba, akkor az aktuális táblázat ugyan megjelenik, de ha javítok a táblázatban lévõ adatokon, akkor a számítások már nem mûködnek. Tehát simán szöveget tudok javítani, de számítási mûveletekt már nem hajt végre a táblázat. Hogyan lehetne teljesértékû, mûveleteket is végrehajtó táblázatot beszúrnom?

[Szolti]

Sziasztok ismét akadt egy kis feladat amit nem tudok megoldani, szeretnék segítséget kérni. A problémám a következõ:
- olyan VB script-et írtam az egyik munkalaphoz amit szeretném ha lefutna amikor megnyitom az adott excel fájlt, egy combobox-ot raktam ki amiben ki lehet választani hogy melyik évre történjen az összesítés

Ezt így oldottam meg:

Private Sub ComboBox1_Change()
Dim MyArray(0, 4) As String

MyArray(0, 0) = "*****"
MyArray(0, 1) = "2003"
MyArray(0, 2) = "2004"
MyArray(0, 3) = "2005"
MyArray(0, 4) = "2006"

ComboBox1.Column() = MyArray

End Sub

Azt szeretném ha ez lefutna és feltöltené értékekkel a combobox-ot minden indításkor, vagy ezt meglehet oldani valahogy máshogyan? Nem tudom arra van-e lehetõség, hogy a combobox-ot úgy állítsam be hogy ne legyen szerkezthetõ az értéke, nézegettem a beállításokat de nem találtam ilyet.
Elõre is köszi szépen.

Szolti

[qqcs]

Idézet: Root_Kiskacsa - Dátum: 2006. júl. 11., kedd - 18:48

Ez is megoldható, mindössze az xls társítását át kell írni.
Nyiss meg egy Windows mappát (pl. Sajátgép), aztán a menüsorból válaszd ki az Eszközök -> Mappa beállításai menüpontot. A Fájltípusok fülön belül keresd meg az XLS kiterjesztést, jelöld ki, majd lent nyomj rá a speciális gombra. Dupla klikk az Open soron. A DDE használata jelölést töröld, ettõl össze is ugrik az ablak. A mûvelet végrehajtásához használt alkalmazás sorban az EXCEL.EXE után a /e paramétert írd át "%1"-re (macskakörömmel).
Tehát valahogy így nézzen ki:

"C:\Program Files\Microsoft Office\Office\EXCEL.EXE" "%1"

Ezután okézz mindent.
Célszerû esetleg felírni valahová a régi beállításokat, ha mégis vissza akarnál térni a régi xls megnyitás formához.

Koszi.
Mostmar megkozelebb vagyunk a megoldashoz, ugyaniha filekezeloben kattintok excel filera mukodik a dolog de ha excel file shortcutjara kattintok akkor nem:(

[Szolti]

Idézet: Szolti - Dátum: 2006. júl. 13., csütörtök - 11:11

Sziasztok ismét akadt egy kis feladat amit nem tudok megoldani, szeretnék segítséget kérni. A problémám a következõ:
- olyan VB script-et írtam az egyik munkalaphoz amit szeretném ha lefutna amikor megnyitom az adott excel fájlt, egy combobox-ot raktam ki amiben ki lehet választani hogy melyik évre történjen az összesítés

Ezt így oldottam meg:

Private Sub ComboBox1_Change()
Dim MyArray(0, 4) As String

MyArray(0, 0) = "*****"
MyArray(0, 1) = "2003"
MyArray(0, 2) = "2004"
MyArray(0, 3) = "2005"
MyArray(0, 4) = "2006"

ComboBox1.Column() = MyArray

End Sub

Azt szeretném ha ez lefutna és feltöltené értékekkel a combobox-ot minden indításkor, vagy ezt meglehet oldani valahogy máshogyan? Nem tudom arra van-e lehetõség, hogy a combobox-ot úgy állítsam be hogy ne legyen szerkezthetõ az értéke, nézegettem a beállításokat de nem találtam ilyet.
Elõre is köszi szépen.

Szolti

Találtam egy megoldást az auto startra:


Sub Auto_open
    ' Code I want to run when this workbook opens
End Sub


Ez jó így? Van ennél álltalánosabb is? THX

[Szolti]

Idézet: Szolti - Dátum: 2006. júl. 13., csütörtök - 12:45

Találtam egy megoldást az auto startra:


Sub Auto_open
    ' Code I want to run when this workbook opens
End Sub


Ez jó így? Van ennél álltalánosabb is? THX

Ez mégsem jó így ha csak egy sima kis pl cella értékadást végzek így akkor ok, da ha a fenn említett feltöltést akarom megoldani így akkor nem megy, továbbra is várom a segítségeteket, köszi.

Szolti

[Szolti]

Nya sikerült hátha érdekel valakit...

ThisWorkbook-hoz kellett így megadni:

Private Sub Workbook_Open()
Dim Array_box1(0, 4) As String
Array_box1(0, 0) = "*****"
Array_box1(0, 1) = "2003"
Array_box1(0, 2) = "2004"
Array_box1(0, 3) = "2005"
Array_box1(0, 4) = "2006"
Munka3.ComboBox1.Column() = Array_box1
End Sub

[Szolti]

Viszont azt nem tudtam még megoldani hogy a combobox-ot hogyan állítom úgy be hogy ne lehessen szerkeszteni csak kiválasztani a tetszõleges értéket, (remélem érthetõ mit akarok mondani kicsit furon fogalmaztam tom).

Szolti

[Root_Kiskacsa]

Idézet: WolfSK - Dátum: 2006. júl. 11., kedd - 21:44

Nekem van egy egyszû táblázat excelben ami összead, szoroz, stb. Ha ezt átmásolom egy word dokumentumba, akkor az aktuális táblázat ugyan megjelenik, de ha javítok a táblázatban lévõ adatokon, akkor a számítások már nem mûködnek. Tehát simán szöveget tudok javítani, de számítási mûveletekt már nem hajt végre a táblázat. Hogyan lehetne teljesértékû, mûveleteket is végrehajtó táblázatot beszúrnom?

Objektumként csatold be az Excel táblázatot és akkor mennie kéne.

[Root_Kiskacsa]

Idézet: Szolti - Dátum: 2006. júl. 13., csütörtök - 14:11

Viszont azt nem tudtam még megoldani hogy a combobox-ot hogyan állítom úgy be hogy ne lehessen szerkeszteni csak kiválasztani a tetszõleges értéket, (remélem érthetõ mit akarok mondani kicsit furon fogalmaztam tom).

Szolti

No most erre a ComboBox1.MatchRequired tulajdonság True-ra állítása lenne hivatott, ami sajnos abban az esetben nem mûködik, ha a comboboxot munkalapon helyezed el és nem VB formon.
Két alternatívát tudok javasolni:
1. Feltalálod a spanyolviaszt, azaz írsz egy olyan eljárást, ami a ComboBox1.LostFocus eseményre fut le és ellenõrzi, hogy valóban értelmes érték van e a mezõben. A LostFocus akkor hívódik meg, amikor a felhasználó ki akar lépni a ComboBoxból.
2. Hagyod a VB-t a fenébe és Excel-stílusú comboboxot raksz ki a munkalapodra. Ilyet az Adatok/Érvényesítés... alatt találhatsz. Csatoltam egy mintát is, ebbõl le tudod puskázni, hogy hogyan kell beállítani.

Csatolt fájl:

•  ComboBox_pelda.zip (0byte)
  Letöltések:: 22

Szerkesztette: Root_Kiskacsa 2006. 07. 13. 22:27 -kor

[Szolti]

Idézet: Root_Kiskacsa - Dátum: 2006. júl. 13., csütörtök - 22:26

No most erre a ComboBox1.MatchRequired tulajdonság True-ra állítása lenne hivatott, ami sajnos abban az esetben nem mûködik, ha a comboboxot munkalapon helyezed el és nem VB formon.
Két alternatívát tudok javasolni:
1. Feltalálod a spanyolviaszt, azaz írsz egy olyan eljárást, ami a ComboBox1.LostFocus eseményre fut le és ellenõrzi, hogy valóban értelmes érték van e a mezõben. A LostFocus akkor hívódik meg, amikor a felhasználó ki akar lépni a ComboBoxból.
2. Hagyod a VB-t a fenébe és Excel-stílusú comboboxot raksz ki a munkalapodra. Ilyet az Adatok/Érvényesítés... alatt találhatsz. Csatoltam egy mintát is, ebbõl le tudod puskázni, hogy hogyan kell beállítani.

Köszönöm a segítséget, excel stílusú combobox-ot nem akarok használni már, mert már teljesen kész az egész és nincs kedvem átírogatni majdnem az egész programot, ezért kénytelen lezsek vagy beletörõdni abba hogy a át lehet írni az értéket, vagy játszok kicsit ezzel a lostfocus dologgal, de az is elképzehetõ hogy rádobom az egészet egy formra... hmmm, nem tudom még. mindenesetre, köszönöm szépen a segítséget.


Zsolt

[Picur]

Segítségre lenne szükségem egy makro elkészítéséhez. Elõre bocsátom, hogy abszolút nem értek hozzá, csak a makro rögzítésig jutottam el. Egy ponton viszont elakadtam:
Van egy táblázatom, egy oszlop szerint sorba rendezve. Értéke "N" illetve "Y" lehet. Hogyan lehet megoldani, hogy egy sort szúrjon be oda, ahonnan az oszlop értéke már "Y" lesz.
Vizujálisan:

N
N
N
    <----- Ide szeretnék egy üres sort. 
Y
Y

Kérdés 2:
Hogyan kérhetem le az elsõ üres sornak a sorszámát? Egész pontosan egy szummát szeretnék az adatok utáni elsõ üres sorba, természetesen a sorok száma mindig változik...

Köszi!

[Picur]

:confused:

[Root_Kiskacsa]

Idézet: Picur - Dátum: 2006. júl. 17., hétfõ - 12:00

Segítségre lenne szükségem egy makro elkészítéséhez. Elõre bocsátom, hogy abszolút nem értek hozzá, csak a makro rögzítésig jutottam el. Egy ponton viszont elakadtam:
Van egy táblázatom, egy oszlop szerint sorba rendezve. Értéke "N" illetve "Y" lehet. Hogyan lehet megoldani, hogy egy sort szúrjon be oda, ahonnan az oszlop értéke már "Y" lesz.
Vizujálisan:

N
N
N
    <----- Ide szeretnék egy üres sort. 
Y
Y

Kérdés 2:
Hogyan kérhetem le az elsõ üres sornak a sorszámát? Egész pontosan egy szummát szeretnék az adatok utáni elsõ üres sorba, természetesen a sorok száma mindig változik...

Köszi!

Elsõ kérdésre:

Columns(1).Find("Y").Insert xlDown

Ha az N-bõl és Y-ból álló oszlop nem az elsõ oszlop lenne, hanem pl. a második, akkor Coulumns(2)-re módosítsd a fenti kódot. Más oszlopszámnál értelemszerûen.

Második kérdésre:

Cells(1, 1).End(xlDown).Offset(1, 0).Row

Ez visszaadja neked az elsõ szabad sor számát. Ha rögtön ki is akarod jelölni a sort, akkor a Row helyett Selectet írj. Ez igazából csak az elsõ oszlopban keresi meg az elsõ szabad cellát, de jelenleg a célra ez is megfelel. Egyetlen hibája, hogy ha az elsõ sor (ill. cella) üres, akkor hülyeséget ad vissza. Célszerû erre az esetre egy feltételt írni.

[Picur]

Hálásan köszönöm, kipróbálom! 

[Zotyó]

Sziasztok! A következõ a gondom: egy oszlopban lévõ cellákban számok vannak, 2 tizedesjeggyel. A cellaformátum szöveg. A tuóizedeselválasztó vesszõt szeretném pontra cserélni. A CTRL+H ,->. + összes cseréje után azonban a cellák felének tartalma nem megfelelõen változik meg. Pl. A 31,07-bõl nem 31.07 lesz, hanem 38929.
Próbáltam az egyebek fülön beállítani, hogy a kimeneti formátum is szöveg, de nem javított a helyzeten.

[Root_Kiskacsa]

Idézet: Zotyó - Dátum: 2006. júl. 22., szombat - 11:25

Sziasztok! A következõ a gondom: egy oszlopban lévõ cellákban számok vannak, 2 tizedesjeggyel. A cellaformátum szöveg. A tuóizedeselválasztó vesszõt szeretném pontra cserélni. A CTRL+H ,->. + összes cseréje után azonban a cellák felének tartalma nem megfelelõen változik meg. Pl. A 31,07-bõl nem 31.07 lesz, hanem 38929.
Próbáltam az egyebek fülön beállítani, hogy a kimeneti formátum is szöveg, de nem javított a helyzeten.

Kis technikai leírás, hogy mivel is ez a hibajelenség: a 38929 az gyakorlatilag egy dátum, hosszú egészként kiírva. Van ez azért, mert az Excel a 31.07-et július 31-nek értelmezte, a szövegformátum miatt azonban átkonvertálta hosszú egészre.
Sajnos ez egy nagyon idegesítõ feature az Excelben, de bizonyos környezetben éppen, hogy elõnyös. Nem tudom, hogy neked éppen miért kell átalakítanod a vesszõt pontra, de ha ez egy angolszász szabványú dolog miatt kell, akkor inkább célszerûbb a Windows számábrázolását átkapcsolni erre az idõre, ezt az Excel is tiszteletben tartja. Vezérlõpult -> Területi és nyelvi beállítások -> Legördülõmenüben a "Magyar"-t állítsd át "Angol (Egyesült Államokbeli)"-re. Excelt nem kell bezárnod, az átállítás pillanatában azonnal átírja az összes vesszõt pontra, még a képleteket is újraszámolja.

[qqcs]

Kar hogy nem ertunk a problema vegere, de nem baj mar igy is sokkal jobb. koszi (18830)

Most megint van egy problemam. Hogy tudok ket excel tabla kozt relativ kepletet masolni. Az iranyitott beilesztes csak tablan belul mukodik. Ket tabla kozt csak az adat megy at.
surgos lenne.Koszi.

[qqcs]

Mar meg is van a megoldas(?)
az altalad emlitett modon kulongombos exceltabla megnyitaskor van az ami a problemam:) ha egy excelben van a ket tabla (egy desktop gombbal) akkor relativ keplet masolodik.

[qqcs]

na tessek csak van problema:(
a masolt kepletek kozt van egy masik munkalapra hivatkozas. na ez nem marad relativ mert a masik excel tabla munkalapjara hivatkozik:(