-
Fototrend
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
-
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.
-
Musuz
csendes tag
válasz m.zmrzlina #28003 üzenetére
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
válasz attilalr2 #28000 üzenetére
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 SubA 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. -
csongi
veterán
-
Fferi50
őstag
válasz csongi #28010 üzenetére
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
válasz Fferi50 #28011 üzenetére
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....ÁÁÁÁÁÁ -
Thrawnad
senior tag
válasz m.zmrzlina #28003 üzenetére
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...
-
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. -
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
válasz alfa20 #28019 üzenetére
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).addressAz 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 ]
-
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!
-
spe88
senior tag
válasz alfa20 #28028 üzenetére
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!
-
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.
-
RedHarlow
aktív tag
válasz szatocs1981 #28033 üzenetére
Ez a rész pontosan mi?
=SOR(1:99))*1)}
-
Pakliman
tag
válasz attilalr2 #28000 üzenetére
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 FunctionEzt 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!
-
Fferi50
őstag
válasz ThaBoss #28038 üzenetére
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
válasz szatocs1981 #28040 üzenetére
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.
-
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 SubA 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
válasz Carasc0 #28047 üzenetére
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
válasz Fferi50 #28049 üzenetére
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!
Új hozzászólás Aktív témák
- Samsung Galaxy S24 - nos, Exynos
- Redmi Note 13 Pro+ - a fejlődés íve
- S.T.A.L.K.E.R.: Shadow of Chernobyl
- Mobilinternet
- Vezeték nélküli fülhallgatók
- S.T.A.L.K.E.R. Clear Sky
- bitpork: Fogyasztásra ítélve
- Samsung Galaxy Z Fold5 - toldozás-foldozás
- Ford topik
- Milyen billentyűzetet vegyek?
- További aktív témák...
- Steam, Windows, Origin kulcsok, előfizetések közvetlenül a kiadótól, a LEGJOBB ÁRON!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! LEGOLCSÓBB! Automatikus 0-24
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin stb.
- Microsoft licencek a legolcsóbban - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office