Excel segítség!
#262
Elküldve: 2008. 11. 26. 13:41
Idézet: Delila - Dátum: 2008. nov. 26., szerda - 11:12
A beillesztés előtt a kurzort tedd a megfelelő pozícióba – a cells(1,1).select, vagy range("A1").select talán segít.
Az sajnos nem működine, mert 8-10 képet kell beszúrnia a megfelelő helyre.
#264
Elküldve: 2008. 11. 26. 17:59
Idézet: Delila - Dátum: 2008. nov. 26., szerda - 18:33
Nem én írtam a makrót, de megnézem a forrást, hogy mit lehetne tenni.
#265
Elküldve: 2008. 11. 26. 22:07
<form name="Login" method="post" action="https://xy.hu/abc/index.aspx" id="Login"> <input type="hidden" name="__EVENTTARGET" id="__EVENTTARGET" value="" /> <input type="hidden" name="__EVENTARGUMENT" id="__EVENTARGUMENT" value="" /> <input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPDwU(...nagyonhosszú karaktersor...)Kr1WK0DPM" /> <input name="tbUserName" type="text" id="tbUserName" value="felhasznalo" /><br /> <input name="tbPassword" type="password" id="tbPassword" value="jelszo" /><br /> <input type="submit" name="bnLogin" value="Belépés" id="bnLogin" title="Belépés a rendszerbe" class="submit" /> </form>
Na, ehhez tud valaki valami okosat?
#266
Elküldve: 2008. 11. 26. 22:34
Idézet: szucsati - Dátum: 2008. nov. 26., szerda - 23:07
XMLHTTP vagy WebBrowser ActiveX vezérlő segítségével megoldható. Előbbi elegánsabb, utóbbi biztosabb. VBA segítségével végig kell vezérelni ezen objektumokat a belépésen és a weblap letöltésen, amit utána már be lehet olvastatni az Excelbe -- akár automatikusan, záró lépésként.
Példakódot hadd ne írjak, egy ilyen kódoláshoz nekem már kevés a vállveregetés, túlságosan le kéne ülnöm hozzá.
Ami hordozható, az nem megbízható!
#267
Elküldve: 2008. 11. 26. 23:17
Idézet: Root_Kiskacsa - Dátum: 2008. nov. 26., szerda - 23:34
Példakódot hadd ne írjak, egy ilyen kódoláshoz nekem már kevés a vállveregetés, túlságosan le kéne ülnöm hozzá.
Az Excelben vannak ActiveX vezérlők? :Đ
#268
Elküldve: 2008. 11. 27. 20:45
Idézet: szucsati - Dátum: 2008. nov. 27., csütörtök - 0:17
Mindenben vannak, ami rendelkezik VBA-val vagy VBS-szel. De speciel magán az Excel munkalapokon is lehet alkalmazni GUI-val is rendelkező ActiveX vezérlőket.
Pl. anno írtam olyan VBA kódot is Excelhez, ami egy ASP-s weblapról húzta le a feldolgozandó anyagokat, melyeket némi átszámolás után betolt az egyik munkalapra. Az mondjuk OLE-vel ment (Internet Explorert hívta), de hangyányi a különbség az ActiveX és az OLE kezelése között. Pláne, hogy a WebBrowser elem pontosan ugyanazokat az elérhető API-kat tartalmazza, mint OLE-n keresztül az Internet Explorer.
Szerkesztette: Root_Kiskacsa 2008. 11. 27. 20:51 -kor
Ami hordozható, az nem megbízható!
#269
Elküldve: 2008. 11. 28. 09:23
Ezt mi okozza?
#270
Elküldve: 2008. 11. 28. 16:31
Van egy tablam amiben egymast koveto sorokban vannak szamok, de az neha megvaltozik, hogy csak az elso mondjuk ot vagy tizenot sorban van-e szam (utana soha nincs). Kellene csinaljak egy chartot ami csak a megtoltott sorokat chartolja, es nem szur be kismillio ures sort.
Az adatlap neve template, a keresett szamok I25 -os cellanal kezdodnek es kb 180ig mennek. Probaltam ezt betenni a series sorba, de nem szereti:
=SERIES("Switching",template!$H$25:$H$180,template!$I$25:I(25+(COUNT(template!I25,template!I180))),1)
(a H resszel most asszem nem kell foglalkozzunk, akkor se megy ha {""} van helyette.
Otletek a megoldasra?
Macro is johet, de ahhoz en kevesse ertek
Szerkesztette: Wyco 2008. 11. 28. 16:32 -kor
Csodabogár vagyok. Egy ismerősöm azt mondta, hogy a hinduk szerint aki most bogár, az előző életében egysejtű volt. Ha ilyen tempóban fejlődök tovább, legközelebb már minden bizonnyal valami istenség leszek :D [Saját...]
#271
Elküldve: 2008. 11. 28. 16:42
Ez a rövid kis makró kitakarítja azokat a sorokat, amiknek az I oszlopában nem talál bejegyzést.
Sub torl()
For sor = Range("I65536").End(xlUp).Row To 2 Step -1
Cells(sor, 9).Select
If Selection = "" Then Selection.EntireRow.Delete
Next
End Sub
#272
Elküldve: 2008. 11. 28. 16:59
Sajna ez nekem nem segit, mert linkelve vannak dolgok, es ha a linkeket megszuntetem (mert torlom a sort) akkor legkozelebb az adatok nem tudnak bekerulni oda, mert behivja oket mashonnan
Mindjart beszurok egy screenshotot a tablarol
Szerkesztette: Wyco 2008. 11. 28. 17:03 -kor
Csodabogár vagyok. Egy ismerősöm azt mondta, hogy a hinduk szerint aki most bogár, az előző életében egysejtű volt. Ha ilyen tempóban fejlődök tovább, legközelebb már minden bizonnyal valami istenség leszek :D [Saját...]
#273
Elküldve: 2008. 11. 28. 17:10
Az a baj hogy az A oszlopban levo dolgok kozul neha tobb, neha kevesebb a hasznos, tehat a Shifting total elotti resz neha hosszabb, maskor rovidebb,de ez a tablanal az I sorban meg van oldva, csak a chartban nem tudom hogy kene jol behivni.
Csatolt fájl:
-
exceltabla.gif (0byte)
Letöltések:: 44
Csodabogár vagyok. Egy ismerősöm azt mondta, hogy a hinduk szerint aki most bogár, az előző életében egysejtű volt. Ha ilyen tempóban fejlődök tovább, legközelebb már minden bizonnyal valami istenség leszek :D [Saját...]
#274
Elküldve: 2008. 12. 01. 17:29
A kod:
Private Sub Chart_Activate()
MeasPasteStartCol = 9
MeasPasteStartCName = 8
With Worksheets("template")
RelevantRows = WorksheetFunction.Count(.Range("I25", .Range("I65536").End(xlUp)))
End With
ActiveChart.charttitle.Text = "=template!R12C8"
ActiveChart.SeriesCollection(1).Name = "='template'!R25" & "C" & MeasPasteStartCName & ":R" & RelevantRows + 24 & "C" & MeasPasteStartCName
ActiveChart.SeriesCollection(1).Values = "='template'!R25" & "C" & MeasPasteStartCol & ":R" & RelevantRows + 24 & "C" & MeasPasteStartCol
End Sub
Nagyjabol megcsinalja amit akarok, de nem az igazi, mert most mindegyik sor csak egy ertek (value), pedig en a csatolt eredmenyt szeretnem. lehet mindegyiknek seriesnek kene lennie, de nemtom hogy kell azt
Csatolt fájl:
-
SW_cel.gif (0byte)
Letöltések:: 19
Szerkesztette: Wyco 2008. 12. 01. 17:43 -kor
Csodabogár vagyok. Egy ismerősöm azt mondta, hogy a hinduk szerint aki most bogár, az előző életében egysejtű volt. Ha ilyen tempóban fejlődök tovább, legközelebb már minden bizonnyal valami istenség leszek :D [Saját...]
#275
Elküldve: 2008. 12. 01. 19:30
Idézet: Bird-Of-Prey - Dátum: 2008. nov. 28., péntek - 10:23
Ezt mi okozza?
erre senki?
#276
Elküldve: 2008. 12. 02. 00:34
Idézet: Wyco - Dátum: 2008. dec. 1., hétfő - 16:29
Megoldva
Names helyett XValues
BOP: en sajna nem
Csodabogár vagyok. Egy ismerősöm azt mondta, hogy a hinduk szerint aki most bogár, az előző életében egysejtű volt. Ha ilyen tempóban fejlődök tovább, legközelebb már minden bizonnyal valami istenség leszek :D [Saját...]
#277
Elküldve: 2008. 12. 02. 22:03
Csatolt fájl:
-
Clipboard02.jpg (0byte)
Letöltések:: 0
#278
Elküldve: 2008. 12. 02. 22:30
Idézet: Picur - Dátum: 2008. dec. 2., kedd - 23:03
Tudja a fene mennyire lehetséges ilyet kimutatásban beállítani, mindenesetre képlettel megoldható:
Csatolt fájl:
-
excel4.jpg (0byte)
Letöltések:: 0
Ami hordozható, az nem megbízható!
#280
Elküldve: 2008. 12. 20. 11:11
Szerkesztette: INVIHO 2008. 12. 20. 11:15 -kor

Súgó
A téma zárva.















