- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- Samsung Galaxy Z Fold7 - ezt vártuk, de…
- Samsung Galaxy Watch (Tizen és Wear OS) ingyenes számlapok, kupon kódok
- Sony Xperia 1 VII - Látod-e, esteledik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Milyen okostelefont vegyek?
- iPhone topik
- A Lite-nál is lájtosabb Honor 400 érkezett
- Xiaomi 15 - kicsi telefon nagy energiával
Hirdetés
-
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
-
azopi74
addikt
válasz
dellfanboy #26735 üzenetére
Először is meg kéne tudni, miért ekkora a mérete, és feltétlenül szükséges, hogy ekkora legyen-e. Nagy valószínűséggel nem kell semmiféle makró a csökkentéshez. Természetesen ezt látatlanban nehéz megmondani, ha feltöltöd valahová a kérdéses excel file-t, többet tudnánk segíteni.
Mi van egyébként ebben az excel fileban? Mik az alapadatok, (hány rekord, hány oszlop, milyen típusú adatok stb... ) és a mi az a "tele képlet" ?
-
Delila_1
veterán
válasz
dellfanboy #24424 üzenetére
Lépj a VB szerkesztőbe Alt+F11-gyel.
Bal oldalon felül kiválasztod a füzetedet. Ha nincs balra lent Properties ablakod, F4-re bejön.
Fent az első lapodat kiválasztod, a Properties ablakban a Visible tulajdonságát xlSheetVisible módra állítod.
A többi lapnál ugyanígy. -
Fferi50
Topikgazda
válasz
dellfanboy #24424 üzenetére
Szia!
Ha a munkafüzet le van védve - és jelszó is van hozzá - akkor a jelszó ismerete nélkül nem tudod a munkalapot "felfedni".
Próbáld meg a következőket:
Ha ugyanabban a munkafüzetben van üres munkalap, akkor annak az első cellájába írd be ezt a képletet:
=védettlapneve!A1
Ha itt megjelenik adat, akkor minden adatot kinyerhetsz a munkalapról úgy, hogy a képletet végigmásolod minden cellán.
Ha nincs üres munkalap (és valószínűleg nem tudsz beszúrni sem újat), akkor nyiss egy új üres munkafüzetet és annak az egyik munkalapjára írd be a fenti képletet, kiegészítve a munkafüzet nevével.Ha átmész a Visual Basic nézetbe (Alt F11), akkor az immediate ablakban kiadhatod a következő parancssort:
sheets(védettlapneve).usedrange.copy sheets(üreslap).range("A1")
Ez elvileg a képleteket is átmásolja.Persze, ha másolás ellen is védve van, akkor nem fog menni, de azért egy próbát megér szerintem
Üdv.
-
slashing
senior tag
válasz
dellfanboy #23933 üzenetére
Ha találsz rá megoldást az engem is érdekelne, nálunk is IT Policy hogy kijelentkezzen a gép és néha roppant idegesítő tud lenni....
-
Delila_1
veterán
válasz
dellfanboy #23937 üzenetére
-
Delila_1
veterán
válasz
dellfanboy #23933 üzenetére
Keress rá a Windows súgójában az alvó állapotra, ahol különböző időket rendelhetsz hozzá, vagy akár a Soha választásával megszüntetheted. Ennek a helye is eltérő verziónként.
-
Delila_1
veterán
válasz
dellfanboy #22410 üzenetére
A DARABTELI függvény nulla értéket ad annál a 20k-nál.
A 120k-t keresd a 100k-ban.
-
slashing
senior tag
válasz
dellfanboy #22410 üzenetére
csak egy tipp, mi lenne ha a második oszlop adatait átraknád az első alá aztán csinálnál egy olyat hogy ismétlődések eltávolítása (excel 2013, adatok menü)?jah de így megkapod a 120k-t nem a 20-at sry
-
lappy
őstag
válasz
dellfanboy #22052 üzenetére
Ha ppt is megengedett akkor teszel be két képet és animálod őket hol az egyik állapot hol a másik állapot jön elő és a lejátszást végteleníted.
Excelben is meg lehet oldani de sokkal nehezebb dolgod lenne vele. -
Mittu88
senior tag
válasz
dellfanboy #21779 üzenetére
Így mennie kell.
-
Delila_1
veterán
válasz
dellfanboy #21077 üzenetére
Nyitva kell lennie. Az Excelből nem is látod, mert rejtett füzetként jelenik meg, csakis a VBE-ben látszik.
-
Delila_1
veterán
válasz
dellfanboy #21074 üzenetére
Mivel a makrót a personalba tetted, igen, normális. No de miért zárod be a personalt?
-
dellfanboy
őstag
válasz
dellfanboy #20912 üzenetére
megvan :
adatok-érvényesítés -
lappy
őstag
válasz
dellfanboy #20908 üzenetére
szia!
ez jó de nekem a tartományt valamiért nem veszi be =SZUMHA(A1:A3;FKERES(D5;A1:C3;1;0);B1:C3) -
Geryson
addikt
válasz
dellfanboy #20728 üzenetére
Egyszer csináld meg és utána ecsettel át tudod vinni a formátumot!
-
Delila_1
veterán
válasz
dellfanboy #20728 üzenetére
Egy kis makró a personalba:
Sub Szamformatum()
Selection.NumberFormat = "#,##0_L"
End SubEhhez kiteszel egy ikont. A formátum végén a _L jobbról ad egy behúzást, hogy ne "ragadjon" az adat a jobb szegélyre.
A personal szóra keresve több leírást találsz itt a fórumon.
-
föccer
nagyúr
válasz
dellfanboy #18423 üzenetére
Darabteli-t nézd meg. Erre van kitalálva.
üdv, föccer
-
Delila_1
veterán
válasz
dellfanboy #18374 üzenetére
Az FKERES függvény volt az. A tól-ig határokat külön oszlopban add meg (elég az alsó határokat megadni), és a függvény utolsó paramétere 1 (vagy IGAZ) legyen.
-
Delila_1
veterán
válasz
dellfanboy #18264 üzenetére
Szivi.
-
Delila_1
veterán
válasz
dellfanboy #18262 üzenetére
A TRIM függvény [=trim(a1)] megszünteti a hivatkozott cella elején-, és végén lévő szóközöket, valamint az adat belsejében lévő dupla szóközöket eggyé alakítja a több szóból álló kifejezésekben.
A tisztítás után ezt az oszlopot irányítottan, értékként illesztheted az eredeti oszlopra. -
Delila_1
veterán
válasz
dellfanboy #18260 üzenetére
A szokásos hiba ilyenkor, hogy vagy a keresendő, vagy a listában lévő adat tartalmaz egy nem látható, pl. szóköz karaktert. Ezt ellenőrizd mind a kettőnél.
-
dellfanboy
őstag
válasz
dellfanboy #17904 üzenetére
megvan egy space kellett a végére++!+
=CSERE(HT11;6;5; )köszi az irányt, mindig öröm ide jönni!
-
Delila_1
veterán
válasz
dellfanboy #17902 üzenetére
=FKERES("*" & "TGDF" & "*";......;....)
-
válasz
dellfanboy #17900 üzenetére
A Jobb függvény segít. Azzal megadhatod, hogy csak jobbról az utolsó néhány karaktert ellenőrizze.
-
Mutt
senior tag
válasz
dellfanboy #17760 üzenetére
Hello,
Delila_1 mintájára építve ez a CSE függvény is műkődik erre:
{=MAX(HA(A2:A7=E2;B2:B7))}
üdv
-
Delila_1
veterán
válasz
dellfanboy #17767 üzenetére
A szűrés behívása előtt jelöld ki a tartományt, ahogy a képen látod. Panaszkodni fog, hogy nem tudja megkülönböztetni az adatokat a címtől, mert mindegyik szöveges. Ne törődj vele, menj tovább, vagy írd be előre az E1-be az A1 értékét.
-
Delila_1
veterán
válasz
dellfanboy #17760 üzenetére
Az Adatok | Rendezés és szűrés | Speciális menüpont segítségével a kép szerint tedd ki az egyedi értékeket egy új oszlopba, ami nálam az E. Régebbi verzióban a menüt az Adatok | Szűrő | Irányított szűrő cím alatt találod meg.
Az F2 cella képlete
=MAX(INDIREKT("B"&HOL.VAN(E2;A:A;0)&":B" & HOL.VAN(E2;A:A;1))) -
alfa20
senior tag
válasz
dellfanboy #17760 üzenetére
nem tudom tud-e ilyet az fkeres, mert az első találatot keresi, majd a hozzá értők meg mondják a tutit, de addig rendezd sorba előbb a lakosság számára majd az országra, addig is jó lesz míg nem kapsz más választ
-
lappy
őstag
válasz
dellfanboy #17684 üzenetére
-
Delila_1
veterán
válasz
dellfanboy #17621 üzenetére
Szivi.
-
Delila_1
veterán
válasz
dellfanboy #17610 üzenetére
A függvényben idézőjelek között adtad meg a számításokat, ezért szövegként kezeli.
Változtass az általam küldött minta B1:B4 tartomány értékein, és meglátod, változik az eredmény is.
A B3 (fix kezelés) értékét is osztom a hónapok számával. -
Delila_1
veterán
válasz
dellfanboy #17605 üzenetére
A státuszsorban látszik a B6 cella képlete.
-
Mutt
senior tag
válasz
dellfanboy #17438 üzenetére
Hello,
Ahogy mások is mondták DARABTELI-vel megoldható.
pl. ha a számok a D1
7 tartományban vannak akkor ez a CSE formulád:
{=SZUM(HA(DARABTELI(D17;D1
7)>1;1;0))}
üdv.
-
lappy
őstag
válasz
dellfanboy #17438 üzenetére
darabhatöbb is jó!
-
m.zmrzlina
senior tag
válasz
dellfanboy #17438 üzenetére
Első körben a DARABTELI()-re gondolnék.
pl: =DARABTELI(C:C;1) megadja, hogy a C oszlopban hány 1-es van.
Vagy =DARABTELI(D:D;"ló") a D oszlopban hány ló.
-
Mutt
senior tag
válasz
dellfanboy #16734 üzenetére
-
mandin
senior tag
válasz
dellfanboy #16608 üzenetére
Köszönöm, a hivatkozott cellát hogyan tudom elrejteni, legyen ott, de ne látszódjon?
-
poffsoft
veterán
válasz
dellfanboy #16598 üzenetére
ez legyen mondjuk B2-ben:
=HA((A2*0,0001*$B$1)>10;(A2*0,0001*$B$1);10)A2-ben a darab, B1-ben az egységár (12 Ft)
-
Delila_1
veterán
válasz
dellfanboy #16598 üzenetére
-
poffsoft
veterán
válasz
dellfanboy #15844 üzenetére
És a KM állás sorában nincsen olyan cella, ami azonosítja, hogy ez a km állás sora lesz? mert azt akár fv-nyel is megoldhatnánk...
makróval simán átmásolható:
Option Explicit
Sub CopyRows()
Dim i As Integer
Dim r1, c1, r2, c2, r3 As Double
Dim wsTest As Worksheet
Dim sname As String
sname = "Summa"
Set wsTest = Nothing
On Error Resume Next
Set wsTest = Worksheets(sname)
On Error GoTo 0
If wsTest Is Nothing Then
Worksheets.Add(Before:=Sheets(1), Count:=1, Type:=xlWorksheet).Name = sname
End If
Worksheets(sname).Cells.Clear
For i = 1 To Sheets.Count
If Not Worksheets(i).Name = sname Then
r1 = Worksheets(i).UsedRange.Row
c1 = Worksheets(i).UsedRange.Column
r2 = r1 + Worksheets(i).UsedRange.Rows.Count - 1
c2 = c1 + Worksheets(i).UsedRange.Columns.Count - 1
r3 = Worksheets(sname).UsedRange.Row + Worksheets(sname).UsedRange.Rows.Count
Worksheets(i).Select
Worksheets(i).Range(Cells(r1, c1), Cells(r2, c2)).Copy _
Destination:=Worksheets(sname).Cells(r3, c1)
End If
Next i
Worksheets(sname).Select
[A1].Select
End Sub -
poffsoft
veterán
válasz
dellfanboy #15834 üzenetére
persze azt is elmondhatnát, minek alapján találod meg, hogy éppen b30, vagy b5?
akkor talán megoldható makróval is (a rendezés is)... -
Delila_1
veterán
válasz
dellfanboy #15834 üzenetére
Érd el, hogy minden lapon azonos cellában legyen az összegzendő érték. Találd meg, melyik cella szerepel a legtöbb lapon. Ha ez pl. a B30, akkor a többi lap B30 cellájába hozd be ezt az értéket. Ahol B3-ban van, ott a B30 legyen =B3. Lehet, hogy jobb egy olyan cellába vinni, amit később az adatmennyiség növekedése miatt biztosan nem írsz majd felül.
Mikor ez megvan (babrás munka, de 1× kell végrehajtani), az összegző lapon a képlet
=SZUM('Első lap neve:Utolsó lap neve'!B3)Figyelj az aposztrófokra!
-
Delila_1
veterán
válasz
dellfanboy #15590 üzenetére
Szívesen. Neked is Geryson.
-
Delila_1
veterán
válasz
dellfanboy #15588 üzenetére
Adatok | Tagolás | Csoportba foglalás.
-
bugizozi
őstag
válasz
dellfanboy #15204 üzenetére
-
Sickboy25
addikt
válasz
dellfanboy #15184 üzenetére
és olyat lehet, hogy az elrejtettek csak jelszó beütése után jelenjenek meg?
-
lappy
őstag
válasz
dellfanboy #15180 üzenetére
Csak azért nem jön ki neked mert a 9+7+4 =20 és nem 24 el
-
Delila_1
veterán
válasz
dellfanboy #14814 üzenetére
Ezt így nem tudod megoldani. Honnan tudja a gép, hogy a NOK és a Nokia azonos termékre vonatkozik?
Neked kell gondoskodnod arról, hogy jó adatokat vigyél be, akkor segít a gép. -
válasz
dellfanboy #14814 üzenetére
akkor szerintem fkeres fv. kell neked.
-
lappy
őstag
válasz
dellfanboy #14812 üzenetére
Szia!
Ha csak az ár kell mellé egy cellába akkor =b1! -
lappy
őstag
válasz
dellfanboy #14473 üzenetére
Szia!
Alap esetben nem! De sok fáradságos és kitartó munkával igen!
[link]
vagy ez a módszer!
Először mindenképpen át kell konvertálni pl. word formátumúvá.
(persza ha kinyomtatott doksi lett szkennelve és úgy lett pdf, akkor sokkal macerásabb lesz a visszakonvertálás, minta a dokumentum közvetlenül pdf-be került nyomtatásra) -
m.zmrzlina
senior tag
válasz
dellfanboy #12892 üzenetére
Esetleg próbáld meg ezt!
Bizonyos Epson nyomtatókhoz ingyen adják (adták). Meglepően jó karakterfelismerést csinál. Nem mondom, hogy nem kell az Excelbe illesztés után gyomlálgatni de messze kevesebb munka mint begépelni a scannelt dokumentum tartalmát.
-
föccer
nagyúr
válasz
dellfanboy #12890 üzenetére
Elsőnek mindeképpen az Excel által emészthető formátummá kell konvertálni. Ennek hatákonysága erősen megkérdőjelezhető, főleg ha egy kinyomtatott anyag lett pdf-be vissza scannelve. Keress rá a pdf2xls konverter-re, hátha találsz valami olyan értelmes alkalmazást, ami kées elfogadható pontosággal a konverzióra. Ha ez megvan, akkor már simán mehet rá az fkeres.
=============
mod: nézd csak, pont egy ilyenre van szükséged: [link]üdv, föccer
-
föccer
nagyúr
válasz
dellfanboy #12171 üzenetére
Én ezt mindig így csináltam, hogy fel veszek egy külön adatsort, ami 2 értékkel van jelen. Az x pontjai a diagram két szélén az y értékek pedig a beállítani kívánt vonal értéke. Ezután meg kell adni a x tengely tulajdonságainál, hogy a skála nem automatikus méretezés legyen, hanem az előre beállított érték. Ezután a frissen megadott vonalat olyanra formázod, hogy az úgy nézzen ki, ahogy szeretnéd.
üdv, föccer
-
válasz
dellfanboy #10962 üzenetére
-
m.zmrzlina
senior tag
válasz
dellfanboy #10855 üzenetére
Nekem az A1:B4000-ben vannak a változópárok amiket el kell osztani egymással, az eredmény pedig az F1:F50 tartományba illetve attól jobbra kerül.
Sub lepopulal()
Dim bemenoadat As Variant
Dim eredmeny As Variant
Dim i As Integer
bemenoadat = Range("A1:B4000").Value
eredmeny = Range("F1:EXA1").Value
For i = 1 To 4000
eredmeny(1, i) = bemenoadat(i, 1) / bemenoadat(i, 2)
Next i
Range("F1:EXA50") = eredmeny
End Sub -
m.zmrzlina
senior tag
válasz
dellfanboy #10855 üzenetére
Hol kell keresni a változókat és hová kell tenni az eredményt?
-
föccer
nagyúr
válasz
dellfanboy #10855 üzenetére
Függvénnyel sem bonyolult.
=$A$1/$B$1
Ez megy az összes cellába. Lehúzható, másolható. Folyamatosan az A1/B1 cellára fog mutatni a hivatkozás.
üdv, föccer
-
Delila_1
veterán
válasz
dellfanboy #10855 üzenetére
Sub mm()
Range("A1") = 100: Range("B1") = 50: Range("C1") = Range("A1") / Range("B1")
Range("C1").Copy
Range("F1:F50").Select
Selection.PasteSpecial Paste:=xlPasteValues
End Sub -
perfag
aktív tag
válasz
dellfanboy #8586 üzenetére
Feltettél korábban egy kérdést: "meg akarok tanulni makrót írni, ti mit ajánlotok1 könyvet vagy olvassam el a forumot-prog.hu-t ". Szerintem IS. Olvass el
egytöbb könyvet és olvass vissza a fórumban. Mert erre a kérdésedre már van válasz, (#8525) Fire/SOUL/CD-tól visszafejtheted. Röviden: ha nincs megnyitva a másik munkafüzet, hát nyisd meg makróval! -
m.zmrzlina
senior tag
válasz
dellfanboy #8584 üzenetére
Erre a karaktersorozatra keress rá:
Wiley.Excel.2007.Power.Programming.with.VBA.Apr.2007.chm
Szerintem biblia a témában.
"God save John Walkenbach"
-
válasz
dellfanboy #8581 üzenetére
Hali!
Nem feltétlenül kell hozzá makró, lehet külső hivatkozást is alkalmazni, pl:
='C:\Users\Fire\Documents\[orszagok.xlsx]Hun'!B1Ez a C:\Users\Fire\Documents mappában található, orszagok.xlsx nevű munkafüzet, Hun nevű lapjának, B1 cellájának az értékét adja eredményül, jeleníti meg.
Fire.
-
dellfanboy
őstag
válasz
dellfanboy #8581 üzenetére
vagy az lenne az egyszerűbb hogy a 25 füles excel adatokból makró segítségével létrehozzak egy új xls-t amibe a fejléc mindig ugyanaz lesz.
Új hozzászólás Aktív témák
- Mibe tegyem a megtakarításaimat?
- Azonnali fotós kérdések órája
- Samsung Galaxy S25 Ultra - titán keret, acélos teljesítmény
- Kerékpárosok, bringások ide!
- Milyen Android TV boxot vegyek?
- Miért álltak az oldalak egy hétig, mi történt?
- Autós topik látogatók beszélgetős, offolós topikja
- Battlefield 6
- Autós topik
- Samsung Galaxy S22 és S22+ - a kis vagány meg a bátyja
- További aktív témák...
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- ROBUX ÁRON ALUL - VÁSÁROLJ ROBLOX ROBUXOT MÉG MA, ELKÉPESZTŐ KEDVEZMÉNNYEL (Bármilyen platformra)
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- GYÖNYÖRŰ iPhone 12 64GB Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3052, 96% Akkumulátor
- Samsung Galaxy Tab A8 32GB, Újszerű, 1 Év Garanciával
- Bomba ár! Lenovo ThinkPad T440P - i5-4GEN I 8GB I 128GB SSD I 14" HD+ I Cam I W10 I Gari!
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 docking station (5TW13AA) (DisplayLink)
- Bomba ár! HP EliteBook 845 G7 - Ryzen 5 4650U I 16GB I 512SSD I 14" FHD Touch I Cam I W11 I Gari!
Állásajánlatok
Cég: FOTC
Város: Budapest