Სარჩევი
ამ სტატიაში მე გაჩვენებთ, თუ როგორ შეგიძლიათ დააყენოთ ცვლადი უჯრედის მნიშვნელობაზე VBA Excel-ში. თქვენ ისწავლით ცვლადის დაყენებას ერთი უჯრედისა და უჯრედების დიაპაზონის მნიშვნელობაზე.
ჩამოტვირთეთ სავარჯიშო სამუშაო წიგნი
ჩამოტვირთეთ ეს სავარჯიშო სამუშაო წიგნი, რომ ივარჯიშოთ სანამ თქვენ კითხულობთ ამ სტატიას.
დააყენეთ ცვლადი Cell.xlsm-ზე
3 სწრაფი მაგალითი Excel-ში ცვლადის უჯრედის მნიშვნელობაზე დასაყენებლად
აქ ჩვენ გვაქვს მონაცემთა ნაკრები, რომელიც შეიცავს ზოგიერთი კლიენტის სახელს , მათ კონტაქტის ნომრებს და ელფოსტის მისამართებს დიაპაზონში <სამუშაო ფურცლის 1>B3:D13 .
ჩვენ მიზნად ისახავს დავაყენოთ ცვლადები უჯრედების მნიშვნელობებზე ამ მონაცემთა ნაკრებიდან VBA -ის გამოყენებით.
1. ცვლადის დაყენება ერთ უჯრედის მნიშვნელობაზე Excel VBA-ს გამოყენებით
პირველ რიგში, ჩვენ ვისწავლით ცვლადის დაყენებას ერთ უჯრედის მნიშვნელობაზე VBA -ის გამოყენებით.
ამისთვის მაგალითად, მოდით დავაყენოთ უჯრედის B4 მნიშვნელობა ცვლადზე, რომელსაც ეწოდება Customer_Name .
უმჯობესია, თუ იცით მნიშვნელობის მონაცემთა ტიპი და გამოაცხადოთ იგი მანამდე. და შემდეგ დააყენეთ მნიშვნელობა ამ ცვლადში.
მაგალითად, აქ უჯრედი B4 შეიცავს სახელს, Boris Pasternak . ეს არის სტრიქონის ტიპის ცვლადი. ამიტომ, შეგიძლიათ გამოიყენოთ კოდების შემდეგი 2 სტრიქონები:
5435
მაგრამ კარგია, თუ არ ხართ დარწმუნებული მონაცემთა ტიპში. ამ შემთხვევაში ჩაწერეთ მხოლოდ მე-2 სტრიქონი და VBA სწორად წაიკითხავს მნიშვნელობასთქვენ.
6666
ახლა, იმის შესამოწმებლად, VBA წაიკითხა თუ არა მნიშვნელობა სწორად, შეიყვანეთ ხაზი MsgBox Value კოდის ორი კომპლექტიდან რომელიმე და შემდეგ გაუშვით კოდი.
გამოჩნდება შეტყობინების ველი, რომელიც გაჩვენებთ უჯრედის B4 , Boris Pasternak მნიშვნელობას.
2. დააყენეთ უჯრედების მიმდებარე დიაპაზონის მნიშვნელობები ცვლადში Excel VBA-ის გამოყენებით
ახლა, ჩვენ დავაყენებთ მიმდებარე უჯრედების დიაპაზონის მნიშვნელობებს ცვლადად. მაგალითად, წავიკითხოთ დიაპაზონი B3:D13 ცვლადში Rng .
აქ ცვლადის მონაცემთა ტიპი იქნება დიაპაზონი . თქვენ შეგიძლიათ განაცხადოთ ის ადრე ასე:
7708
ან შეგიძლიათ პირდაპირ მიანიჭოთ მნიშვნელობები.
2012
ახლა, Range ობიექტის მნიშვნელობებზე წვდომისთვის, თქვენ უნდა შეხვიდეთ მათ მწკრივისა და სვეტის ნომრებით Cells ობიექტის .
მაგალითად, წვდომა უჯრედზე B4 , თქვენ უნდა გამოიყენოთ Rng.Cells(2,1) [ უჯრედი B4 არის მეორე რიგში და <დიაპაზონის 1>1 სვეტი B3:D13 .]
შეიყვანეთ ხაზი MsgBox Rng.Cells(2,1) თქვენი კოდის შიგნით და გაუშვით. ის აჩვენებს ბორის პასტერნაკს , მნიშვნელობას უჯრედში B4 .
3. დააყენეთ უჯრედების არამიმდებარე დიაპაზონის მნიშვნელობები ცვლადში Excel VBA-ს გამოყენებით
და ბოლოს, ჩვენ დავაყენებთ უჯრედების არამიმდებარე დიაპაზონის მნიშვნელობებს ცვლადად.
მაგალითად, ვცადოთ წაკითხვადიაპაზონი B3:B13 და D3:D13 ცვლადში, სახელად Rng .
ეს არის ისევ მონაცემთა ტიპი დიაპაზონი . შეგიძლიათ წინასწარ გამოაცხადოთ, ან არა.
ჩვენ გამოვიყენებთ Union მეთოდს VBA -ის შესაერთებლად 2 ან უფრო არამიმდებარედ უჯრედების დიაპაზონი ერთ დიაპაზონში.
9567
ახლა უჯრედზე B4 წვდომისთვის, თქვენ კვლავ უნდა შეიყვანოთ ხაზი MsgBox Rng.Cells(1,1). მაშინ, თუ კოდს გავუშვით, ის აჩვენებს შიგთავსს უჯრედში B4 , ბორის პასტერნაკი .
რა უნდა გახსოვდეთ
ზემოთ აღწერილი ყველა მეთოდი მუშაობს მხოლოდ აქტიურ სამუშაო ფურცელზე. თუ გსურთ წვდომა სამუშაო ფურცელზე, რომელიც არ არის აქტიური, უნდა მიუთითოთ სამუშაო ფურცლის სახელი დიაპაზონის წინ.
მაგალითად, Sheet1-ის B4 დიაპაზონში წვდომისთვის. , თქვენ უნდა გამოიყენოთ:
6820
