Pir caran, rewşek çêdibe dema ku em hewce ne ku çend nirxan bi rêzdarî di yek hucreyê de bicivînin (kom bikin):
Ewan. heke, wek nimûne, hûn di hucreya A1 de hejmara 5 binivîsin, wê hingê divê hejmara 1 di B15 de xuya bibe. Ger hûn hingê hejmara 1-ê di A7-ê de binivîsin, wê hingê divê 1 di hucreya B22 de xuya bibe, û hwd. Bi gelemperî, tiştê ku hesabker (û ne tenê ew) jê re dibêjin tevheviyek komkirî.
Hûn dikarin bi karanîna makroyek sade şaneyek hilanînek weha bicîh bikin. Li ser tabloya pelê ya ku hucreyên A1 û B1 lê hene rast-klîk bikin û ji pêşeka çarçoveyê hilbijêrin Nivîsa çavkaniyê (Koda Çavkanî). Di pencereya edîtorê Visual Basic de ku vedibe, koda makro ya hêsan kopî bikin û bişopînin:
Bineya Taybet Worksheet_Change(ByVal Target Wek Excel.Range) Bi Target Heke A1").Nirx + .Nirx Application.EnableEvents = Dawiya Rast Ger Dawî Heke Dawî Bi End Sub.
Navnîşanên hucreyên A1 û A2, bê guman, dikarin bi yên xwe ve werin guheztin.
Heke hûn hewce ne ku têketina daneyê bişopînin û ne hucreyên kesane, lê tevahiya rêzan kurt bikin, wê hingê pêdivî ye ku makro hinekî were guheztin:
Bin Worksheet_Change ya Taybet (ByVal Target Wek Excel.Range) Heke Ne Têkilî (Target, Range("A1:A10")) Ne tiştek e, wê hingê heke IsNumeric(Target.Value) Hingê Application.EnableEvents = Target False.Offset(0, 1) .Nirx = Target.Offset(0, 1).Nirx + Target.Value Application.EnableEvents = Dawiya Rast Ger Dawî Heke End Sub Tê texmîn kirin ku dane di şaneyên rêza A1:A10 de tê ketin, û hejmarên têketinê di stûna cîran a rastê de têne berhev kirin. Ger di doza we de ew ne cîran e, wê hingê di operatorê Offset de guheztina ber bi rastê zêde bikin - 1 bi jimareyek mezintir biguhezînin.
- Makro çi ne, li ku derê koda makro têxe VBA, meriv wan çawa bikar tîne?