Excel არ შეიცავს მოციმციმე ან მოციმციმე ტექსტს, როგორც შრიფტის ვარიანტს. Excel-ის ჩაშენებული Visual Basic-ის გამოყენებით აპლიკაციებისთვის, თუმცა, შეგიძლიათ გამოიყენოთ კოდი, რათა ტექსტმა შეცვალოს ფერი ყველა განყოფილებაში, რაც ქმნის მოციმციმე ეფექტს.
Ნაბიჯი 1
გახსენით Microsoft Excel 2010 ფაილი, რომელშიც გსურთ ტექსტის ფლეში. დააჭირეთ "Alt" და "F11" VBA კონსოლის გასახსნელად.
დღის ვიდეო
ნაბიჯი 2
დააწკაპუნეთ მარჯვენა ღილაკით "ThisWorkbook" ჩანაწერზე VBA კონსოლის მარცხენა მხარეს. გადაიტანეთ მაუსი "Insert"-ზე და აირჩიეთ "Module".
ნაბიჯი 3
ორჯერ დააწკაპუნეთ "ThisWorkbook" ოფციაზე. დააკოპირეთ შემდეგი კოდი და ჩასვით იგი ეკრანის მარჯვენა მხარეს თეთრ სივრცეში:
Private Sub Workbook_Open() Blink End Sub
პირადი Sub Workbook_BeforeClose (გაუქმება როგორც ლოგიკური) NoBlink End Sub
ეს კოდი დაიწყება და მოციმციმე ტექსტი, როდესაც გახსნით ამ სამუშაო წიგნს და შეაჩერებს მოციმციმე ტექსტს როდესაც დახურავთ სამუშაო წიგნს, მას შემდეგ რაც შეიყვანთ კოდს, რათა აცნობოთ Excel-ს რეალურად რა არის Blink და NoBlink ნიშნავს.
ნაბიჯი 4
ორჯერ დააწკაპუნეთ "მოდული 1" სიიდან ეკრანის მარცხენა მხარეს. მოათავსეთ თქვენი კურსორი ეკრანის მარჯვენა მხარეს და შეიყვანეთ შემდეგი ხაზი:
საჯარო დროის ათვლა ორმაგად
ეს ქმნის ცვლადს სახელწოდებით "Timecount", რომელიც შეგიძლიათ გამოიყენოთ ყველა ქვეპროგრამაში.
ნაბიჯი 5
დააჭირეთ 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"-დან თქვენთვის სასურველ დიაპაზონამდე, ცალკეული უჯრედის ჩათვლით.
ნაბიჯი 6
დააჭირეთ ღილაკს "Enter" შემდეგ სტრიქონზე შესასვლელად და შეიყვანეთ შემდეგი კოდი:
Sub noblink() ThisWorkbook. სამუშაო ფურცლები ("Sheet1"). დიაპაზონი ("A1:A10"). შრიფტი. ColorIndex = _ xlColorIndexავტომატური აპლიკაცია. OnTime Timecount, "Blink", False End Sub
ეს შექმნის ქვეპროგრამას, რომელიც იმუშავებს სამუშაო წიგნის დახურვისას. ის აბრუნებს მთელ ტექსტს შავ ფერში, ასე რომ, ვინც ხსნის სამუშაო წიგნს ჩართული მაკროების გარეშე, შემთხვევით ვერაფერს დაინახავს ტექსტურ ველებში.
ნაბიჯი 7
დახურეთ VBA კონსოლი ზედა მარჯვენა კუთხეში "X"-ზე დაწკაპუნებით. დააწკაპუნეთ ჩანართზე "ფაილი" ეკრანის ზედა ნაწილში და აირჩიეთ "შენახვა როგორც". ჩამოსაშლელი ველიდან აირჩიეთ „Excel მაკრო ჩართული სამუშაო წიგნი“ და ჩაწერეთ სამუშაო წიგნის სახელი. დააწკაპუნეთ "შენახვა".
ნაბიჯი 8
დახურეთ Excel ფაილი და შემდეგ ხელახლა გახსენით. თქვენი ტექსტი, მაკროში განსაზღვრულ დიაპაზონში, დაიწყებს ციმციმს. თქვენი უსაფრთხოების პარამეტრებიდან გამომდინარე, შესაძლოა დაგჭირდეთ დააწკაპუნოთ ღილაკზე „მაკროს ჩართვა“ ეკრანის ზედა ნაწილში მოციმციმე ტექსტის სანახავად.
