Keresés

ctrl+g bill.f.-val elérhető

Ilyesmi keresgélésre az Irányított kijelölés is jó. Őt csak a gyorselérési eszköztár lehetőségei közt találod meg, onnan kell feltenni az elérhető parancsok közé.

Egy adatérvényesítéses félmegoldás, ha A1-ben van a szűrési feltétel:

Megengedve: idő

Jelleg: Nem egyenlő

Idő: =HA(A1=1;0;1000)

Ez azért problémás, mert az Excel a dátum/idő értékeket lebegőpontos törtként kezeli, ahol minden egész szám valamelyik nap 0 óra 0 percének felel meg. A fenti módszerrel kizárható konkrétan a 0 érték, de ha a felhasználó 1-et vagy 2-t, stb. ír be, az időnek formázva ugyanúgy 0:00-nak fog látszódni, csak más dátummal.

Ennél jobb most nem jut eszembe, hacsaknem makróval.

Köszönömk a válaszokat!

Ez a keresős tűnik a legjobbnak. csináltam egy HA függvényt. A lényege az, hogy ne legyen semmi a cellában, ha a hivatkozó cella üres. Az volt a szándék, hogy ha van valami függvény, de nem látszik semmi a táblázatban, akkor is ad-e találatot. És szerencsére ez a CTRL+F  * megtalálja.

Azzal meg lehet oldani, hogy csak egyetlen esetnél nem lehet 0:00, a többi lehetőségnél pedig igen?

adatérvényesítés?

Üdv!

Hogyan tudnám azt megoldani. hogy egy legördülő listából egy bizonyosat választva, a következő, időformátumú kitöltendő oszlopban (ebben az esetben) ne lehessen 0:00 az érték?

Köszi

Kijelölöd az összes cellát pl. Ctrl+a-val, ha van kitöltött cella, a státuszsorban jobbra látszik aza statisztika.

Régebbi verziókban erre a helyre (a státuszsor jobb oldalára) rá kell klikkelni jobb gombbal, akkor választási lehetőséget ad arra, hogy mit mutasson: darabszám, összeg, minimum, maximum, átlag. Üres lap esetén nem mutat semmit.

A lgegyszerűbb, ha rákeresel erre: (Ctrl + F) * (csillag)

Ha nincs találat, akkor üresek a munkalap cellái.

persze ha fotmázás és miegymás is érdekes, akkor az más...

Sok munkalap esetén ezt lehet automatizálni is (makróval)

Ez a kérdés így ebben a formában szerintem nem megoldható.

Viszont ha van valamilyen elvárás vagy szabály amivel lehet dolgozni, akkor azért lehet, h. találunk valami megoldást.

Pld.  Ha van adat a munkalapon, akkor annak legalább egy része az első száz sor és első száz oszlop által határolt tartományba esik.

Mert akkor pld. a

=IF(MAX(LEN(A1:CV100))=0;"Üres :-)";"Nem üres :-(")

megoldja a problémádat.

Ha a sheet neveid "szabályosak" (pld Sheet1, Sheet2...) akkor egy munkalapon meg lehet csinálni a fenti ellenőrzést a workbook összes munkalapjára (INDIRECT és ADDRESS segítségével).

Helló!

Hogyan tudom meg legegyszerűbben, hogy egy munkalapon van-e valami adat? makró nélküli megoldás érdekel és 97-es és újabb Excel-re.

Ugyanis törölném azokat, amin nincs adat. De kicsit sokáig tartana végiggörgetni mindet.

Application.Quit

A VBA néha egyszerűbb mint gondolnánk :-)

Törlés, pld.:

Worksheets("sheet1").ScrollArea = ""

Akkor nem értem.  Működnie kellene...

Nekem angol xl-en műxik gond nélkül.

Lehet nem Sheet1 a munkalapod neve, hanem mondjuk Munka1.

Javítás

Minden egyes beírásra, ami a plusz 1 sorba, vagy +1 oszlopba került, lefut, és újabb üres sort, vagy oszlopot ad az előzőekhez. Tötlésnél a teljesen kiürült sornál, oszlopnál csökkenti a bejárható területet.

helyett

Minden egyes beírásra lefut, és ha a beírás a +1 üres sorba, vagy +1 üres oszlopba került, újabb üres sort, vagy oszlopot ad az előzőekhez. Törlésnél a teljesen kiürült sornál, oszlopnál csökkenti a bejárható területet.

Gavriel

Rájöttem a sorok és oszlopok számának bővíthetőségére. A 15386-os makróban az usor% és uoszlop% értékadásának a végére írj +1-et, így mindig marad a bővítésre 1 sor, és 1 oszlop.

A laphoz rendelj egy eseménykezelő makrót, aminek ugyanaz a tartalma, mint a Workbook_Open-nek, és a beírások hatására indul.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim usor%, uoszlop%
    
    usor% = Worksheets(1).UsedRange.Rows.Count + 1
    uoszlop% = Worksheets(1).UsedRange.Columns.Count + 1
    Worksheets(1).ScrollArea = "A1:" & Chr(uoszlop% + 64) & usor%
End Sub

.

