සමුච්චිත සෛල (සමුච්චිත)

බොහෝ විට, අපට එක් සෛලයකට අනුපිළිවෙලින් ඇතුළත් කළ අගයන් කිහිපයක් සාරාංශ කිරීමට (එකතු කිරීමට) අවශ්‍ය වූ විට තත්වයක් පැන නගී:

එම. උදාහරණයක් ලෙස, ඔබ A1 කොටුවේ අංක 5 ඇතුළත් කළහොත්, අංක 1 B15 හි දිස්විය යුතුය. ඔබ A1 හි අංක 7 ඇතුළත් කළහොත්, 1 කොටුව B22 හි දිස්විය යුතුය, සහ යනාදිය. පොදුවේ ගත් කල, ගණකාධිකාරීවරුන් (සහ ඔවුන් පමණක් නොව) සමුච්චිත එකතුවක් ලෙස හඳුන්වන දේ.

ඔබට සරල සාර්වයක් භාවිතයෙන් එවැනි ගබඩා සෛල සමුච්චයක් ක්රියාත්මක කළ හැකිය. A1 සහ B1 සෛල පිහිටා ඇති පත්‍ර ටැබය මත දකුණු-ක්ලික් කර සන්දර්භය මෙනුවෙන් තෝරන්න මූලාශ්ර පාඨය (ප්රභව කේතය). විවෘත වන දෘශ්‍ය මූලික සංස්කාරක කවුළුව තුළ, සරල සාර්ව කේතය පිටපත් කර අලවන්න:

පුද්ගලික උප වැඩ පත්‍රිකාව_වෙනස් කිරීම(ByVal Target as Excel.Range) නම් .Address(False, False) = "A1" එවිට සංඛ්‍යාත්මක නම්(.Value) නම් Application.EnableEvents = වැරදි පරාසය("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End With End With End Sub  

සෛල A1 සහ A2 ලිපිනයන්, ඇත්ත වශයෙන්ම, ඔබේම දෑ සමඟ ප්රතිස්ථාපනය කළ හැකිය.

ඔබට දත්ත ඇතුළත් කිරීම නිරීක්ෂණය කිරීමට සහ තනි සෛල නොව සම්පූර්ණ පරාසයන් සාරාංශ කිරීමට අවශ්‍ය නම්, සාර්ව තරමක් වෙනස් කිරීමට සිදුවේ:

Private Sub Worksheet_Change(ByVal Target as Excel.Range) අන්තර් ඡේදනය නොවන්නේ නම්(ඉලක්කය, පරාසය("A1:A10")) කිසිවක් නැත එවිට සංඛ්‍යාත්මක නම්(ඉලක්ක.අගය) නම් Application.EnableEvents = False Target.Offset(0, 1) .Value = Target.Offset(0, 1).Value + Target.Value Application.EnableEvents = True End If End If End Sub  

A1:A10 පරාසයේ සෛල තුළ දත්ත ඇතුළත් කර ඇති බව උපකල්පනය කර ඇති අතර, ඇතුළත් කළ අංක දකුණේ යාබද තීරුවේ සාරාංශ කර ඇත. ඔබගේ නඩුවේදී එය යාබදව නොමැති නම්, ඕෆ්සෙට් ක්රියාකරු තුළ දකුණට මාරුවීම වැඩි කරන්න - 1 විශාල සංඛ්යාවක් සමඟ ප්රතිස්ථාපනය කරන්න.

• මැක්‍රෝස් යනු කුමක්ද, VBA හි මැක්‍රෝ කේතය ඇතුළත් කළ යුත්තේ කොතැනින්ද, ඒවා භාවිතා කරන්නේ කෙසේද?