ọdịnaya
Edere m ụzọ maka otu ị ga-esi gbanye ngwa ngwa site na ọtụtụ mkpụrụ ndụ n'ime otu ma, n'aka nke ọzọ, tụgharịa ogologo eriri ederede ka ọ bụrụ akụkụ. Ugbu a, ka anyị leba anya n'ọrụ nso, mana dịtụ mgbagwoju anya - otu esi ejikọta ederede site na ọtụtụ mkpụrụ ndụ mgbe otu ọnọdụ akọwapụtara.
Ka anyị kwuo na anyị nwere nchekwa data nke ndị ahịa, ebe otu aha ụlọ ọrụ nwere ike ịdekọrịta ozi ịntanetị dị iche iche nke ndị ọrụ ya. Ọrụ anyị bụ ịnakọta adreesị niile site na aha ụlọ ọrụ wee jikọta ha (nkewapụrụ site na rịkọm ma ọ bụ semicolon) iji mee, dịka ọmụmaatụ, ndepụta nzipu ozi maka ndị ahịa, ya bụ nweta mmepụta ihe dị ka:
N'ikwu ya n'ụzọ ọzọ, anyị chọrọ ngwá ọrụ nke ga-ejikọta (njikọ) ederede dịka ọnọdụ - analogue nke ọrụ ahụ SUMMESLI (SUMIF), mana maka ederede.
Usoro 0. Usoro
Ọ bụghị nke ukwuu mara, ma ụzọ kacha mfe. Ị nwere ike dee usoro dị mfe nke ga-elele ma ụlọ ọrụ dị n'ahịrị na-esote dị iche na nke gara aga. Ọ bụrụ na ọ naghị adị iche, wee gbakwunye adreesị na-esote nke rikoma kewapụrụ. Ọ bụrụ na ọ dị iche, mgbe ahụ, anyị "tọgharịa" achịkọba, malite ọzọ:
Ihe ọghọm nke ụzọ a doro anya: site na sel niile nke kọlụm ọzọ enwetara, anyị chọrọ naanị ndị ikpeazụ maka ụlọ ọrụ ọ bụla (edo edo). Ọ bụrụ na ndepụta ahụ buru ibu, mgbe ahụ iji họrọ ha ngwa ngwa, ị ga-etinye kọlụm ọzọ site na iji ọrụ ahụ DLSTR (LEN), na-enyocha ogologo eriri ndị a chịkọbara:
Ugbu a ị nwere ike yochaa ndị ahụ ma detuo gluing adreesị dị mkpa maka iji ọzọ.
Usoro 1. Macrofunction nke gluing site na otu ọnọdụ
Ọ bụrụ na ahazighị ndepụta mbụ site na ụlọ ọrụ, mgbe ahụ usoro dị mfe dị n'elu anaghị arụ ọrụ, mana ị nwere ike ịgafe obere ọrụ omenala na VBA ngwa ngwa. Mepee Visual Basic Editor site na ịpị ụzọ mkpirisi ahụigodo F11 dị elu ma ọ bụ iji bọtịnụ visual Basic tab Mmepụta (Onye Mmepụta). Na mpio mepere emepe, tinye modul ọhụrụ efu site na menu Fanye – Modul ma detuo ederede nke ọrụ anyị ebe ahụ:
Function MergeIf(TextRange As Range, SearchRange As Range, Condition As String) Dim Delimeter As String, i As Long Delimeter = "," gluings are not equal to each other - we exit with an error If SearchRange.Count <> TextRange.Count Mgbe ahụ MergeIf = CVERr(xlErrRef) Ọgwụgwụ ọrụ ọpụpụ Ọ bụrụ na 'gafee na sel niile, lelee ọnọdụ wee nakọta ederede na agbanwe OutText For i = 1 Iji SearchRange. Cells.Gụta Ọ bụrụ SearchRange.Cells(i) Dị ka Ọnọdụ Mgbe ahụ OutText = OutText & TextRange.Cells(i) & Delimeter Ọzọ i 'gosipụta nsonaazụ na-enweghị ikpeazụ delimiter MergeIf = Left(OutText, Len(OutText) - Len(Delimeter)) Ọgwụgwụ ọrụ
Ọ bụrụ na ịlaghachi na Microsoft Excel ugbu a, na listi ọrụ (bọtịnụ fx na usoro mmanya ma ọ bụ taabụ Ụdị - Fanye ọrụ) ọ ga-ekwe omume ịchọta ọrụ anyị JikotaỌ bụrụ n'ụdị Akọwapụtara Onye Ọrụ (Kwapụtara onye ọrụ). Arụmụka maka ọrụ ahụ bụ ndị a:
Usoro 2. Gwakọta ederede site na ọnọdụ na-ezighi ezi
Ọ bụrụ na anyị dochie akpa agwa na 13th akara nke nnukwu anyị = nye onye na-arụ ọrụ egwuregwu dị nso Dị ka, mgbe ahụ, ọ ga-ekwe omume ịme gluing site na egwuregwu na-ezighi ezi nke data mbụ na akara nhọrọ. Dịka ọmụmaatụ, ọ bụrụ na enwere ike dee aha ụlọ ọrụ ahụ n'ụdị dị iche iche, mgbe ahụ anyị nwere ike ịlele ma kpokọta ha niile na otu ọrụ:
A na-akwado kaadị egwu egwu:
- akara mmuke (*) - na-egosi ọnụọgụ mkpụrụedemede ọ bụla (gụnyere enweghị ha)
- akara ajụjụ (?) - na-anọchi anya otu agwa ọ bụla
- akara paụnd (#) - na-anọchi anya otu nkeji ọ bụla (0-9)
Site na ndabara, onye na-arụ ọrụ dị ka ọ na-enwe mmetụta dị nro, ntụgharị, dịka ọmụmaatụ, "Orion" na "orion" dịka ụlọ ọrụ dị iche iche. Iji leghara ikpe anya, ị nwere ike ịgbakwunye ahịrị na mmalite nke modul na Visual Basic editọ Nhọrọ Tulee Ederede, nke ga-agbanwe Dị ka enweghị mmetụta.
N'ụzọ dị otú a, ị nwere ike ide ihe mkpuchi dị mgbagwoju anya maka ịlele ọnọdụ, dịka ọmụmaatụ:
- ?1##??777RUS - nhọrọ nke akara ikike niile nke mpaghara 777, malite na 1.
- LLC * - ụlọ ọrụ niile aha ha malitere na LLC
- ##7## - ngwaahịa niile nwere koodu dijitalụ nwere ọnụọgụ ise, ebe ọnụọgụ atọ bụ 7
- ????? – aha niile nke mkpụrụedemede ise, wdg.
Usoro 3. Ọrụ Macro maka gluing ederede n'okpuru ọnọdụ abụọ
N'ime ọrụ ahụ enwere ike inwe nsogbu mgbe ịchọrọ ijikọ ederede karịa otu ọnọdụ. Dịka ọmụmaatụ, ka anyị were ya na na tebụl anyị gara aga, agbakwunyere otu kọlụm na obodo ahụ, na gluing kwesịrị ịrụ ọ bụghị naanị maka ụlọ ọrụ nyere, kamakwa maka obodo nyere. N'okwu a, a ga-emeziwanye ọrụ anyị site n'ịgbakwunye nlele ọzọ na ya:
Ọrụ MergeIfs (TextRange dị ka oke, SearchRange1 dị ka oke, ọnọdụ1 dị ka eriri, SearchRange2 Dị ka Range, Condition2 Dị ka eriri) Dim Delimeter As String, i As Long Delimeter = ","" mkpụrụedemede (nwere ike dochie ya na oghere ma ọ bụ ; wdg) e.) 'If the validation and gluing ranges are not equal to each other, exit with an error If SearchRange1.Count <> TextRange.Count Or SearchRange2.Count <> TextRange.Count Mgbe ahụ MergeIfs = CVERr (xlErrRef) Wepụ Ọrụ Ọgwụgwụ Ọ bụrụ 'Gaa n'ime sel niile, lelee ọnọdụ niile wee chịkọta ederede n'ime mgbanwe OutText Maka i = 1 To SearchRange1.Cells.Count If SearchRange1.Cells(i) = Condition1 And SearchRange2.Cells(i) = Condition2 Mgbe ahụ OutText = OutText & TextRange.Cells(i) & Delimeter Ọgwụgwụ ma ọ bụrụ na-esote m 'gosipụta nsonaazụ na-enweghị njedebe ikpeazụ MergeIfs = Aka ekpe(OutText, Len(OutText) - Len(Delimeter)) Ọrụ Ọgwụgwụ
A ga-etinye ya n'ọrụ n'otu ụzọ ahụ - naanị arụmụka ugbu a kwesịrị ịkọwapụta karịa:
Usoro 4. Nchịkọta na gluing na ajụjụ ike
Ị nwere ike dozie nsogbu ahụ na-enweghị mmemme na VBA, ma ọ bụrụ na ị na-eji ntinye ajụjụ ike efu efu. Maka Excel 2010-2013 enwere ike ibudata ya ebe a, na Excel 2016 etinyere ya na ndabara. Usoro nke omume ga-abụ dị ka ndị a:
Ajụjụ ike amaghị ka esi arụ ọrụ na tebụl mgbe niile, yabụ nzọụkwụ mbụ bụ ịtụgharị tebụl anyị ka ọ bụrụ “smart”. Iji mee nke a, họrọ ya wee pịa nchikota Ctrl+T ma ọ bụ họrọ site na taabụ Ụlọ - Ụdị dị ka tebụl (Ụlọ - Ụdị dị ka tebụl). Na taabụ na-apụta mgbe ahụ Onye isi ike (Kere) ị nwere ike ịtọ aha tebụl (m hapụrụ ọkọlọtọ Isiokwu 1):
Ugbu a, ka anyị wụnye tebụl anyị n'ime ntinye ajụjụ ike. Iji mee nke a, na taabụ data (ọ bụrụ na ị nwere Excel 2016) ma ọ bụ na taabụ ajụjụ ike (ọ bụrụ na ị nwere Excel 2010-2013) pịa Site na tebụl (Data - Site na tebụl):
Na mpio nchịkọta akụkọ ajụjụ na-emepe, họrọ kọlụm site na ịpị nkụnye eji isi mee Company wee pịa bọtịnụ dị n'elu Group (Ndị otu). Tinye aha kọlụm ọhụrụ na ụdị ọrụ dị na mkpokọta - Ahịrị niile ( Ahịrị niile):
Pịa OK ma anyị ga-enweta obere tebụl nke ụkpụrụ akpọrọ maka ụlọ ọrụ ọ bụla. A na-ahụ ihe dị n'ime tebụl ahụ nke ọma ma ọ bụrụ na ị pịa aka ekpe na ndabere ọcha nke sel (ọ bụghị na ederede!) na kọlụm ga-apụta:
Ugbu a, ka anyị tinye otu kọlụm ọzọ, ebe, na-eji ọrụ ahụ, anyị na-ejikọta ọdịnaya nke ogidi Adreesị na tebụl nke ọ bụla, nke rịkọm kewapụrụ. Iji mee nke a, na taabụ Tinye kọlụm anyị pịa Kọlụm omenala (Tinye kọlụm - kọlụm omenala) na na mpio nke pụtara, tinye aha kọlụm ọhụrụ na usoro njikọ dị n'asụsụ M wuru n'ime ajụjụ ike:
Rịba ama na ọrụ M niile nwere mmetụta ikpe (n'adịghị ka Excel). Mgbe ịpịrị OK anyị na-enweta kọlụm ọhụrụ nwere adreesị glued:
Ọ ka dị ka iwepu kọlụm na-adịghị mkpa Adreesị tebụl (pịa aka nri na aha) Hichapụ kọlụm) ma bulite nsonaazụ ya na mpempe akwụkwọ site na ịpị taabụ Ụlọ - Mechie na budata (Ụlọ - mechie na ibu):
Nuance dị mkpa: N'adịghị ka ụzọ gara aga (ọrụ), a naghị emelite tebụl sitere na ajụjụ ike na-akpaghị aka. Ọ bụrụ na n'ọdịnihu a ga-enwe mgbanwe ọ bụla na data isi mmalite, mgbe ahụ, ị ga-achọ ịpị aka nri ebe ọ bụla na tebụl nsonaazụ wee họrọ iwu ahụ. Melite & Chekwa (Tinye ume).
- Otu esi kewaa eriri ederede ogologo n'ime akụkụ
- Otutu ụzọ esi ejikọta ederede sitere na sel dị iche iche n'ime otu
- Iji onye ọrụ Like iji nwalee ederede megide nkpuchi