Სარჩევი
ამ სტატიაში მე გაჩვენებთ, თუ როგორ შეგიძლიათ გამოიყენოთ UsedRange თვისება VBA Excel-ში. თქვენ ისწავლით UsedRange თვისების გამოყენებას დახურული დიაპაზონისთვის, გაფანტული დიაპაზონისთვის, არააქტიური სამუშაო ფურცლისთვის და ასევე არააქტიური სამუშაო წიგნისთვის.
ჩამოტვირთეთ პრაქტიკის სამუშაო წიგნი
ჩამოტვირთეთ ეს სამუშაო წიგნი, რათა ივარჯიშოთ ამ სტატიის კითხვის დროს.
Excel VBA UsedRange.xlsm
შესავალი UsedRange-ის თვისებაზე VBA Excel-ში
UsedRange თვისება VBA აბრუნებს Range ობიექტს. ის აბრუნებს დიაპაზონს, რომელიც შედგება სამუშაო ფურცლის ყველა უჯრედისგან, რომელიც გამოიყენებოდა დასაწყისში ცარიელი მწკრივის ჩათვლით.
VBA კოდში, UsedRange თვისება გამოიყენება სამუშაო ფურცლის სახელთან ერთად. ასე რომ, საერთო სინტაქსი აქტიური სამუშაო ფურცლისთვის UsedRange თვისების გამოყენებისთვის არის:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
⧭ შენიშვნები:
- აქ Rng არის Range დაბრუნებული UsedRange თვისების სახელი. შეგიძლიათ გამოიყენოთ ყველაფერი, რაც გსურთ.
- UsedRange თვისების გამოსაყენებლად სამუშაო ფურცელში, გარდა აქტიური ფურცლისა, გამოიყენეთ სამუშაო ფურცლის სახელი.
მაგალითად, მისი გამოსაყენებლად სამუშაო ფურცელში სახელად Sheet1 , ჩადეთ:
Set Rng = Worksheets("Sheet1").UsedRange
4 გზა Excel-ში VBA-ის UsedRange თვისების გამოსაყენებლად
აქ არის 4 ყველაზე გავრცელებული UsedRange თვისების გამოყენების გზები VBA -ში.
1. VBA UsedRange თვისება დახურული დიაპაზონისთვის
პირველ რიგში, ჩვენ გამოვიყენებთ VBA UsedRange თვისებას დახურული დიაპაზონის მქონე სამუშაო ფურცლისთვის.
ეს' დავაბრუნებთ მთელ დიაპაზონს დასაწყისში ცარიელი მწკრივის ჩათვლით.
აქ ჩვენ მივიღეთ სამუშაო ფურცელი სახელწოდებით Sheet1 , რომელიც შეიცავს დახურულ დიაპაზონს, რომელიც შედგება სახელებისგან, შეერთების თარიღებისა და ხელფასებისგან. კომპანიის ზოგიერთი თანამშრომელი.
ახლა თუ იყენებთ UsedRange თვისებას ამ სამუშაო ფურცელზე, ის დააბრუნებს დიაპაზონს B2:C13 (თავიდან ცარიელი მწკრივის ჩათვლით).
თუ Sheet1 აქტიურია, შეგიძლიათ გამოიყენოთ:
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
ან შეგიძლიათ გამოიყენოთ:
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ გამომავალი :
ჩვენ გამოვიყენეთ Select თვისება Range კოდის ფარგლებში. ასე რომ, თუ კოდს გავუშვით, ის შეარჩევს დიაპაზონს B2:D13 Sheet1 -დან.
წაიკითხეთ მეტი: როგორ გამოვიყენოთ VBA დიაპაზონის ობიექტი Excel-ში (5 თვისება)
2. VBA UsedRange თვისება გაფანტული დიაპაზონისთვის
თუ თქვენ გაქვთ გაფანტული დიაპაზონი ნებისმიერ სამუშაო ფურცელში, UsedRange თვისება დააბრუნებს დიაპაზონს, მათ შორის ცარიელი უჯრედების ჩათვლით.
ახლა, Sheet1 -ში, ჩვენ გვაქვს მთლიანი ხელფასი, უმაღლესი ხელფასი და ყველაზე დაბალი ხელფასი მიმოფანტული სხვადასხვა ადგილას, უჯრედიდან B3 -მდე G3 , ასე:
ახლა გამოიყენეთ კოდის ორი ხაზიდან რომელიმე UsedRange თვისების გამოსაყენებლად.
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
ან
Dim Rng As Range
Set Rng = Worksheets("Sheet1").UsedRange
⧭ გამომავალი:
ის აბრუნებს ყველა უჯრედს Sheet1 -ის B2:G3 დიაპაზონში, მათ შორის ცარიელი უჯრედების ჩათვლით (მათ შორის დასაწყისში ცარიელი რიგი). რადგან ჩვენ გამოვიყენეთ Select თვისება Range , ის შეარჩევს დიაპაზონს B2:G3.
<. 20>
დაწვრილებით: დიაპაზონის დასასრული VBA-ს გამოყენებით Excel-ში (მაგალითებით)
მსგავსი წაკითხვები
- Excel VBA დააკოპირეთ დიაპაზონი სხვა ფურცელზე (8 უმარტივესი გზა)
- გაატარეთ დიაპაზონი თითოეული უჯრედისთვის Excel VBA-ით (Ultimate გზამკვლევი)
- Excel გამოწერის დიაპაზონის გარეთ შეცდომა VBA-ში (5 გადაწყვეტილებით)
3. VBA UsedRange თვისება არააქტიური სამუშაო ფურცლისთვის
თუ გვსურს გამოვიყენოთ UsedRange თვისება არააქტიურ სამუშაო ფურცელზე, თავიდანვე უნდა მიუთითოთ სამუშაო ფურცლის სახელი.
მაგალითად, აქ ჩემი აქტიური სამუშაო ფურცელი არის Sheet1 .
UsedRange თვისების გამოსაყენებლად Sheet2 , ჩვენ უნდა გამოვიყენოთ :
Dim Rng As Range
Set Rng = Worksheets("Sheet2").UsedRange
ეს შევარჩევ ყველა გამოყენებულ უჯრედს სამუშაო ფურცელში, სახელწოდებით Sheet2 .
დაწვრილებით: VBA დიაპაზონის დასაყენებლად Excel (7 მაგალითი)
4.VBA UsedRange თვისება არააქტიური სამუშაო წიგნისთვის
შეგიძლიათ გამოიყენოთ UsedRange თვისება სამუშაო წიგნისთვის, რომელიც არ არის აქტიური. უბრალოდ ჩაწერეთ სამუშაო წიგნის სახელი წინ.
მაგალითად, აქ ჩემი აქტიური სამუშაო წიგნია Workbook1 . UsedRange თვისების გამოსაყენებლად Sheet1 Workbook2 -ზე, უნდა გამოვიყენოთ:
Dim Rng As Range
Set Rng = Workbooks("Workbook2.xlsm").Worksheets("Sheet1").UsedRange
ის შეარჩევს სამუშაო ფურცლის გამოყენებულ დიაპაზონს Sheet1 <1-დან>სამუშაო წიგნი2 .
დაწვრილებით: VBA თითოეული უჯრედისთვის დიაპაზონში Excel-ში (3 მეთოდი)
დამახსოვრებელი რამ
UsedRange თვისება VBA აბრუნებს Range ობიექტს. აქ, ამ სტატიაში, ვიზუალიზაციისთვის გამოვიყენეთ Select თვისება Range ობიექტის . მაგრამ, ცხადია, შეგიძლიათ გამოიყენოთ დიაპაზონის ნებისმიერი სხვა თვისება თქვენი მოხერხებულობის მიხედვით.
დასკვნა
ამ მეთოდების გამოყენებით შეგიძლიათ გამოიყენოთ UsedRange საკუთრება Excel-ში. გაქვთ რაიმე შეკითხვები? თავისუფლად მოგვმართეთ.
