Keresés

Hát ha nincs leírás, akkor marad a kisérletezés, de az bizony veszélyekkel jár. Itt van pl-ul ez a nick tiltás.  Ha meggondolom magam, felodhatom? Mit tudsz erről?

A hsz zabrálás alatt azt értem, hogy ha 1 percnél továbbtart egy comment megírása, akkor azt jó eséllyel írhatod újra, mert a motor elzabrálja. (Ezt elkerülendő írom ezt hsz-t is szövegszerkesztőbe)

Nem tudok róla, hogy írtak volna, de nem szokásuk mindig mindent a user orrára kötni. Mit értesz zabráláson?

Írtak erről a fejlesztésről valahol? Szívesen elolvasnám.

Azt nem tudod véletlenül, hogy a fejlesztés során a válasz zabrálást is felszámolták vagy az megmaradt fórumficsőrnek? 

Na de látom, neked már 500 ezer feletti a regisztrációs számod, majd előásom egyszer, hogy nézett ki a fórum 2004 előtt. :-)

Ez komoly? Átprogramozták a fórumot, nem a te géped állítódott el, ebből következően sehogy nem lehet visszaállítani. (A fórummotor valószínűleg nagyrészt maradt, csak a renderelés változott, de a felhasználó tiltása pl. új funkció, eddig nem volt, és ezért sokan fordultak barkácsmegoldásokhoz a trollok kiszűrésére.)

Eddig még nem láttam visszacsináló szkriptet, de a legegyszerűbb, amit tehetsz, hogy megszokod. Ez a fórum új ruhája, nem borulás, fejlesztésnek szánták.

A gépemen valamiért megborult a fórum commentek fejléce. A közepéről eltünt a "válasz", a "könyvjelző" stb linkek, és ikonként kikerültek a jobb szélre. Aztán vannak olyan kommentek, ahol volt valami fekete biszbasz a jobbszélen a kommentsorszám mellett. Ezek meg bejöttek középre.

Hogy lehet visszaállítani a megszokott formatumra? 

És vajon miért állítódott el? Tegnap még a szokásos volt, a mai bekapcsoláskor meg az új.

Az XP-gépen random nálam is elő szok fordulni. Próbáld meg a következőt. Helyezz el egy Personal filet az xlstart könyvtárba. Azt valszeg akkor is megtalálja, ha az xls filet nem.  A sikertelen filebehvás után klikkelj újra a behívandó filera, ami most már feltehetőleg bejön. Nálam legalábbis igy működik.     

Az nem jó, hogy b9-be egyszerűen beírod, hogy =B8-A8? Ha pozitív, akkor a tetejéből van többlet, ha negatív, akkor az aljából, ha 0, akkor nincs maradék. 

Ha viszont az Excel már fut, amikor a fájlra duplakattintok, akkor megnyitja.

Ha jól emlékszem, akkor ezen a gépen akkor sem nyitotta meg.

Amúgy azt hiszem, összekevertem egy kicsit a két választ, de a lényeg az, hogy nem látszik semmiféle kérdés vagy hibaüzenet, simán elindul az Excel, csupáncsak a táblázatot nem nyitja meg.

Kösz a tippet, de ez se jön be. Mondom, hogy egyébként minden működik, a programból már simán megnyitja, anélkül, hogy bármit is telepíteni akarna, csak éppen az xls-sel indítva nem jelenik meg a táblázat.

Néztem az Ablak menüt, de tök üres volt, minden ki volt benne szürkítve. Ezért írtam, hogy nincs sehol a táblázat.

Ilyennel, vagy ehhez hasonlóval már többször találkoztam.

Duplakatt a fáljra a mappában, erre elindul az Excel, aztán rájön, hogy neki még itt valamit konfigurálni/telepíteni kell a munkafüzet megnyitása érdekében. Megcsinálja a konfigurálást/telepítést, de közben elfelejti, hogy a fájlt is meg kéne nyitni.

Ha viszont az Excel már fut, amikor a fájlra duplakattintok, akkor megnyitja.

Nem lehet hogy felhoz nyitas kozben egy ablakot amiben kerdez vmit (serult a file - megjavitsam e? v hasonlot), csak ez valamiert a hatterben van es nem latod. Ez gyakran elofordul.

Probald ki h megnyitod a kerdeses filet es amikor ugytunik h nem tortenik semmi nyomsz egy Windows gomb + D-t ami visszarak a desktopra es vagy ott vagy alt+tabbal megkeresni a kisablakot. Ha nincs akkor viszont passz.

Mikor behívtad, az Ablak menüben fedd fel, valószínűleg rejtve jön be a füzeted.

Én is beleszaladtam most egy ilyen problémába, azaz az Excel 2003 csak akkor jeleníti meg a táblázatot, ha a programból nyitom meg, de ha az xls-t próbálom elindítani, akkor elindul az Excel, de a táblázatnak se híre, se hamva. Nem minimalizálva van, hanem egyszerűen nincs sehol. Találkozott már valaki egy megoldással erre a problémára? Vagy volna valami jó ötlet rá? Állítólag azután jelentkezett a hiba, hogy egyszer elhasalt a gép, és kikapcsolták. De a program egyébként működik, akkor mi lehet a gond?

