Tse ka Hare
Lethathamo la li-drop-down tsa khale ka har'a leqephe la Excel le monate, empa le u lumella feela ho khetha khetho e le 'ngoe ho sete e hlahisitsoeng. Ka linako tse ling sena ke sona seo u se batlang, empa ho na le maemo ao mosebelisi a hlokang ho khona ho khetha ba bang lintlha tse tsoang lenaneng.
Ha re shebeng lits'ebetso tse 'maloa tse tloaelehileng tsa lenane le joalo la likhetho tse ngata.
Khetho ea 1. E tšekaletseng
Mosebelisi o khetha lintho ho tsoa lethathamong le theoha ka bonngoe, 'me li hlaha ka letsohong le letona la sele e ntse e fetoloa, li thathamisitsoe ka mokhoa o otlolohileng:
Manane a theolelang liseleng tsa C2:C5 mohlaleng ona a entsoe ka mokhoa o tloaelehileng, ke hore
- khetha lisele C2:C5
- tab kapa menu Lintlha khetha sehlopha Netefatso ea data
- fensetereng e butsoeng, khetha khetho List 'me u hlalose joalo ka mefuta mohloli o moholo lisele tse nang le data ea mohloli bakeng sa lenane la A1:A8
Ebe o hloka ho kenyelletsa macro ho module ea lakane, e tla etsa mosebetsi oohle oa mantlha, ke hore, eketsa boleng bo khethiloeng ka letsohong le letona la lisele tse tala. Ho etsa sena, tobetsa ka ho le letona ho tab ea lakane e nang le manane a theoha ebe u khetha taelo Khoutu ea mohloli. Beha khoutu e latelang fensetereng ea Visual Basic editor e bulang:
Private Sub Worksheet_Change(ByVal Target As Range) On Phoso Resume Next If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Joale Application.EnableEvents = False If Len(Target.Offset (0, 1)) = 0 Joale Target.Offset(0, 1) = Target Else Target.End(xlToRight).Offset(0, 1) = Target End If Target.ClearContents Application.EnableEvents = True End If End Sub Haeba ho hlokahala, fetola lethathamo le hlokolosi la manane a theohang C2:C5 moleng oa bobeli oa khoutu ena ka ea hau.
Khetho ea 2. E otlolohileng
Hoa tšoana le phetolelong e fetileng, empa litekanyetso tse ncha tse khethiloeng ha li ekeletsoe ka ho le letona, empa ho ea tlase:
E etsoa ka tsela e ts'oanang, empa khoutu ea macro e fetoha hanyane:
Private Sub Worksheet_Change(ByVal Target As Range) On Phoso Resume Next If Not Intersect(Target, Range("C2:F2")) Is Nothing And Target.Cells.Count = 1 Joale Application.EnableEvents = False If Len(Target.Offset (1, 0)) = 0 Joale Target.Offset(1, 0) = Target Else Target.End(xlDown).Offset(1, 0) = Qetello ea Sepheo Haeba Target.ClearContents Application.EnableEvents = True End If End Sub Hape, ha ho hlokahala, fetola lethathamo le hlokolosi la manane a theohang a C2:F2 ka la hau moleng oa bobeli oa khoutu ena.
Kgetho 3. Ka ho bokella ka seleng e le nngwe
Ka khetho ena, ho bokella ho etsahala ka seleng e le 'ngoe moo lenane la ho theoha le leng teng. Likarolo tse khethiloeng li arotsoe ke tlhaku efe kapa efe e fanoeng (mohlala, phegelwana):
Manane a theoha ka lisele tse tala a entsoe ka mokhoa o tloaelehileng ka ho feletseng, joalo ka mekhoa e fetileng. Mosebetsi oohle o entsoe, hape, ka macro ka har'a mojule oa leqephe:
Private Sub Worksheet_Change(ByVal Target As Range) On Phoso Resume Next If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 Joale Application.EnableEvents = False newVal = Target Application.Etsolla oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & "," & newVal Else Target = newVal End If Len(newVal) = 0 Joale Target.ClearContents Application.EnableEvents = Qetello ea 'Nete Haeba Qetella Sub Haeba o lakatsa, o ka nka sebaka sa searohanyi (koma) moleng oa 9 oa khoutu ka ea hau (mohlala, sebaka kapa semicolon).
- Mokhoa oa ho theha lethathamo le bonolo la ho theoha ka seleng ea letlapa la Excel
- Lenane le theoha le litaba
- Lenane le theohang le nang le likhetho tse sieo li kentsoeng
- Li-macros ke eng, u ka li sebelisa joang, moo u ka kenya khoutu ea macro ho Visual Basic