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.
Csak most néztem be ebbe a topicba, és van egy javaslatom a 100. hozzászólás problémájához. Nekem működik. A ByRef használata Stringek esetén praktikus lehet, bár lehet, hogy az a default, ezt sajnos nem tudom. Ha nem az, akkor használd, mert gyorsabb lesz a futás.
Function tart_keres(terulet As Range, ByRef felso_sor As String, ByRef bal_oszlop As String)
Dim C, R As Integer
On Error GoTo hiba
C = WorksheetFunction.Match(felso_sor, terulet.Rows(1), 0)
R = WorksheetFunction.Match(bal_oszlop, terulet.Columns(1), 0)
tart_keres = terulet.Cells(R, C)
Exit Function
hiba:
On Error GoTo 0
tart_keres = "Érték nem található"
End Function
Bendeli: IMHO nem szar a McAffe csak az uninstallert kellet volna hanszalni. (Bar nem ertem, mert ha jol tudom, akkor az Add/Remove programs is ugyanazt az Uninstall -t inditja (?))
Milyen tipusu Compaq geped van egyebkent ?
Ha gondolod, en mint ACT szivesen osszeszedek neked egy kit -et, hogy egy reinstall ne legyen gond.
Az angol és a magyar verzió most már teljesen kompatibilis (4-es óta). A függvények belső azonosítóját nem látod, így például az IF függvény magyar verzióban HA-ként jelenik meg. Az angol Add-in-eket nyugodtan le lehet tölteni a magyar verziónál is, a legnagyobb probléma az lehet, hogy a függvények neve nem jelenik meg magyarul.
Ha a függvényvarázslóra kattintasz, akkor két lehetőséged van, az elsőt válaszd.
Az első paraméter a tartomány, ahol keres, esetünkben a B:B, de lehet B:C is, stb.
A második paraméter az a sornak a száma, ezt a G1 (ha a G1-ben 5 van, akkor az 5. sor szükséges).
A harmadik paraméter az oszlop szám, ez 1.
Most vetemedtem ide, egyszeruen ugy erzem, a helyzetem menthetetlen.. Legutoljara 7 eve Linux alatt C-ben programoztam, es most hetvegen kitalaltam egy egyszerusitem a dolgaimat, es excelben csinalok egy kis tablazatot.. minden megy, de egyszercsak elakadtam..
10 mindennapos excel hasznalot kerdeztem es azota nem tudnak megoldast a kerdesemre, ami olyan egyszeru hogy az mar nevetseges..
Szoval..
A1-be kellene masolni a B oszlopnak annyidik sorat, amekkora numerikus ertek szerepel a G1-ben.
Magyaran ha G1=5 akkor A1=B5 ...
Nem hiszem hogy nem lehet, egyszeruen hihetetlen, magyar es angol helpet is vegigolvastam de semmit se leltem..
Igen. :) Az Excel ugyanis nem programozóknak, hanem lámereknek készült, és a magyar lámer nem minden esetben tud angolul. Magyarul feltehetőleg többen. Egyébként az angol verziónak megvan az az előnye, hogy mindenféle add-in-t meg makrót le lehet tölteni, amik nagyon hasznosak tudnak lenni.
Én magam részéről az évek óta az angol nyelvű excel verziókat használom, de a múltkor segítenem kellett valakinek akinek a magyar nyelvű verzió volt.
Hát mit mondjak, ennyi bazzeg régen hagyta el a számat. Ennél nagyobb baromságot még az életben nem láttam, évtizedek óta nemzetközileg is ismert függvényeket, de tulajdonképpen programozás-technikai kulcsszavakat lefordítanak magyarra !!!
Nincs IF, OR, AND, hogy csak az legalapvetőbbeket említsem, helyette van HA, VAGY, ÉS
Aztán az olyanoktól is kiakadtam, mint pl az =ÁTLAG(B4:B20) remélem jól írtam.
Nem próbáltam ki, de megérti egyáltalán a magyar verzió az angollal íródott és függvényektől hemzsegő fájlokat ?
Valamint kiváncsi volnék a véleményetekre, szerintetek is ennyire elb.szott ötlet volt ezt magyarítani, vagy csak én gondolom így ?
Javaslom a download.com-ot: ott még sok egyéb okosság is van. Egyébként ashampoo.com. Meglepő? ;) Természetesen az winopt. a remek kis progi, a mcafee most fekete-listán van.
Szia bendeli!
Akkor mar azt is aruld el, hogy honnan lehet letolteni. En is kiprobalnam!
Ahhoz képest, hogy ingyen regisztrálhatod remek kis progi. Melyik? a mekafii, vagy az optimizer? ;o)
Nemcsak hogy kitisztítja a regfájlt, de a fölös .dll-eket, fájlokat, üres mappákat is letisztítja. Nagyon csecse, nekem 20+ megát szabadított fel első futtatásra, plusz legyilkolta a McAfee maradékait is! (Ezúton is mindenkit óvok a McAfee bármelyik alkalmazásától: egyszerűen nem lehet őket leszedni normálisan, és még az Exceledbe is belerondítanak...) Ahhoz képest, hogy ingyen regisztrálhatod remek kis progi.
A McAffee-vel nekem is voltak problémáim, lejárt a 30 napos próbaidő, állandóan regisztráltatni akarta magát. A saját Uninstallját lefuttattam, a progi eltűnt minden linkjével együtt, de a regisztráció igényét ottfelejtette! Nálam is csak a reinstall segített! :o(
Na igen, jobban tetted volna, ha a VirusScan sajat unsinstallerjet alkalmazod. Konkret progit nem ajanlok, mert en is ritkan kenyszerulok ilyesmire (nem ismerem oket csontig), de az origo szoftverbazison lattam ilyeneket, szerintem proszald ki oket. Vagy ha ott nem is, de a neten csillagaszati szamban talalhatoak ilyen segedprogramok.
tudorapo: Format-újrainstall verzió nálam nem játszik, mert Compaq terméket vettem, amire ugye gyárilag installálnak win-t, lemezt viszont nem adnak vele. Registry szintén nem játszik, nem vagyok én akkora játékos. (Akkora se.)
ControlDenied: a Control Panel Add/Remove Programs-al. Tudsz esetleg egy jó kis uninstallert, ami letakarítja ezt a ...-t? A McAffee-nek van egy ilyesmi progija, nem vagyok biztos abban, hogy próbálkozni akarok a termékeikkel ezek után. Bár lehet hogy működne, mert ők biztos tudják, hogy mivel lehet az egyszeri júzert szívatni...
Jellegzetesen nincsen megoldása. Azért lassult le mert a virscan próbálja ellenőrizni az összes makrót, és azért nem gyorsul fel, mert nem lehet rendesen leszedni a virscant. Ez az "öblös mélyrenyúló szopás" kategória. format c: windows install excel install. Vagy nekilátsz keresgélni a nyomait a mcafee-nek a registryben. Ez reménytelen. részvétem.
Feltettem a McAffee VirusScan-t a gépemre, ami nagyon csecse, de most egy Excel spreadsheet-em 15-20 tölt be. (Tele van makróval, de azelőtt pikk-pakk betöltődött.) Már leszettem ezt a g*ci VirusScan-t, de ettől még nem gyógyult meg az én kis excel fájlom. >:{ Tud valaki ötletet adni, hogy mit tehetnék?
hát sajnos nem jött be, de szerencsére végül a Novell filer-rel, vissza tudtam állítani az előző napi mentést, így hála égnek így nem veszett oda minden.
Javaslom a 73-as hozzászólásban leírtakat. Nekem már többször bejött (sajátomét nem, de másokét már előhoztam vele). Az a tapasztalatom, hogy általában ez az utolsó esély. Tehát ha ez működik, akkor még lehet mással próbálkozni (hogy a képletek és a formázás is megmaradjon), ha ez sem megy, akkor KO.
van egy excel file-om, amivel eddig semmi probléma nem volt, ma mikor másodszor akartam megnyitni az alábbi hibaüzenetet kapom:
" .xls cannot be accessed. The file may be read-only, or you may be trying to access a read-only loacation. Or, the server the document is stored on may be not responding. "
Na most a file nem read only az biztos, de readonly módban sem tudom megnyitni. A könyvtár ahol van szintén nem readonly, de akár át is másolhatom más könyvtárba, saját gépre, stb. ugyanezt a hibaüzenetet kapom. megpróbáltam átnevezni, úgyse megy. Gépet újraindítottam, másik gépről próbáltam megnyitni sikertelenül.
Ma mikor utoljára használtam, teljesen szabályosan elmentettem, majd kiléptem belőle.
Ezzel nem lehet sokat megspórolni, mert nem a tartományban kell keresni, hanem annak első sorában és első oszlopában.
Mindenesetre így működik. Egyébként ezt a funkciót egy átlagos felhasználó nem kapja meg könnyen:
Adott egy tartomány, amelyből az a cella kell, amelyiknek az első sorában található az "Ár" szó, míg az első oszlopban az "Alma". Sajnos ezt csak csak többszörösen összetett függvénnyel lehet visszakapni (az én függvényem nélkül).
Tudom ez a változat nem sokat segít (for ciklus ez is sajnos), de azért bemásolom:
Function Keresés(Tartomány As Object, Mit_keres As String)
Dim C As Variant
Dim Volt As Boolean
Volt = False
For Each C In Tartomány
If C.Value = Mit_keres Then
Keresés = C.Address
Volt = True
End If
Next C
If Not Volt Then
Keresés = False
End If
End Function
Konkrétan ezt akartam tisztességesen, for ciklus nélkül megcsinálni.
Tiba
Function tart_keres(terulet As Range, bal_oszlop As String, felso_sor As String)
sorszam = terulet.Rows.Count
oszlopszam = terulet.Columns.Count
For i = 1 To oszlopszam
If terulet.Cells(1, i) = felso_sor Then
oszlop = i
Exit For
Else
End If
Next
For j = 1 To sorszam
If terulet.Cells(j, 1) = bal_oszlop Then
sor = j
Exit For
Else
End If
Next
tart_keres = terulet.Cells(sor, oszlop)
End Function
Nem sajnos munkalapról indítva nekem sem müködik. Valami még hiányzik belőle! Jó lenne egy beépített függvény forráskód listája, mert szerintem csak egy (két) utasítás hiányzik ami visszaadná a cellába az értéket. Egyébként kipróbáltam a függvény végére beírni az "ActiveCell.Value = Keres2" sort, amit tesztelésnél bele is ír, de a függvény varázslóval nem megy (körkörös hivatkozás lesz). Szóval ha neked vagy valakinek lenne ilyen forráskódja szerintem annak segítségével argumentumokat is adhatnánk hozzá:
- mit keressen
- mely cellákban
és persze müködne is.
Legközelebb csak hétfőn lesz net-em addig is mindenkinek jó hétvégét!
A fene egye meg, munkalapról indítva így sem jó!!!
A tesztelésnél ok, ha a makrót indítom, visszaadja az értéket, de munkalapról nem megy: mindenképp False értéket ad vissza.
Neked megy munkalapról indítva is?(függvényvarázsló/felhasználói függvény/Keres2)
Sub Eredmény()
Dim Megfelelő As Variant
Megfelelő = Keres2
End Sub
Function Keres2()
Dim C As Variant
With Worksheets(1).Range("A1:IV65536")
Set C = .Find("g", LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
Keres2 = C.Address
Else
Keres2 = False
End If
End With
End Function
