Аксар вақт вазъияте ба миён меояд, ки ба мо лозим меояд, ки якчанд арзишҳои пайдарпай ба як ячейка воридшударо ҷамъбаст кунем (ҷамъ кунем):
Онхое. агар, масалан, шумо рақами 1-ро дар чашмаки A5 ворид кунед, пас рақами 1 бояд дар B15 пайдо шавад. Агар шумо он гоҳ рақами 1-ро дар A7 ворид кунед, пас 1 бояд дар чашмаки B22 пайдо шавад ва ғайра. Умуман, он чизеро, ки муҳосибон (ва на танҳо онҳо) ҷамъи маҷмӯӣ меноманд.
Шумо метавонед бо истифода аз макросҳои оддӣ чунин аккумулятори нигоҳдорӣ амалӣ кунед. Дар ҷадвали варақ, ки дар он чашмакҳои A1 ва B1 ҷойгиранд, тугмаи рости мушро пахш кунед ва аз менюи контекстӣ интихоб кунед Матни манбаъ (Рамзи манбаъ). Дар равзанаи муҳаррири Visual Basic, ки кушода мешавад, рамзи макросҳои оддиро нусхабардорӣ ва часбонед:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Бо Ҳадаф Агар .Address(False, False) = "A1" Пас Агар IsNumeric(.Value) Он гоҳ Application.EnableEvents = Диапазони бардурӯғ("A2").Value = Диапазон(" A2").Value + .Value Application.EnableEvents = Охири ҳақиқӣ агар анҷом бошад, агар анҷом бошад, бо поёни зер Суроғаҳои ячейкаҳои A1 ва A2, албатта, метавонанд бо худ иваз карда шаванд.
Агар ба шумо лозим аст, ки воридшавии маълумотро пайгирӣ кунед ва на ячейкаҳои алоҳида, балки тамоми диапазонро ҷамъбаст кунед, пас макрос бояд каме тағир дода шавад:
Варақаи кории хусусӣ_Тағйир (Ҳадаф аз ҷониби Excel.Range) Агар бурида нашавад(Ҳадаф, Диапазон("A1:A10")) Ҳеҷ чиз нест, агар рақамӣ бошад(Ҳадаф.Арзиш) Пас Application.EnableEvents = Ҳадафи бардурӯғ.Offset(0, 1) .Арзиш = Ҳадаф. Офсет(0, 1).Арзиш + Ҳадаф.Арзиш Ариза.EnableEvents = Охири ҳақиқӣ Агар End Агар End Зер бошад Фарз карда мешавад, ки маълумот дар ячейкаҳои диапазони A1:A10 ворид карда мешавад ва рақамҳои воридшуда дар сутуни ҳамшафати тарафи рост ҷамъбаст карда мешаванд. Агар дар ҳолати шумо он ҳамсоя набошад, пас гузаришро дар оператори Офсет ба рост зиёд кунед - 1-ро бо рақами калонтар иваз кунед.
- Макросҳо чист, дар куҷо коди макро дар VBA дохил кардан мумкин аст, чӣ тавр истифода бурдани онҳо?