Detuo nchikota sel ahọpụtara na Klipbọọdụ

Mgbe ụfọdụ ọ na-ewe ogologo oge iji chepụta ihe ụfọdụ. Ma mgbe a na-emepụtalarị ha, mgbe eziokwu ahụ gasịrị, ha dị ka ihe doro anya na ọbụna banal. Site na usoro "gịnị, ọ ga-ekwe omume?".

Site na ụdị nke mbụ, ogwe ọkwa dị na ala nke mpio Microsoft Excel gosipụtara mkpokọta mkpụrụ ndụ ahọpụtara nke ọma:

Detuo nchikota sel ahọpụtara na Klipbọọdụ

Ọ bụrụ na achọrọ, ọ ga-ekwe omume ịpị aka nri na nsonaazụ ndị a wee họrọ na menu onodu nke ọma nke ọrụ anyị chọrọ ịhụ:

Detuo nchikota sel ahọpụtara na Klipbọọdụ

Na nso nso a, na mmelite Excel kachasị ọhụrụ, ndị mmepe Microsoft gbakwunyere atụmatụ dị mfe ma mara mma - ugbu a mgbe ị pịrị nsonaazụ ndị a, a na-e copyomi ha na bọọdụ ahụ!

Detuo nchikota sel ahọpụtara na Klipbọọdụ

Mma. 

Ma gịnị banyere ndị na-enwebeghị ụdị Excel dị otú ahụ? Nke a bụ ebe macros dị mfe nwere ike inyere aka.

Na-eji nnukwu macro na-edegharị nchikota mkpụrụ ndụ ahọpụtara na Klipbọọdụ

Mepee na taabụ Mmepụta (Onye Mmepụta) nchịkọta akụkọ visual Basic ma ọ bụ jiri ụzọ mkpirisi ahụigodo a Alt+F11. Fanye modul ọhụrụ efu site na menu Fanye – Modul ma detuo koodu a ebe ahụ:

