PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : ثبت خودکار تاریخ و ساعت



mstfatata
2012/10/08, 11:54
با سلام و خسته نباشید:

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

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

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

با تشکر

morteza2006
2012/10/08, 14:17
با سلام و خسته نباشید:

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

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

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

با تشکر

با زدن 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
2012/10/09, 12:46
با زدن ctrl و F11 به قسمت ویژوال بیسیک اکسل وارد شوید و بر روی شیت مورد نظر دابل کلیک کرده و کدهای زیر را کپی پیست نمایید
[quote]
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 :heart:

mstfatata
2012/10/09, 15:53
با سلام مجدد و تشکر از کمکتون

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

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

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

morteza2006
2012/10/09, 19:11
با سلام مجدد و تشکر از کمکتون

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

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

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


دوست عزیز ستون 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~
2012/10/09, 19:16
کد رو به شکل زیر تغییر بده


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

mstfatata
2012/10/10, 20:04
دوست عزیز ستون 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 استفاده کردم تا دیگه احتیاجی به تنظیمات

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

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

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

khakzad
2014/09/28, 16:03
سلام
چون چند روز فاصله بینش هست
در یک سل که ساعت زدید
در سل کناری تاریخ هم بزنید
بعدش مشکلی برای محاسبه وجود نخواهد داشت

vmz1365
2016/06/02, 11:51
باسلام میخام ببینم چه طور میشه فرمت ساعت خودکار ایجاد کنم به طور مثال 1452بنویسم 14:52بهم نشون بده:d

amir_ts
2016/06/02, 12:02
باسلام میخام ببینم چه طور میشه فرمت ساعت خودکار ایجاد کنم به طور مثال 1452بنویسم 14:52بهم نشون بده:d
با سلام
فرمت سل رو به این صورت قرار بدید.


#":"##

majidsadoughi
2020/08/14, 14:46
با سلام
دوست عزیز این در ستون b اطلاعات وارد میشه چکار کنم که مثلا در ستون c یا d یا هر ستون دیگه وارد بشه