Microsoft Excel არის ერთ-ერთი ყველაზე მძლავრი ცხრილების ხელმისაწვდომი პროგრამა და ის სასარგებლოა მრავალფეროვანი აქტივობებისთვის ფინანსური ანალიზიდან სამეცნიერო პროექტებამდე. თუმცა, ადამიანების უმეტესობა ფიქრობს, რომ Excel შემოიფარგლება ფორმულების ბადეების მანიპულირებით, ანუ ტრადიციული ცხრილების ფუნქციონალობით. მაგრამ Excel-ის Visual Basic სკრიპტირება აადვილებს ამაზე მეტის გაკეთებას. VB-ით შეგიძლიათ დახაზოთ ნებისმიერი ფორმა, რომელიც მოგწონთ ცხრილზე და გამოიყენოთ ისინი ნახატების, სქემების და სხვა გრაფიკების შესაქმნელად, რათა დაგეხმაროთ თქვენი ცხრილის ვიზუალიზაციაში.
Ნაბიჯი 1
გახსენით Microsoft Excel. თუ თქვენ გაქვთ Excel 2007 ან უფრო ახალი ვერსია, გადადით "View" ჩანართზე ლენტით და დააწკაპუნეთ "Macros"; წინააღმდეგ შემთხვევაში, დააჭირეთ მენიუს "ინსტრუმენტები" და აირჩიეთ "მაკრო". მაკრო დიალოგური ფანჯარა უნდა გამოჩნდეს.
დღის ვიდეო
ნაბიჯი 2
ჩაწერეთ მაკრო სახელი და დააჭირეთ "შექმნა". ამან უნდა გახსნას Visual Basic აპლიკაციების რედაქტორი ეკრანზე გამოსახული ახალი ცარიელი ქვეპროგრამით.
ნაბიჯი 3
განსაზღვრეთ X და Y კოორდინატები, რომლებიც გსურთ გამოიყენოთ თქვენი ვექტორის დასაწყისისა და დასასრულისთვის. ელცხრილის ზედა მარცხენა კუთხე არის (0, 0) და X და Y იზრდება, როგორც თქვენ მიდიხართ მარჯვნივ და ქვემოთ, შესაბამისად. ჩასვით ეს მნიშვნელობები ცვლადებში, მაგალითად:
start_x = 0 start_y = 0 end_x = 100 end_y = 100
ეს მნიშვნელობები დახაზავს დიაგონალურ ხაზს ცხრილის ზედა მარცხენა კუთხეში. შეიძლება დაგჭირდეთ ექსპერიმენტი სხვადასხვა რიცხვებით, რათა მიიღოთ ხაზი ზუსტად იქ, სადაც გსურთ.
ნაბიჯი 4
დაამატეთ კოდი თავად ხაზის დასახაზად:
ხაზი = Sheet1.ფორმები. AddLine (start_x, start_y, end_x, end_y)
ნაბიჯი 5
დაამატეთ კოდი ხაზის ბოლოს ისრის დასამატებლად, რათა ის ვექტორად გამოიყურებოდეს:
ხაზი. ხაზი. EndArrowheadStyle = MsoArrowheadStyle.msoArrowheadStyle
ნაბიჯი 6
დახურეთ Visual Basic რედაქტორი და გახსენით მაკრო დიალოგური ფანჯარა (იხ. ნაბიჯი 1). დააწკაპუნეთ თქვენს მაკროზე და დააჭირეთ "Run". თქვენ უნდა ნახოთ თქვენი ხაზი გამოჩნდება.
რჩევა
თქვენ შეგიძლიათ გამოიყენოთ მე-4 ნაბიჯში შექმნილი „ხაზის“ ცვლადი თქვენი ვექტორის სხვა თვისებების შესაცვლელად. მაგალითად, ხაზის ფერის მწვანედ შესაცვლელად, შეგიძლიათ დაწეროთ "ხაზი. ხაზი. ForeColor. RGB = RGB(0, 255, 0)"