Sub SumSelected() If TypeName(Nhọrọ) <> "Range" Wee Wepụ Sub With GetObject("Ọhụrụ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Nhọrọ) .PutIn End With Sublipboard

Echiche ya dị mfe:

  • Nke mbụ na-abịa "nchedo site n'aka onye nzuzu" - anyị na-enyocha ihe kpọmkwem egosipụtara. Ọ bụrụ na ahọpụtaghị sel (mana, dịka ọmụmaatụ, eserese), wee pụọ na nnukwu.
  • Wee jiri iwu ahụ Getobject anyị na-emepụta ihe ọhụrụ data ebe a ga-echekwa nchikota nke mkpụrụ ndụ ahọpụtara ma emechaa. Koodu mkpụrụedemede ogologo na nke na-enweghị nghọta bụ, n'ezie, njikọ na ngalaba ndekọ Windows ebe ọbá akwụkwọ ahụ dị. Ụdị Microsoft 2.0 Ọbá akwụkwọ Ihe, nke nwere ike ịmepụta ihe ndị dị otú ahụ. Mgbe ụfọdụ, a na-akpọkwa aghụghọ a njide oge na-ezighi ezi. Ọ bụrụ na ijighị ya, mgbe ahụ, ị ​​​​ga-eme njikọ na ọba akwụkwọ a na faịlụ site na menu Ngwaọrụ - Ntụaka.
  • A na-ewere nchikota nke mkpụrụ ndụ ahọpụtara dị ka iwu Ọrụ mpempe akwụkwọ.Sum(Nhọrọ), wee tinye ego ga-esi na ya pụta na klipbọọdụ yana iwu PutInClipboard

Maka ịdị mfe iji, ị nwere ike, n'ezie, kenye nnukwu macro a na ụzọ mkpirisi ahụigodo site na iji bọtịnụ Macros tab Mmepụta (Onye Mmepụta - Macros).

Ma ọ bụrụ na ịchọrọ ịhụ ihe e depụtaghachiri n'ụzọ zuru ezu mgbe ị gbasasịrị nnukwu, ị nwere ike gbanye panel Clipboard site na iji obere akụ dị na akuku aka nri ala nke otu kwekọrọ na ya. isi (Ulo) taabụ:

Detuo nchikota sel ahọpụtara na Klipbọọdụ

Ọ bụghị naanị ego

Ọ bụrụ na, na mgbakwunye na ego banal, ịchọrọ ihe ọzọ, mgbe ahụ ị nwere ike iji ọrụ ọ bụla nke ihe ahụ na-enye anyị. Ọrụ mpempe akwụkwọ:

Detuo nchikota sel ahọpụtara na Klipbọọdụ

Dịka ọmụmaatụ, enwere:

  • Nchikota - nchikota
  • Nkezi – pụtara mgbakọ na mwepụ
  • Ọnụọgụ - ọnụ ọgụgụ nke sel nwere ọnụọgụ
  • CountA - ọnụ ọgụgụ nke mkpụrụ ndụ jupụtara
  • CountBlank – ọnụ ọgụgụ nke mkpụrụ ndụ efu
  • Obere – uru kacha nta
  • Oke - uru kachasị
  • Ọkara – etiti (ọnụ ahịa etiti)
  • … Wdg.

Gụnyere nzacha na kọlụm ahịrị zoro ezo

Gịnị ma ọ bụrụ na ahịrị ma ọ bụ ogidi ezoro ezo (aka ma ọ bụ site na nzacha) na oke ahọpụtara? Ka anyị ghara iburu ha n'uche na mkpokọta, anyị ga-achọ ka anyị gbanwee koodu anyị ntakịrị site na ịgbakwunye ihe ahụ nhọrọ onwunwe SpecialCells(xlCell ụdị a na-ahụ anya):

Sub SumVisible() If TypeName(Nhọrọ) <> "Range" Mgbe ahụ Wepụ Sub With GetObject("Ọhụrụ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.xl(Selection.SpecialCell)T PutInClipboard Ọgwụgwụ na Sub

N'okwu a, a ga-etinye ngụkọ nke ọrụ mkpokọta ọ bụla na mkpụrụ ndụ a na-ahụ anya.

Ọ bụrụ na ịchọrọ usoro ndụ

Ọ bụrụ na ị rọrọ nrọ, ị nwere ike ịbịa na ọnọdụ mgbe ọ ka mma ịdepụta ọ bụghị ọnụ ọgụgụ (mgbe niile), kama usoro ndụ n'ime ihe nchekwa ahụ, nke na-agbakọ mkpokọta anyị chọrọ maka sel ndị ahọpụtara. N'okwu a, ị ga-ejikọta usoro ahụ site na iberibe, na-agbakwụnye na ya iwepụ akara dollar na dochie akara akara (nke a na-eji dị ka onye na-ekewa n'etiti adreesị nke ọtụtụ ọnụọgụ ahọpụtara na VBA) na semicolon:

Sub SumFormula() Ọ bụrụ TypeName(Nhọrọ) <> "Range" Mgbe ahụ Wepụ Sub With GetObject("Ọhụrụ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "= СУММ(" & Dochie(.Sele) Adreesị, ","," ";"), "$", "") & ")" .PutInClipboard Ọgwụgwụ na Sub Ọgwụgwụ.

Nchịkọta nwere ọnọdụ ndị ọzọ

Na, n'ikpeazụ, maka maniacs kpamkpam, ị nwere ike dee nnukwu macro nke ga-achịkọta ọ bụghị mkpụrụ ndụ niile ahọpụtara, kama ọ bụ naanị ndị na-emeju ọnọdụ ndị ahụ. Yabụ, dịka ọmụmaatụ, nnukwu macro ga-adị ka nke ahụ na-etinye nchikota mkpụrụ ndụ ahọpụtara n'ime ihe nchekwa, ma ọ bụrụ na ụkpụrụ ha karịrị 5 ma n'otu oge ahụ juputara na agba ọ bụla:

 Sub CustomCalc() Dim myRange As Range If TypeName(Selection) <> "Range" Mgbe ahụ Wepụ Sub For Every cell In Selection If cell.Value> 5 And cell.Interior.ColorIndex <> xlNone Mgbe ahụ Ọ bụrụ na myRange bụ Ọ dịghị ihe ahụ Set myRange = cell Else Set myRange = Union(myRange, cell) Ọgwụgwụ ma ọ bụrụ na ọ bụrụ na-esote cell na GetObject("Ọhụrụ:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) . Na Ọgwụgwụ SubClipboard

Dị ka ị nwere ike iche n'ụzọ dị mfe, enwere ike ịtọ ọnọdụ ọ bụla - ruo usoro cell - yana n'ụdị ọ bụla (gụnyere site na ijikọta ha na ndị ọrụ ezi uche ma ọ bụ na). Enwere otutu ohere maka iche echiche.

  • Tụgharịa usoro ka ọ bụrụ ụkpụrụ (ụzọ 6)
  • Kedu ihe bụ macros, otu esi eji ha, ebe itinye koodu Visual Basic
  • Ozi bara uru na ogwe ọkwa nke Microsoft Excel

Nkume a-aza