Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում մի քանի բջիջներին արժեքներ ավելացնել:

Եթե ​​ցանկանում եք Excel- ում բազմաթիվ բջիջներին արժեք ավելացնել, հետևյալ մեթոդները կօգնեն ձեզ այն հեշտությամբ և արագ մշակել

նետ կապույտ աջ պղպջակ VBA- ով բազմաթիվ բջիջներին ավելացրեք արժեք

Մակրոների օգտագործումը կարող է հեշտացնել կրկնվող մշակումը և հեշտացնել և արագացնել մեր աշխատանքը: Նույնն է անում նաև հետևյալ մակրոը:

Քայլ 1. Ընտրեք այն բջիջները, որոնցում արժեք կավելացնեք:

Քայլ 2: Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհանը:

Քայլ 3: Սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ VBA- ն Մոդուլի պատուհանում:

Sub Add2Formula ()
- 300 ավելացրու

Ընտրության յուրաքանչյուր գ-ի համար
գ. Ակտիվացնել
ActiveCell.FormulaR1C1 = "=" & ActiveCell.Formula & "+300"
Հաջորդ գ

Վերջ Sub

Քայլ 4. Սեղմեք կոճակը F5 այս մակրո գործարկման բանալին:

Notes:

1. Այս մակրոը վավեր է միայն այն բջիջների համար, որոնք իրենց մեջ բանաձեւեր չունեն:

2. Այս մակրոը կավելացնի 300 բոլոր ընտրված բջիջներին: Եթե ​​ցանկանում եք ավելացնել այլ արժեք, խնդրում ենք փոխարինել 300 այլ արժեքով:

նետ կապույտ աջ պղպջակ Excel- ի համար Kutools- ով մի քանի բջիջների արժեք ավելացրեք

Excel- ի համար նախատեսված գործիքներ մեզ տալիս է այլընտրանքային օգտագործման օգտագործման այլընտրանքային մեթոդ, և դրա Գործարկման գործիքները կարող են օգնել մեզ հեշտությամբ արժեք ավելացնել մի քանի բջիջների:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 80 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Ստացիր այն հիմա.

Քայլ 1. Ընտրեք այն բջիջները, որոնց կավելացնեք նույն արժեքը:

Քայլ 2: Սեղմեք Կուտոլս > Գործողություն > Գործառնական գործիքներ, Տեսեք,

Քայլ 3: Ընտրեք Ժամանակը Գործողություն բաժնից և մուտքագրեք այն արժեքը, որը կավելացնեք ընտրված բջիջներին: Տեսեք,

Քայլ 4. Ստուգեք Ստեղծեք բանաձևեր տարբերակ.

Քայլ 5: Սեղմեք OK.

Գործողության գործիքներում
ընտրեք հավելում, մուտքագրեք 300 և կտտացրեք OK.

Excel- ի համար նախատեսված գործիքներ Գործողության գործիքներ աջակցում է բոլոր տեսակի մաթեմատիկական գործողությունները բոլոր ընտրված բջիջներին միասին.

  • Լրացում ՝ գումարած նշված օպերանդը:
  • Հանում ՝ հանել նշված օպերանդը:
  • Բազմապատկում. Բջիջների յուրաքանչյուր արժեք բազմապատկած օպերանդով:
  • Բաժին. Բջիջների յուրաքանչյուր արժեք բաժանված է օպերանդով:
  • Onուցադրումը. Բջջի յուրաքանչյուր արժեքը շահագործում է օպերանդը:
  • Կլորացում. Բջիջի յուրաքանչյուր արժեքը կլորացնում է տասնորդական թվերի վրա (նշված օպերանդ):
  • Գործառույթը. Գործառույթ է կիրառում բջիջի յուրաքանչյուր արժեքի վրա:
  • Սովորություն. Ստեղծեք բանաձևի նման արտահայտություն և կիրառեք բջիջի յուրաքանչյուր արժեքի վրա:

Related հոդվածը

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

Comments (9)
No ratings yet. Be the first to rate!
Taher
Taher
This comment was minimized by the moderator on the site
Thanks a lot. It is working 💖
Reply
0
0
Joe Riter
Joe Riter
This comment was minimized by the moderator on the site
If you want to include cells with formula, you could try, which is only a slight modification from the original. But adding numbers to an established formula could be dangerous so beware:


Sub Add2Formula()
' Add a number
Dim formulae As String
Dim a_number As Double

a_number = InputBox("what number to increment")

For Each cell In Selection
cell.Activate
formulae = ActiveCell.Formula
' gets rid of formula non-essentials that could cause errors
formulae = Replace(formulae, "'", "")
formulae = Replace(formulae, "=", "")

If formulae = "" Then
ActiveCell.Formula = "= " & ActiveCell.Formula & "+" & a_number
Else
ActiveCell.Formula = "= " & formulae & "+" & a_number
End If
Next cell

End Sub


This could be easily modified to skip blank cells, and to skip text cells you could probably evaluate the value of the cell, and when it errors you could go to the next cell. Hope this helps.
Reply
0
0
Hum3
Hum3
This comment was minimized by the moderator on the site
How can I get this VBA formula to skip blank and text cells? Thanks
Reply
0
0
sharfudheen
sharfudheen
This comment was minimized by the moderator on the site
sir.iam doing survey list in excel if a=200,b=100,c=50,d=15.e=10 for 3 questions if he selects a,b,b means 200+100+100=400 and Description should be good ..how to do this one
Reply
0
0
Fazlan
Fazlan
This comment was minimized by the moderator on the site
this tool is so useful and can trust the product.
Reply
0
0
Alan
Alan
This comment was minimized by the moderator on the site
any reply? will this site answer our enquiry?
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Dear Expert Have a question here. How to increase age automatically for each year? Thanks
Reply
0
0
Desmond
Desmond
This comment was minimized by the moderator on the site
Add Value to multiple cells with VBA's techque is very useful Thanks
Reply
0
0
jorawar singh
jorawar singh
This comment was minimized by the moderator on the site
sir if a1=100 b1=100 and after dat we want to insert 100 again in a1 den b1 should automatically update to 200 means a1 value added in b1 and so on and on. how it is possibe we have to take the two cells only. sir plz solve dis problem
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations