نحوه ی جمع زدن ساعت کار روزانه ؟!

[STEALTH]

سلام بر دوستان

برای یه موضوعی میخواستم یه پروژه ی اکسل طراحی کنم تا جمع زدن ساعت کار راحت تر صورت بگیره.

برای اینکار میخوام در یک سلول ساعت کار در اون روز وارد بشه و در سلول دیگر جمع ساعات کار نشون داده بشه ، یعنی من هروز یه ساعت کار جدید در سلول a1 وارد میکنم و میخوام جمعش در b1 نشون داده بشه.

ممنون میشم اگر در این زمینه منو راهنمایی کنید.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

از قابلیت رویدادها و از کد ذیل در قسمت VB شیت مورد نظر استفاده کنید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
    
    Range("B1").NumberFormat = "[h]:mm;@"
    
    Range("B1") = Range("B1") + Target
    
    End If
    
    End Sub 

[STEALTH]

بسیار تشکر از شما دوست عزیز

فقط یه موضوعی اونم اینکه اگر من بخوام سلوهای بیشتری اضافه کنم باید چیکار کنم ؟
مثلا :
A2 , b2
a3 , b3

[iranweld]

با اضافه کردن دستور ELSEIF کدها را ادامه دهید

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
    
    Range("B1").NumberFormat = "[h]:mm;@"
    
    Range("B1") = Range("B1") + Target
    
    ElseIf Not Intersect(Target, Me.Range("A2")) Is Nothing Then
    
    Range("B2").NumberFormat = "[h]:mm;@"
    
    Range("B2") = Range("B2") + Target
    
    ElseIf Not Intersect(Target, Me.Range("A3")) Is Nothing Then
    
    Range("B3").NumberFormat = "[h]:mm;@"
    
    Range("B3") = Range("B3") + Target
    
    
    End If
    
    End Sub