-
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
-
minimumgame
tag
Sziasztok!
Segítséget szeretnék kérni, illetve kérdés egyáltalán lehetséges-e az alábbi dolog:
Egy beléptető rendszer lenne, ami Excel dokumentumba exportálja egy ember be és kilépését a munkahelyre, dátum,idő formátum.
XY Belépés 08:09, kilépés 16:15. Itt most; XY = 8 óra 6 percet dolgozott.
A feladat igazából annyi lenne, hogy kiszámolni hány órát dolgozott aznap.
Viszont lehet esti műszak is, pl. 2023.09.26. 22:12 - 09.27. 08:06.
Így néz ki a táblázat amit exportálunk(most csak egy emberrel)Köszönöm!
[ Szerkesztve ]
-
Delila_1
Topikgazda
válasz minimumgame #51453 üzenetére
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
modflow
veterán
Egy sürgős ügyben kérném a segítségeteket.
Ha van egy oszlopom számokkal, pl. így:
A oszlop
320
231
256
124
90Akkor hogyan tudnám azt megcsinálni, hogy az oszlop összes cellájában lévő szám változzon megy a jelenlegi értékének a 90 %-ára?
Azaz így nézzen ki az oszlop?
A oszlop
= 320*0,9
=231*0,9
=256*0,9
=124*0,9
=90*0,9Mert manuálisan úgy nézne ki, hogy még a szám elé beírom, hogy "=" és még "*0,9"
De ez millió cella esetén esélytelen ma megcsinálnom. -
Delila_1
Topikgazda
-
pentium4
senior tag
Sziasztok,
Olyat szeretnék csinálni egy van egy kezdő oszlopon, pl A1, és minden rákövető 7. cellák kellene vizsgálni hogy mi van benne és ha az van ebbe akkor az 1-et ad vissza.
Darabtelivel cellánként meglehet csinálni de kilóméter hosszú így a képlet és macera módosítgatni.
KösziP4
-
flash-
veterán
válasz Fire/SOUL/CD #51450 üzenetére
köszönöm e tudtam távolítani az ok
de azt nem ertem hogy egy adott cellába ha számot irok csak magába akkor beszinezi a hátterét(zöldre), de ha azt irom hogy 5db akkor nem.
szeretném hogy soseel szinezze be a cellát mindegy mit irok bele.
ötlet?[ Szerkesztve ]
"Embrace our fellow man, no longer vilified"
-
karlkani
aktív tag
Sziasztok!
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C2:C8"), Target) Is Nothing Then
Cells(10, 3).Value = Now()
End If
If Target.Column = 7 Then
Application.EnableEvents = False
If Application.WorksheetFunction.CountA(Range(Target.Address)) = Target.Count Then
Range(Target.Address).Offset(, 1) = Date
Else
Range(Target.Address).Offset(, -1) = ""
Range(Target.Address).Offset(, 1) = ""
End If
Application.EnableEvents = True
End If
End Sub
Készpénzzel történő vásárláshoz használtam a makró második felét. Ha beírtam a G oszlopba, akkor a H-ba bekerült az aktuális dátum. Ha töröltem, akkor az F és H érték is törlődött.
F - megnevezés
G - összeg (kp)
H - dátumBankkártyás vásárlást is beletettem (beszúrtam egy oszlopot az F után). Ezentúl a G vagy H oszlopba kerül az összeg. Hogyan lehet megoldani, ha a G-be kerül, akkor 2 sorral jobbra írja a dátumot (I), ha a H-ba, akkor csak 1 sorral (I) ? Az összeg törlésekor az első sor valamit a dátum is törlődjön.
F - megnevezés
G - összeg (bankkártya)
H - összeg (kp)
I - dátumÍgy nézne ki a dolog.
Előre is köszönöm!
[ Szerkesztve ]
-
Fferi50
őstag
válasz karlkani #51464 üzenetére
Szia!
"akkor 2 sorral jobbra írja a dátumot (I), ha a H-ba, akkor csak 1 sorral (I)"
(Egy apró megjegyzés: ez ugye oszlop és nem sor.)
Egyébként:
If Target.Column = 7 Or Target.Column = 8 Then
1. Mivel a dátum mindenképpen az I oszlopba kerül, egyszerűen így szerintem:
Cells(Target.Row,"I")=Date
2. Egyben lehet "törölni" az adott területet:
Range(Cells(Target.Row,"H"),Cells(Target.Row,"J"))=""
Üdv. -
Fferi50
őstag
válasz pentium4 #51473 üzenetére
Szia!
Az adott helyzetben a tömbképlet:=SZUM((MARADÉK(OSZLOP($A2:$N2);4)=1)*(($A2:$L2)="do"))
A tömbképletet Ctrl+Shift + Enter kombóval kell lezárni. Így húzható lefelé.
Amennyiben 7 oszloponként kell az eredmény, akkor a 4 helyére 7 kerüljön a MARADÉK függvénybe.
Üdv. -
Reinhardt
őstag
Hello
Van egy talblazatom benne egy oszlop amiben elofordulnak duplikalt adatok.
Azt tudom, hogyan kell torolni a duplikaltakat, de van olyan opcio ami csak kijeloli vagy csak azt mutatja ami duplikalt? -
ny.erno
tag
Sziasztok! Hogyan lehet megoldani, hogy egy számsor utolsó két számjegye elé beillesszünk egy kötőjelet?
Adott az A oszlop, amiben a következő formában szerepelnek számok:
96976001
96823501
Ilyenné szeretném módosítani:
969760-01
968235-01 -
szürke
tag
Sziasztok!
Megoldható az hogy egy cella első karakterét az excel automata módon szinezze? Ha igen, mi a megoldás?
Pl.
Balaton - B legyen piros
Cegléd - C legyen kékElőre is köszönöm
-
karlkani
aktív tag
válasz szürke #51487 üzenetére
Szia!
Sub Cella_elso_karakter_szincsere()
Application.ScreenUpdating = False
Dim cell As Range, i As Integer, cellVal As String
With Columns(1)
.SpecialCells(xlTextValues).Font.ColorIndex = 1
For Each cell In .SpecialCells(xlTextValues)
cellVal = cell.Text
If Left(cell.Value, 1) = "B" Then cell.Characters(1, 1).Font.ColorIndex = 3
If Left(cell.Value, 1) = "C" Then cell.Characters(1, 1).Font.ColorIndex = 5
Next cell
End With
Application.ScreenUpdating = True
End Sub
Ez a makró az A oszlopban található, B betűvel kezdődő cellák első karakterét pirosra, a C betűvel kezdődőekét kékre színeszi.
[ Szerkesztve ]
-
Lendova
őstag
A guruk segítségét kérném.
Szeretnék egy táblázatot, ami a munkaidőt számolja, ez a része menne is, viszont amint van olyan cella, ahol nem szám szerepel, az utána következő munkanapnál már burul, rossz értékeket ad. Pld. hétvége, betegszabadság etc.
Balról jobbra a hónap napjai szerepelnek végig, fentről lefele pedig a dolgozók. Google-lal eddig nem jártam sikerrel.
Köszönöm!Pulowski! Nuclear Protection On A Budget!
-
Traxx
őstag
Sziasztok!
Feltételes formázásban szeretnék segítséget kérni. Adott egy elég sok oszlopot tartalmazó listám, amibe manuálisan viszünk fel értékeket. És ennek van egy oszlopa, amihez szeretném kötni a feltételes formázást, az alábbi módon:
A célom az lenne, hogy a Dokumentum cellák tartalma alapján kerüljön színjelölésre az adott sor. A sorszámok változni fognak, de a szöveges részek nem. Vagyis ha az Autó sor adott cellája tartalmazza a Skodát, akkor az egész sor legyen pl. kék színű, ha a Fordot, akkor zöld. Megvalósítható ez makró nélkül?
Köszönöm előre is a segítséget!
"Amúgy a lekvár leszedésre jobb módszer is van: le kell nyalni... elképzelem, ahogy egy nagy PH!-s procitesztben fLeSsék nyalogatják a procikat" by Male (Hűtőpaszta vs. lekvár 2. rész)
-
Fferi50
őstag
válasz karlkani #51496 üzenetére
Szia!
Ha konkrét értéket adunk meg feltételnek, akkor természetesen csak azok a cellák fognak "elszíneződni", amelyekben azok szerepelnek, a többi cella "érintetlen" marad. Ebből következően így nem lehet oszlopot/sort feltételes formázással színezni ezzel a módszerrel. Továbbá csak érték - szöveg vagy szám - lehet a feltételben, függvény nem.
Üdv. -
Fferi50
őstag
válasz Lendova #51490 üzenetére
Szia!
Először meg kellene nézni, hogy az adott napon szöveg van-e a cellában. A szöveghez rendelj számokat és azt vedd munkaidőnek.
Pl. =ha(A1="pn";8;B1-A1)
Ha több szöveggel jelölt lehetőség is van, akkor a szövegeket és a hozzá rendelt értékeket egy segédtáblában foglald össze.
Ezután a képlet kb. =HAHIBA(FKERES(A1;segédtábla;2;0);B1-A1)
Üdv. -
addikt
Hali!
Ha sorszámot szeretnék létrehozni a sorokban (1,2,3,4...), vagy akármit, de nem akarom, hogy a formázást is másolja, azt hogy lehet megcsinálni?
Most ugye, ha kijelölöm, mit akarok, és lehúzom a kis négyzetet, másol mindent. Csak a szöveget / képletet másolja, formázás nélkül.
Előre is köszi!
Dark Archon | i5-12600KF - RTX 3070 | Canyon Endurace 7 | BF4: DarkArchonHUN
Új hozzászólás Aktív témák
- Suzuki topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Nagyrobogósok baráti topikja
- Luck Dragon: Asszociációs játék. :)
- NBA és kosárlabda topic
- Skoda, VW, Audi, Seat topik
- Motorola Moto G24 Power - hol van az erő?
- gban: Ingyen kellene, de tegnapra
- iPhone topik
- Háztartási gépek
- További aktív témák...
- Adobe Creative Cloud - 2024. 04. 05 - 2025. 04. 05-ig
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Eredeti Windows, telepítéssel! Digital Doctor Számítógép Szerviz
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Vírusirtó, Antivirus VPN kulcsok