درج ساعت جاری سیستم در صورت پرشدن یک فیلد

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • asghar1300
    • 2014/08/05
    • 2

    پرسش درج ساعت جاری سیستم در صورت پرشدن یک فیلد

    سلام
    من به یک فایل نیاز دارم که شامل ساعت ورود و خروج پرسنل باشد این فایل قرار است توسط خود پرسنل پر شود برای کنترل درست بود ساعت ورود وخروج میشه از ساعت جاری سیستم استفاده کرد که در یک شیشت جدا در ورک شیشت بشینه ولی با چه فرمولی میشه تعریف کرد وقتی ساعت ها توسط پرسنل وارد شد ساعت جاری سیستم در شیشت مورد نظر درج شود
  • Behnam

    • 2013/03/25
    • 842
    • 100

    #2
    اگر قصد دارید با پر شدن سلولی در سلول دیگه ساعت نوشته بشه از ترکیب if و now استفاده کنید
    مثلا قصد دارید اگه سلول a1 پر شد در سلول b1 ساعت سیستم وارد بشه
    در سلول b1 مینویسید
    کد PHP:
    =IF(A1<>"";NOW();""
    دقت کنید فرمت سلول رو time قرار بدید
    [CENTER][SIZE=3][B]هرچیز که در جستن آنی، آنی[/B][/SIZE][/CENTER]

    کامنت

    • علی فاطمی

      • 2014/02/17
      • 523
      • 51.00

      #3
      نوشته اصلی توسط Behnam
      اگر قصد دارید با پر شدن سلولی در سلول دیگه ساعت نوشته بشه از ترکیب if و now استفاده کنید
      مثلا قصد دارید اگه سلول a1 پر شد در سلول b1 ساعت سیستم وارد بشه
      در سلول b1 مینویسید
      کد PHP:
      =IF(A1<>"";NOW();""
      دقت کنید فرمت سلول رو time قرار بدید
      با سلام خدمت آقا بهنام عزیز ، اگر این دستور رو درگ کنیم یعنی بخواهیم سطرهای بعدی نیز توسط اپراتورهای دیگر زده شود ساعت در سلول های قبل نیز تغییر می کند .
      [FONT=tahoma][SIZE=2][B][COLOR=#800080][SIZE=3]در دنیا فقط یک نفر وجود دارد که باید از او بهتر باشید و آن کسی نیست جز گذشته خودتان[/SIZE] [/COLOR][/B][/SIZE][/FONT]


      [CENTER][SIZE=7][FONT=franklin gothic medium][/FONT] [/SIZE]
      [/CENTER]

      کامنت

      • msoori

        • 2014/08/02
        • 247
        • 83.00

        #4
        نوشته اصلی توسط Behnam
        اگر قصد دارید با پر شدن سلولی در سلول دیگه ساعت نوشته بشه از ترکیب if و now استفاده کنید
        مثلا قصد دارید اگه سلول a1 پر شد در سلول b1 ساعت سیستم وارد بشه
        در سلول b1 مینویسید
        کد PHP:
        =IF(A1<>"";NOW();""
        دقت کنید فرمت سلول رو time قرار بدید

        خب اگر بخواهیم، بعد از یک بار ورود، اون تاریخ و زمان ثابت بمونه، چه کنیم؟

        کامنت

        • iranweld

          • 2015/03/29
          • 3341

          #5
          برای ثابت نگه داشتن تاریخ بایستی از طریق کدنویسی مقدار تابع Now در سلول درج شود.

          با این کد در صورت ورود دیتا در سلولهای ستون A تاریخ و زمان در سلول B درج شده و تغییر نمیکند.


          Click image for larger version

Name:	Untitled.png
Views:	1
Size:	38.2 کیلو بایت
ID:	134616
          Last edited by iranweld; 2018/10/24, 12:42.

          کامنت

          • msoori

            • 2014/08/02
            • 247
            • 83.00

            #6
            نوشته اصلی توسط iranweld
            برای ثابت نگه داشتن تاریخ بایستی از طریق کدنویسی مقدار تابع Now در سلول درج شود.

            با این کد در صورت ورود دیتا در سلولهای ستون A تاریخ و زمان در سلول B درج شده و تغییر نمیکند.


            [ATTACH=CONFIG]17724[/ATTACH]
            ممنون چک میکنم

            کامنت

            • mrsa69_110
              • 2016/06/04
              • 1

              #7
              سلام من این کار رو انجام می دم ولی وقتی ی سلول پایین تر رو هم تغییر می دهم سلول متناظر با ردیف بالایی تغییر می کنه

              کامنت

              • iranweld

                • 2015/03/29
                • 3341

                #8
                نوشته اصلی توسط mrsa69_110
                سلام من این کار رو انجام می دم ولی وقتی ی سلول پایین تر رو هم تغییر می دهم سلول متناظر با ردیف بالایی تغییر می کنه
                با سلام

                فایل پیوست را بررسی کنید

                در صورت ورود دیتا در ستون A ساعت سیستم در ستون b درج میگردد.



                کد PHP:
                Private Sub Worksheet_Change(ByVal Target As Range)


                    If 
                Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
                      
                    
                If Target <> "" Then
                        
                    Target
                .Offset(, 1) = Hour(Now()) & ":" Minute(Now())
                    
                    Else
                    
                    
                Target.Offset(, 1) = ""
                    
                    
                End If
                      
                    
                End If
                    
                    
                End Sub 
                فایل های پیوست شده

                کامنت

                چند لحظه..