ثبت تاریخ

[fokker]

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

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

[iranweld]

با سلام

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

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
        
    End If
    
    End Sub 

[fokker]

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

[fokker]

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

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

[fokker]

لطفا کمک کنید

[fokker]

لطفا کمک کنید

[iranweld]

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

Sub Worksheet_Change(ByVal Target As Range)

    If Target = "True" And Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
    
        
    Target.Offset(0, 1) = J_TODAY(1)
    
    Else
    
    Target.Offset(0, 1) = ""
    
        
    End If
    
    End Sub 

[fokker]

با سلام مجدد و تشکر بابت زحماتت. بعد از اجرا اجرا فایل و انتخاب گزینه true خطا می ده . راه حلش چیه؟

[Ali-Zali]

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

اگه لینک دادن به سایت های دیگه خلاف قوانین هستش لطفا پاک کنید
تو این سایت همه چیز رو کامل با جزییات توضیح داده
http://worksheet.ir/کار-با-توابع-تار...�کسل/macro/

Sent from my Lenovo A3500-HV using Tapatalk

[fokker]

با سلام مجدد و تشکر بابت زحماتت. بعد از اجرا اجرا فایل و انتخاب گزینه true خطا می ده . راه حلش چیه؟

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