Contents
Mararka qaarkood waxay qaadataa wakhti aad u dheer in la keeno waxyaabo qaar. Laakiin markii horeba la allifay, xaqiiqda ka dib waxay u muuqdaan kuwo muuqda oo xitaa banal ah. Laga soo bilaabo taxanaha "maxay, suurtagal bay ahayd?".
Laga soo bilaabo noocyadii ugu horreeyay, barta heerka hoose ee daaqada Microsoft Excel waxay si caadi ah u soo bandhigtay wadarta unugyada la doortay:
Haddii la rabo, xitaa waxaa suurtagal ahayd in aad midig-gujiso natiijooyinkan oo aad ka doorato macnaha guud ee saxda ah ee hawlaha aan rabno inaan aragno:
Dhawaan, cusbooneysiintii ugu dambeysay ee Excel, horumariyeyaasha Microsoft waxay ku dareen sifo fudud laakiin cajiib ah - hadda markaad riixdo natiijooyinkan, waxaa lagu koobiyeeyay sabuuradda!
Qurux.
Laakiin ka waran kuwa aan weli (ama horeyba?) u haysan nooca Excel? Tani waa meesha macros fudud ay ku caawin karaan.
Ku koobiyaynta wadarta unugyada la doortay ee kiliboodhka iyadoo la adeegsanayo makro
Ku fur tab sameeysa (horumariye) editor Visual Basic ama isticmaal kiiboodhkan gaaban Alt+F11. Geli module cusub oo madhan iyada oo loo marayo menu Geli - Module oo halkaa ku koobbi koodka soo socda:
Sum SumSelected
Caqligeedu waa sahlan yahay:
- Marka hore waxay timaaddaa "ilaalinta nacaska" - waxaan hubineynaa waxa dhabta ah ee la muujiyay. Haddii aan unugyadu la dooran (laakiin, tusaale ahaan, jaantus), ka bac makro.
- Kadib isticmaal amarka Gebogebo Waxaan abuurnaa shay xogeed cusub halkaas oo wadarta unugyada la doortay lagu kaydin doono hadhow. Nambar dheer oo aan la fahmi karin alfanumeric code, dhab ahaantii, waa isku xirka laanta diiwangelinta Windows ee ay maktabaddu ku taal. Foomamka Microsoft 2.0 Maktabadda Shayga, kaas oo abuuri kara walxahan oo kale. Mararka qaarkood khiyaamadan ayaa sidoo kale loo yaqaan ku xidhid daahsoon. Haddii aadan isticmaalin, markaas waa inaad samaysaa xiriiriye maktabaddan ku dhex jirta galka menu-ka Qalabka - Tixraacyada.
- Wadarta unugyada la doortay waxaa loo tixgeliyaa amar Xaashida shaqadaFunction.Sum(Xulashada), ka dibna cadadka ka soo baxa waxaa la saarayaa sanduuqa amarka PutInClipboard
Si loo fududeeyo isticmaalka, waxaad, dabcan, ku meelayn kartaa makrokan furaha kiiboodhka adoo isticmaalaya badhanka Macro tab sameeysa (Developer — Macros).
Haddii aad rabto inaad aragto waxa dhabta ah ee la koobiyeeyay ka dib markii aad socodsiiso makro, waxaad shid kartaa guddida Clipboard-ka adigoo isticmaalaya falaarta yar ee ku taal geeska midig ee hoose ee kooxda u dhiganta ugu weyn (Guriga) tab:
Ma aha oo kaliya qadarka
Haddii, marka lagu daro qadarka banal, aad rabto wax kale, markaa waxaad isticmaali kartaa mid ka mid ah hawlaha uu shaygu ina siinayo. Shaqada Xaashida Shaqada:
Tusaale ahaan, waxaa jira:
- Wadar – wadar
- Celceliska - celceliska xisaabta
- Tirinta - tirada unugyada leh nambarada
- CountA - tirada unugyada la buuxiyay
- CountBlank - tirada unugyada madhan
- Ugu yaraan - qiimaha ugu yar
- Ugu badnaan - qiimaha ugu sarreeya
- Dhexdhexaad - Dhexdhexaad (qiimaha dhexe)
- … Iwm
Maxaa dhacaya haddii safafka ama tiirarka ay ku qarsoon yihiin (gacan ama shaandheyn) inta la doortay? Si aan xisaabta loogu darin wadarta guud, waxaan u baahan doonaa inaan wax yar wax ka bedelno koodkayaga annagoo ku darayna shayga Xulashada hantida Unugyada gaarka ah (xlCellType la arki karo):
Sub SumVisible PutInClipboard wuxuu ku dhamaanayaa Dhamaadka Sub
Xaaladdan oo kale, xisaabinta hawl kasta oo guud ayaa lagu dabaqi doonaa unugyada muuqda oo keliya.
Haddii aad u baahan tahay qaacido nololeed
Haddii aad ku riyootid, waxaad la imaan kartaa xaalado marka ay fiicantahay inaad nuqul ka sameysid lambar (joogto ah), laakiin qaabka nool ee kaydka, taas oo xisaabisa wadarta aan u baahanahay unugyada la doortay. Xaaladdan oo kale, waa inaad ku dhejisaa caanaha jajabyada, adoo ku daraya ka saarista calaamadaha dollarka oo aad beddesho comma (kaas oo loo isticmaalo kala-soocida u dhexeeya ciwaannada dhowr nooc oo VBA ah) oo leh semicolon:
Sub SumFormula() Haddii NoocaName(Xulashada) <> "Range" Kadibna Ka Bax Subagga GetObject("Cusub:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText "= СУММ(" & Bedel Cinwaanka, ",", ";"), "$", "") & ")" .PutInClipboard wuxuu ku dhamaanayaa hoos-u-dhac Soo koobid shuruudo dheeraad ah
Iyo, ugu dambeyntii, gebi ahaanba maniacs, waxaad qori kartaa makro kaas oo aan soo koobin dhammaan unugyada la doortay, laakiin kaliya kuwa qanciya shuruudaha la bixiyay. Marka, tusaale ahaan, makro wuxuu u ekaan doonaa sida wadarta unugyada la doortay ee Buffer, haddii qiimahoodu ka weyn yahay 5 isla mar ahaantaana ay ka buuxaan midab kasta:
Sub CustomCalc() Dim myRange As Range If TypeName(Selection) <> "Range" Kadibna Ka Bax Subagga Unug Kasta Ee Xulashada If cell.Value> 5 And cell.Interior.ColorIndex <> xlNone Markaas haddii myRange Is Nothing then Set myRange = unugga Else Set myRange = Ururka (myRange, unug) Dhammaad haddii uu dhammaado haddii unugga ku xiga ee GetObject ("Cusub:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText WorksheetFunction.Sum(myRange) Sida aad si fudud u qiyaasi karto, shuruudaha waxaa lagu dejin karaa gabi ahaanba mid kasta - ilaa qaababka unugyada - iyo tiro kasta (oo ay ku jirto iyada oo la isku xirayo hawlwadeeno macquul ah ama ama iyo). Waxaa jira meelo badan oo male-awaal ah.
- U beddel qaacidooyinka qiyamka (6 siyaabo)
- Waa maxay macros, sida loo isticmaalo, meesha la geliyo Visual Basic code
- Macluumaad faa'iido leh oo ku jira barta heerka Microsoft Excel