İ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ə bir hüceyrəyə açılan siyahıdan birdən çox maddəni necə seçə bilərsiniz?

Açılır siyahı tez-tez Excel gündəlik işində istifadə olunur. Varsayılan olaraq, açılan siyahıdan yalnız bir maddə seçilə bilər. Ancaq bəzi zamanlarda açılan siyahıdan birdən çox element seçmək üçün bir ekranın göründüyü kimi bir hüceyrəyə daxil etmək lazımdır. Necə Excel-də idarə edə bilərsiniz?

doc 1 açılır menyusundan birdən çox maddə seçin doc arrow sağ doc 2 açılır menyusundan birdən çox maddə seçin

Bir hüceyrəyə açılan siyahıdan birdən çox maddə seçin

Asanlıqla Excel-də data itirilmədən sütunları və ya satırları birləşdirin

Çox dublikat qeydləri olan bir iş ilə işləyirsinizsə və indi eyni dəyəri əsasında satırları birləşdirməlisiniz və birləşdirməlisiniz və cəmi, ortalama, təkrarlanan satırlar hesabı kimi bəzi hesablamalara ehtiyacınız var. Bununla Ətraflı qablar birləşdirin of Excel üçün Kutools, tez eyni dəyərlər / eyni məlumatları və ya satırları müvafiq hüceyrələrə birləşdirə bilərsiniz. 60 gün pulsuz sınaq üçün tıklayın!
doc qabaqcıl satırları birləşdirir
Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Bir hüceyrəyə açılan siyahıdan birdən çox maddə seçin


Bəzi VBA bu işi həll etmək üçün bir lütf edə bilər.

Bir hüceyrədə açılan siyahıdan cütlüyü seçin

1. Bir açılan siyahı yaratdıqdan sonra, seçmək üçün hesabat sekmesinde sağ basın Kodları baxın kontekst menyusundan.
doc 3 açılır menyusundan birdən çox maddə seçin

2. Sonra da Proqramlar üçün Microsoft Visual Basic pəncərədə, kodu aşağıda boş skriptə yapışdırıb yapışdırın.

VBA: Bir hüceyrədə açılan siyahıdan birdən çox maddə seçin

Şəxsi Sub Worksheet_Change (ByVal Target Range kimi) 'UpdatebyExtendoffice20180510 Dim xRgVal Range Dim xStrNew Düsturu Xətdə Xətdə Yenidən Başla xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) Əgər (Target.Count> 1) Və ya (xRgVal Is Nothing) İntersect (Target, xRgVal) Nəticədə Sub Application.EnableEvents = False xStrNew = Target.Value Application.Undo xStrNew = xStrNew & Target.Value Target.Value = xStrNew Application.EnableEvents = True End Sub

doc 4 açılır menyusundan birdən çox maddə seçin

3. Kodu saxla və açılır siyahıya geri dönmək üçün pəncərəni bağlayın. İndi açılan siyahıdan birdən çox maddə seçə bilərsiniz.

Qeyd:

1. VBA ilə, elementləri yerə ayırır, dəyişə bilərsiniz xStrNew = xStrNew & "" & Target.Value ehtiyac duyduğunuz kimi məhdudlaşdırıcıları dəyişmək üçün başqalarına. Misal üçün, xStrNew = xStrNew & "," & Target.Value öğeleri virgülle ayırır.

2. Bu VBA kodu, hesabatın bütün açılan siyahıları üçün işləyir.

Yenidən bir hüceyrəyə açılır siyahıdan birdən çox maddə seçin

Sadəcə açılan siyahıdan bir hüceyrəyə nadir əşyalar seçmək istəyirsinizsə, yuxarıdakı addımı təkrarlaya və aşağıdakı kodu istifadə edə bilərsiniz.

VBA: Yenidən açılmadan bir neçə ədəd seçin

Şəxsi Sub Worksheet_Change (ByVal Target Range kimi) 'UpdatebyExtendoffice20180510 Dim kimi As Integer Dim xRgVal Range Dim kimi xStrNew As String Dim xStrOld As String Dim xFlag kimi Boolean Dim xArr Hata Resume Next Set xRgVal = Cells.SpecialCells (xlCellTypeAllValidation) Əgər (Hedef. Nümunə> 1) Və ya (xRgVal Is Nothing) Sonra Exit Sub if (Hədəf, xRgVal) Nəticə Sub Application.EnableEvents = False xFlag = True xStrNew = "" & Target.Value & "Application.Undo xStrOld = Target XStrNew = xStrNew & xStrOld & "" Else xStrNew = xStrOld End If Target.Value = xStrNew Application.EnableEvents = True End Sub (1, xStrOld, xStrNew)



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.