როდესაც თქვენ გაქვთ მონაცემთა მცირე ცხრილი რამდენიმე სვეტით, შეგიძლიათ მარტივად დათვალოთ ისინი. მაგრამ დიდი მონაცემთა ცხრილისთვის, საკმაოდ რთულია ყველა სვეტის დათვლა შეცდომის გარეშე. გარდა ამისა, ზოგიერთი სვეტი შეიძლება შეიცავდეს მონაცემებს, ხოლო ზოგიერთი სვეტი შეიძლება იყოს სრულიად ცარიელი. ამრიგად, ყველა სვეტის მონაცემებით დათვლა დიდი მონაცემთა ცხრილის შემთხვევაში საკმაოდ რთულია. ამ სტატიაში თქვენ შეისწავლით 2 გზას, რომ დათვალოთ სვეტები მონაცემებით VBA-ში Excel-ში მარტივად.

ჩამოტვირთეთ პრაქტიკის სამუშაო წიგნი

შეგიძლიათ ჩამოტვირთოთ Excel-ის ფაილი შემდეგი ბმულიდან და ივარჯიშოთ ის.

დათვალეთ სვეტები Data.xlsm-ით

2 გზა, რომ დათვალოთ სვეტები მონაცემებით VBA-ს გამოყენებით Excel-ში

1 დაითვალეთ ყველა სვეტი სამუშაო ფურცელში მონაცემებით მარტივი VBA კოდის გამოყენებით

ჩვენ ვხედავთ 3 სვეტს შემდეგ მონაცემთა ცხრილში. ახლა ჩვენ გამოვიყენებთ VBA კოდს, რათა განვსაზღვროთ გამოყენებული სვეტების რაოდენობა ერთ Excel-ის სამუშაო ფურცელში.

❶ უპირველეს ყოვლისა, დააჭირეთ ALT + F11 VBA რედაქტორის გასახსნელად.

❷ ამის შემდეგ შექმენით ახალი მოდული Insert > მოდული.

❸ ამის შემდეგ დააკოპირეთ შემდეგი VBA სკრიპტი.

2293

❹ შემდეგ დაუბრუნდით VBA რედაქტორს და დააჭირეთ CTRL + V ჩასვით.

❺ ახლა შეინახეთ VBA კოდი CTRL + S ღილაკზე დაჭერით.

❻ VBA კოდის გასაშვებად, გადადით Developer ჩანართზე და დააწკაპუნეთ Macros . ან უბრალოდ დააჭირეთ F5 გასაღები.

გაჩნდება Macro დიალოგური ფანჯარა.

❼ ყველაფერი რაც თქვენ უნდა გააკეთოთ არის, დააწკაპუნეთ Run ღილაკზე.

ახლა ნახავთ, რომ გამოჩნდა დიალოგური ფანჯარა. რაც ამბობს, სვეტების რაოდენობა მონაცემებით არის 3.

წაიკითხეთ მეტი: როგორ დავთვალოთ სვეტების რაოდენობა Excel-ში (3 მარტივი მეთოდები)

2. დაითვალეთ ყველა სვეტი მოცემულ დიაპაზონში მონაცემებით Excel VBA კოდის გამოყენებით

შემდეგი VBA კოდი საშუალებას მოგცემთ დათვალოთ ყველა სვეტი მონაცემებით მოცემული დიაპაზონი.

კოდის გამოსაყენებლად,

❶ უპირველეს ყოვლისა, გახსენით VBA რედაქტორი ALT + F11 დაჭერით.

❷ შემდეგ გადადით ჩასმა > მოდული ახალი მოდულის შესაქმნელად.

❸ ამის შემდეგ დააკოპირეთ შემდეგი VBA სკრიპტი.

4691

❹ დაუბრუნდით VBA რედაქტორს და დააჭირეთ CTRL + V ჩასვით.

❺ ახლა შეინახეთ კოდი CTRL + S დაჭერით.

❻ გადადით Developer ჩანართზე და დააჭირეთ Macros Macro ფანჯრის გასახსნელად.

