İ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ə bu məktubu ilə başlayan hücuma keçmək üçün əlifba məktubu basın?

Bir çox Excel məlumatını böyük məlumatlarla istifadə edərkən, müəyyən məzmunu ehtiva edən müəyyən hüceyrələrə necə getmək və ya tapmaq olar? Bu yazıda istifadə edilən üsulla, alfabe məktubunu avtomatik olaraq bu əlifba məktubla başlayan hüceyrəyə gedin.

VBA koduyla başlayan məktubla başlayan hüceyrəyə çıxmaq üçün əlifba məktubu basın


VBA koduyla başlayan məktubla başlayan hüceyrəyə çıxmaq üçün əlifba məktubu basın


Xahiş edirik, Excel-də bir əlifba hücresini tıklayaraq bir hüceyrəyə getmək üçün bunu edin.

1. Çalışma kitabında, bir əlifba hücresini tıklayaraq bir hüceyrəyə girməlisiniz, hesabat sekmesinde sağa vurun və sonra basın. Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

2. Sonra a Proqramlar üçün Microsoft Visual Basic pəncərə açılır, kodu kopyalayın və VBA kodunun altına qoyun.

VBA kodu: Məktubla başlayan hücuma keçmək üçün əlifba məktubu basın

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Dim xCell As Range
    Dim xRgRtn As Range
    On Error Resume Next
    Application.EnableEvents = False
    If Not Intersect(Target, Range("1:1")) Is Nothing Then
        Set xRg = ActiveSheet.UsedRange
        Set xRg = xRg(1).Offset(1, 0).Resize(xRg.Rows.Count, xRg.Columns.Count)
        For Each xCell In xRg
            If Left(xCell.Value, 1) = Target.Value Then
                If xRgRtn Is Nothing Then
                    Set xRgRtn = xCell
                Else
                    Set xRgRtn = Application.Union(xRgRtn, xCell)
                End If
            End If
        Next
        If xRgRtn.Address = Target.Address Then
            MsgBox "No matched cell found", , "KuTools For Excel"
        Else
            xRgRtn.Select
        End If
    End If
    Application.EnableEvents = True
End Sub

Qeyd: 1: 1 kodu, əlifba məktubları iş səhifəsinin ilk sətirində yerləşdirilməsini nəzərdə tutur.

3. Basın Dayandırmaq + Q düymələri eyni vaxtda bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

Bundan sonra bir əlifba hücresini tıkladığınızda, həmin məktubla başlayan bütün hüceyrələr iş səhifəsində avtomatik olaraq seçilir.

Seçilmiş bir məktubla heç bir hüceyrə başlamazsa, Excel ekranı üçün Kutools qutusunu alacaqsınız.



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.