قرار گرفتن خودکار ساعت و تاریخ در اکسل

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • nightsecret

    • 2015/11/21
    • 15
    • 41.00

    [حل شده] قرار گرفتن خودکار ساعت و تاریخ در اکسل

    سلام و خسته نباشید
    من یه اکسل دارم می خوام وقتی مثلا داخل سلول a1 یه مقداری وارد می کنم داخل سلول b2 ساعت وارد کردن اون مقدار رو بزنه
  • M_ExceL

    • 2018/04/23
    • 677

    #2
    نوشته اصلی توسط nightsecret
    سلام و خسته نباشید
    من یه اکسل دارم می خوام وقتی مثلا داخل سلول a1 یه مقداری وارد می کنم داخل سلول b2 ساعت وارد کردن اون مقدار رو بزنه
    سلام،
    اگر می خواهید با vba انجام بشه بفرمایید کدش رو براتون قرار بدیم نمونه ای از فایلتون رو هم پیوست کنید تا متناسب با فایلتون پاسخ داده شود.
    [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
    [/CENTER]

    کامنت

    • generalsamad
      مدير تالار توابع

      • 2014/06/22
      • 1496

      #3
      با سلام
      در رویداد chang ورک شیت مورد نظر این کد رو وارد کنید
      کد مربوط به محدوده A1 تا A10 می باشد میتونید ویرایش کنید طبق خواستتون
      کد PHP:
      Private Sub Worksheet_Change(ByVal Target As Range)
          If 
      Not Intersect(TargetMe.Range("A1:A10")) Is Nothing Then
              On Error Resume Next
              
      If Target <> "" Then
                  tr 
      Target.Row
                  Range
      ("B" tr) = Format(Now"hh:mm")
              
      End If
          
      End If
      End Sub 
      [CENTER]
      [SIGPIC][/SIGPIC]
      [/CENTER]

      کامنت

      • nightsecret

        • 2015/11/21
        • 15
        • 41.00

        #4
        نوشته اصلی توسط M_ExceL
        سلام،
        اگر می خواهید با vba انجام بشه بفرمایید کدش رو براتون قرار بدیم نمونه ای از فایلتون رو هم پیوست کنید تا متناسب با فایلتون پاسخ داده شود.

        ممنون از راهنماییتون
        نمی خوام از VBA استفاده کنم نمیشه از طریق فرمول نویسی انجام داد این کار رو؟؟




        نوشته اصلی توسط generalsamad
        با سلام
        در رویداد chang ورک شیت مورد نظر این کد رو وارد کنید
        کد مربوط به محدوده A1 تا A10 می باشد میتونید ویرایش کنید طبق خواستتون
        کد PHP:
        Private Sub Worksheet_Change(ByVal Target As Range)    If Not Intersect(TargetMe.Range("A1:A10")) Is Nothing Then        On Error Resume Next        If Target <> "" Then            tr Target.Row            Range("B" tr) = Format(Now"hh:mm")        End If    End IfEnd Sub 

        میشه بگید "رویداد chang" کجاست ؟

        کامنت

        • M_ExceL

          • 2018/04/23
          • 677

          #5
          نوشته اصلی توسط nightsecret
          ممنون از راهنماییتون
          نمی خوام از VBA استفاده کنم نمیشه از طریق فرمول نویسی انجام داد این کار رو؟؟







          میشه بگید "رویداد chang" کجاست ؟
          سلام،
          تنها راهی که بنده سراغ دارم استفاده از vba هست و کدش رو هم استاد عزیزمون جناب generalsamad قرار دادند.
          برای وارد شده به محیط vba کلید های ترکیبی alt + f11 رو فشار بدید.
          در صفحه باز شده روی شیت مود نظر دابل کلیک کنید تا وارد ماژول اون شیت بشوید سپس کد رو در قسمت کد نویسی پیست کنید.
          برای ذخیره فایل های دارای کد vba می بایست فایل رو با پسوند xlsm ذخیره کنید.
          [CENTER]Telegram Channel : [url]https://t.me/UltraOfficeSkills[/url]
          [/CENTER]

          کامنت

          چند لحظه..