- Mobil flották
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Ránézésre nem változik a Pixel Watch 3
- Fotók, videók mobillal
- Android szakmai topik
- Milyen okostelefont vegyek?
- A hátsó raktárból érkezhet a Galaxy S24 FE főkamerája
- Vodafone mobilszolgáltatások
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Honor 90 - modellalkat
Hirdetés
-
Computex 2024: a TravelMate sem kerül el az AI-t
ph Az Acer üzleti notebooksorozatába érkező P4 16 és P6 14 sem menekül a CoPilot megjelölés elöl.
-
Retro Kocka Kuckó 2024
lo Megint eltelt egy esztendő, ezért mögyünk retrokockulni Vásárhelyre! Gyere velünk gyereknapon!
-
Tényleg jobban fogyaszt a Peugeot, az Opel és a Citroen?
ma Mármint magukhoz képest, a Stellantis csoport márkáiban használt CMP platformhoz tartozó hajtáslánc optimalizációjának eredménye a mindennapokban is érezhető.
-
Mobilarena
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
mr.nagy
tag
válasz Delila_1 #11301 üzenetére
Még is csak zaklatlak még egy kicsit!
Ebből a kódrészből:
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$5" Then Dim meret As Integer Select Case Len(Range("A6"))A $G$5 cella időközben kiderült, hogy függvényen keresztül fogja kapni az értéket, így nem működik az egész makró.
Javítható a fenti kód, ennek megfelelően?HMNote10Pro
-
Delila_1
Topikgazda
válasz Delila_1 #11322 üzenetére
Ímé szép magyar nyelven:
Jelöljük ki a szűréshez az oszlopot vagy a tartomány, illetve lista egyik celláját.
Válasszuk az Adatok menü Szűrő, majd Irányított szűrő parancsát.
Hajtsuk végre a megfelelő műveletet:
Ha az AutoSzűrőhöz hasonlóan helyben szeretnénk szűrni a tartományt vagy a listát, jelöljük be a Helyben szűrje választókapcsolót.
Ha a szűrés eredményét máshová szeretnénk másolni, jelöljük be a Más helyre másolja választókapcsolót, majd a Hova másolja mezőben adjuk meg a cella hivatkozását.
A cella kijelöléséhez ideiglenesen elrejthetjük a párbeszédpanelt a Panel elrejtése gombra kattintva. Jelöljük ki a cellát a munkalapon, majd kattintsunk a Panel megjelenítése gombra.
Jelöljük be a Csak az egyedi rekordok megjelenítése négyzetet.A szűrt listát másolhatod (ez már tőlem).
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Oly
senior tag
válasz Delila_1 #11323 üzenetére
Szia
Ez tiszta sor... de behal az Excelem ekkora adathalmaz szűrésénél...
Most nézem ,hogy ne mis 40.000, hanem 400.000 sor van.
SonyEricsson T20 - T68 - T610 - K700 - W800 - K750 - K800 - C702 - P1 - MOTO Defy - Galaxy S Advance - Galaxy S4 - Lumia 820 - Honor 7 - iPhone 5S
-
-
-
félisten
válasz Delila_1 #11407 üzenetére
Kösz a bizalmat, de erről sajnos nincs tudomásom. Adott munkalapon meg lehet jeleníteni az összes utódot/elődöt és azt kinyomtatni (képletként is), de hogy egy amolyan "tree view" jellegű listaként megjeleníteni, avagy az összes hivatkozást kimenteni, arról nem tudok...
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
-
Pá
addikt
válasz Delila_1 #11488 üzenetére
Elvileg felvettem, de amikor beütöm a billentyűt, akkor ezt kapom: "Compile Error: Sub or Function not defined"
Amúgy ennyi lett maga a makró:
Sub Wings()
'
' Wings Makró
'
' Billentyűparancs: Ctrl+w
'
SolverOk SetCell:="$A$7", MaxMinVal:=2, ValueOf:="0", ByChange:= _
"$G$2,$O$2,$Q$2,$R$2,$S$2,$Z$2,$AB$2,$AC$2,$AD$2"
SolverSolve
End Sub''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Pá
addikt
válasz Delila_1 #11495 üzenetére
A tools/references-nél hozzá kell adni a solvert, valahogy így és utána már simán működik.
''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
Pá
addikt
válasz Delila_1 #11504 üzenetére
Hmm, akkor nem tudom.
Amúgy a "barátom" a google volt, én ez alapján csináltam meg.''Annyira vagyunk egészségesek, amennyire a gondolataink humánusak.''
-
MaciLaci68
csendes tag
válasz Delila_1 #11508 üzenetére
Igen látom a szememmel, de programban akarom kezelni. Köszi a megoldást ami hasonlít az enyémhez.
Az "bosszant", hogy az aktív cellának nagyon sok tulajdonságát egyszerűen meg lehet tudni (pl: címe, szélessége, értéke, védett-e, sor és oszlopazonosító stb..), de nem tudom egyszerű módszerrel a nevét kiszedni. -
Delila_1
Topikgazda
válasz Delila_1 #11512 üzenetére
Az előbbi egyszerűbben, segédoszlop nélkül:
Sub EgyeniErtekek()
Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("Munka2").Range( _
"A1"), Unique:=True
End SubProgramozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
MaciLaci68
csendes tag
válasz Delila_1 #11514 üzenetére
Soha nem jöttem volna rá. Köszi.
Azért kellett mert van egy képletekkel teli táblám és galád módon ha kedvem van néhány képlet helyére értéket írok kézzel, hogy azzal számoljon tovább (nyugi, az eredeti képletet aztán vissza tudom írni makróval ha kell). Amit átírok azt viszont eltárolom, eddig a cellacímet pl A!$B$31 így tároltam. Azonban ha ezt a cellát jó kedvemben kivágom és arrébb illesztem be, akkor a a letárolt cím már nem OK. Ha viszont nevet tárolok, akkor az mindig OK lesz, mert cellaáthelyezésnél a név megy a cellával. -
veterán
válasz Delila_1 #11528 üzenetére
oké, de közbben változott kicsit a feladat
a gond, az, hogy a dátum nem jó helyen van, vagyis amire nekem szükségem lenne, hogy ahol már dátumilag mást írunk, ott más is legyen, ne arra a napra vegye. Tehát a 20. sor még 2011-10-01 de a 21. sor már értelemszerűen már 2011-10-02
Esetleg valamilyen makróval ez megoldható?[ Szerkesztve ]
-
Mythunderboy
csendes tag
válasz Delila_1 #11513 üzenetére
Nagyon Köszi a segítséget! rájöttem,hogyan működik és egy problémára akadtam, azok az értékek amiket szűrnék hivatkozási értékek és ezért nem működik...ha simán beírok a vizsgált oszlopba számokat tudja szűrni..bár így is az első értéket duplán jeleníti meg...(miért?)..szerintem ez így jó segítség lenne ha ezeket a problémákat is segítenél megoldani...előre is Köszönöm:
Üdv:TBoy
Ui:Ha nem egy oszlopot vizsgálok hanem egy tömböt(Lásd kép) akkor hogy tudnám szűrni?Spacesynth 4 ever!
-
Mythunderboy
csendes tag
válasz Delila_1 #11562 üzenetére
Még két dologban szeretnék segítséget kérni.
1,Mivel a megszűrendő értékek folyamatosan változnak mindig indítanom kell a makrót hogy frissüljön a szűrt érték. Van megoldás arra hogy magától frissítsen ha új értékek jelennek meg? Vagy egy aktiváló gombbal? Az auto_open csak az első nyitásnál frissit aszem...
2, A kapott értékeket növekvő sorrendbe tudom helyezni szintén frissülve egy makróval?
Köszönöm
TboySpacesynth 4 ever!
-
mr.nagy
tag
válasz Delila_1 #11553 üzenetére
Kipróbáltam, jól működik, úgy tűnik. Azonban közben rájöttem, hogy ez még így nem teljes, ugyanis még a következő lehetőségek is elő adódhatnak.
1. az első fülön a művelet oszlopban nem 380 vagy 390 szerepel, hanem bármilyen más érték. Ekkor ezeket figyelmen kívűl kellen hagynia.
2. az első fülön a művelet oszlop 380 értéket tartalmaz, azonban nincs a második fülön hozzá adat (azonosító). Ekkor az adott sor B, C, D, E, G oszlopában szereplő mezőket az első üres sorba át kellene tenni az elsőről a másodikra a megfelelő oszlopokba.[ Szerkesztve ]
HMNote10Pro
-
m.zmrzlina
senior tag
válasz Delila_1 #11602 üzenetére
Abból kellene kiindulni, hogy a munkafüzet valójában úgy működik, hogy userformra (label.Caption) adja ki a RandBetween() a kérdést és textboxban kell bevinni a választ. A keresést fkeres() végzi. Magát a munkalapot a felhasználó úgy látja hogy ha kiválaszt egy munkalapot (lecke szavait) akkor a betűszínt háttér szinére állítom és az kommunikáció a userformon megy. Valahogy így néz ki (az A és B oszlopokban ott vannak a szavak és a megfelelőjük fehér betűszínnel)
A legfelső label.Captiont a köv. sor adja:
lb_kerdes.Caption = Range("A" & Application.WorksheetFunction.RandBetween(1, Range("A1048576").End(xlUp).Row)).Value
Az ellenőrzést a köv sor végzi:
If tb_valasz.Text = Application.WorksheetFunction.VLookup(lb_kerdes.Caption,Range("A:B"), 2, False) ThenEzután pár sor ami jó/rossz válasz esetén csinál bizonyos dolgokat. Ide jöhetne jó válasz esetén a C oszlopba egy eggyel növelt szám, és utána hogyan tovább?
[ Szerkesztve ]
-
m.zmrzlina
senior tag
válasz Delila_1 #11606 üzenetére
Minden válasz, vagy ellenőrzés után növeld az értéket egy cellában, a tartományt pedig rendezd a hibapontokat tartalmazó oszlop szerin csökkenő sorrendbe.
A szavak számától függően, de pl. 100 db válasz után a Randbetween értékhatárát 1 és X közé állítsd be.Ennek alapján csináltam és kiváló lett. Minden válasz után növelem /csökkentem a szóhoz tartozó mérőszámot és 10 válaszonként erre az oszlopra rendezem a táblát. Aztán csökkentem a Randbetween határát úgy hogy kiessenek azok a szavak amiknek már volt legalább két jó találatuk.
Tök jó lett köszi a segítséget!
-
Delila_1
Topikgazda
válasz Delila_1 #11635 üzenetére
Ebben valami mintát találni, az művészet lesz...
Volt hasonló feladatom, ott 15 különböző linket kellett azonos alakú táblázattá alakítani, azért ehhez hozzá sem kezdtem.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
félisten
válasz Delila_1 #11636 üzenetére
Gondolom ezt a választ Nekem szántad. Hát igen, ezen a listán "fogást találni", nem hiszem hogy lehet, de azért pár elemét bemásolom, hátha Neked lesz valami ötleted (azon kívül, hogy valami egységes formába kellene hozni)...
Dell Latitude E6220 laptop - Intel Core i7 2620M 2.70GHz (Dual Core)<br /> 4GB DDR3 1333MHz (1*4GB)<br /> 12.5" UltraSharp HD Anti-Glare (1366x768) Slim LED + integrált HD kamera<br /> 320GB 7200rpm SATA HDD<br /> 64bit Windows 7 Professional SP1 HUN + Office Starter<br /> NO ODD<br /> integrált Intel HD 3000 grafikus vezérlő<br /> Dell Vezetéknélküli 5550 MiniCard Broadband modem<br /> Bluetooth 3.0<br /> Intel Centrino Advanced-N 6205 802.11a/b/g/n<br /> Gigabit LAN<br /> háttérvilágítású magyar billentyűzet integrált ujjlenyomat-olvasóval<br /> 6 cellás akkumulátor 60WHr<br /> mini-HDMI<br /> 2x USB2.0 (eSATA)<br /> SD-kártyaolvasó<br /> dokkolható<br /> ExpressCard foglalat<br /> Contactless SmartCard Reader<br /> 90W AC adapter<br /> 4 év helyszíni garancia
DELL NB XPS L702x 17.3" HD+, Intel Core i5-2410M 2.30GHz 4GB 750GB DVD-RW, GeForce GT 550M, Win 7 HPrem 64bit, 6cell, Ezüst<br><br>Képernyő átmérő: 17,3<br>Processzor: Intel Core i5<br>Memória: 4096<br>Merevlemez: 750<br>Optikai meghajtó: DVD-RW +/-<br>Operációs rendszer: MS W. 7 Home Premium 64bit HU<br>Akkumulátor: 6 cella<br>Felbontás: 1440 x 900 (WXGA) 16:10<br>LAN: 10/100/1000<br>WLAN: 802.11b/g/n<br>Modem: Nem<br>USB: 2<br>Beépített kártyaolvasó: Igen<br>Bluetooth: 3.0<br>Firewire: 0<br>Video: HDMI + Mini-Display Port<br>Hang: Igen<br>Kamera: 2<br>TV-Tuner: Nem<br>Súly: 3,36<br>Szín: Ezüst<br>Ujjlenyomat-olvasó: Nem<br>HSDPA: Nincs<br>Dokkolhatóság: USB porton<br>Garancia: 3 év
DELL NB Alienware M14x 14.1" HD+, Core i7 2720QM 2.20GHz, 8GB, 750GB, DVD-RW, nVidia GF GT555M, Win7 HPrem 64bit ENG, 8cell, Piros<br><br>Képernyő átmérő: 14,1<br>Processzor: Intel Core i7<br>Memória: 8192<br>Merevlemez: 750<br>Optikai meghajtó: DVD-RW +/- DL<br>Operációs rendszer: MS W. 7 Home Premium 64bit ENG<br>Akkumulátor: 8 cella<br>Felbontás: 1600 x 900 (WUGA) 16:9<br>LAN: 10/100/1000<br>WLAN: 802.11a/b/g/n<br>Modem: Nem<br>USB: 1<br>Beépített kártyaolvasó: Igen<br>Bluetooth: 3.0<br>Firewire: 0<br>Video: D-Sub + HDMI + Mini Displayport<br>Hang: Igen<br>Kamera: 2<br>TV-Tuner: Nem<br>Súly: 2,92<br>Szín: Piros<br>Ujjlenyomat-olvasó: Nem<br>HSDPA: Nincs<br>Dokkolhatóság: USB porton<br>Garancia: 3 év
BONTOTT DELL NB Inspiron M5040 15.6" HD, AMD DC E350 1.6GHz, 2GB, 500GB, DVD-RW, ATI HD6310, Linux, 6cell, Fekete Létrehozás oka: bontott<br><br>Képernyő átmérő: 15,6<br>Processzor: AMD Brazos<br>Memória: 2048<br>Merevlemez: 500<br>Optikai meghajtó: DVD-RW +/-<br>Operációs rendszer: Linux<br>Akkumulátor: 6 cella<br>Felbontás: 1366 x 768 (WXGA) 16:9<br>LAN: 10/100<br>WLAN: 802.11g/n<br>Modem: Nem<br>USB: 3<br>Beépített kártyaolvasó: 3-1<br>Bluetooth: 3.0<br>Firewire: 0<br>Video: D-Sub + HDMI<br>Hang: Igen<br>Kamera: 0,3<br>TV-Tuner: Nem<br>Súly: 2,73<br>Szín: Fekete<br>Ujjlenyomat-olvasó: Nem<br>HSDPA: Nincs<br>Dokkolhatóság: USB porton<br>Garancia: 3 év
Apple NB MacBook Pro 17" Quad-Core i7 2.2GHz, 4GB, 750GB, Radeon HD 6750M 1GB, SD, HU bill.<br><br>Képernyő átmérő: 17<br>Processzor: Intel Core i5<br>Memória: 4096<br>Merevlemez: 750<br>Optikai meghajtó: DVD-RW +/-<br>Operációs rendszer: Mac OS X Snow Leopard<br>Akkumulátor: Li-ion<br>Felbontás: 1920 x 1200 (WUXGA) 16:10<br>LAN: 10/100/1000<br>WLAN: 802.11b/g/n<br>Modem: Nem<br>USB: 3<br>Beépített kártyaolvasó: Nem<br>Bluetooth: 2.1<br>Firewire: 1<br>Video: Mini-Display Port<br>Hang: Igen<br>Kamera: 0<br>TV-Tuner: Nem<br>Súly: 2,99<br>Szín: Ezüst<br>Ujjlenyomat-olvasó: Nem<br>HSDPA: n.a.<br>Dokkolhatóság: USB porton<br>Garancia: 1 év
Dell Latitude E6220 laptop - Intel Core i7 2620M 2.70GHz (Dual Core)<br> 4GB DDR3 1333MHz (1*4GB)<br> 12.5" UltraSharp HD Anti-Glare (1366x768) Slim LED + integrált HD kamera<br> 320GB 7200rpm SATA HDD<br> 64bit Windows 7 Professional SP1 HUN + Office Starter<br> NO ODD<br> integrált Intel HD 3000 grafikus vezérlő<br> Dell Wireless 5550 MiniCard Broadband modem<br> Bluetooth 3.0<br> Intel Centrino Advanced-N 6205 802.11a/b/g/n<br> Gigabit LAN<br> háttérvilágítású magyar billentyűzet integrált ujjlenyomat-olvasóval<br> 6 cellás akkumulátor 60WHr<br> mini-HDMI<br> 2x USB2.0 (eSATA)<br> SD-kártyaolvasó<br> dokkolható<br> ExpressCard foglalat<br> Contactless SmartCard Reader<br> 90W AC adapter<br> 4 év helyszíni garancia
Dell XPS L502x Metalloid Aluminum laptop - Intel Core i7-2630QM 2.0GHz (Quad Core)<br> 4GB DDR3 1333MHz (1*4GB)<br> 15.6" FullHD TrueLife (1920x1080 fényes) B+RGLED TFT + integrált 2Mp HD kamera<br> 640GB 7200rpm SATA HDD<br> 64bit Windows 7 Professional HUN + Dell Stage<br> 2GB NVIDIA GeForce GT 540M<br> Blu-ray Disc BD-Combo meghajtó<br> 9 cellás akkumulátor 90WHr<br> magyar billentyűzet<br> Intel WiFi 1030 802.11 b/g/n + BlueTooth 3.0 Combo<br> Creative SoundBlaster X-FI MB 1.2 audio<br> Gigabit LAN<br> 9-1 kártyaolvasó<br> HDMI 1.4 (3D support)<br> mini DisplayPort<br> 2x USB3.0<br> 1x combo USB2.0/eSATA<br> TV-tuner nélkül<br> 130W AC adapter<br> 3 év helyszíni garancia
Dell XPS L511z Aluminum laptop - Intel Core i7-2620M 2.70GHz<br> 8GB DDR3 1333MHz (2*4GB)<br> 15.6" FullHD TrueLife (1920x1080 fényes) WLED TFT + integrált 1.3Mp kamera<br> 750GB 7200rpm SATA HDD<br> 64bit Windows 7 Home Premium SP1 HUN + Office Starter + Dell Stage<br> 2GB NVIDIA GeForce GT 525M<br> 8x DVD+/-RW DL meghajtó<br> 8 cellás akkumulátor 56WHr<br> háttérvilágítású magyar billentyűzet<br> Intel Centrino Advanced-N 6230 802.11b/g + BlueTooth 3.0 Combo<br> 90W AC adapter<br> 3 év helyszíni garancia
Dell Inspiron N5040 Apple Red (fedlap és csuklótámasz) laptop - Intel Core i3-380M 2.53GHz<br> 2GB DDR3 1333MHz (1*2GB)<br> 15.6" HD (1366x768 fényes) WLED TFT + integrált 0.3Mp webkamera<br> 320GB 5400rpm SATA HDD<br> Ubuntu Linux v10.10<br> integrált Intel GMA HD grafikus vezérlő<br> 8x DVD+/-RW meghajtó<br> 6 cellás akkumulátor 48WHr<br> magyar billentyűzet (chiclet)<br> Dell WLAN 802.11g/n + Bluetooth 3.0+HS Card<br> HDMI kimenet<br> 3-1 kártyaolvasó<br> 3x USB2.0<br> 3 év helyszíni garancia
Dell Inspiron N5110 Diamond Black (fedlap és csuklótámasz) laptop - Intel Core i3-2310M 2.10GHz<br> 4GB DDR3 1333MHz (1*4GB)<br> 15.6" HD TrueLife (1366x768 fényes) WLED TFT + integrált 1.0Mp HD webkamera<br> 320GB 5400rpm SATA HDD<br> Free DOS CD<br> integrált Intel HD 3000 grafikus vezérlő<br> SRS Premium hangrendszer<br> 8x DVD+/-RW DL meghajtó<br> 6 cellás akkumulátor 48WHr<br> új magyar billentyűzet (chiclet) + Numpad<br> Intel Centrino Wireless-N 1030 + Bluetooth 3.0 Combo<br> HDMI kimenet<br> 8-1 kártyaolvasó<br> 2x USB3.0 és 2x USB2.0 (eSATA)<br> 3 év helyszíni garancia
Dell Inspiron N5110 Diamond Black (fedlap és csuklótámasz) laptop - Intel Core i3-2310M 2.10GHz<br> 4GB DDR3 1333MHz (1*4GB)<br> 15.6" HD TrueLife (1366x768 fényes) WLED TFT + integrált 1.0Mp HD webkamera<br> 500GB 5400rpm SATA HDD<br> Free DOS CD<br> 1GB nVidia GeForce GT 525M grafikus vezérlő<br> SRS Premium hangrendszer<br> 8x DVD+/-RW DL meghajtó<br> 6 cellás akkumulátor 48WHr<br> új magyar billentyűzet (chiclet) + Numpad<br> Intel Centrino Wireless-N 1030 + Bluetooth 3.0 Combo<br> HDMI kimenet<br> 8-1 kártyaolvasó<br> 2x USB3.0 és 2x USB2.0 (eSATA)<br> 3 év helyszíni garanciaKarakter cserélgetéssel és szövegből oszlopokkal átalakítható ilyenné, itt jobban látszódik a probléma.
[ Szerkesztve ]
Mindenki tudja, hogy bizonyos dolgokat nem lehet megvalósítani, mígnem jön valaki, aki erről nem tud, és megvalósítja. (Albert Einstein)
Új hozzászólás Aktív témák
- Adobe Előfizetések - Adobe Creative Cloud All Apps, Photography Plan - 12 Hónap
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Autómatricák a legjobb minőségben, több ezer minta! PH tagoknak 30% kedvezmény!
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Bitdefender Total Security 3év/3eszköz! - "Tökéletes védelem most kedvező áron..."
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen