İ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 faylını hüceyrə dəyəri ilə necə saxlamaq olar?

Bir iş kitabını istifadə etdiyinizdə, Excel faylını bir hüceyrə məzmununa əsasən saxlamağı düşündünüzmü? Məsələn, A1 hücresindəki "Satış qiyməti" var və iş kitabını Satış qiyməti kimi saxlamaq istərdiniz. Əlbəttə ki, adını Saxla Faylı olaraq daxil edə bilərsiniz və onu saxlaya bilərsiniz. Amma bu, işinizdə səmərəsiz bir üsul olacaq. Bu gün həll etmək üçün tez bir hiylə haqqında danışacağam.

Excel faylını VBA kodunu istifadə edərək xüsusi hüceyrə dəyərinə qənaət edin


arrow mavi sağ bubble Excel faylını VBA kodunu istifadə edərək xüsusi hüceyrə dəyərinə qənaət edin


Aşağıdakı VBA kodu iş kitabını müəyyən bir hüceyrə dəyəri ilə saxlamağa kömək edə bilər, xahiş edirəm:

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: Xüsusi fayl dəyəri ilə Excel faylını saxlaya bilərsiniz

Private Sub filename_cellvalue()
'Update 20141112
Dim Path As String
Dim filename As String
Path = "C:\Users\dt\Desktop\my information\"
filename = Range("A1")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

3. Və sonra basın F5 kodu yerinə yetirmək üçün açar və iş kitabınız A1 hücumunun hüceyrə məzmunu kimi adlandırıldı. Ekran görüntüsünə baxın:

doc-cell-value-1-ilə-saxlamaq

Qeydlər:

1. Yalnızca A1-nun yuxarıda göstərilən kodda digər hüceyrə istinadına dəyişdirilməsi ilə hər hansı bir hüceyrə dəyəri fayl adı kimi göstərə bilərsiniz.

2. Aktiv iş kitabınızın qovluğuna saxlanılacaq C: \ Users \ dt \ Desktop \ my information \ (yerinizin yerinə yerini qoyduğunuzda son çubuqlar qalmalıdır) yeri, ehtiyacınız olan yolu dəyişə bilərsiniz.


Related articles:

Excel-də tarixi və saatı 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.
    Tim · 1 months ago
    Hi, I am trying to use this code but when i try to execute I get a runtime 1004 error and it highlights row 7 as invalid: ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
    How can I resolve this? Im using office 365
  • To post as a guest, your comment is unpublished.
    Ahmad · 3 months ago
    Hi friends,
    I have a problem and would be glad if there is someone to help me
    I have a file at drive "F" and folder "ABS" - my filename is "Listdata"
    In an Excel file on my desktop I want cells(4,4) to retieve data from "ABS" sheet(1) and cell (2,2)
    The below code
    Sub Macro1()
    activesheet.Cells(4, 4).Value = " F:\ABS\" & listdata & ".xlsx" & Sheets(1).Cells(2, 2).Value
    End Sub
    but it does not work correctly
    Thanks Friends
  • To post as a guest, your comment is unpublished.
    radulus · 6 months ago
    hi all!

    How can save repetitive input in the same cells, in other cells, with a Macro?

    In sheet1, I input data in A1, B1, C1, for n-times in a day. In sheet2, i need save all this records, in A2, B2, C2, A3, B3, C3, etc. Tnx!
  • To post as a guest, your comment is unpublished.
    Rajiv · 7 months ago
    how to create a macro to save multiple sheets as with their cell values as file names
    Thanks,
    Rajiv
  • To post as a guest, your comment is unpublished.
    Bruce McIntyre · 1 years ago
    Ok so i got this working good using an in sheet button. Now i would like it to just save normally after the initial save as. Can this be done? Using the same save button?
    Thanks Bruce