Ихэнхдээ нэг нүдэнд дараалан оруулсан хэд хэдэн утгыг нэгтгэх (хуримтлуулах) шаардлагатай нөхцөл байдал үүсдэг.
Тэдгээр. жишээ нь, хэрэв та А1 нүдэнд 5-ийн тоог оруулбал B1-д 15-ийн тоо гарч ирнэ. Хэрэв та A1-д 7-ийн тоог оруулбал B1 нүдэнд 22 гэсэн тоо гарч ирнэ. Ерөнхийдөө нягтлан бодогчид (зөвхөн тэд ч биш) хуримтлагдсан нийлбэр гэж нэрлэдэг.
Та ийм хадгалах эсийн аккумляторыг энгийн макро ашиглан хэрэгжүүлж болно. A1 ба B1 нүднүүд байрлах хуудасны таб дээр хулганы баруун товчийг дараад контекст цэснээс сонгоно уу Эх текст (Эх код). Нээгдэх Visual Basic редакторын цонхонд энгийн макро кодыг хуулж буулгана уу:
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Зорилтот бол .Address(False, False) = "A1" Дараа нь хэрэв IsNumeric(.Value) бол Application.EnableEvents = False Range("A2").Value = Range(" A2").Value + .Value Application.EnableEvents = True End If End If End End Sub. Мэдээжийн хэрэг, A1 ба A2 нүдний хаягийг өөрийн хаягаар сольж болно.
Хэрэв та өгөгдлийн оруулгыг хянаж, бие даасан нүднүүдийг биш, харин бүх хүрээг нэгтгэн дүгнэх шаардлагатай бол макро бага зэрэг өөрчлөх шаардлагатай болно.
Private Sub Worksheet_Change(Excel.Range-ийн дагуу зорилтот талбар) Хэрэв огтлолцоогүй бол(Target, Range("A1:A10")) Хэрэв тоон(Target.Value) байвал юу ч биш, 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-д макро кодыг хаана оруулах, тэдгээрийг хэрхэн ашиглах вэ?