İ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ə verilənlərin doğrulanması açılır siyahısında default dəyərini necə təyin etmək olar?

Verilərin doğrulanması açılan siyahısında default dəyər təyin etmək başqalarına bir iş səhifəsində bir baxışda asanlıqla açılan siyahı hüceyrələrini müəyyən etməyə kömək edir. Bu yazıda, məlumatların doğrulama açılan siyahısında default dəyərini təyin etmək üçün VBA metodu təqdim edilir.

VBA kodu ilə verilən məlumatların doğrulama açılan siyahısında default dəyərini təyin edin


Siz maraqlana bilərsiniz:

Bir çox iş səhifəsini / iş kitabını bir iş səhifəsinə / iş kitabına birləşdirin:

Bir çox iş səhifəsini və ya iş kitabını bir iş səhifəsinə və ya iş kitabına birləşdirin, gündəlik işinizdə böyük bir vəzifə ola bilər. Ancaq əgər varsa Excel üçün Kutools, güclü fayda - Birləşdirmək tez bir çox iş səhifəsini, iş kitabını bir iş və ya iş kitabına birləşdirməyə kömək edə bilər.

Excel üçün Kutools 300-dən çox lazımlı Excel alətləri daxildir. 60 gün ərzində heç bir məhdudiyyətsiz cəhd edin. Daha çox oxu İndi pulsuz sınaq yükləyin


VBA kodu ilə verilən məlumatların doğrulama açılan siyahısında default dəyərini təyin edin


Ekran görüntüsünün aşağıda olduğu kimi, B2 aralığındaki bütün hüceyrələri nəzərdə tutur: C7 açılır siyahıdan ibarətdir və siz bir default dəyər - Siyahıdan seçin -) bu açılan siyahıdan dəyərlər seçməzdən əvvəl. Aşağıdakı VBA kodu cəhd edə bilərsiniz.

1. Açar siyahıları ilə hesabatı seksiyanı sağa vurun və lazımi dəyəri qurun və sonra basın Kodları baxın menyusundan.

2. İçində Proqramlar üçün Microsoft Visual Basic Pəncərə, Kod qutusuna aşağıdakı VBA kodunu kopyalayıb yapışdırın.

VBA kodu: məlumatların doğrulanması açılan siyahısında default dəyərini təyin edin

Sub DropDownListToDefault()
    Dim xCell As Range
    Dim xRg As Range
    Dim xAcCell As Range
    Dim xScreen As Boolean
    On Error Resume Next
    Set xAcCell = Application.ActiveCell
    Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
    If xRg Is Nothing Then
        MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Validation.Type = 3 Then
            If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
        End If
    Next
    xAcCell.Select
    Application.ScreenUpdating = xScreen
End Sub

QeydVBA kodundakı default dəyərini sizə lazım olanı dəyişə bilərsiniz.

6. Basın F5 kodunu çalıştırmak üçün düyməsini basın. Standart qiymətlər aşağıda göstərilən ekran görünüşü kimi bütün açılan siyahı hüceyrələrinə əlavə olunur.

Qeydlər:

1. Açar siyahıdakı dəyər seçildikdən sonra u mənim dəyər yox olacaq.

2. Cari iş yerindəki məlumatların doğrulanması açılan siyahıları olmadıqda, aşağıdakı əmr qutusunu əldə edəcəksiniz.


Related articles:



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.
    Martin Goodwin · 4 months ago
    Love the code about 'VBA code: set a default value in data validation drop-down list', how do I use the same code for just one column with one dropdown?