Sziasztok!

Egy egyszerűnek tűnő megoldást nem tudok befejezni és ebben kérném a segítségeteket:

A1 és B1 oszlopokból indultam

alja    teteje

10       30

15       20

19       1

Ezeket szummázm a 8. sorban. A9-ben pedig egy min() fgv-t írok és megvan, hogy hány darab szett van.

Esetünkben 44 szett alakul így ki és van 7 darab tető még.

A plusz tetőt vagy alját hogyan lehetne meghatároznom hogy miből és mennyi maradt a szetten felül?

Hát ez egészen komoly lett, emelem kalapom és persze hálás köszönetem feléd is!

Nem merném ráfogni, hogy értem amit csinál, de mivel jól és gyorsan csinálja, nem is számít, hogy értem-e :)

Gondoltam, de nálam szépen remeg a kép a makró futása közben, látszik, hogy nem henyél. No meg a végén ott az üzenet. :)

Mondd meg az ördögödnek, hogy tévedett. Annak a sornak nagyon is fontos szerepe van. Abból látszik, hogy történik valami :)

(Csak a show kedvéért hagytam benne.)

Igazából már régóta használom ezt a módszert bizonyos feltételeknek eleget tevő sorok elrejtésére, törlésére, stb.

Kell egy segédoszlop, benne egy képlet, ami a "jó" sorokra 1-et ad, a "rossz" sorokra meg pl "x"-et. A képlet kiszámolása (akár az egész oszlopra) villámgyors, és aztán csak a SpecialCells segítségével kell kiszűrni az 1-eseket. Főleg nagy méretű táblázatoknál nyilvánvaló a módszer előnye.

Ráadásul egy jól összerakott képlettel sokkal bonyolultabb szűrést is el lehet végezni, mint hogy üres-e a C oszlop vagy sem. Amely szűrés a favágós (For...Next) módszerrel esetleg még lassabb lenne.

Találtam egy felesleges sort: ws.activate

A kisördög súgta, hogy ezt írjam be. :D

Tudtam, hogy kihozol egy sokkal gyorsabbat!

Villámgyors, le a kalappal.

Próbáld ki ezt is.

Sub Auto_Open()
    Dim ws As Worksheet, Rng1 As Range, Rng2 As Range, Lap As Long, Sorok As Long
   
    For Lap = 2 To Worksheets.Count
        Set ws = ThisWorkbook.Worksheets(Lap)
        ws.Activate
        Sorok = ws.Cells.SpecialCells(xlLastCell).Row
        
        'Felfedjük mindegyiket
        ws.Rows.Hidden = False
        
        Application.ScreenUpdating = False  'Letiltjuk a képernyő frissítését
        
        'Magic is at work here...
        Set Rng1 = ws.Range("C4").Resize(Sorok)
        Set Rng2 = ws.Cells(4, ws.Columns.Count).Resize(Sorok)
        Rng1.Copy
        Rng2.PasteSpecial xlPasteValues
        Rng2.Replace what:="", replacement:=1
        
        '4. sortól rejtünk csak ha 3. oszlop értéke üres
        On Error Resume Next
        Rng2.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Hidden = True
        Application.ScreenUpdating = True
        Rng2.EntireColumn.ClearContents
        ws.Range("A1").Activate
    Next
    MsgBox ("Kész van."), vbOKOnly
End Sub

Szívesen. :)

Valóban gyorsult, hálás köszönetem!

Sok a lap és a sor, de pont ez az, amit jelentősen nincs esélyem csökkenteni. Talán 1-2 lap és 10-20 sor eltűnik belőle, de az nem tétel össz. 420 sornál és 26 lapnál.

Sok lap sok sorát kell elrejteni. Talán egy keveset sikerült gyorsítani rajta.

Sub Auto_Open()
    Dim sor%, sorok%, lap%
    Application.ScreenUpdating = False  'Letiltjuk a képernyő frissítését
   
    For lap% = 2 To Worksheets.Count
        With Sheets(lap%)
            sorok% = .Cells.SpecialCells(xlLastCell).Row
        
            'Felfedjük mindegyiket
            .Rows("1:" & sorok%).Hidden = False
        
            '4. sortól rejtünk csak ha 3. oszlop értéke üres
            For sor% = sorok% To 4 Step -1
                If .Cells(sor%, 3).Value = "" Then .Rows(sor%).Hidden = True
            Next
        End With
    Next
    
    Application.ScreenUpdating = True
    MsgBox ("Kész van."), vbOKOnly
End Sub

Azért van egyébként így, hogy azokat a sorokat rejtse a számozott munkalapokról, amikbe nem gyűjtött az FKERES adatot a leltárlistából.

A kód. A kommentet ezexerint nem írtam át.

Commentben az van, hogy rejtés, ha a 2. oszlop értéke HAMIS

A kód viszont akkor rejt, ha a 3. oszlop üres.

Melyik az igazi?