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

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • mstfatata

    • 2012/10/08
    • 6
    #1

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

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

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

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

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

    با تشکر
    برچسب ها: هیچ‌کدام
    • morteza2006

      • 2011/01/16
      • 36
      #2
      RE: ثبت خودکار تاریخ و ساعت

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

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

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

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

      با تشکر
      با زدن ctrl و F11 به قسمت ویژوال بیسیک اکسل وارد شوید و بر روی شیت مورد نظر دابل کلیک کرده و کدهای زیر را کپی پیست نمایید
      کد PHP:
      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 
      [size=small][size=medium][b]کاش اگر گاه کمی لطف به هم میکردیم
      مختصر بود ولی \" ساده و پنهانی \" بود[/b][/size][/size]

        کامنت

        • mstfatata

          • 2012/10/08
          • 6
          #3
          RE: ثبت خودکار تاریخ و ساعت

          [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 :heart:


            کامنت

            • mstfatata

              • 2012/10/08
              • 6
              #4
              RE: ثبت خودکار تاریخ و ساعت

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

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

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

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

                کامنت

                • morteza2006

                  • 2011/01/16
                  • 36
                  #5
                  RE: ثبت خودکار تاریخ و ساعت

                  نوشته اصلی توسط mstfatata
                  با سلام مجدد و تشکر از کمکتون

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

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

                  ممنون می شم اگه کمکم کنید.
                  دوست عزیز ستون b رو سلکت کن و روی منطقه آبی رنگ کلیک راست کن و format cells رو انتخاب کن گزینه custom را انتخاب کن و در قسمت در قسمت type به جای general کد زیر رو بنویس
                  yyyy/mm/dd
                  ستون c رو هم به همین ترتیب اما در قسمت type کد زیر رو بنویس
                  hh:mm
                  سپس کد های زیر رو در قسمت ویژوال در شیت مربوطه کپی کن
                  کد PHP:
                  [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 
                  امیدوارم کامل گفته باشم
                  [size=small][size=medium][b]کاش اگر گاه کمی لطف به هم میکردیم
                  مختصر بود ولی \" ساده و پنهانی \" بود[/b][/size][/size]

                    کامنت

                    • ~M*E*H*D*I~
                      مدیر ارشد انجمن

                      • 2011/10/19
                      • 4377
                      • 70.00
                      #6
                      RE: ثبت خودکار تاریخ و ساعت

                      کد رو به شکل زیر تغییر بده
                      [align=left]
                      کد PHP:
                      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]
                      [CENTER]
                      [SIGPIC][/SIGPIC]
                      [/CENTER]

                        کامنت

                        • mstfatata

                          • 2012/10/08
                          • 6
                          #7
                          RE: ثبت خودکار تاریخ و ساعت

                          نوشته اصلی توسط morteza2006

                          دوست عزیز ستون b رو سلکت کن و روی منطقه آبی رنگ کلیک راست کن و format cells رو انتخاب کن گزینه custom را انتخاب کن و در قسمت در قسمت type به جای general کد زیر رو بنویس
                          yyyy/mm/dd
                          ستون c رو هم به همین ترتیب اما در قسمت type کد زیر رو بنویس
                          hh:mm
                          سپس کد های زیر رو در قسمت ویژوال در شیت مربوطه کپی کن
                          کد PHP:
                          [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
                              • 2012/07/26
                              • 1
                              #8
                              سلام - ی سوال واسه من پیش اومده ؟؟؟ راهی وجود داره که ساعات ورود خروج پرنسل رو ثبت کنیم !؟ اونم موقع شب کاری ؟؟
                              چون نحوه ثبت و محاسبش مشکله!!! مثلا : شنبه ساعت ورود 18 /// و خروج یکشنبه ساعت 8 صبح میباشد /. من اینو چطوری ثبت کنم

                                کامنت

                                • khakzad

                                  • 2010/03/17
                                  • 2034
                                  • 85.00
                                  #9
                                  سلام
                                  چون چند روز فاصله بینش هست
                                  در یک سل که ساعت زدید
                                  در سل کناری تاریخ هم بزنید
                                  بعدش مشکلی برای محاسبه وجود نخواهد داشت
                                  [CENTER][B][COLOR=#008000][SIZE=3]محصولات و جزوات آموزش تخصصی [URL="https://excelpedia.net/"]اکسل[/URL] در:

                                  [URL="https://excelpedia.net/category/excel-functions/"]برترین مرجع تخصصی پارسی اکسل[/URL]
                                  [URL="http://www.exceliran.com/shop/"]جامعه اكسل ايرانيان: فروشگاه[/URL][/SIZE][/COLOR][/B]
                                  :wcom:

                                  [B][URL="https://excelpedia.net/"]آموزش اکسل تخصصی[/URL] و [URL="https://excelpedia.net/excel-ninja/"]پیشرفته[/URL] - [URL="https://excelpedia.net/"]تهران[/URL][/B]
                                  [EMAIL="h.khakzad@yahoo.com"]h.khakzad@yahoo.com[/EMAIL]
                                  [/CENTER]

                                    کامنت

                                    • vmz1365
                                      • 2015/11/08
                                      • 2
                                      #10
                                      باسلام میخام ببینم چه طور میشه فرمت ساعت خودکار ایجاد کنم به طور مثال 1452بنویسم 14:52بهم نشون بده

                                        کامنت

                                        • amir_ts

                                          • 2015/03/17
                                          • 1247
                                          #11
                                          نوشته اصلی توسط vmz1365
                                          باسلام میخام ببینم چه طور میشه فرمت ساعت خودکار ایجاد کنم به طور مثال 1452بنویسم 14:52بهم نشون بده
                                          با سلام
                                          فرمت سل رو به این صورت قرار بدید.

                                          کد PHP:
                                          #":"## 
                                          [SIZE=7][B][COLOR=navy][FONT=IranNastaliq]ای برادر تو همه اندیشه ای[/FONT][/COLOR][/B][/SIZE]

                                            کامنت

                                            • majidsadoughi
                                              • 2020/08/14
                                              • 1
                                              • 63.00
                                              #12
                                              با سلام
                                              دوست عزیز این در ستون b اطلاعات وارد میشه چکار کنم که مثلا در ستون c یا d یا هر ستون دیگه وارد بشه

                                                کامنت

                                                قبلی template بعدی
                                                چند لحظه..