ან უბრალოდ დააჭირეთ F5 ღილაკი Macro დიალოგური ფანჯრის გამოსაყენებლად.

❼ დიალოგური ფანჯრიდან აირჩიეთ ფუნქციის სახელი CountColumnsInARange და დააჭირეთ Run ღილაკი.

ბოლოს, გამოჩნდება პატარა დიალოგური ფანჯარა, რომელშიც ნათქვამია, რომ სვეტების საერთო რაოდენობაა 3.

წაიკითხეთ მეტი: როგორ დავთვალოთ სვეტები VLOOKUP-ისთვის Excel-ში (2 მეთოდი)

მეტი VBA კოდები Excel-ში სვეტების დასათვლელად

1. გამოყენებაბოლო გამოყენებული სვეტის ნომრის დასაბრუნებლად VBA Range.End მეთოდი

Excel-ის ცხრილებში ბოლო გამოყენებული სვეტის ნომრის მისაღებად,

❶ უპირველეს ყოვლისა, გახსენით VBA რედაქტორი დაჭერით. ALT + F11.

❷ შემდეგ გადადით Insert > მოდული ახალი მოდულის შესაქმნელად.

❸ დააკოპირეთ შემდეგი VBA კოდი:

2594

❹ ჩასვით და შეინახეთ კოდი VBA რედაქტორში.

❺ დააჭირეთ F5 კლავიშს ზემოთ კოდის გასაშვებად.

თქვენ მიიღებთ ბოლო სვეტს ნომერი ამომხტარ დიალოგურ ფანჯარაში, როგორც ქვემოთ მოცემულ სურათზე:

წაიკითხეთ მეტი: როგორ დავთვალოთ სვეტები მნიშვნელობის მიღწევამდე Excel-ში

2. გამოიყენეთ Range.Find მეთოდი Excel-ში ბოლო გამოყენებული სვეტის ნომრის დასაბრუნებლად

თუ ეძებთ VBA კოდებს ბოლო გამოყენებული სვეტის ნომრის დასაბრუნებლად, მიჰყევით ქვემოთ მოცემულ ნაბიჯებს :

❶ უპირველეს ყოვლისა, დააჭირეთ ALT + F11 VBA რედაქტორის გასახსნელად.

❷ ამის შემდეგ შექმენით ახალი მოდული Insert > მოდული.

❸ დააკოპირეთ შემდეგი VBA კოდი:

6387

❹ შემდეგ დაუბრუნდით VBA რედაქტორს და დააჭირეთ CTRL + V ჩასვით.

❺ ახლა შეინახეთ VBA კოდი CTRL + S ღილაკზე დაჭერით.

ახლა, დააჭირეთ F5 გასაღები კოდის გასაშვებად.

თქვენ მიიღებთ ბოლო გამოყენებულ სვეტის ნომერს ამომხტარ დიალოგურ ფანჯარაში, როგორც ქვემოთ მოცემულ სურათზე:

დასამახსოვრებელი რამ

• დააჭირეთ ALT + F11 VBA რედაქტორის გასახსნელად.
• შეგიძლიათ დააჭიროთ ALT +F8 Macros დიალოგური ველის გამოსაყენებლად.
• VBA კოდის გასაშვებად დააჭირეთ F5.

დასკვნა

შეჯამებისთვის, ჩვენ განვიხილეთ 2 გზა, რათა დათვალოთ სვეტები მონაცემებით VBA-ს გამოყენებით Excel-ში. გირჩევთ ჩამოტვირთოთ ამ სტატიასთან ერთად მიმაგრებული პრაქტიკის სამუშაო წიგნი და ივარჯიშოთ ამით ყველა მეთოდით. და ნუ დააყოვნებთ რაიმე შეკითხვების დასმას კომენტარების განყოფილებაში ქვემოთ. ჩვენ შევეცდებით უმოკლეს დროში ვუპასუხოთ ყველა შესაბამის შეკითხვას. და გთხოვთ ეწვიოთ ჩვენს ვებგვერდს ExcelWIKI მეტის შესასწავლად.