İ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 sütununu Excel-də dəyərlə avtomatik sıralamaq necə?

Məsələn, ekranın sol ekran şəklində olduğu kimi satınalma masanız var. İndi bu sütunda yeni qiymət / qiymət daxil edərkən Qiymət sütunu avtomatik olaraq sıralanmasını istəyirik, necə həll edə bilərsən? Burada Excel-də xüsusi sütunu avtomatik olaraq dəyərinə görə sıralamaq üçün VBA makrosunu təqdim edirəm.

VBA ilə sütunu avtomatik olaraq sıralayın

Excel-də baş verən hadisələrin tezliyi ilə asanlıqla sıralayın

Excel üçün Kutools Ətraflı Sort kommunal Excel tezliklə mətn uzunluğu, soyadı, mütləq dəyəri, tezlik, və s. məlumatların çeşidlənməsi dəstəkləyir. Tam xüsusiyyətli 60-sınaq sınaq!
2 tezliklə reklam sıralaması


arrow mavi sağ bubbleVBA ilə sütunu avtomatik olaraq sıralayın

Bu VBA makro, Excel-də sütundakı yeni məlumatları və ya dəyişdirmə dəyərini daxil edərkən avtomatik olaraq xüsusi sütundakı bütün məlumatları düzəldəcəkdir.

1. Sağdakı cədvəlin adını Sheet Tab bar, və sonra basın Kodları baxın sağ tıklayarak menyudan.

2. Açılış üçün Microsoft Visual Basic proqramı informasiya qutusunda, açılış penceresine aşağıdakı VBA makro kodunu yapışdırın.

VBA: Exceldə Avtomatik Sütun Sütunu

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Qeyd: Yuxarıda göstərilən vba kodunda, B: B, Sütun B-i avtomatik olaraq sıralayacaq, B1 Sütun B-də ilk hüceyrədir, B2 Sütun B-də ikinci hüceyrədir və onları sizin ehtiyaclarınıza əsasən dəyişə bilərsiniz.

3. Qiymət sütununda yeni bir nömrəni daxil etdiyinizə və ya mövcud qiymətləri dəyişdikdə iş səhifəsinə geri qayıdın, Qiymət sütunu artan sırada sıralanır.

Qeyd: Qiymət sütununda yeni nömrəni daxil edərkən nömrəni orijinal ədədlərin altındakı ilk boş xanaya daxil etməlisiniz. Orijinal nömrələr arasında yeni daxil edilmiş nömrələr və orijinal nömrələr və boş nöqtələr arasında boş hüceyrələr varsa, bu sütun avtomatik olaraq sıralanmaz.


Demo: Excel-də VBA ilə sütunu avtomatik olaraq sıralayın

Bu videoda Kutools nişanı və Kutools Plus nişanı əlavə olunur Excel üçün Kutools. Lazım olsa, klikləyin burada məhdudiyyətsiz bir 60 günlük pulsuz sınaq üçün!



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.
    Bekir · 8 days ago
    Hi,

    How can I make this macro start after I fill all data to the specific column?
    I want the listing macro start after I fill empty boxes. Because when I use this, it changes the place suddenly.
    I need to start this macro after I filled the last data of that column (20 datas to be exact)
  • To post as a guest, your comment is unpublished.
    Rhea · 7 months ago
    Hello, I am an intermediate Excel user. I am wondering if someone could help direct me for what I am trying to accomplish. Here is what I am trying to do: Auto-Sort with Custom Order.

    A little about my spreadsheets: I have one sheet (named: Sheet1) that lists 16 columns (A through P) and currently 19 rows (this number will increase as more data is entered). In the last column (column P) all cells have a drop down menu of options (located and pulled from sheet two (named "BackEnd"). The drop down selections are color-coded (using conditional formatting rules).

    What I am hoping to do: As a user enters data in a new row, as soon as they are finished selecting an option from the drop down menu in column P, Excel will auto-sort the new row to a specific order. I have been able to create VBA code for auto-sorting in ascending and descending order, but I have not been able to create a code for auto-sorting the data in a specific order. The order I would like to have the data sorted into is:

    Unresponsive
    Not Interested
    Interested
    Pre-Screened Not Qualified:
    Pre-Screened Qualified
    Application Pending
    Application Approved
    Initial Assessment:
    Scope of Work:
    Home Repairs in Progress
    On Hold:
    Complete
    Other:

    Is this possible? Any help is appreciated! Thank you!
  • To post as a guest, your comment is unpublished.
    Stephen · 11 months ago
    While this is a fantastic code, I would like to know if anyone could help me get it go from ascending to descending? In other words, I'm looking for it to be the largest number on top with the lowest number on the bottom
    • To post as a guest, your comment is unpublished.
      Xander · 10 months ago
      Change (Order1:=xlAscending, Header:=xlYes, ) To (Order1:=xlDescending, Header:=xlYes, )
  • To post as a guest, your comment is unpublished.
    SHABEERALI · 1 years ago
    Any one know how to set set an auto serial no. for an excel work sheet. The number should excludes all heading and sub headings, and should auto re arrange after adding or deleting a row.
    • To post as a guest, your comment is unpublished.
      Tang Kelly · 1 years ago
      Hi,
      Kutools for Excel provides an Insert Sequence Number feature, which can insert unique and consecutive values no matter how many times you insert.
      For example, the first time you insert 1,2,3,4;
      The second time this feature will insert 5,6,7,8,9,10
      The third time this feature will insert 11,12,…
  • To post as a guest, your comment is unpublished.
    Sushant · 1 years ago
    Thanks for code and logic. The above logic is not working when we are looking at bigger range of cells like Intersect(Target, Range("B:B,C:C,D:D")). I want if there is change in any cell in the Column (B,C or D), resorting needs to be done.