የተጠራቀመ ሕዋስ (የተጠራቀመ)

ብዙ ጊዜ ብዙ እሴቶችን ማጠቃለል (ማሰባሰብ) ወደ አንድ ሕዋስ በቅደም ተከተል ሲገባ አንድ ሁኔታ ይፈጠራል።

እነዚያ። ለምሳሌ በሴል A1 ውስጥ ቁጥር 5 ን ካስገቡ ቁጥር 1 በ B15 ውስጥ መታየት አለበት. ከዚያ በ A1 ውስጥ ቁጥር 7 ን ካስገቡ, 1 በሴል B22 ውስጥ መታየት አለበት, ወዘተ. በአጠቃላይ ፣ ምን የሂሳብ ባለሙያዎች (እና እነሱ ብቻ አይደሉም) ድምር ድምር ብለው ይጠሩታል።

ቀላል ማክሮን በመጠቀም እንዲህ ዓይነቱን የማከማቻ ሕዋስ-አከማቸን መተግበር ይችላሉ. ሴሎች A1 እና B1 የሚገኙበት የሉህ ትር ላይ በቀኝ ጠቅ ያድርጉ እና ከአውድ ምናሌው ውስጥ ይምረጡ ምንጭ ጽሑፍ (ምንጭ ኮድ). በሚከፈተው የ Visual Basic አርታኢ መስኮት ውስጥ ቀላሉ ማክሮ ኮድ ይቅዱ እና ይለጥፉ።

የግል ንዑስ ሉህ_ቀይር(ByVal Target እንደ Excel.Range) ከዒላማ ጋር ከሆነ .አድራሻ(ሐሰት፣ ሐሰት) = "A1" ከዚያም ቁጥር ከሆነ (. እሴት) ከዚያም መተግበሪያ.EnableEvents = የውሸት ክልል ("A2"). እሴት = ክልል (" A2").እሴት + .የዋጋ አፕሊኬሽን.EnableEvents = እውነተኛ ፍጻሜ ካለቀ በመጨረሻ ንዑስ ንኡስ  

በእርግጥ የሴሎች A1 እና A2 አድራሻዎች በራስዎ ሊተኩ ይችላሉ።

የውሂብ ግቤትን መከታተል እና ነጠላ ሴሎችን ሳይሆን አጠቃላይ ክልሎችን ማጠቃለል ከፈለጉ ማክሮው በትንሹ መለወጥ አለበት።

የግል ንዑስ ሉህ_ለውጥ(ByVal Target እንደ Excel. ክልል) ካልተገናኘ (ዒላማ፣ ክልል("A1፡A10")) ምንም አይደለም ከዚያ ቁጥር (ዒላማ. እሴት) ከሆነ ከዚያ መተግበሪያ።EnableEvents = የውሸት ዒላማ።Offset(0፣ 1) .እሴት = ዒላማ.ኦፍሴት(0፣ 1)።እሴት + ዒላማ።የዋጋ አተገባበር።EnableEvents = እውነተኛ መጨረሻ ካለቀ ካለቀ ንዑስ ንዑስ  

መረጃው በክልል A1: A10 ሕዋሳት ውስጥ እንደገባ ይገመታል, እና የገቡት ቁጥሮች በቀኝ በኩል ባለው አግድም አምድ ውስጥ ይጠቃለላሉ. በእርስዎ ጉዳይ ላይ ከጎን ካልሆነ, በኦፍሴት ኦፕሬተር ውስጥ ወደ ቀኝ ያለውን ሽግግር ይጨምሩ - 1 ን በትልቁ ቁጥር ይተኩ.

• ማክሮዎች ምንድን ናቸው, በ VBA ውስጥ ማክሮ ኮድ የት እንደሚያስገባ, እንዴት እንደሚጠቀሙባቸው?