Lîsteya dakêşana klasîk a di pelek Excel de mezin e, lê ew tenê dihêle hûn vebijarkek ji berhevoka pêşkêşkirî hilbijêrin. Carinan tiştê ku hûn dixwazin ev e, lê rewş hene ku pêdivî ye ku bikarhêner bikaribe hilbijêrin hin hêmanên ji lîsteya.
Ka em li çend pêkanînên tîpîk ên navnîşek pir-bijartî ya weha binêrin.
Vebijêrk 1. Horizontal
Bikarhêner tiştan ji navnîşa dakêşan yek bi yek hildibijêre, û ew li milê rastê şaneya ku tê guheztin xuya dikin, ku bixweber bi horizontî têne navnîş kirin:
Lîsteyên daketî yên di hucreyên C2:C5 de di vê nimûneyê de bi rengek standard têne afirandin, ango
- hucreyên C2: C5 hilbijêrin
- tab an menu Jimare tîmek hilbijêre Pejirandina Daneyê
- di pencereya ku vedibe, vebijarkek hilbijêrin Rêzok û wekî rêzek diyar bikin Kanî hucreyên bi daneya çavkaniyê ji bo navnîşa A1: A8
Dûv re hûn hewce ne ku makroyek li modula pelê zêde bikin, ku dê hemî xebata sereke bike, ango nirxên hilbijartî li rastê şaneyên kesk zêde bike. Ji bo kirina vê yekê, li ser tabloya pelê ya bi navnîşên dakêşanê rast-klîk bikin û fermanê hilbijêrin Koda Çavkaniyê. Koda jêrîn li pencereya edîtorê Visual Basic ku vedibe bişopînin:
Bineya Taybet Worksheet_Change(ByVal Target Wek Rêze) Li Ser Çewtiyê Paşê Ji nû ve Vegerîne Ger Nabe Têkilî(Armanc, Rêze("C2:C5")) Ne Tiştek e Û Target.Cells.Count = 1 Paşê Application.EnableEvents = Derewîn Ger Len(Target.Offset (0, 1)) = 0 Paşê Target.Offset(0, 1) = Target Else Target.End(xlToRight).Offset(0, 1) = Target End If Target.ClearContents Application.EnableEvents = Dawiya Rast Ger End Sub Ger hewce be, rêza hesas a lîsteyên dakêşan C2: C5 di rêza duyemîn a vê kodê de bi ya xwe biguhezînin.
Vebijêrk 2. Vertical
Wekî di guhertoya berê de, lê nirxên nû yên hilbijartî ne li rastê, lê li jêr têne zêdekirin:
Ew tam bi heman rengî tête kirin, lê koda makro ya hander hinekî diguhezîne:
Bineya Taybet Worksheet_Change(ByVal Target Wek Rêze) Li Ser Çewtiyê Paşê Ji nû ve Vegerîne Ger Ne Navber (Target, Range("C2:F2")) Ne Tiştek e Û Target.Cells.Count = 1 Paşê Application.EnableEvents = Derewîn Ger Len(Target.Offset (1, 0)) = 0 Paşê Target.Offset(1, 0) = Target Else Target.End(xlDown).Offset(1, 0) = Target End If Target.ClearContents Application.EnableEvents = Dawiya Rast Ger End Sub Dîsa, ger hewce be, di rêza duyemîn a vê kodê de rêza hesas a navnîşên dakêşana C2: F2 bi ya xwe biguhezînin.
Vebijêrk 3. Bi kombûna di heman hucreyê de
Di vê vebijarkê de, kombûn di heman hucreyê de ku navnîşa dakêşanê lê ye, pêk tê. Hêmanên hilbijartî ji hêla her karakterek diyarkirî ve têne veqetandin (mînakî, komo):
Lîsteyên dakêşanê yên di şaneyên kesk de bi rengek bi tevahî standard têne afirandin, wekî di rêbazên berê de. Hemî kar, dîsa, bi makroyek di modula pelê de tête kirin:
Bineya Taybet Worksheet_Change(ByVal Target Wek Rêze) Li Ser Çewtiyê Paşê Ji nû ve Vegerîne Ger Ne Navber (Armanc, Rêze("C2:C5")) Ne Tiştek e Û Target.Cells.Count = 1 Paşê Application.EnableEvents = Derewîn newVal = Serlêdana Armanc.Undo oldval = Target Ger Len(oldval) <> 0 Û oldval <> newVal Paşê Target = Target & "," & newVal Din Target = newVal Dawî Heke Len(newVal) = 0 Paşê Target.ClearContents Application.EnableEvents = Dawiya Rast Ger End Sub Ger bixwaze, hûn dikarin karaktera veqetandî (komma) di rêza 9-an a kodê de bi ya xwe (mînak, cîhek an nîvcolon) biguhezînin.
- Meriv çawa di hucreyek pelê excel de navnîşek dakêşana hêsan biafirîne
- Lîsteya dakêşanê ya bi naverokê
- Lîsteya dakêşanê ya bi vebijarkên winda hatine zêdekirin
- Makro çi ne, meriv wan çawa bikar tîne, koda makro li ku derê têxe Visual Basic