VBA Excel бағдарламасындағы кесте жолдары арқылы айналдыру (11 әдіс)

Hugh West

16-10-2023 Макростар & Excel VBA
  • Мұны Бөлісіңіз
Hugh West

Мазмұны

Excel жұмыс кітабында үлкен деректер жинағы болған кезде, кейде біз алғымыз келетін нақты нәтижелерді шығару үшін жолдар арқылы айналдыра алатын болсақ, ыңғайлы болады. VBA енгізу Excel бағдарламасындағы кез келген операцияны орындаудың ең тиімді, жылдам және қауіпсіз әдісі болып табылады. Бұл мақалада біз Excel бағдарламасында VBA макросы арқылы кесте жолдарын айналдырудың 11 түрлі әдісін көрсетеміз.

Жұмыс кітабын жүктеп алу

Тегін тәжірибе Excel жұмыс кітабын осы жерден жүктеп алуға болады.

VBA.xlsm көмегімен кесте жолдарын цикл арқылы өту

VBA көмегімен Excel бағдарламасындағы кесте жолдары бойынша айналдырудың 11 әдісі

Осы бөлімнен кейін сіз кесте жолдарын 11 түрлі әдіспен айналдыруды үйренесіз, мысалы, Excel бағдарламасындағы VBA макросы арқылы бос ұяшыққа дейін жолдар арқылы цикл, белгілі бір мән табылғанша жолдар бойынша цикл, жолдар арқылы цикл және белгілі бір ұяшықты бояу т.б.

Жоғарыда әдістерді сипаттау үшін осы мақалада орындалатын мысал деректер жинағы берілген.

1. Ұяшық сілтеме нөмірі бойынша кестенің әрбір жолындағы әрбір ұяшықты айналдыру үшін VBA ендіру

Егер Excel жұмыс парағында кестенің әрбір жолындағы әрбір ұяшықты айналдырғыңыз келсе және қайтарылатын мән ретінде ұяшық сілтеме нөмірін алыңыз, содан кейін төменде талқыланған қадамдарды орындаңыз.

Қадамдар:

  • Басында , пернетақтада Alt + F11 басыңыз немесе өтіңізайнымалы. 
8127

Бұл код бөлігі 1-ден 15-ке дейінгі жолдарды айналдыруға арналған. Егер ол « Edge » арнайы сөзін тапса, ол сөзді қамтитын ұяшықты бояйды. Ол сөзді іздеуде 1-ден 15-ші жолға дейінгі барлық деректерді сканерлеуді аяқтағанша мұны жалғастырады.

Толығырақ оқу: VLOOKUP кесте массивін пайдалану әдісі негізінде Excel бағдарламасындағы ұяшық мәні

Ұқсас көрсеткіштер

  • TABLE функциясы Excel бағдарламасында бар ма?
  • Кестені Excel бағдарламасындағы тізімге түрлендіру жолы (3 жылдам әдіс)
  • Excel бағдарламасындағы ауқымды кестеге түрлендіру (5 оңай әдіс)
  • Excel кестесіндегі формуланы тиімді пайдаланыңыз (4 мысалмен)
  • Excel кестесінің атауы: білуіңіз керек барлық нәрсе

7. Excel бағдарламасында әрбір жолды айналдыру және әрбір тақ жолды бояу үшін VBA енгізу

Алдыңғы бөлімнен біз белгілі бір мәнді қамтитын ұяшықты бояу жолын үйрендік. Бұл бөлімде Excel бағдарламасындағы VBA макросымен кестенің әрбір жолын айналдыруды және әрбір тақ жолды бояуды үйренеміз.

Процесті орындау қадамдары төменде сипатталған.

Қадамдар:

  • Бұған дейін көрсетілгендей, Әзірлеуші ішінен Visual Basic редакторын ашыңыз. қойындысын және код терезесінде Кірістіру а Модуль .
  • Содан кейін келесі кодты көшіру және оны қою код терезесі. 
7397

