Სარჩევი
თუ თქვენ ეძებთ რამდენიმე უმარტივეს ხერხს, რათა დათვალოთ რიგები მონაცემებით სვეტში Excel VBA -ის გამოყენებით, მაშინ თქვენ სწორ ადგილას ხართ. მაშ ასე, დავიწყოთ ჩვენი მთავარი სტატიით, რათა მეტი ვიცოდეთ სვეტში მონაცემებით მწკრივების მარტივად დათვლის შესახებ.
ჩამოტვირთეთ სამუშაო წიგნი
დათვალეთ რიგები Data.xlsm-ით
9 გზა, რათა დათვალოთ რიგები მონაცემებით სვეტში Excel VBA-ს გამოყენებით
აქ გვაქვს შემდეგი მონაცემთა ნაკრები, რომელიც შეიცავს კომპანიის გაყიდვების ჩანაწერებს. ჩვენ გამოვიყენებთ სხვადასხვა სვეტებს ამ მონაცემთა ნაკრებიდან, რათა ავხსნათ მწკრივების დათვლის სხვადასხვა გზები სვეტის მონაცემებზე დაყრდნობით.
ჩვენ გამოვიყენეთ Microsoft Excel 365 ვერსია აქ, შეგიძლიათ გამოიყენოთ ნებისმიერი სხვა ვერსია თქვენი მოხერხებულობის მიხედვით.
მეთოდი-1: VBA Rows.Count თვისების გამოყენება სტრიქონების დათვლა მონაცემებით სვეტში Excel-ში
აქ, ჩვენ დაითვლის Sales სვეტის რიგებს პროდუქციის გაყიდვების მნიშვნელობებით სტრიქონების გამოყენებით. დათვალეთ თვისება VBA -დან.
ნაბიჯი-01 :
➤ გადადით <1-ზე>დეველოპერი Tab >> Visual Basic ოფცია.
შემდეგ, Visual Basic რედაქტორი გაიხსნება .
➤ გადადით Insert Tab >> Module Option.
შემდეგ, შეიქმნება მოდული .
ნაბიჯი-02 :
➤ დაწერეთ შემდეგი კოდი
5388
აქ ჩვენ გამოვაცხადეთ X როგორც მთლიანი , „D4:D11“ არის დიაპაზონი საფუძველზერომელ სვეტში ვითვლით მწკრივებს და ბოლოს მწკრივის ნომერი მივანიჭეთ X .
შეტყობინებების ველი ( MsgBox ) მოგვცემს შედეგს, როგორც მთლიანი რიცხვი. სტრიქონების.
➤ დააჭირეთ F5 .
შემდეგ, თქვენ მიიღებთ მწკრივების საერთო რაოდენობას მონაცემებით 8 Sales სვეტიდან შეტყობინებების ველში.
დაწვრილებით: Excel VBA მწკრივების დასათვლელად მონაცემებით (4 მაგალითი)
მეთოდი-2: ბოლო თვისების გამოყენებით სტრიქონების მონაცემებით დათვლა სვეტში
ამ განყოფილებაში ჩვენ გამოვიყენებთ დასრულდეს თვისება VBA Sales სვეტის გაყიდვების მნიშვნელობებით მწკრივების დასათვლელად.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
3263
აქ ჩვენ გამოვაცხადეთ X როგორც მთლიანი , „D4“ არის დიაპაზონის საწყისი მნიშვნელობა, რომლის საფუძველზეც სვეტი ვითვლით რიგებს და ბოლოს მწკრივის ნომერი მივანიჭეთ X . X მოგვცემს ბოლო გამოყენებული მწკრივის ნომერს და არა ამ სვეტის მთლიან გამოყენებულ სტრიქონებს. ამრიგად, მწკრივის ჯამური ნომრის მისაღებად ჩვენ გამოვაკლეთ 3 ( საწყისი მწკრივის ნომერი-1 = 4-1 = 3 ) X -ს.
შეტყობინებების ველი ( MsgBox ) გამოჩნდება რიგების მთლიანი რაოდენობით.
➤ დააჭირეთ F5 .
ამის შემდეგ, თქვენ გექნებათ 8 როგორც Sales სვეტის რიგების ჯამური რაოდენობა შეტყობინების ველში.
დაწვრილებით: როგორ დავთვალოთმწკრივები მონაცემებით Excel-ში (4 ფორმულა)
მეთოდი-3: მწკრივების კომბინაციის გამოყენება. Count Property და End Property
აქ ჩვენ გამოვიყენებთ ორი თვისების კომბინაციას VBA როგორც რიგები. დათვალეთ თვისება და End თვისება ერთად Sales სვეტის ჯამური რიგების დასათვლელად.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
9286
აქ ჩვენ გამოვაცხადეთ X როგორც მთლიანი , 4 -ში (სტრიქონები. რაოდენობა, 4) არის გაყიდვები სვეტი, რომლის საფუძველზეც ვითვლით მწკრივებს და ბოლოს მწკრივის რიცხვს მივანიჭებთ X .
X დაგვიბრუნებს ბოლო გამოყენებულ მწკრივს. ნომერი და არა ამ სვეტის მთლიანი გამოყენებული რიგები. ამრიგად, მწკრივის ჯამური ნომრის მისაღებად ჩვენ გამოვაკლეთ 3 ( საწყისი მწკრივის ნომერი-1 = 4-1 = 3 ) X -ს.
შეტყობინებების ველი ( MsgBox ) გამოჩნდება რიგების მთლიანი რაოდენობით.
➤ დააჭირეთ F5 .
შემდეგ, ჩვენ მივიღებთ 8 როგორც Sales სვეტის სტრიქონების საერთო რაოდენობა შეტყობინების ველში.
დაკავშირებული შიგთავსი: როგორ დავთვალოთ მწკრივები მრავალი კრიტერიუმით Excel-ში (6 მეთოდი)
მეთოდი-4: VBA შერჩევის თვისების გამოყენება Excel-ში სვეტებში მწკრივების დასათვლელად
შეგიძლიათ გამოიყენოთ Selection თვისება ასევე Sales-ის მონაცემების მიხედვით ჯამური რიგების დასათვლელად სვეტი.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდის -1 .
➤ ჩაწერეთ შემდეგი კოდი
6907
აქ ჩვენ გამოვაცხადეთ X როგორც მთლიანი , არჩეული რიგები დიაპაზონი აქ დაითვლება და ბოლოს, ჩვენ მივანიჭებთ მწკრივის ნომერს X .
შეტყობინებების ველი ( MsgBox ) მოგვცემს შედეგს ჯამურად. რიგების რაოდენობა.
შემდეგ, ჩვენ უნდა დავუბრუნდეთ მთავარ ფურცელს.
➤ აირჩიეთ Sales სვეტის დიაპაზონი , და შემდეგ გადადით დეველოპერი ჩანართზე >> მაკროები ოფცია.
ამის შემდეგ, მაკრო დიალოგური ფანჯარა გამოჩნდება.
➤ აირჩიეთ მაკროს სახელი countrows4 და შემდეგ დააჭირეთ Run ვარიანტი.
საბოლოოდ, ჩვენ მივიღებთ შემდეგ შეტყობინებას, რომელშიც ნათქვამია „გამოყენებული რიგების რაოდენობა არის 8“ .
დაწვრილებით: როგორ დავთვალოთ რიგები VBA-ით Excel-ში (5 მიდგომა)
მეთოდი-5: დათვალეთ რიგები მონაცემებით სვეტში FIND ფუნქციის გამოყენებით
აქ ჩვენ გამოვიყენებთ FIND ფუნქცია რეგიონის სვეტაში ტექსტური სტრიქონების მწკრივების დასათვლელად.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
9213
აქ ჩვენ გამოვაცხადეთ X როგორც მთლიანი , rng როგორც დიაპაზონი , „C4:C11“ არის დიაპაზონი საფუძველზე რომელ სვეტში ვითვლით რიგებს და ბოლოს მივაკუთვნეთ rng .
ჩვენ გამოვიყენეთ WITH განცხადება, რათა თავიდან ავიცილოთ ობიექტის სახელის გამოყენების გამეორება, როგორიცაა rng .
FIND ფუნქციის გამოყენებით, X მოგვცემს ბოლო გამოყენებული მწკრივის ნომერს და არა ამ სვეტის მთლიან გამოყენებულ რიგებს. ამრიგად, მწკრივის ჯამური ნომრის მისაღებად ჩვენ გამოვაკლეთ 3 ( საწყისი მწკრივის ნომერი-1 = 4-1 = 3 ) X -ს.
შეტყობინებების ველი ( MsgBox ) გამოჩნდება რიგების მთლიანი რაოდენობით.
➤ დააჭირეთ F5 .
ბოლოს, თქვენ გექნებათ 8 როგორც Sales სვეტის სტრიქონების ჯამური რაოდენობა შეტყობინების ველში.
დაკავშირებული კონტენტი: Excel ითვლის ხილული რიგები (ფორმულა და VBA კოდი)
მსგავსი წაკითხვები:
- დათვლა რიგები ჯგუფში Pivot Table Excel-ში (ნაბიჯ-ნაბიჯ სახელმძღვანელო)
- Excel VBA: დათვალეთ რიგები ფურცელში (5 მაგალითი)
მეთოდი-6: დაითვალეთ არაცარიელი რიგები მონაცემებით სვეტში VBA-ს გამოყენებით
აქ, ჩვენ გვაქვს რამდენიმე ცარიელი უჯრედი Sales სვეტში (ჩვენ წავშალეთ ამ მეთოდის ზოგიერთი მნიშვნელობა) და VBA კოდის გამოყენებით ჩვენ ვითვლით მხოლოდ მნიშვნელობებით მწკრივების მთლიან რაოდენობას.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
4560
აქ, ჩვენ გამოვაცხადეთ X როგორც გრძელი , Y და rng როგორც დიაპაზონი , „D4:D11“ არის დიაპაზონი, რომლის საფუძველზეც ვითვლით რიგებს და ბოლოს გვაქვსმიანიჭა მას rng .
FOR ციკლი შეამოწმებს, შეიცავს თუ არა ამ დიაპაზონის თითოეული უჯრედი რაიმე მნიშვნელობას COUNTA ფუნქციის და გამოყენებით. მნიშვნელობების მქონე უჯრედებისთვის X ყოველ ჯერზე გაიზრდება 1 .
საბოლოოდ, მესიჯის საშუალებით მივიღებთ მწკრივების ჯამურ რიცხვებს არა ცარიელი უჯრედებით. ველი.
➤ დააჭირეთ F5 .
საბოლოოდ, თქვენ გექნებათ 5 როგორც საერთო რაოდენობა Sales სვეტის არა ცარიელი რიგები შეტყობინებების ველში.
წაიკითხეთ მეტი: როგორ დავთვალოთ გაფილტრული რიგები Excel-ში VBA-ით ( ნაბიჯ-ნაბიჯ სახელმძღვანელო)
მეთოდი-7: დაითვალეთ სტრიქონები სპეციფიკური მნიშვნელობით
აქ, ჩვენ დავთვლით მწკრივების საერთო რაოდენობას გაყიდვების ღირებულებით $2,522.00 Sales სვეტიდან.
ნაბიჯები :
➤ მიჰყევით ნაბიჯს -01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
2380
აქ ჩვენ გამოვაცხადეთ X როგორც გრძელი , Y და rng როგორც დიაპაზონი , „D4:D11“ არის დიაპაზონი, რომლის საფუძველზეც სვეტი ჩვენ ვითვლით რიგებს და ბოლოს მივაკუთვნეთ მას rng .
FOR ციკლი შეამოწმებს, შეიცავს თუ არა ამ დიაპაზონის რომელიმე უჯრედი გაყიდვის მნიშვნელობას 2522 COUNTIF ფუნქციის გამოყენებით და ამ მნიშვნელობის მქონე უჯრედებისთვის X ყოველ ჯერზე გაიზრდება 1 .
საბოლოოდ, მესიჯის საშუალებით მივიღებთ მწკრივების ჯამურ ნომრებს 2522 მნიშვნელობით.ყუთი.
➤ დააჭირეთ F5 .
საბოლოოდ, თქვენ გექნებათ 3 როგორც მთლიანი რიცხვითი რიგები Sales სვეტი, რომელიც შეიცავს გაყიდვების ღირებულებას $2,522.00 შეტყობინების ველში.
დაწვრილებით: Excel VBA: დაითვალეთ რიგები სპეციფიკური მონაცემებით (8 მაგალითი)
მეთოდი-8: დაითვალეთ სტრიქონები კონკრეტულ მნიშვნელობებზე მეტი მნიშვნელობებით
ამ განყოფილებაში ჩვენ განვიხილავთ დაითვალეთ მწკრივების საერთო რაოდენობა $3000.00-ზე მეტი Sales სვეტში.
ნაბიჯები :
➤ მიჰყევით ნაბიჯი-01 მეთოდი-1 .
➤ დაწერეთ შემდეგი კოდი
6725
აქ ჩვენ გამოვაცხადეთ X როგორც გრძელი , Y და rng როგორც დიაპაზონი , „D4:D11“ არის დიაპაზონი, რომლის საფუძველზეც სვეტი ვითვლით მწკრივებს და ბოლოს მივანიჭებთ მას rng .
FOR loop შეამოწმებს, შეიცავს თუ არა ამ დიაპაზონის რომელიმე უჯრედი გაყიდვის მნიშვნელობას, რომელიც აღემატება 3000 COUNTIF ფუნქციის გამოყენებით (ან შეგიძლიათ სცადოთ ნებისმიერი სხვა პირობები, როგორიცაა ნაკლები, მეტი ან ტოლი და ა.შ.) და ამ მნიშვნელობის მქონე უჯრედებისთვის X ყოველ ჯერზე გაიზრდება 1 .
და ბოლოს, ჩვენ მივიღებთ მწკრივების მთლიან რიცხვებს 3000 -ზე მეტი მნიშვნელობებით.
➤ დააჭირეთ F5 .
შემდეგ, თქვენ გექნებათ 3 როგორც Sales სვეტის მთლიანი რიცხვითი რიგები, რომელიც შეიცავს გაყიდვებს $3,000.00-ზე მეტი მნიშვნელობები შეტყობინებების ველში.
დაწვრილებით: როგორ ითვლის Excel მწკრივებს მნიშვნელობით (8 გზები)
მეთოდი-9: სტრიქონების დათვლა კონკრეტული ტექსტის სტრიქონით
აქ მივიღებთ მწკრივების რაოდენობას, რომელიც შეიცავს apple ზუსტად ან ნაწილობრივ პროდუქტის სვეტაში.
ნაბიჯები :
➤ მიჰყევით ნაბიჯ- 01 მეთოდი-1 .
➤ ჩაწერეთ შემდეგი კოდი
9598
აქ, ჩვენ გამოვაცხადეთ X როგორც გრძელი , Y და rng როგორც დიაპაზონი , „B4:B11“ არის დიაპაზონი, რომლის საფუძველზეც ჩვენ გვაქვს სვეტი ითვლიან რიგებს და ბოლოს მივაკუთვნეთ მას rng .
FOR ციკლი შეამოწმებს, შეიცავს თუ არა ამ დიაპაზონის რომელიმე უჯრედი ტექსტის სტრიქონს „გამოიყენე“ COUNTIF ფუნქციის გამოყენებით (აქ ის ჩაითვლება როგორც ზუსტ შესატყვისს, ასევე ნაწილობრივ შესატყვისს ასტერიკის სიმბოლოს გამოყენებით სტრიქონის წინ და მის შემდეგ), და ამ მნიშვნელობის მქონე უჯრედებისთვის X გაიზრდება 1 თითოეული დროით ე.
საბოლოოდ, ჩვენ მივიღებთ მწკრივის მთლიან ნომრებს ტექსტური სტრიქონით apple შეტყობინების ველის მეშვეობით.
➤ დააჭირეთ F5 .
შემდეგ, თქვენ გექნებათ 2 როგორც პროდუქტის სვეტის მთლიანი რიცხვითი სტრიქონები, რომლებიც შეიცავს ტექსტის სტრიქონებს. Apple და Pineapple შეტყობინების ველში.
წაიკითხეთ მეტი: როგორ დავთვალოთ რიგები ტექსტით Excel-ში (უმარტივესი8 გზა)
სავარჯიშო განყოფილება
დამოუკიდებლად პრაქტიკის გასაკეთებლად ჩვენ მოგაწოდეთ პრაქტიკა განყოფილება, როგორც ქვემოთ, ფურცელში სახელად პრაქტიკა . გთხოვთ, გააკეთეთ ეს დამოუკიდებლად.
დასკვნა
ამ სტატიაში ჩვენ შევეცადეთ გაგვეშუქებინა სტრიქონების დათვლის გზები სვეტში მონაცემებით Excel <1 გამოყენებით>VBA მარტივად. იმედია გამოგადგებათ. თუ თქვენ გაქვთ რაიმე შემოთავაზება ან შეკითხვა, მოგერიდებათ გააზიაროთ ისინი კომენტარების განყოფილებაში.
