İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də tarixi və saatı necə saxlamaq olar?

Bir iş kitabında işləyərkən, bəzən faylı saxladığımız zaman və saatı əlavə etməliyik. Bəlkə, fayl adından sonra tarixi və saatı Farklı Saxla diyaloğuna yaza bilərsiniz, amma burada, bu iş ilə avtomatik məşğul olmaq üçün asan bir oyuncaq təqdim edə bilərəm.

VBA kodunu istifadə edərək Excel faylını tarix və vaxtla saxla


arrow mavi sağ bubble VBA kodunu istifadə edərək Excel faylını tarix və vaxtla saxla


Tarix və saatı əl ilə yazma istisna olmaqla, aşağıdakı VBA kodu avtomatik olaraq faylın adını və tarixini əlavə etməyə kömək edə bilər. Xahiş edirik, aşağıdakı adımlarla:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modul Pəncərəsi.

VBA kodu: Fayl adını avtomatik olaraq əlavə edin

Sub filesave()
'Update 20141111
ActiveWorkbook.SaveAs ("C:\Users\dt\Desktop\my information\nov-kte-data " & Format(Now(), "DD-MMM-YYYY hh mm AMPM") & ".xlsx")
End Sub

3. Və sonra basın F5 bu kodu çalıştırmak üçün açar, cari tarix və vaxt aktiv iş kitabınızın adından sonra əlavə olunub, ekran görüntüsünə baxın:

doc-save-file-with-date-1 ilə

Qeyd: Yuxarıda göstərilən kodda fayl yolunu və adını ehtiyacınıza dəyişdirməlisiniz.


Related articles:

Excel faylını hüceyrə dəyəri ilə necə saxlamaq olar?

Excel-də başlıq çubuğunda və ya araç çubuğunda fayl yolu göstərmək üçün necə?



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    AK sharma · 7 months ago
    Hello sir,
    can you plrease let me know how to define below Scripts. like - filename_currentdate_time.txt




    Sub ExportSheetsToText()
    Dim xWs As Worksheet
    Dim xTextFile As Double
    For Each xWs In Application.ActiveWorkbook.Worksheets
    xWs.Copy
    xTextFile = CurDir & "\" & xWs.Name & ".txt"
    Application.ActiveWorkbook.SaveAs Filename:=xTextFile, FileFormat:=xlText
    Application.ActiveWorkbook.Saved = True
    Application.ActiveWorkbook.Close
    Next
    End Sub
  • To post as a guest, your comment is unpublished.
    Brant · 8 months ago
    Been looking for this! Thanks!
  • To post as a guest, your comment is unpublished.
    Mike · 1 years ago
    Thanks for the tip. I was saving with a 'xxxxxxx' as the suffix and manually entering the data every week for a weekly snapshot. This automation is great.