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.
Próbáld ki ezt. Feltételeztem, hogy a B oszlopban vannak az alma, cékla, banán, stb., szóval amivel beazonosítható a nemtudommi, továbbá a C oszlopban van nemtudomminek a nemtudommije, amit figyelni kell. Sajnos e tekintetben eléggé ellentmondásos információk jöttek eddig. Az alapötlet pedig az eddigiektől eltérően az, hogy a már naplózott banánok közül keresem ki az utolsó banánt, és ha ahhoz képest van eltérés, akkor naplózom megint. Így nem kell temp munkalap.
Private Sub Worksheet_Change(ByVal Target As Range) Dim wsLog As Worksheet, rLog As Range Dim rQuery As Range, c As Range, Hit As Range
Set wsLog = Worksheets("Munka5") Set rQuery = Range("B1", Range("B" & Rows.Count).End(xlUp)) For Each c In rQuery Set rLog = wsLog.Range("B" & Rows.Count).End(xlUp).Offset(1) Set Hit = wsLog.Range("B:B").Find(what:=c.Value, after:=rLog, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious) If Hit Is Nothing Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now ElseIf Hit.Offset(, 1) <> c.Offset(, 1) Then rLog.Offset(, -1).Resize(, 3).Value = c.Offset(, -1).Resize(, 3).Value rLog.Offset(, 2) = Now End If Next End Sub
weblapról szépen elérem a kérdéses oldalt, viszont vagy nem találom a kis nyilat mellyel kijelölhetem az adatokat, vagy az adatokat kijelölöm majd pedig importálom - viszont hiányosan jelennek meg a munkafüzetben. Körbenéztem a különböző fórumokon, de sajna sehol sem találtam megoldást. Elképzelhető hogy ezt a fajta dolgot nem tudja kezelni az excel...
árfolyamokra lenne szükségem, amit a táblázat megnyitása után azonnal tudok - mármint az értékeket - frissiteni.
A problémát igazából az jelentheti, hogy ugyanazon internetes oldalcimhez több megjeleníthető adathalmaz (flash?) tartozik.
biztos érthetetlenül fogalamztam, elnézést érte. Ha valaki találkozott hasonló szituval kérem adjon tanácsot.
a B oszlopban csak akkor van alma nevű elem, ha a weblekérdezés ad alma nevű elemet, amúgy nincs.
leegyszerűsítené a dolgot, ha mondjuk ÉN DIREKT egy feltételhez kötném, mit LOGGOLJON????
például ilyesmi: a munka3 worksheetben , ha az adott sor "C" oszlopban lenne egy "L" karakter, akkor loggolja a sor 3 értékét? (időkijelzéssel) a munka5-re.
Nem. Kicsit elbeszélünk egymás mellett, ha jól hallom :-)
A B oszlop sorai mindíg azonosak (pld. ha a weblekérdezés nem ad eredményt az alma nevű elemre, attól függetlenül a B oszlopban lesz alma nevű elem (és mindíg pld. a második) vagy a B oszlopban csak akkor lesz alma nevű elem, ha a weblekérdezés rész ad alma nevű elemet)?
A weblekérdezés sorrendjét értem, én a figyelendő (logolandó) tartomány sorrendjét kérdeztem (A oszlop és társai?). Az ottani tételek sorrendje fix vagy az is változik aszerint, hogy mi jön le a weblekérdezésben?
a weblekérdezés abc sorrendben jön.. ez kicsit gáz, mivel (alma banán cékla) esetében a cékla 3. helyen áll következő frissítéskor akár második helyen is állhat (alma cékla görögdinnye) ---a banán kiesik, a görögdinnye bejön
az új érték mindig az ABC szerint szúródik be a sorok közé, és a weblekérdezés üres tartománya pedig törlődik (a banán sora teljes egészében)... Az összehasonlító megoldásban ennek nem lenne túl nagy jelentősége, vagy mégis??
-hogy kell "kinyomni a figyelendő tartományt" egy temp worksheet-be? mármint hogy temp legyen.. valódi elözmény legyen.
-hogy kell összehasonlítani így a tempben lévő értékeket az újonnan beérkezett értékekkel
-és az eltéréseket hogyan kell kiiratnom a munka5-re. :)
hát ezeket nem tudom. :)
de ha már megvan..
-azután már tudom szűrni, listázni, formálni, alakítni, "függvényelni", hogy statisztika lehessenek belőle.
-az egész munkafüzetben szereplő cellák nem csak kizárólag a weblekérdezések értékeit illetve annak számított eredményeit tartalmazzák.
-érdemes lenne a munka3 worksheet-re kitalálni vmit, ne pedig workbook-ra, mert a többi munkafüzet is változik, és azoknak a változásíit nem szeretném loggolni.
Hát, akkor itt az a megoldás, hogy a figyelendő tartomány (NEM a weblekérdezéses területet) értékét ki kell nyomni egy átmeneti worksheet-re és minden weblekérdezés után ellenőrizni kell, hogy a figyelendő tartomány új értéke megegyezik-e az ideiglenes worksheet-en lévő adatokkal. Ha nem, akkor kell logolni.
Felteszem a figyelendő tartományban az adatok sorrendje nem változik (csak azért kérdem, mert most van amikor "alma, cékla, répa", máskor meg "banán, cékla, paradicsom".
köszönöm a code-ot, és egyet értek a tapasztalatoddal.
ez így müködik, de nem jól.
a weblekérdezés nem publikus. egy olyan táblázat, aminek az oszlopszámai változatlanok, a sorainak száma változik 0-30 között, most perpillanat 5 sor. Sohasem több mint 30 sor. Betettem az "F" cellára.
A KÓD-dal az a baj, maga a WEBLEKÉRDEZÉST gondolja változásnak, így ugyanarról ugyanarra, vagy semmiről semmire történő cellaváltozást is loggol.
Eredmény:, hogy a munka5-ön öt sorban van adat, aztán alatta 25 sorban nincs, aztán két perc múlva azalatt megint lesz öt sor, (ami ugyanaz az adat, mint a legelsö ötösnél)
A weblekérdezés kétpercenkénti, de ez csak a REALtime (hatás) figyelés miatt van, valódi változás az adatokban ritkán van ( óránként), tehát két percenként ne loggolja ugyanazt lehetöleg. :) itt SQLkerdesnek nek igaza van. az a baj, hogy nem történik valós változás. ha kétpercenként történne, akkor ez a kód lenne a legjobb a világon.
HOgy kellene megcsinálnom ezt a TEMP összehasonlítós megoldást?, nem akarom bonyolítani a dolgot, valami alapmegoldás is jó lenne, nem kell nekem tökéletes, viszont IDŐ-kijelzése fontos lenne.
!!Példa!! 3-4 értékkel csak hogy érthető legyen (sorry az adatok bizalmasak, ezért helyettesítem ezekkel):
Sziasztok ! Egy relatív egyszerű dologban szeretném a segítségeteket kérni. Van egy excel táblázatom, amit nyomtatok, rengeteg pédányban minden nap. A lényeg, hogy van 15 könyvtáram kb 300 file-al, amik összefüggésben vannak ezzel a táblázattal.
Az egyik cellába egy kódot írok, pl 935848, ez alapján megkeresem a könyvtárakban ugyanezt a word-ot, ecelt ( a neve nem teljesen ugyanez ) és azt is kinyomtatom módosított adatokkal. Hiperhivatkozással, if fügvénnyel vagy valahogyan meg lehet oldani, hogy ha pl A1=935848 akkor nyissa meg nekem automatikusan a C:X935848abcd.doc file-t ?
nem tudom milyen adatok kérdeznél le és honnan így, de egy olyan helyen ahol 2 percenként frissülő adatok vannak, szolgáltatják az oldalon belül azok logolását is. (pl. árfolyamadatok, tőzsdei kereskedelmi adatok stb...)
Teszteletem egy saját weblekérdezésseel, és azt tapasztaltam, hogy amikor a lekérdezés frissül, a Worksheet_Change eseményben a Target a teljes tartománnyal lesz egyenlő. Ha tehát pl. egy weblekérdezés normál esetben az A1:T110 tartományt foglalja el, frissítéskor Target = A1:T110 lesz. Mindez független attól, hogy ténylegesen van-e változás a webről lehívott értékekben.
Ez azonban szerintem teljesen konzekvens működés, mert a Worksheet_Change ugyanígy működik sima cellamódosításnál is. Ha ugyanis pl. A1-ben eredetileg 1 van, és rálépsz A1-re, lenyomod az 1-est és ENTER-t, akkor tulajdonképpen a cella értéke nem változott meg, hiszen előtte is, utána is 1 az értéke, a Worksheet_Change mégis lefut. Az értékek tényleges megváltozását úgy lehetne esetleg nyomon követni, hogy a teljes lekérdezés tartalmát (az értékeket) lementeni egy temp munkalapra, és frissítés után azzal hasonlítani össze az új értékeket.
JTH makrója csak abban az egy esetben nem működik (vagyis de pedig nem kéne) ha a weblekérdezés eredményeként a figyelendő cella mégsem változik. Ez akkor történhet, ha az alkalmazott függvények olyanok, hogy két változás kiolthatja egymás hatását. Erről pilótakeksz nem nyilatkozott.
Viszont azt gondolom, hogy mivel változás nem marad ki, csak olyan false pozitívok kerülnek be, amiknek nem kellene, a makró jó.
Meglehet, de amit JTH megadott makrót, azzal is működik (kipróbáltam, csak a range-t vettem le egy cellára és az időt annak megfelelően, ahogy azt az importálás frissítési gyakoriságában beállítottam). Nagyon jó a dolog, érdemes kipróbálni.
"A valós lekérdezés a F oszloptól kezdődik, de ez lényegtelen."
Attól tartok, nem lényegtelen. Ide szerintem a Worksheet_Change vagy Workbook_SheetChange esemény kell, és figyelni kell, hogy hol történik változás a munkalapon. A képlet újraszámolása nem jelent változást, szóval az A2:C31 tartományt hiába figyeli a program. Amennyiben a lekérdezésben benne van az F2 cella, szerintem az alábbi kód jó lesz. A ThisWorkbook kódlapjára másold be.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim r As Range If (Sh.Name = "Munka3") And Not Intersect(Target, Sh.Range("F2")) Is Nothing Then Set r = Worksheets("Munka5").Range("A" & Rows.Count).End(xlUp).Offset(1) r.Resize(30) = Now Sh.Range("A2:C31").Copy
r.Offset(, 1).PasteSpecial xlPasteValues End If End Sub
valamit elcseszek : ne haragudj! Pontosítok amennyira csak tudok: legelőször pontatlan voltam.
-->munka3 a2:c31 - re érkezik a weblekérdezés, illetve a weblekérdezés által lehívott táblázat azon része, ami fügvények segítségével A B C oszlopokba lett szűrve a számomra hasznos tartalmuk. A valós lekérdezés a F oszloptól kezdődik, de ez lényegtelen. A lényeges infó az A B C oszlop. (amiben a sorok összetartoznak) és nem 10 sor hanem a legfelső változatlan címsor alatt 30 változó tartalmú sor áll. Tehát a címsort nem kell loggolni.
-->munka5 a2:..... -re szeretném a loggolást végrehajtani! (több ezer soron keresztül is loggolhat)
a munka5-re megyek, view code, és beleírom azt, amit írtál a Worksheet-be:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LogRow As Integer If Target.Row < 32 And Target.Column < 4 Then
' az A2:C31 tartomány változott
LogRow = Sheet5.UsedRange.Rows.Count + 1
Sheet5.Cells(LogRow, 1).Value = Time
Sheet5.Cells(LogRow, 2).Value = Target.Address
Sheet5.Cells(LogRow, 3).Value = Target.Value
End If
End Sub
a Kódban mi mutat a munka3-ra? és rendben van ez így? mert nekem nem működik, azt írja ki, hogy "Can't execute Code in break Code."
Segítségedet előre is és utólag is köszönöm.
És bocs, ha az arcodat kaparod, amiért értetlenkedem. ÜDV!
A kihúzott részek egy korábbi koncepcióból maradtak bent, hagyd ki őket.
A Sheet1, Sheet2 a munkalapok kódnevére vonatkozik, értelemszerűen cserélni kell őket ha az adataid más füleken vannak.
Más: ha a weblekérdezést makro csinálja, akkor ezt abba is bele lehet integrálni.
Más2: ha a weblekérdezés eredményeképp egy egész range változik egybe (pld. A1:B20) akkor nem feltétlenül fog jól működni a lenti kód, mert a Value property-nek bekever ha a Target nem sima cella.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Range2Check As Range
Dim LogRow As Integer Set Range2Check = Range(Sheet1.Cells(1, 1), Sheet1.Cells(11, 2)) If Target.Row < 12 And Target.Column < 3 Then
