Keresés

Részletes keresés

Törölt nick Creative Commons License 2009.05.04 0 0 9180

Itt egy másik megoldás:

 

Function SzűrtRekordokSzáma() As Integer
Dim rng As Range

 

  Set rng = ActiveSheet.AutoFilter.Range
  SzűrtRekordokSzáma = rng.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1

 

End Function

 

 

Sub SzűrésEredménye()

 

  MsgBox "Szűrt rekordok száma: " & SzűrtRekordokSzáma

 

End Sub

Előzmény: Kenus (9177)
Delila_1 Creative Commons License 2009.05.04 0 0 9179
Program nélkül az =részösszeg(3;A:A)-1 megadja a mindenkori darabszámot. A -1 a címsort vonja ki az összes darabból. A 3-as függvényszám a darab2 megfelelője.
Előzmény: Kenus (9177)
Delila_1 Creative Commons License 2009.05.04 0 0 9178

Biztosan kapsz elegánsabb megoldást is, addig ezt javaslom:

 

Sub sorok()
    For sor = 2 To Range("A" & Rows.Count).End(xlUp).Row
        If Rows(sor & ":" & sor).Hidden = False Then dsz = dsz + 1
    Next
    MsgBox dsz
End Sub

Előzmény: Kenus (9177)
Kenus Creative Commons License 2009.05.04 0 0 9177

Sziasztok!

Van-e valamilyen mód programban annak megállapítására,  hogy egy szűrés eredménye hány sor?

Törölt nick Creative Commons License 2009.05.04 0 0 9176
Nézz be ide
Előzmény: tbando (9175)
tbando Creative Commons License 2009.05.03 0 0 9175
Mit tudtok az excel véletlenszámgenerálásáról? A számok mennyiben tekinthetők valódi véletlenszámoknak?
Törölt nick Creative Commons License 2009.05.01 0 0 9174
Pedig szerintem az FKERES lesz itt a megoldás. Milyen felépítésűek a táblázataid?
Törölt nick Creative Commons License 2009.05.01 0 0 9173
Sziasztok!
Egy kis Exceles gondom lenne. Van egy táblázatom, melyben egy felmérés eredményei vannak, de kódolva, illetve van hozzá egy két oszlopos kódtáblám, mely tartalmazza, hogy melyik kódhoz milyen érték tartozik. Én pedig azt szeretném elérni, hogy a kódtábla alapján felcseréljem az egyes kódokat a táblázatban a kódok értékeire. Melyik függvényt használjam ehhez?

Eddig az F és a VKERES függvényeket próbáltam, de nem jött össze.

Nagyon szépen köszönöm!
Törölt nick Creative Commons License 2009.04.30 0 0 9172
"mivel az összevonások gyakran zavart okozhatnak."

Csatlakozom az előttem szólóhoz. Összevont cellákkal dolgozni programban elég szívás. Az összevont cellákkal egy csomó normál művelet nem végezhető el, és ahhoz, hogy kideríthesd, egy adott cellával mit tehetsz meg, és mit nem, meglehetősen komplikált feltételrendszert kell lekódolni. Ha kicsit is bonyolultabb a táblázat felépítése, vagy a feladat, amit csinálni kell vele, akkor már nem tudsz elég alapos lenni a feltételrendszer megtervezésekor. Így az esetek 90%-ában olyan kód keletkezik, amely általában jól működik, teszteléskor megnyugtatóan mosolyog, de amikor kiadod a kezedből, a felhasználó rögtön megtalálja azt a gyenge pontot, amire nem gondoltál, és kiakasztja a programot.

A magam részéről a cellaösszevonást csak mint leges-leges-legutolsó formázási műveletet javaslom, ami után már semmit nem kell a munkafüzettel csinálni.
Előzmény: Delila_1 (9170)
Delila_1 Creative Commons License 2009.04.30 0 0 9171
Az "oszlopok közt középen" összevonja a cellákat, "a kijelölés közepére" pedig nem, csak a beírt szöveget mutatja a kijelölt cellák közepén. Az adat valójában a kijelölés bal oldali cellájában van.
Előzmény: NeomatiK (9157)
Delila_1 Creative Commons License 2009.04.30 0 0 9170
Nem értettem félre, csak javasoltam a cellák összevonása helyett "a kijelölés közepére" alkalmazását, mivel az összevonások gyakran zavart okozhatnak.
Előzmény: Törölt nick (9158)
Delila_1 Creative Commons License 2009.04.30 0 0 9169
Amilyent becsatoltál. :)
Előzmény: tt65 (9168)
tt65 Creative Commons License 2009.04.29 0 0 9168
szivesen. milyen lett?
Előzmény: Delila_1 (9166)
Törölt nick Creative Commons License 2009.04.29 0 0 9167
na ugye? :)
Tudtam hogy van vmi megoldás, csak a kulcs nem volt meg nálam.
Jimmy The Hand Köszönöm
Előzmény: E.Istvan (9165)
Delila_1 Creative Commons License 2009.04.29 0 0 9166
Köszönöm, átrajzoltam.
Előzmény: tt65 (9163)
E.Istvan Creative Commons License 2009.04.29 0 0 9165

Mit szenvedtem az elmúlt években én is ezzel a problémával.

A bölcs ember viszont kérdez. :o) És ki gondolta volna, hogy még megoldás is van. Jimmy a király.

Már éppen javasolni akartam az én primitív megoldásomat, mely szerint For Each ciklusban vigigvizsgálom az összes munkalapot és a tartalom vagy "titkos" cellák alapján azonosítom a munkalapokat. (konkrét ceállákban konkrét adat vagy név)

