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

[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