İlerleme çubuğu oluşturmak için Excel ve VBA'yı kullanın.
Bir işlemin ilerlemesini belirtmek için bir bilgisayar uygulamasında bir ilerleme çubuğu kullanılır. Genellikle bir işlem ilerledikçe canlandırılan bir dikdörtgendir. Visual Basic for Applications veya VBA, Microsoft Office Uygulamalarında rutin görevleri otomatikleştirmek ve kullanıcı arabirimleri oluşturmak için kullanılan bir bilgisayar programlama dilidir. Microsoft Office Excel'de VBA kullanarak kolayca bir ilerleme çubuğu oluşturabilirsiniz. Excel, Microsoft Office paketinde bulunan bir elektronik tablo uygulamasıdır.
Aşama 1
Microsoft Office Excel'i açın, ardından Visual Basic Düzenleyicisini açmak için "Alt" ve "F11" tuşlarına basın. "VBAProject"e sağ tıklayın, ardından yeni bir Form eklemek için "UserForm"a tıklayın. "Araç Kutusu" menüsünden "Etiket"e tıklayın. Yeni bir etiket denetimi oluşturmak için fare düğmesini basılı tutarken Form üzerinde sürükleyin.
Günün Videosu
Adım 2
Etikete sağ tıklayın ve "Özellikler"i seçin, ardından "Yükseklik"i 42 ve "Genişlik"i 12 olarak değiştirin. "Üst" değerini 12 olarak değiştirin. Aynı işlemi kullanarak dokuz etiket daha oluşturun.
Aşama 3
"Araç Kutusu" bölmesinde "Komut Düğmesi"ne tıklayın ve Formunuza yeni bir düğme ekleyin. Yeni bir prosedür oluşturmak için "Komut Düğmesi"ne sağ tıklayın ve "Kodu Görüntüle"ye tıklayın.
4. Adım
Yeni bir değişken oluşturmak ve değerini tanımlamak için aşağıdakini yazın:
Dim cnt As Integer cnt = 0
Adım 5
Form başladığında tüm etiketleri gizlemek için aşağıdakini yazın:
Ben mi. Label1.Visible = Yanlış Ben. Label2.Visible = Yanlış Ben. Label3.Visible = Yanlış Ben. Label4.Visible = Yanlış Ben. Label5.Visible = Yanlış Ben mi. Label6.Visible = Yanlış Ben. Label7.Visible = Yanlış Ben. Label8.Visible = Yanlış Ben. Label9.Visible = Yanlış Ben. Label10.Visible = Yanlış
6. Adım
Bir while döngüsü oluşturmak için aşağıdakini yazın ve kodu 5 saniye boyunca duraklatırken 10 kez yineleyin:
Cnt iken yap <> 10
Case cnt Case Is = 1 Me'yi seçin. Label1.Visible = Gerçek Ben. Label1.BackColor = vbBlue Case Is = 2 Me. Label2.Visible = Gerçek Ben. Label2.BackColor = vbBlue Case Is = 3 Me. Label3.Visible = Gerçek Ben. Label3.BackColor = vbBlue Case Is = 4 Me. Label4.Visible = Gerçek Ben. Label4.BackColor = vbBlue Case Is = 5 Me. Label5.Visible = Gerçek Ben. Label5.BackColor = vbBlue Case Is = 6 Me. Label6.Visible = Gerçek Ben. Label6.BackColor = vbBlue Case Is = 7 Me. Label7.Visible = Gerçek Ben. Label7.BackColor = vbBlue Case Is = 8 Me. Label8.Visible = Gerçek Ben. Label8.BackColor = vbBlue Case Is = 9 Me. Label9.Visible = Gerçek Ben. Label9.BackColor = vbBlue Case Is = 10 Me. Label10.Visible = Gerçek Ben. Label10.BackColor = vbBlue End Select. Ben mi. Yeniden Boya Uygulaması. Şimdi Bekle + TimeValue("00:00:05")cnt = cnt + 1
Döngü
7. Adım
"Ekle" menüsüne ve ardından yeni bir modül eklemek için "Modül"e tıklayın. "UserForm1" inizi başlatmak için aşağıdaki kodu kopyalayıp yapıştırın:
Sub showProgressBar() UserForm1.Show End Sub
Programınızı çalıştırmak için "F5" tuşuna basın.