Előzmény: Törölt nick (9162)
Törölt nick Creative Commons License 2009.04.29 0 0 9164
Sub izé()
MsgBox Sheets(1).CodeName
MsgBox Munka1.Name
End Sub
Előzmény: Törölt nick (9162)
tt65 Creative Commons License 2009.04.29 0 0 9163
jav ez egy Total Commander ikon.
Előzmény: Delila_1 (9152)
Törölt nick Creative Commons License 2009.04.29 0 0 9162
Kérdés.
a makróban nem a Sheets("munkalapneve") módon szeretném megszólítani a munkalapot, mert az változik. Az sem jó ha változóba rakom a munkalap nevét.

Meg lehet vhogy szólítani azzal a megnevezéssel, ami a munkalap tulajdonságainál van a Microsoft Excel Objects-en belül) vhogy így:
munka1(munkalapneve)
munka2(munkalapneve)
stb...
és én pl a munkax-el szeretném megszólítani, mert az állandó.
E.Istvan Creative Commons License 2009.04.29 0 0 9161

Azt a minimális makrót amit az új munkafüzetbe átmásolok azt már nem akarom kitörölni, sőt az szükséges az új munkafüzet működéséhez. Csak elrejteni/levédeni szeretném. :o)

Foglalkozva a témával egy gondolat már felötlött bennem ma reggel, de még nem próbáltam ki. Létrehozok egy üres de levédett munkafüzetet (kézzel) és ezt nyitom meg a programból, ebbe másolom bele a munkafüzetet majd mentem más néven. Nem túl elegáns, de ha működni fog és nem lesz jobb ötlet akkor ez lesz.

Előzmény: Törölt nick (9159)
Törölt nick Creative Commons License 2009.04.29 0 0 9160
Talán ez segítség
http://exceltip.com/st/Delete_all_macros_in_a_workbook/document_using_VBA_in_Microsoft_Excel/505.html

Előzmény: Törölt nick (9159)
Törölt nick Creative Commons License 2009.04.29 0 0 9159
Egy dologban biztos vagyok:
Az újonnan létrehozott munkafüzetekből ki lehet törölni a makrót. (Makróval)
Ha lesz időm utánanézek a mikéntjének, de úgy emlékszem itt is szó volt már erről.
Előzmény: E.Istvan (9156)
Törölt nick Creative Commons License 2009.04.29 0 0 9158
Kicsit visszanézed az előzményeket akkor látni fogod hogy vmit félreérthettél.
Előzmény: Delila_1 (9152)
NeomatiK Creative Commons License 2009.04.29 0 0 9157
A Formátum eszköztárban van gyárilag egy "oszlopok közt középre" nevű parancs és ikon. Az ugyanezt tudja, ha jól látom.
Előzmény: Delila_1 (9152)
E.Istvan Creative Commons License 2009.04.29 0 0 9156

A mentés SaveAs-al történik, de a munkafüzet létrehozása nem.

A Sheets("xxx").Copy hatására az adott munkalapot egy vadi új "szűz" munkafüzetben hozom létre és ennek a VBAprojekje alapértelmezésként nem védett.

A feladat, amit már megoldottam, hogy egy összetett munkafüzetből különböző felhasználói beállításokkal hozok létre több százas nagyságrendben új munkafüzeteket melyek mindegyike más mennyiségű és adattartalmú munkalapot tartalmaz. Ezen munkalapokon vannak gombok és vezérlő elemek, melyekhez makrók tartoznak és mivel sajnos új munkafüzetbe másolom azokat, így alapértelmezésként láthatóak és szerkeszthetőek.

Egy ideig a saját munkafüzetemet mentettem el SaveAs-al minden esetben, a nem szükséges munkalapok elrejtésével, ekkor ez nem volt probléma mert a saját munkafüzet projektje védett, de már túl nagy méretű munkafüzetek lettek. Ezért kellett váltanom, hogy csak a szükséges és elégséges mennyiségű adatot hozom létre egy új munkafüzetben.

Előzmény: Törölt nick (9153)
tt65 Creative Commons License 2009.04.28 0 0 9155
Előzmény: tt65 (9154)
tt65 Creative Commons License 2009.04.28 0 0 9154
találtam egy jó kis anyagot: itt
VBA 33 leckében. angol
Törölt nick Creative Commons License 2009.04.28 0 0 9153
Jól gondolom, hogy SaveAs-al mented, ill. így hozod létre az új munkafüzeteket?
Előzmény: E.Istvan (9146)
Delila_1 Creative Commons License 2009.04.28 0 0 9152

Nem fontos egyesíteni.

A 3 cellát kijelölve a formátumban az igazításnál, vízszintes elrendezésnél "A kijelölés közepére" formát kell választani. Mivel ezt sűrűn alkalmazom, írtam egy kis makrót rá (a personal.xls-ben), és egy ikonthoz rendeltem, hogy mindig kéznél legyen.

 

Sub Kijelölés_közepére()
    Selection.HorizontalAlignment = xlCenterAcrossSelection
End Sub

(Szívesen várok kifejezőbb ikonra példát)

Előzmény: Törölt nick (9147)
E.Istvan Creative Commons License 2009.04.28 0 0 9149
Nem kézzel kell beállítanom. Azt ismerem. Fut egy program, ami létrehoz egy új munkafüzetet, belemásol egy munkalapot amin makrók is vannak, majd elmenti és bezárja. Még mentés előtt ebből a futó programból kellene levédeni ezt az új munkafüzetet.
Előzmény: Törölt nick (9148)

Ha kedveled azért, ha nem azért nyomj egy lájkot a Fórumért!