Tse ka Hare
Ka linako tse ling ho nka nako e telele ho etsa lintho tse itseng. Empa ha li se li qapiloe, kamora 'nete li bonahala li hlakile ebile li bile li banal. Ho tsoa letotong la "eng, ho ne ho ka khoneha?".
Ho tloha liphetolelong tsa pele, sebaka se ka tlase ho fensetere ea Microsoft Excel se ne se bontša kakaretso ea lisele tse khethiloeng:
Haeba o lakatsa, ho ne ho ka khoneha ho tobetsa liphetho tsena ka ho le letona ebe u khetha ho tsoa ho menyu ea litaba hore na ke mesebetsi efe eo re batlang ho e bona:
Haufinyane tjena, lintlafatsong tsa morao-rao tsa Excel, bahlahisi ba Microsoft ba kentse tšobotsi e bonolo empa e le bohlale - joale ha o tobetsa liphetho tsena, li kopitsoa ho clipboard!
Botle.
Empa ho thoe'ng ka ba e-so be (kapa ba seng ba ntse ba e-na le mofuta o joalo oa Excel?) Mona ke moo li-macros tse bonolo li ka thusang.
Ho kopitsa kakaretso ea lisele tse khethiloeng ho Clipboard ho sebelisa macro
Bula ho tab Moqapi (Moetsi) mohlophisi Visual Basic kapa sebelisa sekhechana sena sa keyboard Alt+F11. Kenya module e ncha e se nang letho ka menu Kenya – Mojule ebe u kopitsa khoutu e latelang moo:
Sub SumSelected() Haeba TypeName(Khetho) <> "Range" Ebe O Tsoa Sub With GetObject("Ncha:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection Sublipboard) EndIn SubClipboard . Monahano oa eona o bonolo:
- Pele ho tla "ts'ireletso ho leoatla" - re hlahloba hore na hantle-ntle ho totobalitsoe eng. Haeba lisele li sa khethoe (empa, mohlala, chate), joale tsoa ho macro.
- Ebe u sebelisa taelo Getobject re theha ntho e ncha ea data moo kakaretso ea lisele tse khethiloeng e tla bolokoa hamorao. Khoutu e telele le e sa utloisiseheng ea alphanumeric ha e le hantle ke sehokelo sa lekala la Windows registry moo laeborari e leng teng. Microsoft Forms 2.0 Object Library, e ka etsang lintho tse joalo. Ka linako tse ling leqheka lena le boetse le bitsoa tlamahano ya morao tjena. Haeba u sa e sebelise, u tla tlameha ho etsa sehokelo sa laeborari ena faeleng ka menu Lisebelisoa - Litšupiso.
- Kakaretso ea lisele tse khethiloeng e nkoa e le taelo Mosebetsi oa Leqephe la Mosebetsi.Kakaretso(Khetho), ebe chelete e hlahisoang e behoa holim'a clipboard ka taelo PutInClipboard
Bakeng sa ts'ebeliso e bonolo, ehlile, u ka abela macro ena ho sekhechana sa keyboard u sebelisa konopo makhro tab ya Moqapi (Moetsi - Macros).
'Me haeba u batla ho bona hore na hantle-ntle ho kopitsoe eng ka mor'a ho tsamaisa macro, u ka bulela karolo ea Clipboard u sebelisa motsu o monyane k'honeng e ka tlase ho le letona la sehlopha se tsamaisanang le sona. ba ka sehloohong (Lehae) tabo:
Eseng feela chelete
Haeba, ho phaella ho palo ea banal, u batla ntho e 'ngoe, joale u ka sebelisa leha e le efe ea mesebetsi eo ntho e re fang eona. Mosebetsi oa Leqephe la Mosebetsi:
Ka mohlala, ho na le:
- Kakaretso - kakaretso
- Karolelano - moelelo oa lipalo
- Bala - palo ea lisele tse nang le linomoro
- CountA - palo ea lisele tse tlatsitsoeng
- CountBlank - palo ea lisele tse se nang letho
- Min - boleng ba bonyane
- Max - boleng bo phahameng
- Median - median (boleng bo bohareng)
- … Jj.
Ho thoe'ng haeba mela kapa likholomo li patiloe (ka letsoho kapa ka sefe) sebakeng se khethiloeng? E le hore re se ke ra li ela hloko ka kakaretso, re tla hloka ho fetola khoutu ea rona hanyenyane ka ho eketsa ntho e itseng. Selection thepa SpecialCells(xlCellTypeVisible):
Sub SumVisible() Haeba TypeName(Khetho) <> "Range" Ebe O Tsoa Sub With GetObject("Ncha:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(Selection.Vil Cellpell)Type(Selection.Vil Cell) PutInClipboard End With End Sub Tabeng ena, palo ea mosebetsi ofe kapa ofe o feletseng o tla sebelisoa ho lisele tse bonahalang feela.
Haeba u hloka foromo e phelang
Haeba u lora, u ka tla ka maemo ha ho le molemo ho kopitsa eseng palo (kamehla), empa mokhoa o phelang ka har'a buffer, e balang lipalo-palo tseo re li hlokang bakeng sa lisele tse khethiloeng. Tabeng ena, o tla tlameha ho khomarela foromo ho tloha likhechana, ho ekelletsa ho eona ho tlosoa ha matšoao a lidolara le ho nkela koma (e sebelisoang e le karohano pakeng tsa liaterese tsa mefuta e mengata e khethiloeng ho VBA) ka semicolon:
SubSumFormula() Haeba TypeName(Kgetho) <> "Range" Ebe O Tsoa Sub Ka GetObject("Ncha:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "=СУММ(" & Phenya(Fetola(Khetho. Aterese, ",", ";"), "$", "") & ")" .PutInClipboard End With End Sub Kakaretso e nang le maemo a eketsehileng
'Me, qetellong, bakeng sa maniacs ka ho feletseng, u ka ngola macro e ke keng ea akaretsa lisele tsohle tse khethiloeng, empa feela tse khotsofatsang maemo a fanoeng. Kahoo, ho etsa mohlala, macro e tla shebahala joalo ka e behang kakaretso ea lisele tse khethiloeng ho Buffer, haeba litekanyetso tsa tsona li le kholo ho feta 5 mme ka nako e ts'oanang li tlatsitsoe ka 'mala ofe kapa ofe:
Sub CustomCalc() Dim myRange Joalo ka Range Haeba TypeName(Khetho) <> "Range" Ebe U Tsoa Sub Bakeng sa sele e 'ngoe le e 'ngoe e Khethang Haeba cell.Value > 5 Le cell.Interior.ColorIndex <> xlNone Joale Haeba myRange E se Letho Joale Seta myRange = cell Else Set myRange = Union(myRange, cell) End If End if Next cell With GetObject("Ncha:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) . EndPutInClipboard Joalo ka ha u ka inahanela habonolo, maemo a ka hlophisoa ka botlalo - ho fihla ho liforomo tsa lisele - le ka bongata bofe kapa bofe (ho kenyeletsoa ka ho li hokahanya hammoho le li-operators tse utloahalang kapa kapa le). Ho na le sebaka se sengata sa ho inahanela.
- Fetolela liforomo ho boleng (litsela tse 6)
- Li-macros ke eng, li ka sebelisoa joang, moo u ka kenyang khoutu ea Visual Basic
- Tlhahisoleseding e sebetsang bareng ea maemo ea Microsoft Excel