Сіздің кодыңыз енді іске қосуға дайын.

  • Енді, Орындаңыз макрос және нәтижені көру үшін келесі суретке қараңыз.

Барлық тақ санды жолдар түсті жұмыс парағының кестесінде орналасқан барлық жолдарды айналдырғаннан кейін.

VBA кодының түсіндірмесі 

8522

Айнымалы мәнді анықтаңыз.

1613

Біз жұмыс істейтін диапазонды анықтаңыз.

3521

Кодтың бұл бөлігі ағымдағы жолдың келесі жолынан бастап барлық жолдардағы итерацияға сілтеме жасайды B4 . Егер жол нөмірлерін 2-ге бөлу режимі бүтін түрінде сақталған қайтарылған жол нөміріне тең болса, онда бұл код кодта берілген Түс индексімен есептеу арқылы алынған барлық жолдарды бояйды. Ол диапазонның соңына жеткенше барлық жолдар бойымен қозғалады.

8. Excel бағдарламасында жолдар бойынша цикл және әр жұп жолды бояу үшін VBA іске қосыңыз

Алдыңғы бөлімде біз кестенің әрбір тақ жолын бояуды үйрендік. Бұл бөлімде Excel бағдарламасындағы VBA макросымен кестенің әрбір жолын айналдыруды және әр жұп жолды бояуды үйренеміз.

Процесті орындау қадамдары төменде талқыланады.

Қадамдар:

  • Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру a Модуль код терезесінде.
  • Содан кейін келесі кодты көшіру және оны код терезесіне қою . 
6185

Сіздің кодыңыз енді дайыніске қосыңыз.

  • Содан кейін макросты Іске қосыңыз және нәтижені көру үшін келесі суретке қараңыз.

Барлық жұп санды жолдар жұмыс парағының кестесіндегі барлық жолдарды айналдырғаннан кейін боялады.

VBA кодының түсіндірмесі 

1720

Айнымалы мәнді анықтаңыз.

3434

Біз жұмыс істейтін ауқымды анықтаңыз.

7858

Бұл код бөлігі келесіден кейін қайталана бастайды. ағымдағы жолдан үш жол, B4 . Ол алдымен оны бояйды, содан кейін жол санын 2-ге арттырады және деректер жиынының соңғы жолына жеткенше оны бояуды жалғастырады.

9. Excel бағдарламасындағы бос ұяшыққа дейін жолдар бойынша қайталау үшін макросты қолданыңыз

Егер кодыңыз кестенің барлық жолдарын айналып өтіп, бос ұяшыққа жеткенде тоқтайтындай жұмыс істеуін қаласаңыз , онда бұл бөлім сізге арналған. Бұл тапсырманы Excel VBA бағдарламасындағы FOR циклі және До-Until циклі арқылы да орындауға болады.

9.1. FOR циклімен

VBA Excel бағдарламасындағы FOR циклі бар бос ұяшық төменде берілгенше кестедегі жолдар бойынша циклге дейінгі қадамдар.

Қадамдар:

  • Алғашында Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру a Модуль код терезесінде.
  • Одан кейін келесі кодты көшіру және оны код терезесіне қою . 
5197

Сіздің кодыңыз енді іске қосуға дайын.

  • Содан кейін іске қосыңыз макрос және нәтиже төмендегі gif-те көрсетілген.

Макросты іске қосқаннан кейін ол кестедегі барлық жолдар бойынша циклды бастады. және бос ұяшыққа, В8 ұяшығына жеткенде, ол итерацияны тоқтатты .

VBA кодының түсіндірмесі 

5374

Айнымалыны анықтаңыз.

3527

Экранды жаңарту оқиғасын өшіріңіз.

6198

В4 ұяшығынан бастап соңғысына дейін барлық жолдарды сақтаңыз.

2045

B4 ұяшығын таңдаңыз.

1288

Бұл код бөлігі барлық жолдар бойынша циклды бастайды. Ол қатардағы бос ұяшықты тапқанда, оны таңдап, соңына жеткенше жолдарды сканерлеуді жалғастырады.

9614

Экранды жаңарту оқиғасын қосыңыз.

9.2. Do-Until циклі арқылы

VBA ішіндегі Do-Until циклі бар бос ұяшық төменде берілгенше жолдар бойынша циклге дейінгі қадамдар.

Қадамдар:

  • Біріншіден, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру a Модуль код терезесінде.
  • Содан кейін келесі кодты көшіріңіз және оны код терезесіне қойыңыз . 
9135

Сіздің кодыңыз енді іске қосуға дайын.

  • Кейінірек іске қосыңыз макрос. Нәтиже келесі gif-де көрсетілген.

Макросты іске қосқаннан кейін ол кестедегі барлық жолдар бойынша айналдыра бастады және бір рет ол бос ұяшыққа, В8 ұяшығына жетті, ол итерацияны тоқтатты .

VBA кодыТүсініктеме 

3546

Біз жұмыс істейтін ұяшықты таңдаңыз.

6372

Циклді бос ұяшық табылғанша бастайды және жалғастырады.

3408

Бос ұяшық болған кезде қатардан табылды, содан кейін оны таңдап, итерацияны тоқтатыңыз.

10. Excel бағдарламасындағы бірнеше бос ұяшықтарға дейін жолдар арқылы қайталанатын VBA макросы

Алдыңғы бөлімде бос ұяшық табылған кезде циклды тоқтату жолын үйрендіңіз. Бірақ бір емес, бірнеше бос ұяшық табылмайынша, итерацияны тоқтатқыңыз келмесе ше? бар VBA Excel төменде көрсетілген.

Қадамдар:

  • Алдымен Visual Basic редакторын ашыңыз. Әзірлеуші қойындысын және код терезесінде Кірістіру а Модуль .
  • Содан кейін келесі кодты көшіріңіз және қойыңыз оны код терезесіне. 
2763

Сіздің кодыңыз енді іске қосуға дайын.

  • Енді, Макросты іске қосыңыз және шығыс үшін келесі gif-ті қараңыз.

Макросты іске қосқаннан кейін ол тоқтап қалмады. бірінші бос ұяшық, В8 ұяшығы. Ол В16 ұяшығында қатарынан екі бос ұяшықты тапқанда тоқтады.

VBA кодының түсіндірмесі 

3884

Ұяшықты таңдаңыз біз жұмыс істейтін боламыз.

9643

Қатарынан екі бос ұяшық табылғанша циклды бастайды және жалғастырады.

3234

Қатарынан екі бос ұяшық табылған кезде, содан кейіноны таңдап, қайталауды тоқтатыңыз.

11. Excel бағдарламасында барлық бағандарды бос болғанша біріктіру арқылы жолдар бойынша цикл үшін VBA ендіру

Бұл бөлім кестедегі барлық жолдар арқылы циклды және бос ұяшыққа дейін барлық бағандарды біріктіруді көрсетеді. VBA Excel бағдарламасында табылады.

Оны Excel бағдарламасындағы VBA макросымен қалай жасау керектігін білейік.

Қадамдар:

  • Алғашында Әзірлеуші қойындысынан Visual Basic редакторы ашыңыз және Кірістіру Модуль код терезесінде.
  • Содан кейін келесі кодты көшіріңіз және оны код терезесіне қойыңыз . 
1988

Кодыңыз енді іске қосуға дайын.

  • Кейінірек, орындаңыз макросты және нәтиже үшін келесі gif-ті қараңыз.

Жоғарыдағы GIF-тен көріп отырғаныңыздай, MsgBox қалқымалы терезе бар, ол сізге әр файлда орналасқан барлық бағандардың біріктірілген мәнін көрсетеді. жол Excel жұмыс парағының кестесінен. Бірақ ол бос ұяшыққа жеткенде тоқтады .

VBA кодының түсіндірмесі 

3935

Айнымалы мәндерді анықтаңыз.

9546

Біз жұмыс істейтін парақ атауын орнатыңыз (“ ConcatenatingAllColUntilBlank ” – жұмыс кітабындағы парақ атауы).

9506

Біз жұмыс істейтін ауқымды анықтаңыз.

9329

Бұл код бөлігі циклды массивтен бастайды. Ол массивтің ең үлкен жазылуын және төменгі шегін қайтарғанша циклды жалғастырадыбірінші өлшем. Содан кейін ол екінші өлшемнің төменгі шегін шығару итерациясына кіреді. Осыдан кейін ол барлық шығарылған мәндерді iResult айнымалысына біріктіріп, нәтижені MsgBox ішіне шығару арқылы өткізеді. Ол бос ұяшықты тапқанша мұны жалғастырады.

Қорытынды

Қорытындылау үшін, бұл мақала сізге жолдар бойынша циклді айналдырудың 11 тиімді әдісін көрсетті. VBA макросы бар Excel бағдарламасындағы кестенің. Бұл мақала сізге өте пайдалы болды деп үміттенемін. Тақырыпқа қатысты кез келген сұрақтарды қоюға болады.

қойындысына Әзірлеуші ​​-> Visual Basic Visual Basic өңдегішінашу үшін.

  • Келесі қалқымалы код терезесінде, мәзір жолағында Кірістіру -> Модуль .

  • Одан кейін келесі кодты көшіріп және оны кодқа қойыңыз терезе. 
9378

Сіздің кодыңыз енді іске қосуға дайын.

  • Енді компьютердегі F5 пернесін басыңыз. пернетақта немесе мәзір жолағынан Іске қосу -> Sub/UserForm іске қосыңыз. Сондай-ақ макросты іске қосу үшін ішкі мәзір жолағындағы кіші Ойнату белгішесін басуға болады.

  • Немесе көзбен көріп, деректер жиынын және нәтижені салыстыру үшін кодты сақтап және қызықтыратын жұмыс парағына оралуға болады.
  • Ол жерден <1 түймесін басуға болады>Макростар Әзірлеуші қойындысынан макрос атауын таңдап, , содан кейін Іске қосу түймесін басыңыз.

Кодты сәтті орындағаннан кейін нәтижені көру үшін жоғарыдағы gif-ті қараңыз. Excel парағындағы кестенің әр жолындағы әр ұяшықтың ұяшық сілтеме нөмірін көрсететін MsgBox қалқымалы терезе болады.

VBA кодының түсіндірмесі 

8041

В бағанын іздеу арқылы кестедегі соңғы жол нөмірін алу үшін.

8778

Деректеріміз басталатын жерден 4-жол нөмірін орнатыңыз.

6890

Бірінші жолдан айналдыру үшін.

7423

Деректеріміз басталатын 2-бағанның нөмірін орнатыңыз.

5660

Соңғы жолды алу үшін жолдар бойынша циклды бастаңызағымдағы жолды соңғы жолға дейін бағалау арқылы баған нөмірі.

5807

Бағанды ​​бірінші жолдан соңғы жолға дейін айналдыруды ұлғайту.

5617

Бұл код бөлігі өңдеу үшін жұмыс істейді, әр жолдан кейін ұлғайту. қайталау және код нәтижесін көрсету.

Толығырақ оқу: Excel кестесінде жаңа жолды автоматты түрде қосу жолы

2 . Әрбір жолдағы әрбір ұяшықты мән бойынша айналдыру үшін VBA іске қосыңыз

Егер сіз кестенің әрбір жолындағы әрбір ұяшық арқылы айналдырып, ұяшықтарда орналасқан мәнді қайтару мәні ретінде тастағыңыз келсе болса, онда бұл бөлім мұны VBA Excel көмегімен қалай жасау керектігін анықтауға көмектеседі.

Оны ListObject және <1 арқылы жасауға болады>DataBodyRange қасиеті VBA . Макрокодты объектімен де, қасиетімен де көрсетеміз.

2.1. ListObject

VBA Excel бағдарламасындағы ListObject арқылы ұяшық мәні бойынша кестенің әрбір жолындағы әрбір ұяшық арқылы цикл жасау қадамдары төменде келтірілген.

Қадамдар:

  • Бұрынғыдай, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Код терезесіне Модуль енгізіңіз .
  • Содан кейін код терезесінде келесі кодты көшіріңіз және қою ол. 
4342

Сіздің кодыңыз енді іске қосуға дайын.

  • Одан кейін макросты іске қосыңыз жоғарыдағы бөлімде көрсеткендей. Нәтиже gif-де көрсетілгентөменде.

Әр жолдан әрбір ұяшық тасымалдайтын мәнді көрсететін MsgBox қалқымалы терезе болады Excel парағындағы кестеден.

VBA кодының түсіндірмесі 

3755

Айнымалы мәндерді анықтаңыз.

2065

Бұл бөлік алдымен кестедегі жолдар бойынша циклды бастайды (« TblStudents » — біздің кесте атауы). Содан кейін әр жол үшін бағандарды енгізеді. Осыдан кейін ұяшықтың мәнін MsgBox ішіне беріңіз. Содан кейін келесі бағанға өтіңіз. Бір жолдың барлық бағандары бойынша итерацияны аяқтағаннан кейін ол келесі жолға өтеді және итерация процесін соңғы жолға дейін жалғастырады.

2.2. DataBodyRange қасиетімен

Кестеден алынған деректермен нақтырақ болу үшін ListObject DataBodyRange сипатын пайдалануға болады. DataBodyRange сипаты сізге тақырып жолы мен кірістіру жолы арасындағы тізімнен ауқымды қамтитын нәтижені шығарады.

Әр жолдағы әрбір ұяшықты айталауға болатын қадамдар VBA Excel бағдарламасындағы DataBodyRange бар ұяшық мәні бойынша кестенің мәні төменде берілген.

Қадамдар:

  • Көрсетілгендей бұрын Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және код терезесінде Кірістіру Модуль .
  • Одан кейін , келесі кодты көшіру және оны код терезесіне қою . 
2804

Кодыңыз енді іске қосуға дайын.

  • Кейінірек, Орындаңыз макросты және нәтижені көру үшін келесі gif-ті қараңыз.

Қалқымалы терезе болады MsgBox Excel парағындағы кестеден әр жолдан әр ұяшықта тасымалданатын мәнді көрсетеді.

VBA кодының түсіндірмесі 

8280

Айнымалыны анықтаңыз.

1430

Бұл код бөлігі алдымен кестедегі жолдар бойынша циклды бастайды (« TblStdnt » - біздің кесте атауы) және келесі мәндерді қоспағандағы мәндер ауқымын қайтарады. кестенің тақырып жолы. Содан кейін ауқымның мәнін MsgBox ішіне жіберіңіз. Содан кейін диапазонды шығару үшін келесі жолға өтеді және соңғы жолға дейін қайталау процесін жалғастырады.

3. Excel бағдарламасындағы бағандарды біріктіру арқылы жолдарды қайталау үшін VBA макросын қолданыңыз

Бұл бөлім деректер жиынындағы бірінші бағанмен бағандарды біріктіру арқылы кестедегі жолдар арқылы айналдыру жолын көрсетеді. Excel бағдарламасында.

Мысалы, деректер жинағы үшін алдымен оларды біріктіру арқылы John B5 ұяшығында және 101 арқылы C5 ұяшығында қайталанамыз, содан кейін қайталаймыз. B5 ұяшығындағы Джон және D5 ұяшығындағы 89 оларды 5-жолдан біріктіру арқылы.

Мұны қалай жасауға болатынын көрсетейік. Excel бағдарламасындағы VBA макросы.

Қадамдар:

  • Алдымен Visual Basic редакторын ашыңыз. 1>Әзірлеуші қойындысын және код терезесінде Кірістіру а Модуль .
  • Екіншіден, код терезесінде келесіні көшіріңіз коджәне қою . 
2317

Кодыңыз енді іске қосуға дайын.

  • Үшіншіден, <1 макросты>Іске қосу . Нәтижені көру үшін төмендегі gif-ті қараңыз.

Сізге біріктірілген мәнді көрсететін MsgBox қалқымалы терезе болады. бірінші және екінші бағанның ұяшықтарының ( В бағанындағы В5 ұяшығындағы Джон және С бағанының С5 ұяшығындағы 101), содан кейін біріктірілген мән бірінші және үшінші бағандағы ұяшықтардың ( В5 ұяшығындағы Джон В бағанының және 89 D5 бағанының D бағанындағы) жол нөмірі 5 деректер жинағынан. Және бұл біріктіру операциясы кестенің соңғы жолына жеткенше жалғаса береді.

VBA кодының түсіндірмесі 

7860

Айнымалыны анықтаңыз.

4286

Содан кейін код белсенді парақтан кестені таңдайды («кесте атауымызда TblConcatenate »).

5576

Осыдан кейін тақырыптың тақырыбын қоспағанда, әрбір жолды қайталауды бастайды. баған. Итерация баған тақырыбы мен жолдар арасындағы ауқымда сәйкестікті тапса, ол мәнді iValue айнымалысында сақтайды.

1509

Егер жоғарыдағы шарт орындалмаса, онда код мәнді MsgBox ішіне шығарады және шартты аяқтайды. Осыдан кейін ол басқа ауқымдағы циклге көшеді және соңғы жолға дейін қайталауды жалғастырады. Соңғы жолға жеткенде, макрос кодтың орындалуын аяқтайды.

4. Итерация үшін макросты ендіруExcel бағдарламасындағы кестедегі барлық бағандарды біріктіру арқылы жолдар арқылы

Бұл бөлімде біз әр жолдағы деректер жиынындағы барлық бағандарды біріктіру жолын үйренеміз. Excel бағдарламасындағы VBA макросы.

Орындалатын қадамдар төменде көрсетілген.

Қадамдар:

  • Біріншіден, <ашыңыз. 1>Visual Basic редакторы Әзірлеуші қойындысынан және код терезесінде Кірістіру Модуль .
  • Сосын, келесі кодты көшіріңіз және оны код терезесіне қойыңыз . 
4344

Кодыңыз енді іске қосуға дайын.

  • Содан кейін макрокодты Іске қосу .

Жоғарыдағы gif-тен көріп отырғаныңыздай, бар Excel жұмыс парағының кестесіндегі әр жолда орналасқан барлық бағандардың біріктірілген мәнін көрсететін MsgBox қалқымалы терезесі.

VBA кодының түсіндірмесі 

7195

Айнымалы мәндерді анықтаңыз.

9189

Біз жұмыс істейтін парақ атауын орнатыңыз (« ConcatenatingAllCol » - парақ атауы жұмыс дәптерінде).

4636

Де біз жұмыс істейтін кесте атауын жақсы көрсетіңіз (« TblConcatenateAll » — біздің деректер жиынындағы кесте атауы).

5743

Кестенің әрбір жолы арқылы итерацияны бастайды.

9297

Кестенің әрбір жолының әрбір бағанында итерацияны бастайды.

1967

Әр жолдың әрбір бағанындағы мәндерді қиылысу арқылы нәтижені сақтаңыз. Әрбір жолда орналасқан барлық бағандарды сканерлегеннен кейін ол өттінәтижесінде MsgBox. Содан кейін келесі жолда қайтадан циклды бастайды және кестенің соңғы жолына жеткенше циклды жалғастырады.

Толығырақ оқу: Excel VBA көмегімен кестенің бірнеше бағандарын сұрыптау әдісі (2 әдіс)

5. Егер мән VBA макросы бар кестенің жолдарын айналдыру арқылы табылса, итерацияны тоқтатыңыз

Егер сіз кестеңізде бар жолдарды айналдырғыңыз келсе және ол белгілі бір мәнді тапқан кезде циклды тоқтатқыңыз келеді делік . Мұны жай макрокод арқылы жасауға болады.

Оны Excel бағдарламасында VBA жасауды үйренейік.

Қадамдар:

  • Алғашында Әзірлеуші қойындысынан Visual Basic редакторы ашыңыз және код терезесінде Кірістіру Модуль .
  • Содан кейін код терезесінде келесі кодты көшіріңіз және қою . 
6054

Кодыңыз енді іске қосуға дайын. .

  • Кейінірек макросты іске қосыңыз .
  • Ол циклды бастап, оны тоқтатқанда тоқтатады. диапазонда арнайы мән (« Шет ») табады және нәтижені MsgBox ішіне шығарады.

Жоғарыдағы суреттен көріп отырғаныңыздай, қалқымалы MsgBox бар ұяшық мекенжайын, $B$10 , біз оны таптык көрсетілген мән, “ Edge ” .

VBA кодының түсіндірмесі 

7572

анықтаңыз айнымалы.

5359

Бұл код бөлігі 1-ден 15-ке дейінгі жолдарды айналдыруға арналған. Егер ол нақты сөзді тапса“ Edge ”, содан кейін ол сөзді қамтитын ұяшық мекенжайымен нәтижені береді. Ол сөзді іздеуде 1-ден 15-ші жолға дейінгі барлық деректерді сканерлеуді аяқтағанша мұны жалғастырады.

Толығырақ оқу: Excel кестесінен жолдар мен бағандарды кірістіру немесе жою жолы

6. Әрбір жолды айналдыру және Excel бағдарламасында белгілі бір мәнді бояу үшін VBA

Егер көрсетілген мәннің ұяшық мекенжайын MsgBox ішіне тастағыңыз келмесе ше? Сіз іздеген мәнді алатын ұяшықты бояғыңыз келуі мүмкін.

Оны VBA макросымен қалай жасау керектігін үйренейік.

Қадамдар:

  • Бұрынғыдай, Әзірлеуші қойындысынан Visual Basic редакторын ашыңыз және Кірістіру a Модуль код терезесінде.
  • Содан кейін келесі кодты көшіру және оны код терезесіне қою . 
3570

Сіздің кодыңыз енді іске қосуға дайын.

  • Одан кейін макросты Іске қосыңыз .
  • Ол циклді бастайды және диапазонда (« Шет ») нақты мәнді тапқан кезде оны тоқтатады және ColourIndex көмегімен ұяшықты бояйды. сіз кодта берген.

Жоғарыдағы суреттен көріп отырғаныңыздай, C B10 , біз көрсетілген мәнді таптық, “ Шет ” кодты орындағаннан кейін боялады.

VBA кодының түсіндірмесі 

3918

анықтаңыз

Алдыңғы пост Excel бағдарламасында ондық сандарды минуттар мен секундтарға қалай түрлендіруге болады (3 оңай жол)
Келесі пост Excel бағдарламасындағы бір және екі айнымалы сезімталдықты талдау (2 мысал)

Хью Уэст – салада 10 жылдан астам тәжірибесі бар жоғары тәжірибелі Excel тренері және талдаушысы. «Бухгалтерлік есеп және қаржы» мамандығы бойынша бакалавр дәрежесі және іскерлік әкімшілендіру магистрі дәрежесі бар. Хью оқытуға құмар және ұстануға және түсінуге оңай бірегей оқыту әдісін әзірледі. Оның Excel бағдарламасындағы сараптамалық білімі бүкіл әлем бойынша мыңдаған студенттер мен мамандарға біліктіліктерін арттыруға және мансаптық жетістіктерге жетуге көмектесті. Блогы арқылы Хью өз білімін әлеммен бөліседі, жеке адамдар мен бизнеске толық әлеуетін ашуға көмектесу үшін тегін Excel оқулықтары мен онлайн тренингтерін ұсынады.