Ushbu maqolada biz VBA<2 yordamida Excel jadval ga ma'lumotlarni qo'shishni ko'rsatamiz> kod . Excelning o'rnatilgan xususiyatlari va usullari yordamida biz jadvalga ma'lumotlarni osongina qo'shish yoki qayta yozish funksiyalarini osonlashtiramiz. Keling, VBA kodlari bilan bir qatorda usullar haqida aniq tushunchaga ega bo'lish uchun misollarga to'xtalib o'tamiz.

Amaliy kitobni yuklab oling

O'qish paytida mashq qilish uchun ushbu mashq kitobini yuklab oling. ushbu maqola.

4 Excelda VBA-dan foydalanib jadvalga ma'lumotlarni kiritish uchun misollar

Aytaylik, bizda sotuv roʻyxati buyurtma sanasi, mahsulot nomi, miqdori, birlik narxi va umumiy narx kabi tafsilotlari bor.

Excelda jadvalni qanday yaratish kerak

ma'lumotlar to'plamini Excel jadvaliga aylantirish uchun, quyidagilarni bajaring-

• butun ma'lumotlar to'plamini tanlang.
• Qo'shish yorlig'iga o'ting Excel lentasi .
• Jadval variantida -ni bosing.

• Nihoyat, Jadval yaratish oynasida OK tugmasini bosing.

• Biz muvaffaqiyatli ma'lumotlar to'plamini Excel jadvaliga aylantirdik.

Ma'lumotlarni kiritish uchun Excel jadvalida biz kodda bir nechta VBA funktsiyalari va xususiyatlar dan foydalanamiz. Keyingi bo'lim vizual asosiy muharririda ni ochish va kodni yozish usullarini tavsiflaydi.

Visual Basic muharririda kod yozish

qadamlarni bajaring visual basicni ochish muharriri va u yerda kod yozing.

• Excel Ribbon dan Dasturchi yorlig'iga o'ting.
• Visual Basic variantini bosing.

• Ilovalar uchun Visual Basic oynasida, Qo'shish ochiladigan ro'yxatini bosing ni tanlash uchun Yangi modul

Endi yangi modul ochildi , u yerga kod yozing va ishlash uchun F5 tugmasini bosing.

1. Ma'lumotlarni Excelda VBA-dan foydalanib jadvalning oxirgi qatoriga kiriting

Ushbu misolda biz qo'shish uchun VBA koddan foydalanamiz. a yangi qator pastki jadval va keyin unga ma'lumot qo'shing. Bizning jadvalimizda bizda 4 qator ma'lumotlar mavjud. 5-chi qo'shish uchun nusxalash va quyidagi kodni Visual basic muharririga joylashtirish.

9023

kodni ishga tushirish uchun F5 -ni bosing.

Biz -ga ma'lumotlarning yangi qatorini a yangi qo'shdik. pastki mavjud jadval .

Kod izohi:

• Bizning kodimizda biz ListObjects-dan foydalandik. ob'ekt VBA Excel ushlash uchun jadval nomi bilan. Qo'shimcha ma'lumot olish uchun har bir ListObject ob'ektlari jadval ish varag'idagi . Jadval nomini olish uchun jadval >> jadvaldagi -ni bosing; Jadval dizayni -dagi -ni bosing. Excel tasmasida.

• Keyin biz ListRows dan foydalandik. Qo'shish usuli jadval ga yangi qator qo'shish uchun . Bu usul ikkita argument oladi: Position va AlwaysInsert .

butun sonni kiritish orqali soni , biz jadval da yangi qo'shilgan qator ning nisbiy pozitsiyasini belgilashimiz mumkin. Ushbu misolda biz bo'sh qoldirdik pozitsiya argumenti , natijada yangi qator ga qo'shildi. jadval ning pastki qismi.

• Nihoyat, biz yangi ning har bir hujayrasiga ma'lumotlarni o'rnatamiz>qo‘shilgan qator . Bu holatda ma'lumotlar .Range(1) = “1/1/2022” Buyurtma sanasi sifatida, .Range(2) = “Apple” Mahsulot sifatida, .Range(3) = 5 Miqdor sifatida,  .Range(4) = 1,77 Birlik narxi sifatida.

Koʻproq oʻqing : Excel jadvali nomi: Siz bilishingiz kerak bo'lgan barcha narsalar

2. Excelda jadvalning ma'lum bir qatoriga ma'lumotlarni kiritish uchun VBA kodini ishga tushiring

Ushbu rasmda biz ma'lumotlar qatorini qo'shamiz yuqoridagi misolda biz ishlatgan kodning bir qismidan foydalanib, jadvalga nisbatan maxsus qatorda . Bunday holda, biz faqat ListRows.Add usuli ning Position argumentini belgilash kerak.kod. Aytaylik, biz mavjud jadvalga nisbatan 3-qatordagi tafsilotlari bilan to'q sariq uchun sotish ma'lumotlarini qo'shmoqchimiz. Buning uchun nusxalash va kodni vizual kod muharririga qo'yish .

7725

Kodni bosish orqali ishga tushirish. F5 jadvalga nisbatan 3-qatorga Orange uchun sotish ma'lumotlarini jadvalga kiritdi.

O'qing Batafsil: Jadvaldagi har bir qator uchun Excel VBA kodi (Qoʻshish, qayta yozish, oʻchirish va h.k.)

Oʻxshash oʻqishlar

• Hisoblangan maydon yig'indisi umumiy jadvaldagi songa bo'linadi
• Excelda nisbiy chastotalar taqsimotini qanday tasvirlash mumkin
• [Tuzat] Pivot jadvalida sanalarni guruhlab boʻlmaydi: 4 ta mumkin boʻlgan yechim
• Excelda foiz chastotasi taqsimotini qanday hisoblash mumkin (2 usul)
• Pivot jadvali yangilanmaydi (5 ta muammo va yechimlar)

3. Excelda VBA-dan foydalanib jadvalga ma'lumotlarni kiritish va uning ustiga yozish

Bu yerda biz mavjud ma'lumotlarni qayta yozishni ko'rsatamiz. o'rniga jadval qo'shish a yangi qator ma'lumotlar . Buning uchun Excelning ListRows.Add xususiyati o'rniga ListObject.ListRows xususiyatidan foydalanishimiz kerak ilgari . ListObject.ListRows xossasi , shuningdek, argument sifatida satr raqami ( Integer qiymat ) oladi. Aytaylik, biz o'zgartirishni xohlaymiz birlik narxi Apelsin 2,14 dan 2,35 gacha bu biz oldingi misolda kiritganmiz. . Quyidagi kodni nusxalang va quyidagi kodni qo'ying.

3767

Bizning kodimizda biz argument ListObject.ListRows xususiyati ni 3 sifatida o'rnatamiz, bu erda ma'lumotlar uchun Apelsin ga tegishli: . F5 -ni bosib kodni ishga tushiring va farqni ko'ring.

Kodda mavjud faqat birlik narxi ma'lumotlarning 3-qatordagi jadval ga nisbatan

Batafsil o'qing: Excel jadvaliga satr va ustunlarni qanday qo'shish yoki o'chirish

4. Foydalanuvchi kiritishi asosida Excel jadvaliga ma'lumotlarni kiritish uchun VBA kodini ishga tushiring

Ushbu misolda biz -ni kiritamiz. jadval nomi va sotish tafsilotlari mahsulot foydalanuvchi kiritishi o'rniga qattiq kod uning har biri VBA kodida vaqt . Buni amalga oshirish uchun quyidagi ko‘rsatmalarga amal qiling.

• Nusxalash va quyidagi kodni vizual kod muharririga joylashtirish.

8098

• Kodni ishga tushirish uchun F5 tugmasini bosing. jadvalning kiritish oynasidagi ( jadval1 , bu misolda) va OK tugmasini bosing.

• Keyin Buyurtma sanasi, mahsulot nomi, miqdori va Birlik narxi uchun qiymatlarni kiriting. ketma-ket paydo bo'lgan kiritish qutilari . Ushbu misolda biz ishlatgan qiymatlar 1/1/2022, Orange, 3, va 35.

• Natijada bizda yangi qator bilan ma'lumotlar kiritilgan jadval ning pastki qismida.

Batafsil o'qing: Excel jadvalini formatlash bo'yicha maslahatlar – Jadval ko'rinishini o'zgartirish

Eslatmalar

Biz a yangi qatorni <2 qo'shganimizda>bilan ma'lumotlar VBA kodidan foydalangan holda, format va formulalar avtomatik ravishda yangi qatorga o'tkaziladi. Bizning misolimizda TotalPrice ustun Miqdor va Birlik narxi ustunlarining mahsuloti ni chiqaradi. Biz faqat faqat Miqdor va Birlik narxi ni kiritdik; yangi qator jami narx ustuniga mahsulot ulardan ikkita qiymat bilan qo'shildi.

Xulosa

Endi biz VBA kodidan foydalanib Excel jadvaliga ma'lumotlarni qanday kiritishni bilamiz. Umid qilamanki, bu sizga ushbu usullardan ishonchliroq foydalanishga yordam beradi. Har qanday savol yoki takliflar bo'lsa, ularni quyidagi sharhlar maydoniga qo'yishni unutmang.