Az „Excel” fórum célja, hogy keretet adjon az Excel felhasználók széles táborának tapasztalataik megosztására, és lehetőséget a segítséget kérőknek. Az alábbi összefoglaló azért készült, hogy segítse a helyes kérdésfeltevést.
– Írd le szabatosan a problémát. Úgy fogalmazz, hogy ne csak te magad, de a szakértő is megértse, mire szeretnél választ kapni.
– Írd le, hogy milyen verziójú Excellel dolgozol. (Vagy ha nem – ill. nem csak – Excel, akkor micsoda?)
– Írd le, hogy milyen úton indultál el, és hol akadtál el rajta.
– A kérdés megértése szempontjából sokat segíthet, ha feltölteszt egy képet, amin látszik, hogy mit szeretnél, vagy illusztrálja azt.
– Még jobb, ha feltöltesz egy minta munkafüzetet valahová (pl. data.hu). Feltöltés előtt távolítsd el belőle a nem publikus adatokat.
– Ha a feladat jellege olyan, célszerű az "előtte" és "utána" állapotokat bemutatni. (Miből kellene csinálni mit?)
– Ha VBA kódon kell javítani, másold be a releváns kódrészt. Rövid kód mehet hozzászólásba, hosszú kód inkább ide: http://pastebin.com/
– Ha valami nem úgy működik, ahogy kellene, add meg a rendellenes viselkedés jellemzőit, a hibaüzenetet, és a hibát okozó programsort.
Az általad írt "keres"-sel lenne pár kérdésem. Azt hol lehet meghatározni, hogy melyik sortól keressen, illetve ha nem az "A" oszlopban szeretnék keresni?
Igen, tényleg az zavart engem, hogy ha megváltoztatom a számformátumot, akkor a függvényem nem követte azonnal, csak ha frissítettem. Viszont a másik amit te csináltál az tisztább, szárazabb érzés, jobban használható mint az enyém, Köszönöm.
Én excelben egy gombot szeretnék készíteni amit ha megnyomunk bezáródik az aktuális munkalap. Kérdésem hogy a ctrl+f4-et milyen formába hogyan illesszem be? thx
Csak akkor nem frissül ha nem változtatsz semmit csak a cellaformátumot. Az application.volatile parancs ekkor nem működik. Esetleg segíthet a
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Application.Calculate End Sub
Ehhez is legalább egy másik cellát ki kell hogy jelölj.
...és ha már megcsináltam, bemásolom ezt is, ez magát a currency kódot adja eredményként.
Public Function valuta(ByVal cella As Range) As String Application.Volatile
If cella.Cells.Count > 1 Then Exit Function t = cella.NumberFormat i = Application.WorksheetFunction.Find("$", t, 1)
If Mid(t, i + 1, 1) = "#" Then valuta = "$" If Mid(t, i + 2, 1) = "-" Then valuta = Mid(t, i + 1, 1) If Mid(t, i + 3, 1) = "-" Then valuta = Mid(t, i + 1, 2) If valuta = "" Then valuta = Mid(t, i + 1, 3)
ez az autofit megoldás csak akkor megy ha folytonos adatsor van a szomszédos cellákban. Használd ctrl+c és ctrl+v - Shift+Enter+le/felkurzorgombok vagy az egyéb kijelölési lehetőségeket (lásd excel súgója...)
Tudja valaki miért van az, hogy ha beírok egy függvényt és szeretném azt átvinni az alatta lévő cellákra (ergo az oszlopon belül másolnám), akkor normál esetben ha ráklikkelek az jobb alsó sarokra, akkor átmásloja a függvényt. DE valami miatt ez nem mindig működik...van valakinek ötlete, hogy miért nem működik? Mit lehet csinálni, ha nem akarom végig húzni az egeremmel (ami ráadásul szar) mind a 12ezer sort?
Tudtok arra valamilyen képletes trükköt, hogy egy szám formátumát hogy lehetne kinyerni? Makróval tudom hopgy kell, de az sajnos kivitelezhetetlen az adott helyzetben. Ismerem a Cella függvényt is de az sem megoldás.... Köszönöm előre is ha vkinek van ötlete.
1, Irányított szűrő használata esetén hogyan tudom megadni, hogy a 0 és a 2 értékekre szűrjön? Irányított szűrő esetén a VAGY művelettel összekapcsolt feltételeket külön sorban kell megadni a szűrőtartományban, pl. így Mezőnév 0 2
Jelentése Mezőnév értéke=0 VAGY Mezőnév értéke=2. Üdv József
Hát, ha már összebénáztam, bemásolom az én verziómat is az 2.-re:
Sub KERES() Dim KERES, BeIr As Byte KERES = Cells(1, 1).Value BeIr = 2 Db = Application.CountIf(Range("1:65536"), KERES)
For i = 1 To Db Step 1 Cells.Find(What:=KERES, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Cells.FindNext(After:=ActiveCell).Activate ActiveCell.Offset(0, 1).Value = BeIr Next End Sub
Dim T As Range Dim C As Range Dim S As Long Dim O As Long On Error GoTo Hiba S = ActiveSheet.UsedRange.Rows.Count O = ActiveSheet.UsedRange.Columns.Count Set T = Range(Cells(1, 1), Cells(S, O)) For Each C In T If C = Cells(1, 1) And Trim(Cells(1, 1)) <> "" _ And Not (C.Row = 1 And C.Column = 1) Then Cells(C.Row, C.Column + 1) = 2 Next Set T = Nothing Exit Sub Hiba: Set T = Nothing
1, Irányított szűrő használata esetén hogyan tudom megadni, hogy a 0 és a 2 értékekre szűrjön? A '=0 '=2 használata esetén valamilyért együttetesen (külön cellába) nincs találat. Ha csak az egyiket használom akkor működik.
2, Makróval szeretném elérni: az A1-ben lévő szöveget megkeresi a táblázatban majd a találat melletti cellának az értékét átírja 2-re.
Az is lehetséges, hogy több munkalap van kijelölve egyszerre, ilyenkor jelenik meg zárójelben a címsorban lévő filenév mellett, hogy [csoport]. Pl lehet hogy ctrl+munkalapra kattintással, vagy Shift+Ctrl+pgdown/up billentyűkombinációval ezt érted el...
ilynkor rá kell kattintani vmelyik munkalapra és megszűnik a csoportos kijelölés.
Eszközök - Közös használat - Szerkesztés - Közös használat engedélyezés mezőben törölni a pipát. Részletes leírás a súgóban a közös használat -ra keresve megtalálható.
Csak kinézetileg zavaró a nulla? Akkor a feltételes formázással állítsd be, hogy nulla esetén ugyanolyan legyen (gondolom fehér) a karakterek színe is, mint a háttéré.
Ha sehogy se szeretnéd a nullát, akkor a keresést tedd bele egy IF-be (HA-ba) valahogy így: =HA(FKERES($B2;Munka1!$1:$65536;6;HAMIS)=0;" ";FKERES($B2;Munka1!$1:$65536;6;HAMIS)) így a nulla helyett egy szóköz lesz az eredmény, ami már nem fog zavarni.
Excel munkafüzetet használok. Az első lapon tárolom az alap adatokat, azonosító, név, irányítószám, település név, utca, házszám, helyrajzi szám. A többi lapon eseményeket az első lapon szereplőkkel. Az FKERES függvénnyel /=FKERES($B2;Munka1!$1:$65536;6;HAMIS)/az alap adatok átkerülnek és körlevélben használom fel.
A gondom az, ha üres egy cella az első lapon /elsősorban a házszám, vagy a helyrajzi szám / a keresés eredményeképpen "0" jelenik meg mint érték.
A HA és SZÖVEG.E függvényt körkörös hivatkozás miatt nem engedi. Újabb oszlopot nem szeretnék beszúrni. Tudtok valami megoldást?