ثبت خودکار تاریخ و ساعت

[mstfatata]

با سلام و خسته نباشید:

در اکسل فرمی درست کردم برای ورود و خروج و محاسبه ساعات کار افراد.

مشکلم اینه که می خوام به محض اینکه افراد کارت پرسنلی شونو جلوی بارکد اسکنر بگیرند در یک

سل که شماره پرسنلی شون ثبت شد در سل دیگر تاریخ و زمان به صورت اتوماتیک ثبت شود.

با تشکر

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

[morteza2006]

با سلام و خسته نباشید:

در اکسل فرمی درست کردم برای ورود و ---وج و محاسبه ساعات کار افراد.

مشکلم اینه که می خوام به محض اینکه افراد کارت پرسنلی شونو جلوی بارکد اسکنر بگیرند در یک

سل که شماره پرسنلی شون ثبت شد در سل دیگر تاریخ و زمان به صورت اتوماتیک ثبت شود.

با تشکر

با زدن ctrl و F11 به قسمت ویژوال بیسیک اکسل وارد شوید و بر روی شیت مورد نظر دابل کلیک کرده و کدهای زیر را کپی پیست نمایید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 1) = "" Then
c.Offset(0, 1) = Now()
c.Offset(1, 0).Select
Exit Sub
End If
Next
End Sub 

[mstfatata]

[quote=morteza2006]

با زدن ctrl و F11 به قسمت ویژوال بیسیک اکسل وارد شوید و بر روی شیت مورد نظر دابل کلیک کرده و کدهای زیر را کپی پیست نمایید

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 1) = "" Then
c.Offset(0, 1) = Now()
c.Offset(1, 0).Select
Exit Sub
End If
Next
End Sub

خییییییییییییلللللللللللل للییییییییییییییی ممممممممممنننننننننوووووو وووننننننننننن :D

[mstfatata]

با سلام مجدد و تشکر از کمکتون

کد بالا تاریخ و ساعت و داخل یک سل وارد می کنه من می خوام تاریخ داخل یک سل و ساعت هم داخل سل دیگه ثبت بشه.

مشکل دیگم اینه که کاربرها بعد از ثبت کد پرسنلی نتونن هیچ تغییری توی سلهای ثبت شده بدن.

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

[morteza2006]

با سلام مجدد و تشکر از کمکتون

کد بالا تاریخ و ساعت و داخل یک سل وارد می کنه من می خوام تاریخ داخل یک سل و ساعت هم داخل سل دیگه ثبت بشه.

مشکل دیگم اینه که کاربرها بعد از ثبت کد پرسنلی نتونن هیچ تغییری توی سلهای ثبت شده بدن.

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

دوست عزیز ستون b رو سلکت کن و روی منطقه آبی رنگ کلیک راست کن و format cells رو انتخاب کن گزینه custom را انتخاب کن و در قسمت در قسمت type به جای general کد زیر رو بنویس
yyyy/mm/dd
ستون c رو هم به همین ترتیب اما در قسمت type کد زیر رو بنویس
hh:mm
سپس کد های زیر رو در قسمت ویژوال در شیت مربوطه کپی کن

[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 1) = "" Then
c.Offset(0, 1) = Now()
c.Offset(0, 2) = Now()
c.Offset(1, 0).Select
Exit Sub
End If
Next
On Error Resume Next
If Target <> "" Then
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End Sub 

امیدوارم کامل گفته باشم

[~M*E*H*D*I~]

کد رو به شکل زیر تغییر بده
[align=left]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 1) = "" Then
c.Offset(0, 1) = Time
c.Offset(0, 2) = Date
c.Offset(1, 0).Select
Exit Sub
End If
Next
End Sub 

[/align]

[mstfatata]

دوست عزیز ستون b رو سلکت کن و روی منطقه آبی رنگ کلیک راست کن و format cells رو انتخاب کن گزینه custom را انتخاب کن و در قسمت در قسمت type به جای general کد زیر رو بنویس
yyyy/mm/dd
ستون c رو هم به همین ترتیب اما در قسمت type کد زیر رو بنویس
hh:mm
سپس کد های زیر رو در قسمت ویژوال در شیت مربوطه کپی کن

[Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim c As Range
For Each c In Range("a2:a10000")
If c <> "" And c.Offset(0, 1) = "" Then
c.Offset(0, 1) = Now()
c.Offset(0, 2) = Now()
c.Offset(1, 0).Select
Exit Sub
End If
Next
On Error Resume Next
If Target <> "" Then
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End If
End Sub 

امیدوارم کامل گفته باشم

با سلام و تشکر فراوان از لطفتون

کدتون درست کار کرد . فقط من به جای c.Offset(0, 1) = Now() و c.Offset(0, 2) = Now() از

c.Offset(0, 1) = Date و c.Offset(0, 2) = Time استفاده کردم تا دیگه احتیاجی به تنظیمات

فرمت سل نداشته باشم.

بازم ازتون ممنونم.

[smithmostafa]

سلام - ی سوال واسه من پیش اومده ؟؟؟ راهی وجود داره که ساعات ورود خروج پرنسل رو ثبت کنیم !؟ اونم موقع شب کاری ؟؟
چون نحوه ثبت و محاسبش مشکله!!! مثلا : شنبه ساعت ورود 18 /// و خروج یکشنبه ساعت 8 صبح میباشد /. من اینو چطوری ثبت کنم

[khakzad]

سلام
چون چند روز فاصله بینش هست
در یک سل که ساعت زدید
در سل کناری تاریخ هم بزنید
بعدش مشکلی برای محاسبه وجود نخواهد داشت

[vmz1365]

باسلام میخام ببینم چه طور میشه فرمت ساعت خودکار ایجاد کنم به طور مثال 1452بنویسم 14:52بهم نشون بده