ثبت تاریخ

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • fokker

    • 2014/07/10
    • 336

    ثبت تاریخ

    با سلام .
    دوستان عزیز می خواستم بدونم چطور میشه که بطور مثال در سلول a1 متن یا عددی نوشتیم . بطور خودکار در سلول مقابل آن یعنی b1 ، تاریخ شمسی بصورت 1396/01/26 یا 96/01/26 درج بشود . سپاس بابت راهنمای شما سروران.
  • iranweld

    • 2015/03/29
    • 3341

    #2
    با سلام

    ماژول های تاریخ شمسی رو به فایل خود اضافه کنید و از کدهای ذیل در قسمت vb شیت مورد نظر استفاده کنید.


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

        If 
    Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
        
            
        Target
    .Offset(01) = J_TODAY(1)
        
            
        
    End If
        
        
    End Sub 
    Click image for larger version

Name:	Untitled.png
Views:	1
Size:	61.6 کیلو بایت
ID:	132085
    فایل های پیوست شده

    کامنت

    • fokker

      • 2014/07/10
      • 336

      #3
      ممنون دوست عزیز. پاینده باشی

      کامنت

      • fokker

        • 2014/07/10
        • 336

        #4
        سوال داشتم با عرض معذرت.
        اگر سلول a1 بصورت لیست و شامل TRUE و FALSE بود چه باید کرد. چون زمانی که سلول مذکور را به این صورت از طریق دیتا ولیدیشن جهت ثبت TRUE یا FALSE تبدیل نمودن با پیغام خطا مواجه شدم.

        سوال دوم . آیا تاریخ ثبت شده بصورت اتوماتیک ، با تغییر شبانه روز ثابت می ماند و روز بعد با ثبت داده جدید تاریخ جدید ثبت می گردد.

        کامنت

        • fokker

          • 2014/07/10
          • 336

          #5
          لطفا کمک کنید

          کامنت

          • fokker

            • 2014/07/10
            • 336

            #6
            لطفا کمک کنید

            کامنت

            • iranweld

              • 2015/03/29
              • 3341

              #7
              در فایل پیوست در صورت true بودن سلول در سلول ستون مجاور تاریخ درج میگردد

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

                  If 
              Target "True" And Not Intersect(TargetMe.Range("A:A")) Is Nothing Then
                  
                      
                  Target
              .Offset(01) = J_TODAY(1)
                  
                  Else
                  
                  
              Target.Offset(01) = ""
                  
                      
                  
              End If
                  
                  
              End Sub 
              فایل های پیوست شده

              کامنت

              • fokker

                • 2014/07/10
                • 336

                #8
                با سلام مجدد و تشکر بابت زحماتت. بعد از اجرا اجرا فایل و انتخاب گزینه true خطا می ده . راه حلش چیه؟
                Click image for larger version

Name:	خطا.JPG
Views:	1
Size:	15.2 کیلو بایت
ID:	132093

                کامنت

                • Ali-Zali

                  • 2016/05/27
                  • 27
                  • 14.00

                  #9
                  نوشته اصلی توسط fokker
                  با سلام .
                  دوستان عزیز می خواستم بدونم چطور میشه که بطور مثال در سلول a1 متن یا عددی نوشتیم . بطور خودکار در سلول مقابل آن یعنی b1 ، تاریخ شمسی بصورت 1396/01/26 یا 96/01/26 درج بشود . سپاس بابت راهنمای شما سروران.
                  اگه لینک دادن به سایت های دیگه خلاف قوانین هستش لطفا پاک کنید
                  تو این سایت همه چیز رو کامل با جزییات توضیح داده


                  Sent from my Lenovo A3500-HV using Tapatalk

                  کامنت

                  • fokker

                    • 2014/07/10
                    • 336

                    #10
                    نوشته اصلی توسط fokker
                    با سلام مجدد و تشکر بابت زحماتت. بعد از اجرا اجرا فایل و انتخاب گزینه true خطا می ده . راه حلش چیه؟
                    [ATTACH=CONFIG]14743[/ATTACH]
                    ممنون جناب آقای زالی . اما سوال من چیز دیگه ای بود . دوستان لطفا یاری کنند در خصوص رفع این پیام خطا. تشکر

                    کامنت

                    • iranweld

                      • 2015/03/29
                      • 3341

                      #11
                      نوشته اصلی توسط fokker
                      ممنون جناب آقای زالی . اما سوال من چیز دیگه ای بود . دوستان لطفا یاری کنند در خصوص رفع این پیام خطا. تشکر
                      من روی سیستم خودم اجرا میکنم مشکلی نداره

                      کامنت

                      • fokker

                        • 2014/07/10
                        • 336

                        #12
                        نوشته اصلی توسط iranweld
                        من روی سیستم خودم اجرا میکنم مشکلی نداره
                        همنطور که دیدید من پیغام خطا رو هم گذاشتم . می تونید بررسی بفرمایید تشکر

                        کامنت

                        • fokker

                          • 2014/07/10
                          • 336

                          #13
                          لطفا یاری کنید تشکر

                          کامنت

                          • fokker

                            • 2014/07/10
                            • 336

                            #14
                            دوستان کمک

                            کامنت

                            • fokker

                              • 2014/07/10
                              • 336

                              #15
                              نوشته اصلی توسط fokker
                              با سلام مجدد و تشکر بابت زحماتت. بعد از اجرا اجرا فایل و انتخاب گزینه true خطا می ده . راه حلش چیه؟
                              [ATTACH=CONFIG]14743[/ATTACH]
                              با سلام مجدد .
                              دوستان عزیز دو سوال دارم اگر لطف کنند کمک کنند ممنون می شم
                              1- دوست عزیزمون جناب آقای IRANWELD زحمت کشیدن موضوع فوق رو حل کردن اما در سیستم من پیغام خطا می ده که تصویرشو گذاشتم. راه حلش چیه؟؟
                              2- اگر در همون شیت یک که دوست عزیز جناب آقای IRANWELD فرمول نویسی کردن بخوایم کاری کنیم که با نوشتن تکست یا عدد در ستون c در ستون D تاریخ ثبت بشه چه باید کرد. (خاطر نشان کنم از فرمول دوستمون استفاده کردم اما نشد )

                              کامنت

                              چند لحظه..