Minden egyes beírásra, ami a plusz 1 sorba, vagy +1 oszlopba került, lefut, és újabb üres sort, vagy oszlopot ad az előzőekhez. Tötlésnél a teljesen kiürült sornál, oszlopnál csökkenti a bejárható területet.

Szúrj be egy új lapot a füzetedbe, ne írj bele semmit, adj új mentést, és nézd meg a méret változását.

Klassz a ScrollArea.

Gavriel

SQL videója szerint a változó sor-, és oszlop szerinti letiltás így nézhet ki:

Private Sub Workbook_Open()
    Dim usor%, uoszlop%
    
    usor% = Worksheets(1).UsedRange.Rows.Count
    uoszlop% = Worksheets(1).UsedRange.Columns.Count
    Worksheets(1).ScrollArea = "A1:" & Chr(uoszlop% + 64) & usor%
End Sub
.

De itt a nagy kérdés, hogyan tud nőni a sorok, oszlopok száma, ha az elrejtés, vagy a letiltás nem engedi, csak a csökkentést?

Az excel nem tárolja el minden cella tartalmát, csak a UsedRange-ben lévőket. 

Az excel fejlődése meg lépéstz tart a számítástechnikában tapasztalható számitásikapacitás-bővüléssel (vess össze egy 2003-as csúcsgépet meg egy mostanit).

És itt is van:

Viszont az ultimate megoldás egyszerűbb mint gondolnánk.

A VBA editorban elő kell hozni az adott sheet property-jeit (View menü, klikk az Sheet1-re), ott van egy Scrollable Area property, ami alapból üres.  Ha ide beviszel egy tartományt, akkor a user nem tud kijönni abból a tartományból.

Azért jó, mert nem tud okoskodni, hogy visszacsinálja a sorok elrejtését, csak akkor tudja feloldani ha pontosan tudja mit és hol kell átállítani.  Erre meg kevés az esély.

Bocs, most jöttem elő. Mi a megoldásod? Az enyém 2007-es verzióra:

Sub Rejt()
    Dim usor%, uoszlop%
    
    usor% = ActiveSheet.UsedRange.Rows.Count + 1
    uoszlop% = ActiveSheet.UsedRange.Columns.Count + 1
    
    Rows(usor%).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.EntireRow.Hidden = True

    Columns(uoszlop%).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.EntireColumn.Hidden = True
End Sub
.

és

Sub Felfed()
    Dim usor%, uoszlop$
    
    usor% = ActiveSheet.UsedRange.Rows.Count
    uoszlop$ = Chr(ActiveSheet.UsedRange.Columns.Count + 64)
    
    Rows(usor% & ":1048576").Select
    Selection.EntireRow.Hidden = False
    
    Columns(uoszlop$ & ":XFD").Select
    Selection.EntireColumn.Hidden = False
End Sub

Ez a "csicsa" része. :-)

Kijelölöd az első elrejtendő sort, Shift+Ctrl+le nyíl. Ezzel minden sort lefelé kijelöltél. Jobb klikk, Elrejtés. Oszlopoknál ugyanez, csak Shift+Ctrl+jobbra nyíl a kijelölés.

Ha egyszer mégis láthatóvá akarod tenni az elrejtett sorokat, oszlopokat, legegyszerűbben úgy teheted, hogy Ctrl+a-val kijelölöd az összes cellát (all), majd jobb klikk, felfedés.

Monológ

Segítettem valakinek egy számlázó program összehozásában, 2007-es Excelben. A füzet 18 lapot tartalmaz, több-kevesebb adattal, hivatkozásokkal, keresztül-kasul számításokkal, érvényesítésekkel, némi makróval. Egyik nap hívott az ismerősöm, hogy óriásira dagadt a fájl, nem győzi kivárni a betöltést, és valóban, 5.241 KB lett a méret.

Átkonvertáltam 2003-as formába, ami minden feladatot ugyanúgy elvégez, 40%-ára csökkent a méret, felgyorsult, és még az űrlap vezérlőket is csinosabbra tudtam formázni.

Minden lap 1024-SZER annyi cellát tartalmaz a 2007-es verzióban, mint a 2003-as. Ahhoz a rengeteg adathoz, amit az újabb verziók el tudnak tárolni, szerintem nem is Excelt kellene alkalmazni. A fő különbséget (a méreteken kívül) a feltételes formázási lehetőségek bővítésében látom, azon kívül csak csicsákat – új diagram formázási lehetőségek – adnak az újabbak. Bár van néhány jó új függvény, mint a szumhatöbb, de meg kell fontolni, miért mit adunk.

Mi erről a véleményetek?

Ez nem jutott eszembe. Microsoftékat kellene megkérdezned.

A 201. -től az utolsóig elrejted a sorokat. Egy (verziótól függő) szürke, vagy kék felületet kapsz, amin egy keveset görgethetsz. Az oszlopok elrejtésére is igaz.

Ismerem a jelenséget, de nem teljesen ugyanaz az eset, sajnos.

Az idegen nyelvű verziók ugyanis - valószínűleg - egyből idegen nyelvűként vannak installálva.  Az enyém angolul van installálva, és ehhez szeretnék még egy új nyelvet.

Hála, köszönet, tökéletes.

Ez igen, nagyot léptek előre.

Akkor már tudom, miből maradtam ki.;)