Uhlu olwehliswayo olunokukhethwa okuningi

Uhlu lokudonsela phansi lwakudala eshidini le-Excel luhle, kodwa likuvumela kuphela ukuthi ukhethe inketho eyodwa kusethi ethuliwe. Kwesinye isikhathi yilokhu okufunayo, kepha kunezimo lapho umsebenzisi edinga ukuthi akwazi ukukhetha abanye izakhi ezivela ohlwini.

Ake sibheke ukusetshenziswa okuningana okujwayelekile kohlu olunjalo lokukhetha okuningi.

Inketho 1. Evundlile

Umsebenzisi ukhetha izinto ohlwini lokudonsela phansi ngayinye ngayinye, futhi zibonakala kwesokudla seseli eshintshwayo, zifakwa ohlwini ngokuvundlile ngokuzenzakalelayo:

Uhlu oluya phansi kumaseli C2:C5 kulesi sibonelo ludalwe ngendlela evamile, isb

  1. khetha amaseli C2:C5
  2. ithebhu noma imenyu Idatha khetha iqembu Ukuqinisekisa Idatha
  3. ewindini elivulayo, khetha inketho Uhlu futhi ucacise njengobubanzi Umthombo amaseli anedatha yomthombo wohlu A1:A8

Ngemuva kwalokho udinga ukwengeza i-macro kumojula yeshidi, ezokwenza wonke umsebenzi oyinhloko, okungukuthi engeza amanani akhethiwe kwesokudla samaseli aluhlaza. Ukuze wenze lokhu, chofoza kwesokudla kuthebhu yeshidi ngezinhlu zokudonsela phansi bese ukhetha umyalo Ikhodi yomthombo. Namathisela ikhodi elandelayo efasiteleni lomhleli we-Visual Basic elivulekayo:

I-Private Sub Worksheet_Change(ByVal Target As Range) Ephutha Qalisa Kabusha Okulandelayo Uma Ingaphambani(Ithagethi, Ububanzi("C2:C5")) Alilutho Futhi I-Target.Cells.Count = 1 Bese Isicelo.EnableEvents = Ingamanga Uma I-Len(Target.Offset (0, 1)) = 0 Bese I-Target.Offset(0, 1) = I-Target Else Target.End(xlToRight).Offset(0, 1) = Isiphetho Esiqondisiwe Uma I-Target.ClearContents Application.EnableEvents = Isiphetho Sangempela Uma End Sub

Uma kudingekile, buyisela ububanzi obubucayi bohlu oluya phansi C2:C5 emugqeni wesibili wale khodi ufake owakho.

Inketho 2. Imile

Okufanayo nenguqulo yangaphambilini, kodwa amanani amasha akhethiwe awangezwe kwesokudla, kodwa phansi:

Yenziwa ngendlela efanayo, kepha ikhodi yesibambi ishintsha kancane:

I-Private Sub Worksheet_Change(ByVal Target As Range) Ephutha Qalisa Kabusha Okulandelayo Uma Ingaphambani(Ithagethi, Ububanzi("C2:F2")) Alilutho Futhi I-Target.Cells.Count = 1 Bese Isicelo.EnableEvents = Ingamanga Uma I-Len(Target.Offset (1, 0)) = 0 Bese I-Target.Offset(1, 0) = I-Target Else Target.End(xlDown).Offset(1, 0) = Isiphetho Esiqondisiwe Uma I-Target.ClearContents Application.EnableEvents = Isiphetho Sangempela Uma End Sub

Futhi, uma kudingekile, shintsha ububanzi obubucayi bohlu lokudonsela phansi lwe-C2:F2 ngolwakho emugqeni wesibili wale khodi.

Inketho 3. Ngokunqwabelana kuseli efanayo

Kule nketho, ukunqwabelana kwenzeka kuseli efanayo lapho uhlu lokudonsela phansi lukhona. Izakhi ezikhethiwe zihlukaniswa yinoma yiluphi uhlamvu olunikeziwe (isibonelo, ukhefana):

Uhlu lokudonsela phansi kumaseli aluhlaza lwenziwa ngendlela ejwayelekile ngokuphelele, njengasezindleleni zangaphambilini. Wonke umsebenzi wenziwa, futhi, nge-macro kumojuli yeshidi:

I-Private Sub Worksheet_Change(ByVal Target As Range) Ephutha Qalisa Kabusha Okulandelayo Uma Ingaphambanisi(Ithagethi, Ububanzi("C2:C5")) Alilutho Futhi Ithagethi.Amaseli.Count = 1 Bese Isicelo.EnableEvents = Isha Elingamanga = Isicelo Esiqondisiwe.Hlehlisa oldval = Target Uma Len(oldval) <> 0 And oldval <> newVal Then Target = Target & "," & newVal Else Target = newVal End Uma Len(newVal) = 0 Bese Target.ClearContents Application.EnableEvents = Isiphetho Sangempela Uma Qeda I-sub

Uma uthanda, ungashintsha uhlamvu lwesihlukanisi (ukhefana) emugqeni wesi-9 wekhodi ufake eyakho (isibonelo, isikhala noma isemikholoni).

  • Ulwakha kanjani uhlu olulula lokudonsela phansi kuseli leshidi le-excel
  • Uhlu olwehliswayo olunokuqukethwe
  • Uhlu olwehliswayo olunezinketho ezingekho ezingeziwe
  • Ayini ama-macros, angawasebenzisa kanjani, lapho ungafaka khona ikhodi ye-macro ku-Visual Basic

shiya impendulo