- One mobilszolgáltatások
- Samsung Galaxy A35 5G - fordulópont
- Garmin Forerunner 970 - fogd a pénzt, és fuss!
- Apple iPhone 15 Pro Max - Attack on Titan
- iPhone topik
- Apróbb óra érkezik a OnePlustól
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Honor Magic6 Pro - kör közepén számok
- Milyen okostelefont vegyek?
- Prohardver app (nem hivatalos)
-
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
-
Locsi
senior tag
Akkor induljunk. A, vagy B oszlop kitöltésekor a C oszlopba kerüljön be a kezdési idő, dátum, óra, perc. Ekkor elindul a az alkatrész gyártása, és ha elkészült, akkor a E, vagy F oszlop kitöltésekor kerüljön be a D oszlopba befejezési idő, dátum, óra, perc. A D oszlop, és a C oszlop különbsége kerüljön be G oszlopba óra, perc, másodperc pontossággal, a H oszlopba pedig kerüljön be a G oszlop osztva F oszlop, szintén óra, perc, másodperc pontossággal, és ezt a műveletet végezze el minden sor kitöltésekor. Remélem érthető voltam. Köszönöm a segítséget.
-
Locsi
senior tag
Hogy érthetőbb legyen, amit evvel "Hogy lehetne ennél azt megcsinálni, hogy a két kitöltött oszlopból (D-C) kiszámolja a az eltelt időkülönbséget (2015.03.20 8:55:35 - 2015.03.20 8:54:33) azt beírja a G oszlopba, és ezt elossza az F oszlopban lévő értékkel, az meg beírja a H oszlopba." akarok, megpróbálom egy képpel érthetővé tenni. Amúgy melóhelyen lenne a termelést követő gépnapló, a papírt elkerülendő.
-
Locsi
senior tag
Még egy kérdésem lenne. Hogy lehetne ennél azt megcsinálni, hogy a két kitöltött oszlopból (D-C) kiszámolja a az eltelt időkülönbséget (2015.03.20 8:55:35 - 2015.03.20 8:54:33) azt beírja a G oszlopba, és ezt elossza az F oszlopban lévő értékkel, az meg beírja a H oszlopba. A segítséget köszönöm.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lrow As Single
Dim AStr As String
Dim Value As Variant
If Not Intersect(Target, Range("A:B")) Is Nothing Then
For Each Value In Target
If Value <> "" Then
Range("C" & Value.Row).Value = Now
End If
Next Value
End If
If Not Intersect(Target, Range("E:F")) Is Nothing Then
For Each cl In Intersect(Target, Range("E:F")).Cells
Cells(cl.Row, "D").Value = Now()
Next
End If
End Sub -
Locsi
senior tag
Sziasztok.
Ezt, hogy kellene tovább írni, hogy ha az f mezőbe beírok valamit, akkor a d mezőbe beírja az aktuális dátumot, és időt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lrow As Single
Dim AStr As String
Dim Value As Variant
If Not Intersect(Target, Range("A:B")) Is Nothing Then
For Each Value In Target
If Value <> "" Then
Range("C" & Value.Row).Value = Now
End If
Next Value
End If
End Sub
Új hozzászólás Aktív témák
Hirdetés
- Kormányok / autós szimulátorok topikja
- Google Chrome
- Macska topik
- TV antenna és jelerősítés
- Micro Four Thirds
- Kazy Computers vélemények - tapasztalatok
- Autós topik látogatók beszélgetős, offolós topikja
- Debrecen és környéke adok-veszek-beszélgetek
- Kerékpárosok, bringások ide!
- A Micron újszerű módszerrel javítja QLC-s SSD-jének sebességét
- További aktív témák...
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10/11 Home/Pro , Office 2024 kulcsok
- Bontatlan - BATTLEFIELD 1 Collectors Edition - Játékszoftver nélkül
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Samsung Galaxy Watch Ultra
- iKing.Hu - Xiaomi 14 Ultra - Ultra White - Használt, karcmentes
- REFURBISHED és ÚJ - HP USB-C/A Universal Dock G2 docking station (5TW13AA) (DisplayLink)
- BESZÁMÍTÁS! Dell Latitude 5550 üzleti -Intel Ultra 7 165U16GB DDR5 RAM 1TB SSD Intel Graphics WIN11
- Eladnád a telefonod? KÉSZPÉNZES OKOSTELEFON FELVÁSÁRLÁS azonnali fizetéssel!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged