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

Тәжірибелік жұмыс кітабын жүктеп алу

Оқу кезінде жаттығу жасау үшін осы жаттығу жұмыс кітабын жүктеп алыңыз. осы мақала.

4 Excel бағдарламасындағы VBA көмегімен кестеге деректерді кірістіру мысалдары

Тапсырыс күні, өнімнің атауы, саны, бірлік бағасы және жалпы бағасы сияқты мәліметтері бар дүкеннің сатылым тізімі делік.

Excel-де кестені құру жолы

деректер жиынын Excel кестесіне айналдыру үшін, келесіні орындаңыз-

• барлық деректер жиынын таңдаңыз.
• Кірістіру қойындысына өтіңіз Excel таспасынан .
• Кесте опциясында басыңыз.

• Соңында Кестені жасау терезесіндегі OK түймесін басыңыз.

• Біз деректер жиынын Excel кестесіне сәтті түрлендірдік.

Деректерді енгізу үшін Excel кестесінде біз кодта бірнеше VBA функцияларын және қасиеттерді пайдаланамыз. Келесі бөлім визуалды негізгі өңдегіште ашу және код жазу жолын сипаттайды.

Visual Basic редакторында код жазу

қадамдарды ашу visual basic редакторы және сол жерге кейбір кодты жазыңыз.

• Excel таспасынан Әзірлеуші ​​ қойындысына өтіңіз.
• Visual Basic опциясын басыңыз.

• Қолданбаларға арналған Visual Basic терезесінде, Кірістіру ашылмалы тізімін басыңыз таңдау үшін Жаңа модуль

Енді жаңа модуль ашылды , сол жерге код жазыңыз және іске қосу үшін F5 пернесін басыңыз.

1. Деректерді Excel бағдарламасындағы VBA көмегімен кестенің соңғы жолына кірістіру

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

5416

кодын іске қосу үшін F5 пернесін басыңыз.

Біз жаңа жолды деректерден енгіздік төменгі бар кестенің .

Код түсіндірмесі:

• Біздің кодта біз ListObjects қолдандық. VBA Excel бағдарламасының нысаны атауымен кестені ұстап алу үшін. Қосымша ақпарат алу үшін, ListObject нысандарының әр бірі кесте жұмыс парағындағы . Кесте атын алу үшін кесте >> кестедегі түймесін басыңыз; Кесте дизайны қойындысында басыңыз Excel таспасында.

• Содан кейін біз ТізімЖолдары қолдандық. Қосу әдісі кестеге жаңа жол қосу үшін . Бұл әдіс екі аргумент қабылдайды: Орын және Әрқашан кірістіру .

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

• Соңында, біз деректерді әр ұяшықтардың жаңа <1 іне орнатамыз>қосылған жол . Бұл жағдайда деректер .Range(1) = “1/1/2022” Тапсырыс күні ретінде, .Range(2) = “Apple” Өнім ретінде, .Ауқым(3) = 5 Саны,  .Ауқым(4) = 1,77 Бірлік бағасы ретінде.

Толығырақ : Excel кестесінің атауы: Сіз білуіңіз керек барлық нәрсе

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

Бұл суретте біз деректер жолын қосамыз жоғарыдағы мысалда қолданылған кодтың бірдей бөлігін пайдаланып, кестеге қатысты арнайы жолда . Бұл жағдайда бізге ListRows.Add әдісінің Орын аргументін көрсету керек.код. бар кестеге қатысты 3-жолдағы мәліметтері бар қызғылт сары үшін сату деректерін қосқымыз келеді делік. Бұл орын алу үшін визуалды код өңдегішіне келесі кодты көшіріңіз және қойыңыз .

2799

Кодты басу арқылы іске қосыңыз. F5 кестеге қатысты 3-жолға қызғылт сары үшін сату деректерін енгізді.

Оқу Қосымша: Кестедегі әрбір жол үшін Excel VBA коды (қосу, қайта жазу, жою, т.б.)

Ұқсас оқулар

• Жиынтық кестеде санауға бөлінген есептелген өріс қосындысы
• Excel бағдарламасында салыстырмалы жиіліктердің таралуын қалай суреттеуге болады
• [Түзету] Жиынтық кестеде күндерді топтастыру мүмкін емес: 4 ықтимал шешім
• Excel бағдарламасында пайыздық жиіліктің таралуын қалай есептеу керек (2 әдіс)
• Жиынтық кесте жаңартылмайды (5 мәселе және шешімдер)

3. Excel бағдарламасында VBA көмегімен кестеге деректерді кірістіру және қайта жазу

Мұнда біз бар бар деректерді қайта жазу жолын суреттейміз. орнына кесте кірістіру a жаңа жол деректер . Ол үшін Excel бағдарламасының ListObject.ListRows сипатын ListRows.Add біз бұрын пайдаланған орнына пайдалануымыз керек. ListObject.ListRows сипаты сонымен қатар аргумент ретінде жол нөмірі ( Бүтін мән ) қабылдайды. Айталық, біз өзгергіміз келеді бірлік бағасы Апельсин 2,14 пен 2,35 біз алдыңғы мысалға енгізген . Көрнекі негізгі өңдегіште төмендегі кодты көшіріңіз және қоюыңыз .

7268

Біздің кодта біз аргументін ListObject.ListRows сипаты үшін 3 ретінде орнатамыз, мұнда деректер үшін Қызғылт сары -ге жатады. кодты F5 басу арқылы іске қосыңыз және айырмашылықты қараңыз.

Кодта бар тек кестеге қатысты 3-жолдағы деректердің бірлік бағасының тек бірлігі өзгертілді.

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

4. Пайдаланушы енгізуі негізінде Excel кестесіне деректерді кірістіру үшін VBA кодын іске қосыңыз

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

• Көрнекі код өңдегішіне көшіріңіз және келесі кодты қойыңыз.

9310

• Кодты іске қосу үшін F5 пернесін басыңыз.
• атын қойыңыз кестенің енгізу жолағындағы ( Кесте1 , осы мысалда) және OK түймесін басыңыз.

• Содан кейін Тапсырыс күні, өнім атауы, саны, және Бірлік бағасы мәндерін қойыңыз. кезекті түрде пайда болған енгізу өрістері . Бұл мысалда біз пайдаланған мәндер 1/1/2022, қызғылт сары, 3, және 35.

• Нәтижесінде енгізілген деректер <2 бар жаңа жол болды> кестенің төменгі жағында.

Толығырақ: Excel кестесін пішімдеу бойынша кеңестер – кестенің көрінісін өзгерту

Ескертпелер

Біз а жаңа жолды <2 қосқанда> деректермен VBA кодын пайдалана отырып, пішім және формулалар автоматты түрде жаңа жолға тасымалданады. Біздің мысалда Жалпы баға баған Саны және Бірлік бағасы бағандарының өнімі шығарады. Біз жай ғана тек Саны және Бірлік бағасы мәндерін енгіздік; жаңа жол өніммен осы екі мәнмен Жалпы баға бағанына

Қорытынды

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