Excel'de tekrar tekrar yanıp sönen veya yanıp sönen bir şekil nasıl yapılır?
Çalışma sayfasında tekrar tekrar yanıp sönen bir şekil yapmak istiyorsanız, bu makaledeki bir yöntem size yardımcı olabilir.
VBA kodu ile tekrar tekrar yanıp sönen bir şekil yapın
VBA kodu ile tekrar tekrar yanıp sönen bir şekil yapın
Çalışma sayfasında, yanıp sönen bir şekil oluşturmak için lütfen aşağıdaki işlemleri yapın.
1. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Çalışma sayfasında tekrar tekrar yanıp sönen bir şekil oluşturun
Dim NextTime As Date
Dim xColor As Long
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
With ActiveSheet.Shapes("new").Fill.ForeColor
If xColor = 0 Then
xColor = .SchemeColor
End If
.SchemeColor = Int(Rnd() * 55 + 1)
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash", schedule:=False
ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
xColor = 0
End Sub
notlar:
3. Tuşuna basın. Ara Toplam + Q çıkmak için tuşları birlikte Uygulamalar için Microsoft Visual Basic pencere.
4. Tıklayarak çalışma sayfasına bir Düğme ekleyin. Geliştirici > Ekle > Düğme (Form Kontrolü) aşağıda gösterilen ekran görüntüsü gibi.
5. Açılırken Makro Ata iletişim kutusunu seçin flaş içinde Makro adı ve ardından OK düğmesine basın.
6. Ardından, ihtiyaç duyduğunuzda düğmedeki ekran metnini değiştirin. Bu durumda, aşağıda gösterilen ekran görüntüsü gibi ekran metnini Yanıp sönmeye başla olarak değiştiriyorum.
7. Yeni bir düğme eklemek için yukarıdaki 4. ve 5. adımları tekrarlayın ve Yapma makroyu bu düğmeye.
8. Bu yeni düğmenin ekran metnini değiştirin.
Ardından, çalışma sayfasına farklı makrolarla atanan iki düğmenin eklendiğini görebilirsiniz. Ekran görüntüsüne bakın:
Şu andan itibaren Yanıp sönmeye başla butonuna tıklandığında şekil farklı renklerle yanıp sönmeye başlar. Flaşı durdurmak istiyorsanız, lütfen Yanıp sönmeyi durdur düğmesine tıklayın.
İlgili makale:
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!