როგორ შევქმნათ ტექსტი Flash Excel-ში

გახსენით Microsoft Excel 2010 ფაილი, რომელშიც გსურთ ტექსტის ფლეში. დააჭირეთ "Alt" და "F11" VBA კონსოლის გასახსნელად.

დააწკაპუნეთ მარჯვენა ღილაკით "ThisWorkbook" ჩანაწერზე VBA კონსოლის მარცხენა მხარეს. გადაიტანეთ მაუსი "Insert"-ზე და აირჩიეთ "Module".

ორჯერ დააწკაპუნეთ "ThisWorkbook" ოფციაზე. დააკოპირეთ შემდეგი კოდი და ჩასვით იგი ეკრანის მარჯვენა მხარეს თეთრ სივრცეში:

Private Sub Workbook_Open() Blink End Sub

პირადი Sub Workbook_BeforeClose (გაუქმება როგორც ლოგიკური) NoBlink End Sub

ეს კოდი დაიწყება და მოციმციმე ტექსტი, როდესაც გახსნით ამ სამუშაო წიგნს და შეაჩერებს მოციმციმე ტექსტს როდესაც დახურავთ სამუშაო წიგნს, მას შემდეგ რაც შეიყვანთ კოდს, რათა აცნობოთ Excel-ს რეალურად რა არის Blink და NoBlink ნიშნავს.

ორჯერ დააწკაპუნეთ "მოდული 1" სიიდან ეკრანის მარცხენა მხარეს. მოათავსეთ თქვენი კურსორი ეკრანის მარჯვენა მხარეს და შეიყვანეთ შემდეგი ხაზი:

საჯარო დროის ათვლა ორმაგად

ეს ქმნის ცვლადს სახელწოდებით "Timecount", რომელიც შეგიძლიათ გამოიყენოთ ყველა ქვეპროგრამაში.

დააჭირეთ Enter კურსორის შემდეგ ხაზზე გადასატანად და შეიყვანეთ შემდეგი კოდი:

Sub blink() ThisWorkbook-ით. სამუშაო ფურცლები ("ფურცელი1"). დიაპაზონი ("A1:A10"). შრიფტი თუ .ColorIndex = 3 შემდეგ .ColorIndex = 2 Else .ColorIndex = 3 დასრულება თუ დასრულება Timecount = ახლა + TimeSerial (0, 0, 1) განაცხადი. OnTime Timecount, "Blink", True End Sub

ეს ქმნის ქვეპროგრამას სახელწოდებით "Blink", რომელიც გამოიწვევს ყველა ტექსტის ციმციმს განსაზღვრულ დიაპაზონში. თქვენ შეგიძლიათ შეცვალოთ დიაპაზონი "A1:A10"-დან თქვენთვის სასურველ დიაპაზონამდე, ცალკეული უჯრედის ჩათვლით.

დააჭირეთ ღილაკს "Enter" შემდეგ სტრიქონზე შესასვლელად და შეიყვანეთ შემდეგი კოდი:

Sub noblink() ThisWorkbook. სამუშაო ფურცლები ("Sheet1"). დიაპაზონი ("A1:A10"). შრიფტი. ColorIndex = _ xlColorIndexავტომატური აპლიკაცია. OnTime Timecount, "Blink", False End Sub

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

დახურეთ VBA კონსოლი ზედა მარჯვენა კუთხეში "X"-ზე დაწკაპუნებით. დააწკაპუნეთ ჩანართზე "ფაილი" ეკრანის ზედა ნაწილში და აირჩიეთ "შენახვა როგორც". ჩამოსაშლელი ველიდან აირჩიეთ „Excel მაკრო ჩართული სამუშაო წიგნი“ და ჩაწერეთ სამუშაო წიგნის სახელი. დააწკაპუნეთ "შენახვა".

დახურეთ Excel ფაილი და შემდეგ ხელახლა გახსენით. თქვენი ტექსტი, მაკროში განსაზღვრულ დიაპაზონში, დაიწყებს ციმციმს. თქვენი უსაფრთხოების პარამეტრებიდან გამომდინარე, შესაძლოა დაგჭირდეთ დააწკაპუნოთ ღილაკზე „მაკროს ჩართვა“ ეკრანის ზედა ნაწილში მოციმციმე ტექსტის სანახავად.