-
IT café
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
-
föccer
nagyúr
Jelöld ki az E oszlopot, majd simán nyomj egy sorba rendezést, bővítsd az adattartományt. Másik variáció, hogy a legfelső sort kijelölöd és beállítasz egy szűrőt, majd E oszlop szűrőjében rendezed sorba.
Ez után E oszlopot kijelölve használd a részösszeg funkciót. A felugró ablakban beállítod, hogy költséghely szerint rendezzen és melyik oszlopot adja össze. Bal oldalt megjeleni 3 "+" jelecske egészen kint a munkalap széplen, fent a felső sarokban. Ott tudod kibontani/bezárni az adott szinteket.
üdv, föccer
Építésztechnikus. Építőmérnök.
-
hallgat
csendes tag
A változó fájlnevek nem akkora gond, ha tartasz egy külön munkalapot a fájlnevek megadására.
Itt mondjuk az "A" oszlopban a fájlok elérési útját megadod szövegesen, egyenként.
Ha van új, azt hozzáteszed.
Így a makró tudja majd, hogy melyik fájlokkal kell foglalkoznia és azoknak mi a pontos elérési útja.Ez persze nem megoldás a makróra, de a fájlnevekre igen.
Office 2010 Attól, hogy a verebek alakzatba állnak, az még nem SAS!
-
Delila_1
Topikgazda
Nézz el ide.
Keveset kell módosítani benne.
A Range("A1:A25").Copy WSGy.Range("A" & usor) 'másolás sorban az A1:A25 helyett írd be a jelenléti tartomány területét. Mivel ez változik, bőven add meg a sorok számát, hiszen ha többet másol 1-1 füzetből, mint a kitöltött terület, úgyis csak üres cellák kerülnek a gyűjtő füzetedbe, amik a következő jelenléti behívásakor felülíródnak.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Ha nem jön össze, add meg, hogy az egyes füzetekből melyik állományokat kell összemásolni.
A
Range("A1").CurrentRegion.Offset(1, 0).Copy WSGy.Range("A" & usor)
sor kijelöli és másolja (címsor nélkül) a megnyitott füzetnek azt a részét, ami az A1 cellától kezdve egybefüggőnek tekinthető. Ezt írhatod be a
Range("A1:A25").Copy WSGy.Range("A" & usor)
sor helyére – ha A1-ben kezdődnek a másolandó tartományaid.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
lappy
őstag
Sub All_Cells_In_All_WorkSheets_1()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Select
With sh.UsedRange
.Cells.Copy
.Cells.PasteSpecial xlPasteValues
.Cells(1).Select
End With
Application.CutCopyMode = False
Next sh
End SubBámulatos hol tart már a tudomány!
-
0P1
aktív tag
Igen, ez inkább matek, mint excel
Információhiányod van, mivel 6 ismeretlened van és 4 független egyenleted.
Az utolsó (2016 egész vére vonatkozó) ugyanis felesleges, az kiszámolható a rendelkezésre álló információkból.
Még legalább két független információ hiányzik, hogy egyértelműen megoldható legyen (pl 2 negyedév adata) -
Delila_1
Topikgazda
Nem úgy, ahogy kérted, de az eredmény hasonló, és duplikáció mentes.
Az A2:D13 feltételes formázása =$B2<>$B1, felső szegély
A D2:D13 formája =$B2=$B1, itt a karakter színe fehér.Szerk.: a tartomány a B oszlop szerint legyen rendezett.
[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
Delila_1
Topikgazda
Akkor jön a makró, amit modulba kell bemásolnod.
Sub Atrendez()
Dim Innen As Long, Ide As Long, osszeg As Single
Innen = 2: Ide = 2: osszeg = 0
Cells(1, 10) = Cells(2, 1) & " " & Cells(2, 2)
Do While Cells(Innen, 1) <> ""
If Cells(Innen, 1) & " " & Cells(Innen, 2) = Cells(1, 10) Then
Cells(Ide, 6) = Cells(Innen, 1)
Cells(Ide, 7) = "T"
Cells(Ide, 8) = Cells(Innen, 3)
osszeg = osszeg + Cells(Innen, 3)
Else
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
Innen = Innen - 1
osszeg = 0
End If
Innen = Innen + 1: Ide = Ide + 1
Loop
Cells(Ide, 6) = Cells(Innen - 1, 2)
Cells(Ide, 7) = "K"
Cells(Ide, 8) = osszeg
Range(Cells(Ide, 6), Cells(Ide, 8)).Font.Bold = True
Cells(1, 10) = Cells(Innen, 1) & " " & Cells(Innen, 2)
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.
Új hozzászólás Aktív témák
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Alpha Laptopszerviz Kft.
Város: Pécs