Unug isugeeyey (isugeeyey)

Contents

Inta badan, xaalad ayaa soo baxda marka aan u baahanahay inaan soo koobno ​​(ururno) dhowr qiyam oo si isku xigta loo galo hal unug:

Kuwaas. Haddii, tusaale ahaan, aad geliso lambarka 1 ee unugga A5, markaas lambarka 1 waa inuu ka soo muuqdaa B15. Haddii aad markaas geliso lambarka 1 ee A7, markaas 1 waa inuu ka soo muuqdaa unugga B22, iyo wixii la mid ah. Guud ahaan, waxa xisaabiyayaashu (oo aan iyaga oo keliya ahayn) ay ugu yeedhaan wadarta guud.

Waxaad hirgelin kartaa kaydinta unug-kumbuyuutareedkan oo kale adigoo isticmaalaya makro fudud. Midig ku dhufo tabka xaashida halkaasoo unugyada A1 iyo B1 ay ku yaaliin oo ka dooro liiska macnaha guud Source qoraalka (Xeerka Source). Daaqadda tafatiraha Visual Basic ee furma, koobiy oo dheji koodka weyn ee fudud:

Warqad-shaqeedka-hoosaadka gaarka loo leeyahay (ByVal Target As Excel.Range) Iyadoo Bartilmaameedka Haddii .Cinwaanka (Been, Been) = "A1" Markaas Haddii IsNumeric(.Value) Kadib Codsiga.EnableEvents = Range Been("A2").Qiimaha = Range(" A2").Qiimaha + .Codsiga Qiimaha  

Cinwaanka unugyada A1 iyo A2, dabcan, waxaa lagu beddeli karaa adiga.

Haddii aad u baahan tahay inaad raacdo gelitaanka xogta oo aan soo koobin unugyo gaar ah, laakiin dhammaan noocyada kala duwan, markaa macro waa in wax yar la beddelaa:

Warqad-shaqeedka-hoosaadka gaarka ah (ByVal Target Sida Excel. Range) Haddi Aan Is-dhexayn (Bartilmaameedka, Range("A1:A10")) Waxba ma aha Markaa haddii uu tiro yahay (Target.Value) ka dibna Codsiga.EnableEvents = Bartilmaameedka Been ah.Offset(0, 1) .Qiimaha = Bartilmaameed  

Waxaa loo maleynayaa in xogta la geliyo unugyada kala duwan ee A1: A10, iyo lambarada la geliyey waxaa lagu soo koobay tiirka ku xiga ee dhinaca midig. Haddii kiiskaaga uusan ku xigan, ka dibna ku kordhi u beddelka midig ee hawlwadeenka Offset - ku beddel 1 lambar ka weyn.

  • Waa maxay macros, halkee laga geliyaa koodhka macro ee VBA, sidee loo isticmaalaa?

Leave a Reply