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.
Gyorskeresés
Legfrissebb anyagok
- Bemutató Spyra: akkus, nagynyomású, automata vízipuska
- Bemutató Route 66 Chicagotól Los Angelesig 2. rész
- Helyszíni riport Alfa Giulia Q-val a Balaton Park Circiut-en
- Bemutató A használt VGA piac kincsei - Július I
- Bemutató Bakancslista: Route 66 Chicagotól Los Angelesig
Általános témák
LOGOUT.hu témák
- [Re:] [antikomcsi:] Való Világ: A piszkos 12 - VV12 - Való Világ 12
- [Re:] [ubyegon2:] Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- [Re:] [Sub-ZeRo:] Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- [Re:] [gban:] Ingyen kellene, de tegnapra
- [Re:] [Szevam:] Érzelmi magabiztosság/biztonság - miért megyünk sokan külföldre valójában?
- [Re:] [bb0t:] Gyilkos szénhidrátok, avagy hogyan fogytam önsanyargatás nélkül 16 kg-ot
- [Re:] [D1Rect:] Nagy "hülyétkapokazapróktól" topik
- [Re:] [attilasd:] A laposföld elmebaj: Vissza a jövőbe!
- [Re:] [sziku69:] Szólánc.
- [Re:] [sziku69:] Fűzzük össze a szavakat :)
Szakmai témák
PROHARDVER! témák
Mobilarena témák
IT café témák
GAMEPOD.hu témák
Téma összefoglaló
- Utoljára frissítve: 2023-11-13 08:31:56
LOGOUT.hu
Hozzászólások
gdodi
csendes tag
Mégis sikerült gép mellé kerülnöm, és meg is csináltam a javaslatodat. Tökéletes!
Nagyon hálás vagyok!
Köszönöm szépen!
Musuz
csendes tag
Sziasztok
Egy megjegyzés szerű szöveges részt akarok elhelyezni egy munkalapon úgy,hogy 7 oszlop és 90 sort foglaljon el,tudjam sárgára színezni a hátteret,a kb 6-8-as betűméretet feljebb tudjam állítani 12-re,ne csorduljon túl az alján és legyen a szöveg mellett görgetősáv.
Próbálkoztam szövegdobozzal,többféle listapanellel,stb,de nem igazán boldogulok,és a VB-t se ismerem.
Ha a szöveget berakom egy szövegdobozba,7 oszlop szélesen majdnem háromszor annyi sort foglal mint amennyit szeretném,hogy foglaljon.
Nos ebben kérnék ötletet vagy segítséget.
m.zmrzlina
senior tag
Excel beállításai>Speciális>Megjelenítés>Az összes ablak megjelenítése a tálcán csekboxot kattintsd be.
Fferi50
őstag
Szia!
Szerintem ezt csak Userformon lehet megoldani. A munkalapra pedig kell tenni egy parancsgombot, ami megjeleníti a formot.
(Bár nem igazán tudom, mit szeretnél ebben a megjelenítésben közölni a felhasználóval...)
Üdv.
Delila_1
Topikgazda
Szívesen.
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
Musuz
csendes tag
Köszönöm,megnézem
egyébként a munkalapon végezhető műveletekhez és a hozzájuk tartozó stratégiákhoz fűződő leírásról van szó kezdőknek!
Fferi50
őstag
Szia!
Próbáld ki ezt a makrót:
Sub cserelo(ByRef rng As Range, ByVal mit As String, ByVal mire As String)
Dim cl As Range, xx As Integer
If Len(mit) <> Len(mire) Then MsgBox "Nem egyforma a két szöveg!", vbInformation: Exit Sub
For Each cl In rng.Cells
If Not IsEmpty(cl) Then
For xx = 1 To Len(mit)
cl.Value = Replace(cl.Value, Mid(mit, xx, 1), Mid(mire, xx, 1))
Next
End If
Next
End Sub
A VBA nézet immediate ablakából indíthatod, pl. így:
cserelo Sheets("Munka1").Range("A1:C72"),"áéó","aeo" a végén enter.
Tehát az első paraméter a tartomány címe (vba-szerint beírva), a második a cserélendő betűk, a harmadik pedig amire cserélni kell. A második és a harmadik paramétert "szinkronban" kell tartani, mert az azonos pozícióban levő betűket cseréli (tehát első betűt az elsőre, második betűt a másodikra és így tovább).
Üdv.
[ Szerkesztve ]
csongi
veterán
Olvasgattam a világhálón, olyan létezik, hogy megadott cellák értéke be van állítva mondjuk üres vagy 0 akkor az automatikusan elrejtésre kerülnek.
Ti tudtok ilyenről? Persze ez már makrós.
Fferi50
őstag
Szia!
Szerintem egy db cellát önmagában nem tudsz elrejteni, mivel a cellák sorokba és oszlopokba vannak szervezve. Csak egész sorokat ill. egész oszlopokat lehet elrejteni (nomeg egész munkalapokat...).
Üdv.
csongi
veterán
Igen, igen, javítom. Sorok kerülnek elrejtésre. Jó lenn egy ilyen.
És lehet e olyat, hogy a megnyitott fájlra csak jelszó estén lehessen menteni, alapból a mentés másként lehetőséget adja fel. De a másképpen mentett fáj már ne rendelkezzen ezen tulajdonsággal.
Fferi50
őstag
Szia!
Üres sorok elrejtésére szerintem megfelel az adatok - szűrés menüpont, ott kiválasztod a nem üres lehetőséget valamelyik oszlopban és máris elrejti az üres sorokat.
A fájlt mentheted úgy, hogy csak jelszóval lehessen megnyitni "felülmentésre". A mentés máskéntnél van olyan lehetőség, hogy eszközök - beállítások - jelszó betekintéshez - jelszó módosításhoz.
Ha a módosításhoz adsz jelszót, akkor a jelszó nélkül csak olvasásra lehet megnyitni a munkafüzetet, ezért nem lehet felülírni - csak másként menteni. Ha ott nem adsz meg jelszót, akkor a továbbiakban nem fog kérni.
Üdv.
csongi
veterán
Köszönöm!
Van egy kicsi baj.
A képleteknél alkalmaztam a jelet, ami nem rossz, csak most nem tudom sokszorosítani az oszlopokat, mert ugye mind ugyan arra cellára mutat vissza,
Szóval törölnöm kell az összes $ jelet. De van kb 300 cella amit megírtam
Hállelúja,
Van arra lehetőség, ha kijelölöm a függvényt akkor egy parancs vagy akármivel törölné a $ jeleket?
Kézzel végigmenni....ÁÁÁÁÁÁ
lappy
őstag
Ha ilyen van akkor válts át képletekre a cellák tartalmát. Majd egy Ctrl+F és csere $ . Nem kell beírni semmit és az összest kiveszi.
Bámulatos hol tart már a tudomány!
csongi
veterán
Köszönöm! Nagy mentés volt. Kb 1500 Klikkeléstől mentettél meg
Thrawnad
senior tag
Az be van, de attól még nem külön ablakban vannak, csak a tálcán látszanak.
Thrawnad
Hardver hibára ritkán van jó szoftver...
Thrawnad
senior tag
Milyen Office van neked? Ugyanis én is ezzel küzdök!
Thrawnad
Hardver hibára ritkán van jó szoftver...
csongi
veterán
Erre mi a jó függvény?
ha j7=fehér akkor d1=k7 ;ha j7=barna akkor d1=k7 ha j7=ezüst akkor d1=k8;ha j7=bronz akkor d1=k8.
És a végén mindig legyen felszorozva f10-el.
lappy
őstag
=f10*HA(VAGY(J7="barna",J7="fehér"),K7,HA(VAGY(J7="ezüst",J7="bronz"),K8," "))
[ Szerkesztve ]
Bámulatos hol tart már a tudomány!
alfa20
senior tag
Sziasztok!
van egy első és egy utolsó cella meghatározásom pl:
ecell = Range("A1")
ucell = Range("E1664")
Amit egy kimutatás ezen részébe szeretnék behelyettesíteni:
SourceData:="Munka3!R1C1:R1664C5"
tudom hogy egyszerű, de most nagyon nem forog az agyam...
tudtok segíteni?
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
TomTeke2
csendes tag
Fferi50
őstag
Szia!
Egy kis probléma: az ecell és ucell változókat Range típusú objektum változónak kell definiálnod.
dim ecell as Range, ucell as Range
set ecell=Sheets("Munka3").Range("A1")
set ucell=Sheets("Munka3").Range("E1664")
sourcedata:=Range(ecell,ucell).address
Az objektum változóknak set változónév= valami formában kell értéket adni.
Az ecell=Range("A1") értékadásban az A1 cella értékét kapja az ecell változó (vagy hibát kapsz, ha nem variant típusú).
Üdv.
[ Szerkesztve ]
Fferi50
őstag
Szia!
Milyen vezérlő működteti a beviteli listát?
Üdv.
alfa20
senior tag
Köszönöm!
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
TomTeke2
csendes tag
Szia!
ActiveX vezérlő működteti.
spe88
senior tag
Hello,
Létezik oylan függvény, ami egy adott oszlopból eltávolítja az ismétlődő elemeket!
Hangsúlyoznám, hogy függvény kell, a rákattintós módszer nem automatizált szóval az nem jöhet most szóba!
köszi
Spóroljunk! Kerül, amibe kerül!
alfa20
senior tag
2010-ben van egy olyan:
Adatok -> Adateszközök -> ismétlődések eltávolítása.
ez nem jó?
[ Szerkesztve ]
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
spe88
senior tag
nem, írtam is!
Spóroljunk! Kerül, amibe kerül!
alfa20
senior tag
Hát ha nem baj, hogy nem az első érték marad meg, akkor talán ez segít:
=HA(DARABTELI($A2:$A$20;A2)>1;"";A2)
"Az agy olyan, mint az ejtőernyő: csak akkor működik, ha nyitott." (Thomas Dewar)
spe88
senior tag
ezzel a függvénnyel az a gond, hogy minden olyan elemet kivesz, ami többször szerepel az adott listában!
Nekem konkrétan ugyanaz a funkció kellene, mint az ismétlődések eltávolítása!
pl, 1,1,1,1,2,2,3,1,5,5,5,6,5,5,1,2
és akkor csak ezeket jelenítené meg: 1,2,3,5,6
tudom, hogy az Excel nem igazán egy adatbáziskezelő program, de azért ilyen opció csak van benne és mindenképpen függvény kellene, mert ebből megy tovább a többi függvény!
[ Szerkesztve ]
Spóroljunk! Kerül, amibe kerül!
szatocs1981
aktív tag
Próbáld meg így:
Vizsgált cellák: A1:A99
B1: = A1
B2 pedig:
{=HA(SZUM(DARABTELI(A$1:A$99;B$1:B1))>=DARAB2(A$1:A$99);"";INDEX(A:A;HOL.VAN(1;(DARABTELI(B$1:B1;A$1:A$99)=0)*(A$1:A$99<>"");0)))}
[ Szerkesztve ]
csongi
veterán
Eddig minden működik
Köszönet az eddigi segítségért.
A finisbe értem, még maradt 3-4 függvényem,
Olyat szeretnék.
Fkeres a1,b5 (ez készen van) között ha a cella értéke nagyobb mint 0 és d1= Bkny jobb vagy bkny bal, vagy kfny jobb vagy kfny bal. Akkor a k1 cella értéke 1.
amennyiben valamelyik feltétel nem teljesül akkor az érték 0-a.
Köszönöm.
RedHarlow
aktív tag
Sziasztok,
Létezik olyan függvény amely egy oszlopban megszámolja hogy hány különböző sor van? Van egy 7000 sorból álló oszlopom és azt szeretném kiirattatni, hogy hány különböző név szerepel benne de úgy, hogy függvény legyen, tehát hogy a többi oszlopra is tudjam alkalmazni utána.
szatocs1981
aktív tag
Igy meg tudod oldani:
{=SZUM((HOL.VAN(A1:A99&"";A1:A99&"";0)=SOR(1:99))*1)}
[ Szerkesztve ]
RedHarlow
aktív tag
Ez a rész pontosan mi?
=SOR(1:99))*1)}
szatocs1981
aktív tag
ha nem szimpatikus, akkor csinálhatod így is:
{=SZUM(HA(A1:A99<>"";1/DARABTELI(A1:A99;A1:A199)))}
Nem ajánlom egész oszlopra, mert nagyon belassul töle az EXCEL!
Pakliman
tag
Hali!
Nem tudom, Nálad milyen kódolás van.
A munkahelyemen spec. program TXT kimenetét kellett átalakítanom olvashatóbbá.
A makró (standard modulba rakod):
Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Public Function Konvert(mit, Optional KellKonvertálni As Boolean = True) As String
Dim vissza As Long
Dim dest As String
If KellKonvertálni Then
dest = Space(Len(mit))
vissza = OemToCharBuff(mit, dest, Len(mit))
Else
dest = mit
End If
Konvert = dest
End Function
Ezt használhatod cellába beírva, vagy akár egy újabb makróban is, amelyik végigfut a szükséges cellákon és átalakítja a tartalmukat.
[ Szerkesztve ]
atyca
senior tag
Sziasztok!
Másnál is előfordult már olyan probléma,hogy DisplayPort kábellel csatlakoztatva a monitort a win néha nem ismeri fel.Beáll alapfelbontásra (640x480),és semmiféle állítási lehetőséget nem ajánl fel.DVI-D,ill. HDMI kábellel összekötve nincs probléma,pontosabban az csak asztalszámozási gebasz.
Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)
ThaBoss
senior tag
Sziasztok!
Segítséget kérnék a táblázatomhoz! Link: [link]
Azt szeretném kiszűrni a táblázatból, hogy melyik hívószámok (B oszlop) azok, amiket egyáltalán nem vettek fel (F oszlop) egész nap! Ehhez szeretnék kérni egy képletet, köszönöm előre is a segítséget!
atyca
senior tag
Bocs!Rossz helyre írtam...
Win11 Pro/64, MI TV Stick, Kodi 20.2 (többi az adatlapomon)
szatocs1981
aktív tag
A-tól F-ig rádobsz egy szűrőt....az nem jó megoldás?
Fferi50
őstag
Szia!
Próbáld meg ezt a képletet:
=DARABTELI($B$2:$B$300;$B2)=DARABHATÖBB($B$2:$B$300;$B2;$F$2:$F$300;"nem vették fel")
valamelyik következő oszlop második cellájában és húzd az oszlop végéig.
Ezután szűrő az oszlopra - igaz mutatja azokat a sorokat, ahol egész nap nem vették fel a hívást.
(A képlet megszámolja, hány hívás volt a nap során és összehasonlítja a fel nem vett hívások számával. Ha a kettő egyforma, akkor nem vettek fel hívást egész nap.)
Annyit még hozzá, hogy egy szám többször is szerepelni fog, ezért a B oszlopra is rá kell tenni a szűrőt, ott fogod látni, hány érték maradt meg.
Üdv.
ThaBoss
senior tag
Képletezve szeretném, de az ötlet jó, köszönöm!
Fferi50:
Köszönöm, jónak tűnik! Örök hála!
q13579
senior tag
Sziasztok!
Létezik módszer arra vonatkozóan, hogy 3 pivot tábla egyszerre frissüljön egy adott cellába megadott feltétel szerint?
Egyfajta dashboard-ot szeretnék készíteni, amin 3 emberre vonatkozó kimutatás szerepel KÜLÖN!. Viszont annak érdekében, hogy pl. a dátumszűrést ne kelljen mind a 3 kimutatástáblában beállítani, szükségem lenne egy módszerre, hogy a dátumot csak egy cellába kelljen átírni és az összes kimutatás ennek megfelelően frissülne. És nem egy napról lenne szó, hanem több nap kiválasztásáról.
Előre is köszönöm a segítséget.
KubanitoS
veterán
Sziasztok!
Hogy lehetne megoldani, hogy adott oszlopba a progi automatikusan berakja a meghatározott dátumokat növekvő sorrendbe, duplázva őket egymás után, mint itt.
Nem lenne jó egyesével pötyörészni.
Nothing will stand in our way. I will finish what you started.
szatocs1981
aktív tag
duplázni igy tudod képlettel:
=INDEX(A:A;(SOR(A1)+1)/2)
a sorbarendezés sokmindentöl függ. Kicsivel több infó kellene hozzá. Szöveg vagy dátum, milyen formátum?....stb.
[ Szerkesztve ]
Louro
őstag
Arra van lehetőség, hogy makró nélkül, a hivatkozás változót tegyek?
Pl: A2: 2015, A3: 08, A4: 07.
=DARABTELI('blablabla\"&A2&"\"&A3&"["&A4&".xlsx]Munka1!$A$1;"Xyzs")
Mess with the best / Die like the rest
Carasc0
őstag
Sziasztok!
Lenne egy 1 icurka-picurka problémám, illetve szükséges lenne egy roppant egyszerű script.
1. A probléma!
Korábban kaptam egy nagyon hasznos és tökéletes kódot:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$V$3" And Target > "" Then Range("D7") = Range("D7") + Target
End Sub
A gondom csak annyi vele, hogy azon a munkalapon, ahol ez a kód aktívan lefut, formázok tök idegen cellákat, néha bejön a "Type mismatch" Hiba 13-as ablak. Típushiba biztosan, csak nem tudom hogyan kellene javítani.
2. A kérés!
Adott egymás alatt 4 cella: A1 : D1 Ebbe a négy cellába generáljon cellánként 1 db számot az 1 és 10 tartományban, úgy hogy ugyanazt nem generálhatja! Tehát 2 db ugyanazon szám nem lehet. Lehet nevetséges de csak erre lenne szükségem.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!
Fferi50
őstag
Szia!
Az A1 és A2 cella értéke legyen egyforma.
Ezután az A3 cella képlete:
=HA(A2=A1;A2+1;A2)
Ezt végighúzva az oszlopon dupla számokat kapsz. A formátumot valószínűleg át kell állítanod dátumra.
Üdv.
Fferi50
őstag
Szia!
1. A makrót én kiegészíteném ezzel az első sorral:
If Target.Cells.Count>1 then exit sub
Ez azt jelenti, ha több cellát jelöltél ki egyszerre, akkor nem vizsgálja, hogy a V3 cellát hagytad-e el.
2."Adott egymás alatt 4 cella: A1 : D1 " Ez a négy cella egymás mellett van
A véletlenszám generáláshoz nézd meg a RandBetween munkalapfüggvényt (Worksheetfunction). Itt megadhatod a határokat. Az eredményt kerekítő függvénnyel kerekítheted. Ezután megnézed, van-e már ilyen számod. Ha igen, akkor új generálás és vizsgálat, ha nem, akkor beírod a cellába.
Üdv.
[ Szerkesztve ]
Carasc0
őstag
Szia!
Bocsi rosszul írtam a tartományt! De nekem fontos, amint átlépek, majd visszalépek a munkalapra, akkor automatikusan újra generálás történjen. Tudom hogy a függvény nevét meg kell hívni, én ezt értem, de a scriptet nem tudom megírni sajna...Az a véletlen függvény működne is. De hogy csinálok a 3. cellába olyan vizsgálatot, hogy nézze meg, hogy az előző 2 cellába érték egyezik-e a generáltal, és ez alapján cselekszik... Sztem cellába írt függvénnyel megoldani sztem összetett de még bütykölöm.. Script lenne a legjobb.
[ Szerkesztve ]
Gondolkodj globálisan és tegyél lokálisan!