Ndepụta mwụda nwere ọtụtụ nhọrọ

Ndepụta ndetu eweda nke ọma na mpempe akwụkwọ Excel dị mma, mana ọ na-enye gị ohere ịhọrọ otu nhọrọ site na ntọala ewepụtara. Mgbe ụfọdụ, nke a bụ kpọmkwem ihe ịchọrọ, mana enwere ọnọdụ ebe onye ọrụ kwesịrị inwe ike ịhọrọ ụfọdụ ihe si na ndepụta.

Ka anyị leba anya n'ọtụtụ mmemme nke ndepụta nhọrọ ọtụtụ.

Nhọrọ 1. Kehoraizin

Onye ọrụ na-ahọrọ ihe na listi ndọpụta otu otu, wee pụta n'aka nri nke cell a na-agbanwe, na-edepụta ya ozugbo:

A na-emepụta ndepụta ndọda n'ime sel C2:C5 n'ihe atụ a n'ụzọ ziri ezi, ntụgharị

  1. họrọ mkpụrụ ndụ C2:C5
  2. tab ma ọ bụ menu data họrọ otu Nkwado data
  3. na mpio mepere emepe, họrọ otu nhọrọ List ma kọwaa dị ka oke Source mkpụrụ ndụ nwere data isi mmalite maka ndepụta A1: A8

Mgbe ahụ ịkwesịrị ịgbakwunye nnukwu macro na modul mpempe akwụkwọ, nke ga-arụ ọrụ niile bụ isi, ya bụ tinye ụkpụrụ ahọpụtara n'aka nri nke mkpụrụ ndụ ndụ ndụ. Iji mee nke a, pịa aka nri na taabụ mpempe akwụkwọ na ndepụta ndọpụta wee họrọ iwu ahụ Isi koodu. Tapawa koodu ndị a n'ime mpio editọ Visual Basic na-emepe:

Nkeonwe Sub Worksheet_Change(ByVal Target As Range) Na Error Resume Next Ọ bụrụ na Ọ bụghị Intersect (Ezubere, Range("C2:C5")) Ọ dịghị ihe na Target.Cells.Count = 1 Mgbe ahụ Application.EnableEvents = Ụgha Ọ bụrụ Len(Target.Offset) (0, 1)) = 0 wee Target.Offset(0, 1) = Target Else Target.End(xlToRight) .Offset(0, 1) = Njedebe Target If Target.ClearContents Application.EnableEvents = Ezi Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Sub.

Ọ bụrụ na ọ dị mkpa, jiri nke gị dochie oke mmetụta dị nro nke ndepụta ndọpụta C2:C5 n'ahịrị nke abụọ nke koodu a.

Nhọrọ 2. kwụ ọtọ

Otu dị ka ọ dị na ụdị nke gara aga, mana agbakwunyeghị ụkpụrụ ahọpụtara ọhụrụ na aka nri, mana na ala:

A na-eme ya n'otu ụzọ ahụ, mana koodu macro onye njikwa na-agbanwe ntakịrị:

Nkeonwe Sub Worksheet_Change(ByVal Target As Range) Na Error Resume Next Ọ bụrụ na Ọ bụghị Intersect (Ezubere, Range("C2:F2")) Ọ dịghị Ihe Na Target.Cells.Count = 1 Mgbe ahụ Application.EnableEvents = Ụgha Ọ bụrụ Len(Target.Offset) (1, 0)) = 0 wee Target.Offset(1, 0) = Target Else Target.End(xlDown) .Offset(1, 0) = Njedebe Target If Target.ClearContents Application.EnableEvents = Ezi Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Sub.

Ọzọ, ọ bụrụ na ọ dị mkpa, jiri nke gị dochie nso nso dị nro nke C2:F2 n'ahịrị nke koodu a.

Nhọrọ 3. Na mkpokọta na otu cell

Na nhọrọ a, mkpokọta na-apụta n'otu cell ebe ndepụta ndọpụta dị. Ekewapụrụ ihe ndị ahọpụtara site na mkpụrụedemede ọ bụla enyere (dịka ọmụmaatụ, rikoma):

A na-emepụta ndepụta ndọpụ na sel ndụ ndụ n'ụzọ zuru oke, dịka na ụzọ ndị gara aga. A na-arụ ọrụ niile, ọzọ, site na nnukwu macro na modul mpempe akwụkwọ:

Nkeonwe Sub Worksheet_Change(ByVal Target As Range) Na Error Resume Next Ọ bụrụ na Ọ bụghị Intersect (Ezubere, Range("C2:C5")) Ọ dịghị Ihe Na Target.Cells.Count = 1 Mgbe ahụ Application.EnableEvents = Ụgha newVal = Ngwa Target.Udo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Mgbe ahụ Target = Target & "," & newVal Else Target = newVal End If Len(newVal) = 0 Mgbe ahụ Target.ClearContents Application.EnableEvents = Ezi Ọgwụgwụ Ọ bụrụ Ọgwụgwụ Sub

Ọ bụrụ na-ịchọrọ, ịnwere ike iji nke gị dochie akara nkewa (comma) na ahịrị 9th nke koodu (dịka ọmụmaatụ, oghere ma ọ bụ semicolon).

  • Otu esi emepụta ndepụta ndetu dị mfe na cell mpempe akwụkwọ Excel
  • Ndepụta mbelata nwere ọdịnaya
  • Ndepụta mwụda nwere nhọrọ efu agbakwunyere
  • Kedu ihe bụ macros, otu esi eji ha, ebe itinye koodu macro na Visual Basic

Nkume a-aza