İ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ə başlığı tıklayaraq sütun məlumatlarını necə düzəltmək olar?

Şübhəsiz ki, bir sıra məlumatım var, indi göstərilən ekran görüntüsünü almaq üçün hər hansı bir sütun başlığına basaraq məlumatları artan və ya azalan qaydada sıralayıram. Excel-də bu işi necə həll edə bilərsən?

1 düyməsini basın

VBA kodu ilə sütun başlığını tıklayaraq məlumatları sıralayın


arrow mavi sağ bubble VBA kodu ilə sütun başlığını tıklayaraq məlumatları sıralayın

Normalda, Excel-də, məlumatları tez və asanlıqla sıralamaq üçün Sort funksiyasını tətbiq edə bilərsiniz, ancaq bir hüceyrəni tıklayaraq məlumatları sıralayaraq, aşağıdakı VBA kodu sizə bir xeyir verə bilər.

1. Bir hüceyrəni tıklayaraq verileri sıralamaq istədiyiniz səhifənin sekmesini sağa vurun və seçin Kodları baxın kontekst menyusundan və açıldı Proqramlar üçün Microsoft Visual Basic pəncərədə, boş kodu daxil edin və aşağıdakı kodu yapışdırın:

VBA kodu: Bir hüceyrə və ya sütun başlığına vuraraq məlumatları sıralayın:

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice 20161123
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

2 düyməsini basın

2. Sonra, məlumatların aralığında hər hansı bir hüceyrə və ya sütun başlığını cüt vurduğunuzda, kod pəncərəsini saxlayıb bağlayın, sütun artan sıraya düzəldilir, əgər yenidən cütləşdirsəniz, sütun bir dəfə enən şəkildə sıralanacaq.


Daha çox əlaqəli məqalələr:

Hüceyrəni tıklayaraq hüceyrə dəyərini necə dəyişdirmək olar?

Excel-də mobil məzmunu tıklayaraq məlumatları necə filtreləmək olar?



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.

Be the first to comment.