- Netfone
- Okosóra és okoskiegészítő topik
- Vivo X200 Pro - a kétszázát!
- Garmin Fenix 7 és 7S - profi sport megszokásból
- Yettel topik
- T Phone 2 Pro - majdnem mindenben jobb
- One mobilszolgáltatások
- Megérkezett a Google Pixel 7 és 7 Pro
- Hatalmas kedvezménnyel nyit az Ulefone új csúcsmodellje
- Motorola Moto G84 - színes egyéniség
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
-
lappy
őstag
válasz
gigi183
#11473
üzenetére
Szia!
Egy számodra talán jó megoldás!
Most nincs összegezve a SL és DL. Ha azt szeretnéd akkor a képletet még egy oszlopba rakd be ami csak a DL számolja és ezután egyszerű szum-al megoldod.
Nem tudom hogy maga a táblázat mennyi időben dolgozik, mert akkor a keresési feltételt kell változtatni.
Szerintem a kiköltözik vagy áthúzandó lepedő között nincs különbség, csak annyi hogy sima vagy dupla. -
-
gigi183
csendes tag
válasz
gigi183
#11459
üzenetére
Megpróbálom ábrázolni mit is szeretnék.
A lényeg annyi, hogy mindenki két éjszaka alszik ugyanabban az ágyneműben, harmadik éjszakára már újat kap, kivéve, ha az az utolsó éjszakája a hotelben.
Az eredeti tábla így néz ki
Manuális megoldása pedig így néz ki - segítségül pirossal jelöltem az utolsó éjszakásokat - vagyis akiknek az ágyát másnap át kell húzni, lilával pedig azokat, akiknek másnap át kell húzni az ágyukat mert még legalább két éjszakát maradnak utána.
A lepedőket mivel másnap kell áthúzni, ezért az eltolódás az összegzős táblázatban. Vagyis akinek az utolsó éjszakája hétfőn van, annak kedden húzzák át az ágyát, kedden kellenek az új lepedők.
-
zenus
csendes tag
válasz
gigi183
#11459
üzenetére
Szia!
Segédoszlopot használj. G-H oszlop közé tégy be egy új oszlopot, majd miután kész az egész, rejtsd el. Így most a H oszlopot fogod használni - amelyet most szúrtál be, és nem az eredetit, amit a képen látsz.
H14 esetén mindenképpen új lepedőd van - ha jól értem a dolgot. H15 esetén akkor van új lepedőd, ha az a cella nem üres és nem egyezik meg az előző cellával.
Tehát: H14 = "Új"
H15: =HA(ÉS(H15<>"";H15<>H14);"Új";"")Majd lehúzod végig a H15ös cellát a G oszlopban szereplő adatok szerinti sorig.
Ezután: G11: ide jöhet a számlálós függvényed.
Rejtsd el a H celládat.Ismételd meg minden szükséges oszlopban a fentiek alapján a feladatot.
-
#10547
m.zmrzlina
senior tag
gigi183
#10542
m.zmrzlina
senior tag
válasz
gigi183
#10542
üzenetére
A cellák szétválasztására (ha nem csak egyetlen oszlopról van szó) itt egy másik megoldás:
Sub unmerge_v2()
Dim sor As Integer, oszlop As Integer
sor = Selection.Rows.Count 'kijelölt tartomány mérete
oszlop = Selection.Columns.Count 'köszönet érte Fire-nek :-)
For j = 1 To sor
For i = 1 To oszlop
ActiveCell.unmerge 'cellák szétválasztása
Selection.FormulaR1C1 = ActiveCell.Value 'üres cellák értéke = aktívcella értéke
ActiveCell.Offset(0, 1).Select 'eggyel jobbra
Next
ActiveCell.Offset(1, -oszlop).Select 'vissza a sor elejére
Next
End SubArra figyelj, hogy amikor elindul a makró akkor legyen kijelölve a teljes tartomány amiben szétválasztandó celláid vannak.
Természetesen ez a kód is gyorsabban lefut letiltott képernyőfrissítéssel.
-
#10543
m.zmrzlina
senior tag
gigi183
#10542
m.zmrzlina
senior tag
válasz
gigi183
#10542
üzenetére
Örülök ha működik, ha valami gond van jelezd!
A másik problémád megoldására egy ilyesmiből érdemes kiindulni:
Sub unmerge()
Application.ScreenUpdating = False
Range("B1048576").End(xlup).Select 'beáll az B oszlop utolsó cellájába
Do Until ActiveCell.Value = "Name" 'ciklus amíg fel nem ér a fejlécig
ActiveCell.unmerge 'cellák szétválasztása
Selection.FormulaR1C1 = ActiveCell.Value 'üres cellák értéke = aktívcella értéke
ActiveCell.Offset(-1, 0).Select 'egy cellát fel
Loop
Application.ScreenUpdating = True
End SubA lényeg a ciklusmagban lévő első két sor. Természetesen ha más a tartomány vagy a kilépési feltétel akkor át kell írni de a szétválasztás és a kitöltés szerintem így működhet.
Én a #10537-ben lévő táblázat B oszlopában lévő összevont cellákon teszteltem.
Majd pontosíts!
-
#10537
m.zmrzlina
senior tag
gigi183
#10534
m.zmrzlina
senior tag
válasz
gigi183
#10534
üzenetére
Na próbálkoztam még, és működik, már csak annyit kellene megoldanom, hogy ha az aktuális lapot átmásolom mondjuk egy Today feliratú munkalapra, akkor az Nts oszlopban lévő számok eggyel csökkenjenek, vagy automatikusan, vagy gombbal.
Erre a problémára új modulba (Inset>Module) tedd be a következőt:
Sub masol()
Application.ScreenUpdating = False 'képernyőftissítést tilt
ActiveSheet.Copy after:=Sheets(ActiveWorkbook.Sheets.Count) 'lemásolja az aktív munkalapot és az utolsó munkalap után helyezi el
ActiveSheet.Name = ActiveSheet.Index + 1 'ad neki nevet
Range("E1048576").End(xlup).Select 'beáll az E oszlop utolsó cellájába
Do Until ActiveCell.Value = "nts" 'ciklus amíg fel nem ér a fejlécig
If ActiveCell.Value <> "" Then ActiveCell.Value = ActiveCell.Value - 1 'kivonja az egyet
If ActiveCell.Value = 0 Then 'ha nts=0
Range(ActiveCell.Offset(0, -3), ActiveCell.Offset(0, 4)).Value = "" 'a kívánt cellák tartalmának törlése
End If
ActiveCell.Offset(-1, 0).Select 'egy cellát fel
Loop
Application.ScreenUpdating = True 'képernyőftissítést engedélyez
End SubNekem így néz ki a munkalapom amit kezel:
Kiindulásnak jó aztán majd pontosítasz.
-
gigi183
csendes tag
válasz
gigi183
#10533
üzenetére
Na próbálkoztam még, és működik, már csak annyit kellene megoldanom, hogy ha az aktuális lapot átmásolom mondjuk egy Today feliratú munkalapra, akkor az Nts oszlopban lévő számok eggyel csökkenjenek, vagy automatikusan, vagy gombbal.
Másik hülye kérdésem is lenne.
Van egy tábla, olyan mint amit először küldtem, (a rémes háttérszínes). Ebben dolgozik egy kollégám, aki folyamatosan aktualizálja. Namost valahogy meg kellene oldanom, hogy a fájl amivel dolgozik, nálam is megjelenjen, de az enyémben már lennének plusz sorok, teszemazt összesítések, ilyesmi, de azt nem szeretném, ha ő ezeket a sorokat bármiféleképpen módosítani tudja, legjobb, ha nem is látja. Meg lehet-e oldani valahogy az ilyen kapcsolatot két fájl között, vagy tudtok-e megoldást rá? Csavar még az egészben, hogy neki vannak összevont cellái, viszont az én fájlomban ezeket ki kell iktatni, vagyis azok a cellák amik össze vannak vonva úgy jelenjenek meg, hogy mindegyikben ugyanaz az érték van ami az összevont cellában (akár 5-6 soron keresztül is).Remélem érthetően fogalmaztam...
-
-
-
Delila_1
veterán
válasz
gigi183
#10474
üzenetére
Az Nts oszloptól balra lévő hármat fixen írod be, vagy valami képlet adja az értéküket?
Ha fixen, az alábbi egyszerű kis makró megoldja a lenullázást.A makrót ahhoz a laphoz kell rendelned, amelyiken ezt a műveletet végre akarod hajtani. Lapfülön jobb klikk, Kód megjelenítése. Bejutottál a VB szerkesztőbe, a jobb oldalon kapott üres lapra kell bemásolnod.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 5 And Target = 0 Then
Dim sor%, oszlop%
sor% = Target.Row: oszlop% = Target.Column
Range(Cells(sor, oszlop - 2), Cells(sor, oszlop - 1)) = ""
End If
Application.EnableEvents = True
End SubA csatolt képen nem látszik, milyen betűjelű oszlopban van az Nts. A makróban úgy vettem, hogy az E (ötödik) oszlop tartalmazza. Bemásolás után az If Target.Column = 5 And Target = 0 Then sorban írd át az 5-öt a megfelelő értékre.
A füzetedet másként, makróbarátként kell mentened, a kiterjesztése meg fog változni xlsm-re. Az Excelben is módosítanod kell a biztonsági beállításokat, ha eddig nem volt makrót tartalmazó füzeted.
-
Delila_1
veterán
válasz
gigi183
#10471
üzenetére
Kijelölöd a tartományodat C3-tól jobbra, és le, ameddig kell.
Feltételes formázás, Új szabály, A formázandó cellák kijelölése képlettel.
Az "Értékek formázása, ha ez a képlet igaz" rovatba ezt írod:
=DARABTELI(B:B;C3)=0, és megadod a zöld karakterszínt.
Újabb formázás, a 2. képlet =DARABTELI(D:D;C3)=0, itt az áthúzott szöveget adod meg.A feltételes formázás képletében az első egyenlőségjelet úgy kell érteni, mintha egy HA feltétel lenne, vagyis HA a darabteli függvény az előző oszlopban nem találja meg az aktuális oszlopbeli nevet, akkor az aktuális név legyen zöld színnel írva (C oszlopban kezdődött a formázás, ehhez képest a B az előző oszlop).
Javaslom, hogy háttérnek pasztell színeket adj, mert a mostani a vad piros, és lila háttéren nem látszik majd a zöld szöveg.
-
-
gigi183
csendes tag
Új hozzászólás Aktív témák
Hirdetés
Fferi50
- Jogtiszta Windows - Office & Vírusirtó licencek- Azonnal - Számlával - Garanciával - Nint.hu
- Eladó Steam kulcsok kedvező áron!
- Játékkulcsok a legjobb áron: Steam
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- HP ZBook Firefly 14 i7-1165G7 16GB 512GB 14" FHD magyarbill 1 év garancia
- GeForce RTX 3060Ti (OEM HP)
- LG 27UL500-W - 27" IPS - 3840x2160 4K - 60Hz 5ms - HDR10 - AMD FreeSync - 300 Nits - sRGB 99%
- Apple iPhone SE 2020 64GB, Kártyafüggetlen, 1 Év Garanciával
- Microsoft Surface Pro 9 i5-1245U 16GB 256GB 1év garancia
Állásajánlatok
Cég: FOTC
Város: Budapest