-
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
-
vamzi
senior tag
Sziasztok,
Szerintetek hogyan tudnám az alábbi problémát excelben megoldani?
Egy cellába maximum 40 karakter kerül és a karakterláncban balról jobbra egy mintát keresek:
a = betű
n = szám
x = betű/számA keresett minta:
nxann-nnnnaaxxnnnEredmény: a mintára illeszkedő leghosszabb karakter sorozat karaktereinek a száma:
12A34-5678CD --> 12
12A34-5678CD1 --> 13
12A34-5678CD01 --> 14
12A34-5678CDEF1 --> 15
12A34-5678CDEF01 --> 16
12A34-5678CDEF001 --> 17
12A34-56783482JF4DFGDJK45389FDJR --> 10Az első 10 karakter minden esetben ugyan az, ha mégsem, akkor nem vizsgálom mert hibás adat.
Köszi, ha tudtok segíteni.
-
vamzi
senior tag
Sziasztok,
Van valakinek arra valami ötlete, hogy hogyan tudnék egymástól függő legördülőmenüket csinálni? Fa struktúrájú adatszerkezetről van szó:
A B C D E1 A 1 7 0 1
2 A 2 8 1 2
3 A 6 9 2 3
4 A 4 0 3 1
5 A 5 0 4 1
6 A 6 0 4 *1
7 B 7 1 1 1
8 B 8 1 1 2
9 B 9 1 1 3
10 B 0 1 2 1
11 B 1 2 1 1
12 B 2 1 1 1
13 C 1 1 1 1
14 C 1 1 1 2
15 C 1 1 1 3
16 C 1 1 2 1
17 C 1 2 1 1
18 C 2 1 1 1A terv, hogy az 5 oszlop kapna 1-1 legördülő menüt, aminek a tartalma mindig az azt megelőző kiválasztástól függene. Tehát, hogy elérjem az E6 cellát, az
1. kiválasztásnál [A;B;C] az "A" értéket választom,
2. kiválasztásnál [1;2;4;5;6] a "6" értéket választom,
3. kiválasztásnál [0;9] a "0" értéket választom,
4. kiválasztásnál [4] a "4" értéket választom,
5. kiválasztásnál [1] az "1" értéket választom.Az A oszlop 17 különböző értéket tartalmaz
A B oszlop 21 ismétlődő értéket tartalmaz
A C oszlop 135 ismétlődő értéket tartalmaz
A D oszlop 126 ismétlődő értéket tartalmaz
Az E oszlop 30 ismétlődő értéket tartalmazUgyan úgy kellene működnie, mint az excel Filter funkciónak.
Az elvégezni kívánt feladat: A fenti táblázat egy szabályrendszer, ami mentén kódokat kell előállítani. A fenti leírás alapján az előállt kód "A6041".
Az egyetlen megoldás, amit ismerek, ha összecsoportosítom a cellákat, táblázatként formázom és indirekt behivatkozom a legördülőmenüben. Viszont ez túl nagy munka és még rugalmatlan is lenne.
Van ötletetek?
Köszi,
Ádám. -
vamzi
senior tag
Sziasztok,
Van egy 2 oszlopos és sok soros táblázatom. Az A oszlopban lévő adatok egyediek, de 1 naphoz többször is tartozhaz. A B oszlop a nap. Azt kellene megszámolnom, hogy az adott napokon hány egyedi adat volt az A oszlopban. Tehát a többszörös előfordulást is csak 1-nek kell venni.
krt_id dátum
11923 2017.03.06.
11923 2017.03.06.
6859 2017.03.06.
6857 2017.03.06.
13512 2017.03.07.
12317 2017.03.07.
13512 2017.03.07.
12642 2017.03.07.
13512 2017.03.07.
11396 2017.03.07.
6625 2017.03.08.
12680 2017.03.08.
13514 2017.03.08.
6899 2017.03.08.
9095 2017.03.08.
11849 2017.03.08.A fenti táblázatból ennek kellene lennie:
2017.03.06. 3
2017.03.07. 4
2017.03.08. 6Tudnátok ebben segíteni?
Köszönöm,
Ádám.
-
vamzi
senior tag
Sziasztok,
Egy elektronikus menetlevelet készítek excelben makrókkal. Szeretném, ha az időpontok nem kézzel kerülnének beírásra, hanem a Now fügvény használatával. Ezt úgy képzelem el, hogy a munkafüzet megnyitásának ideje lenne az időpont, ami beírásra kerül és fixen marad az értéke a cellában. Tehát hogy lehetne rögzíteni a now értékét?
Köszönöm,
Ádám. -
-
vamzi
senior tag
Sziasztok,
A D2:G2 cellákba szeretném kiszámolni, hogy Cég A-B összesen mekkora területen van jelen. Megvan adva az irodák mérete(B3:B7) és kapacitása(C3:C7). És meg van adva, hogy melyik cég hány fővel van jelen (C3:G7).
Irodánként kiszámolva és összeadva megtudom oldani a feladatot, de ezt automatizálni szeretném, hogy több száz soros excelnél is működjön. Tudtok segíteni?Itt a táblázat:
http://1drv.ms/1QpWQPkKöszönöm,
Ádám. -
vamzi
senior tag
Sziasztok,
Erőforrás problémával küszködök. A megoldandó problémám a következő:
Történet tábla:
A:A Rendszám
B:B Utazás dátuma
C:C Nyitókilométer
D:D Zárókilométer
Fő tábla:
A:A rendszám
B:B a rendszámhoz tartozó havi zárókilométert írja ki(gyakorlatilag havi lebontásban nézve a legnagyobb zárókilométert keresem)
C1 Itt adom meg, hogy melyik hónap érdekel.
Segéd tábla:
A vlookup innen tudja, hogy a szövegesen megadott hónap számosítva mi (pl január - 01)Ez így működik is. Pontosan működött, míg csak ~10 utazás szerepelt a táblázatban. Mióta ráeresztettem a teljes táblát, azóta azt írja ki, hogy kevés az erőforrás. Tömbösített formulát írtam rá vlookupokkal és iffekkel:
{=IF($D$1<>"Hónapvégi km";VLOOKUP(VLOOKUP($D$1;Segédtábla!$A:$B;2;0);IF(Történet!$A:$A='Fő tábla'!A2;Történet!D:H);5;1);"")}
Hogyan tudnám tovább egyszerűsíteni, hogy az excel is kibírja számolni?
Köszönöm.
-
vamzi
senior tag
Szia,
Elhiszem, viszont nem valami kifinomult a PH keresője és lövésem sincs hogy keressek rá, hogy értékelhető találatot kapjak. A hsz-eket pedig kézzel nem szeretném áttúrni.
Jelenleg amúgy ott tartok, hogy kigugliztam egy olyan VBA kódot, ami minden táblázat első sheetjét összemásolja nekem. De mivel nem ismerem a nyelvet, így nem tudom kiegészíteni, hogy a többi sheetet is másolja át.
[link]
Sub MergeAllWorkbooks()
Dim MyPath As String, FilesInPath As String
Dim MyFiles() As String
Dim SourceRcount As Long, FNum As Long
Dim mybook As Workbook, BaseWks As Worksheet
Dim sourceRange As Range, destrange As Range
Dim rnum As Long, CalcMode As Long
' Change this to the path\folder location of your files.
MyPath = "C:\Users\Ron\test"
' Add a slash at the end of the path if needed.
If Right(MyPath, 1) <> "\" Then
MyPath = MyPath & "\"
End If
' If there are no Excel files in the folder, exit.
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If
' Fill the myFiles array with the list of Excel files
' in the search folder.
FNum = 0
Do While FilesInPath <> ""
FNum = FNum + 1
ReDim Preserve MyFiles(1 To FNum)
MyFiles(FNum) = FilesInPath
FilesInPath = Dir()
Loop
' Set various application properties.
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With
' Add a new workbook with one sheet.
Set BaseWks = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
rnum = 1
' Loop through all files in the myFiles array.
If FNum > 0 Then
For FNum = LBound(MyFiles) To UBound(MyFiles)
Set mybook = Nothing
On Error Resume Next
Set mybook = Workbooks.Open(MyPath & MyFiles(FNum))
On Error GoTo 0
If Not mybook Is Nothing Then
On Error Resume Next
' Change this range to fit your own needs.
With mybook.Worksheets(1)
Set sourceRange = .Range("A1:C1")
End With
If Err.Number > 0 Then
Err.Clear
Set sourceRange = Nothing
Else
' If source range uses all columns then
' skip this file.
If sourceRange.Columns.Count >= BaseWks.Columns.Count Then
Set sourceRange = Nothing
End If
End If
On Error GoTo 0
If Not sourceRange Is Nothing Then
SourceRcount = sourceRange.Rows.Count
If rnum + SourceRcount >= BaseWks.Rows.Count Then
MsgBox "There are not enough rows in the target worksheet."
BaseWks.Columns.AutoFit
mybook.Close savechanges:=False
GoTo ExitTheSub
Else
' Copy the file name in column A.
With sourceRange
BaseWks.Cells(rnum, "A"). _
Resize(.Rows.Count).Value = MyFiles(FNum)
End With
' Set the destination range.
Set destrange = BaseWks.Range("B" & rnum)
' Copy the values from the source range
' to the destination range.
With sourceRange
Set destrange = destrange. _
Resize(.Rows.Count, .Columns.Count)
End With
destrange.Value = sourceRange.Value
rnum = rnum + SourceRcount
End If
End If
mybook.Close savechanges:=False
End If
Next FNum
BaseWks.Columns.AutoFit
End If
ExitTheSub:
' Restore the application properties.
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
End Sub -
#18212
vamzi
senior tag
m.zmrzlina
#18209
vamzi
senior tag
válasz
m.zmrzlina
#18209
üzenetére
Köszönöm, sajnos makróhoz nem értek.
sztanozs
Végül így sikerült megoldanom:
=IFERROR(INDEX(Fő!$A:$A;MATCH(D44;Fő!$K:$K;0)+MATCH($C$46;INDIRECT(CONCATENATE("Fő!G";MATCH(D44;Fő!$K:$K;0);":G";MATCH(F44;Fő!$K:$K;0)-1));0)-1);"")Köszönöm a segítségeket.
-
vamzi
senior tag
Sziasztok!
A MATCH(HOL.VAN) függvénnyel bajlódok. A függvény táblázatát több kisebb függvényből/szóból szeretném összerakni, de nem megy, mert mindig #VALUE(#ÉRTÉK) hibát dob.
Tehát. A "C" oszlopban megkeresem , hogy hol kezdődik a 200-as tartomány:
=MATCH("200";C1:C9;0)
Megkeresem, hogy hol ér véget:
=MATCH("300";C1:C9;0)-1A kapott két értéket veszem a "B" oszlop tartományának és megkeresem a "körte" értéket.
Ezután meghatározom a "körte" egyedi azonosítóját, ami most "5"Tehát az "5" értéket keresem a lenti táblázatban úgy, hogy annyit tudok, hogy "200" és hogy "körte".
tartomány:
A1:C9
Az első oszlop egy egyedi azonosító
1 alma 100
2 körte 100
3 banán 100
4 alma 200
5 körte 200
6 banán 200
7 alma 300
8 körte 300
9 banán 300Tudtok ebben segíteni? Igazából csak annyit kellene, hogy a MATCH-be hogyan ágyazhatnék be több MATCH értéket, amivel a keresési tartományt adom meg.
Előre is köszönöm,
Ádám. -
vamzi
senior tag
Sziasztok!
Lehet úgy színezni az excelben, hogy:
A1-ben "valami"
A2-ben pedig vagy van adat vagy nincs(függvény dönti el, hogy üres, vagy kiír-e valamit)Ugyan ez a helyzet B,C,D stb. oszlopokban is és a 3-5-7. stb. sorban ismétlődik.
Azt a párost szeretném megszínezni, ahol a függvény adatod dob.
Tehát ha A2-ben van adat, akkor A1 és A2 legyen beszínezve. Valami függvényt lehet használni, vagy csak conditional formatting van erre?
Előre is köszönöm.
-
vamzi
senior tag
válasz
Delila_1
#10223
üzenetére
Egyelőre lehet hogy az volt a baja, hogy az egyik táblán számként szerepel a hasznos oszlopban lévő érték, a másikon meg szövegként. Most ráeresztettem kicsit egy konvertálást, de ezzel már nagyon szöszöl, majd befejezi
A lényeg, hogy ennek működnie kell akkor a betűkre is. Köszönöm szépen! -
vamzi
senior tag
válasz
Delila_1
#10220
üzenetére
Nem képet adtam, hanem gugli doksiként megosztottam a táblát. 2007-es excelt használok. A kis táblán amit adtam azon szépen működik, de sajna a nagy 25.000 soros táblán nem nagyon akarja azt kiírni amit én elvárok tőle. A nagy táblában viszont a "Hasznos oszlop"ban nem csak számok vannak, hanem betűk is pl: F.01930465.01
Ez nem zavarhatja be a működését?
;HA(SZÁM(K4);H4+(N4/1,27);H4))
Új hozzászólás Aktív témák
- Picit gazdaságosabb és halkabb lett a PlayStation 5 Pro legfrissebb verziója
- NVIDIA GeForce RTX 5070 / 5070 Ti (GB205 / 203)
- Arc Raiders
- Battlefield 6
- Végre 120 Hz-es lesz az Apple következő monitora
- Fejhallgató erősítő és DAC topik
- Hardcore café
- Napelem
- Shield TV-t csinált a Shieldből az NVIDIA
- E-roller topik
- További aktív témák...
- Game Pass Ultimate előfizetések 1 - 36 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN! AKCIÓ!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Bitdefender Total Security 3év/3eszköz! - Tökéletes védelem, Most Ünnepi áron! :)
- Humble szökevények 500-2500Ft
- Számlás!Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- GYÖNYÖRŰ iPhone 14 Pro 128GB Deep Purple-1 ÉV GARANCIA - Kártyafüggetlen, MS4237,100% Akksi
- Újszerű Dell Latitude 7400 14" FHD IPS, i5 8365U, 16GB RAM, SSD, jó akku, számla, 6 hó gar
- BESZÁMÍTÁS! Apple Macbook Air 15 2025 M4 16GB 256GB SSD macbook garanciával hibátlan működéssel
- Minden szoftver mellé teljesen audit és NIS2 biztos, jogilag hiteles licencigazolást adunk át!
- Dell Latitude 7480 14" FHD IPS, i5 7300U, 8GB RAM, SSD, jó akku, számla, 6 hó gar
Állásajánlatok
Cég: Laptopszaki Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest