Ozi bara uru na ogwe ọkwa

Onye nwere mmasị, mana m n'onwe m chọrọ ogwe ọkwa naanị na ikpe 2-3:

  • mgbe nzacha, ọ na-egosiputa ọnụ ọgụgụ nke ụkpụrụ fọdụrụ mgbe nhọrọ
  • mgbe ahọpụtara oke, ọ na-egosiputa nchikota, nkezi, na ọnụọgụ sel ahọpụtara
  • n'ihe banyere faịlụ ndị dị arọ, ị nwere ike ịhụ ọganihu n'ịgbakọ usoro na akwụkwọ.

Ọ bụghị nke ukwuu maka ahịrị nke na-ewe ihe fọrọ nke nta ka ọ bụrụ obosara nke ihuenyo ahụ ma kwụgidere na ya mgbe niile. Ka anyị nwaa ịgbasa ndepụta dị ntakịrị ma tinye atụmatụ ole na ole bara uru na ya 🙂

Ụkpụrụ izugbe maka ijikwa ọkwa ọkwa

Iji Visual Basic ijikwa ogwe ọkwa dị mfe. Iji gosi ederede gị na ya, ị nwere ike iji nnukwu nnukwu:

Sub MyStatus() Ngwa.StatusBar = "Prивет!" Ọgwụgwụ Sub

Ozugbo emechara ya, anyị ga-enweta:

Ozi bara uru na ogwe ọkwa

Iji weghachi steeti izizi nke ọkwa ọkwa, ị ga-achọ otu “mgbochi macro” dị mkpirikpi:

Sub MyStatus_Off() Application.StatusBar = Sub End End

Na nsụgharị bụ isi, dị ka ị pụrụ ịhụ, ihe niile dị nnọọ mfe. Ugbu a, ka anyị gbalịa ịzụlite echiche…

Adreesị nso ahọpụtara na ogwe ọkwa

 N'akụkụ aka ekpe elu nke windo Excel na mmanya usoro, ị nwere ike ịhụ adreesị cell ugbu a mgbe niile. Ma ọ bụrụ na ahọpụtara usoro dum, mgbe ahụ, ọ dị mwute ikwu, anyị agaghị ahụ adreesị nhọrọ ebe ahụ - otu otu cell na-arụ ọrụ na-egosipụta:

Ozi bara uru na ogwe ọkwa

Iji dozie nsogbu a, ị nwere ike iji nnukwu macro dị mfe nke ga-egosipụta adreesị nke mpaghara ahọpụtara na ogwe ọkwa. Ọzọkwa, a ga-ewepụta nnukwu macro a na-akpaghị aka, yana mgbanwe ọ bụla na nhọrọ na mpempe akwụkwọ ọ bụla - maka nke a, anyị ga-etinye ya na onye na-ahụ maka ihe omume. Nhọrọ mgbanwe akwụkwọ anyị.

Mepee Visual Basic Editor site na iji bọtịnụ otu aha na taabụ Mmepụta (Onye Mmepụta) ma ọ bụ ụzọ mkpirisi ahụigodo Aka ekpe Alt+F11. Chọta akwụkwọ gị na akuku aka ekpe elu nke Project panel wee mepee modul na ya site na ịpị ugboro abụọ Akwụkwọ a (Akwụkwọ ọrụ a):

Na mpio mepere emepe, detuo na mado koodu macro a:

Nkeonwe Sub Workbook_SheetSelectionChange(ByVal Sh Dị Ka Ihe, ByVal Target Dị Ka Range) Ngwa.StatusBar = "Vыdeлено:" & Selection.Adreesị(0, 0) Ọgwụgwụ Sub.

Ugbu a, mgbe ahọpụtara oke ọ bụla (gụnyere ihe karịrị otu!), a ga-egosipụta adreesị ya na ogwe ọkwa:

Ozi bara uru na ogwe ọkwa

Iji gbochie adrees nke ọtụtụ ọkwa ahọpụtara na Ctrl ka ọ ghara imekọ ọnụ, ị nwere ike ịgbakwunye ntakịrị nkwalite - jiri ọrụ Dochie rịkọm jiri oghere dochie akara rịkọm:

Nkeonwe Sub Workbook_SheetSelectionChange(ByVal Sh Dị Ka Ihe, ByVal Target Dị Ka Range) Application.StatusBar = "Vыделено:" & Dochie (Nhọrọ.Adreesị(0, 0), ",",", ", ") Ọgwụgwụ Sub

Ọnụọgụ mkpụrụ ndụ ahọpụtara na ogwe ọkwa

Mgbe ahọpụtara oke ọ bụla, a na-egosipụta ọnụọgụ nke mkpụrụ ndụ anaghị efu n'akụkụ aka nri nke ogwe ọkwa na ndabara. Mgbe ụfọdụ, ị ga-achọ ịma ọnụọgụ nke ekenyela. Enwere ike ịrụzu ọrụ a site na nnukwu macro dị mfe iji jikwaa mmemme akwụkwọ SelectionChange, dịka ọ dị na ọmụmaatụ gara aga. Ị ga-achọ nnukwu macro dị ka:

Nkeonwe Sub Workbook_SheetSelectionChange(ByVal Sh Dị Ka Ihe, ByVal Target Dị Ka Range) Dim CellCount Dị Ka Variant, rng Dị Ka Range Maka rng ọ bụla Na Nhọrọ. Mpaghara 'Tinye site na nhọrọ niile RowsCount = rng.Rows.Count 'nọmba nke ahịrị kọlụm ColumnsCount = sng. . Gụọ 'ọnụọgụ nke kọlụm CellCount = CellCount + RowsCount * ColumnsCount' kpakọba ọnụ ọgụgụ nke mkpụrụ ndụ na-esote 'igosi n'ọkwa ọkwa Application.StatusBar = "Ahọpụtara:" & CellCount & "cell" Ọgwụgwụ Sub

Nke a macro loops site na mpaghara niile ahọpụtara Ctrl (ọ bụrụ na enwere ihe karịrị otu), na-echekwa ọnụọgụ ahịrị na ogidi na mpaghara ọ bụla na RowsCount na ColumnsCount variables, ma na-akwakọba ọnụ ọgụgụ nke mkpụrụ ndụ na mgbanwe CellCount, nke egosipụtara. na ọnọdụ mmanya. N'ebe ọrụ ọ ga-adị ka nke a:

Ozi bara uru na ogwe ọkwa

N'ezie, ị nwere ike ijikọta nke a na macro gara aga iji gosipụta ma adreesị nke oke ahọpụtara na ọnụ ọgụgụ nke sel n'otu oge. Naanị ị ga-achọ ịgbanwe otu ahịrị penultimate ka ọ bụrụ:

Ngwa.ỌnọdụOgwe = "Ahọpụtara:" & Dochie (Nhọrọ.Adreesị(0, 0), ","," ", ") &" - ​​mkpokọta" & CellCount & "cell"

Mgbe ahụ foto ahụ ga-adị ezigbo mma:

Ozi bara uru na ogwe ọkwa

Ọfọn, echere m na ị ghọtara echiche ahụ. Tụọ aro na nkwupụta - kedu ihe ọzọ ga-aba uru iji gosipụta na ogwe ọkwa?

  • Kedu ihe bụ macros, ka ha si arụ ọrụ, otu esi eji ma mepụta ha
  • Nhọrọ nhazi dị mma na mpempe akwụkwọ Excel
  • Otu esi eme ka usoro mgbagwoju anya dịkwuo anya

Nkume a-aza