Excel ile formlar nasıl oluşturulur

Excel'de bir kitap açın. Formunuzun olmasını istediğiniz kitapta biliyorsanız, şimdi açmanın zamanı geldi. Kitaba erişmek için Dosya menüsünü kullanın.

"Araçlar" menüsüne tıklayın, "Makro" yu seçin ve "Visual Basic Editor" a tıklayın.

"Ekle" ye tıklayın ve ardından "Kullanıcı Formu" nu seçin.

Bir komut düğmesini forma sürükleyin. Bu örnek için bunlardan en az üçüne ihtiyacınız var.

Komut düğmeleri ve etiketlerine ad verin. "Görüntüle" ve "Özellikler penceresi" üzerine tıklayın. Forma yerleştirdiğiniz komut düğmelerinden birine tıklayın.

Özellikler penceresindeki isim ayarlarına tıklayarak ve "cmdOK" yazarak "OK" yazan komut düğmesini adlandırın. Özellikler penceresindeki "Lejand" ayarını tıklayın ve "Tamam" yazın.

Başka bir komut düğmesine tıklayın. "CmdCancel" adını koyun ve Properties (Özellikler) penceresindeki "Cancel" (İptal) 'i okumak için başlığı ayarlayın.

Üçüncü komut düğmesine tıklayın ve "cmdClearForm" olarak adlandırın ve "Formu Sil" ibaresini okumak için başlık ayarlarını değiştirin.

Kod penceresini açmak için klavyenizdeki "F7" tuşuna basın.

Kod penceresinin üstündeki açılır listeye tıklayın. "Kullanıcı Formu" adlı alt prosedürü açmak için sol üstteki listeye tıklayın ve "Başlat" ı seçmek için diğer açılır listeye tıklayın.

Aşağıdakileri okuyan alt yordamı kaldırın: UserForm_Click () yordamı.

Kod penceresinde aşağıdaki kodu yazın (mavi metnin üzerine yazı yazmayın, sadece metni siyah olarak ekleyin): Private Sub UserForm_Initialize () txtName.Value = "" txtPhone.Value = "" cboDepartment ile .AddItem "Çalışanlar ".AddItem" Yöneticileri "YourCourse.Value =" ile Sonlandır "optIntroduction = Doğru chkWork = Yanlış chkVacation = False txtName.SetFocus End Sub

İptal tuşuna basarak kodu giriniz. Kod penceresini açmak için İptal düğmesine çift tıklayın. Kod penceresini okuyacağınız şekilde kodunuzu girin: Private Sub cmdCancel_Click () Me End Me End Sub

Formu Sil düğmesi için kod penceresini açın. "Formu Sil" e çift tıklayın.

Okunmak için kod penceresinde kodunuzu girin: Özel Alt cmdClearForm_Click () CallForm_Initialize End Sub

Kod penceresinde aşağıdaki kodu eklemek için "Kabul et" düğmesine çift tıklayın: Özel Alt cmdOK_Click () ActiveWorkbook.Sheets ("YourWork"). Aralığı etkinleştirin ("A1") .Eğer IsEmpty (ActiveCell) ise seçin. FalseThen ActiveCell.Offset (1, 0) .SolectCute IsEmpty (ActiveCell) = True ActiveCell.Value = txtName.Value ActiveCell.Offset (0, 1) = txtPhone.Value ActiveCell.Offset (0, 2) = cboDepartment kadar Döngü seçin .Value ActiveCell.Offset (0, 3) = cboCourse.Value Eğer OptIntroduction = True Sonra ActiveCell.Offset (0, 4) .Value = "Enter" ElseIf optIntermediate = True Sonra ActiveCell.Offset (0, 4) .Value = " Intermed "Else ActiveCell.Offset (0, 4) .Value =" Adv "End Eğer chkLunch = True ise o zaman ActiveCell.Offset (0, 5) .Value =" Yes "Else ActiveCell.Offset (0, 5) .Value = "Hayır" End Eğer chkWork = True ise o zaman ActiveCell.Offset (0, 6) .Value = "Evet" Else chkVacation = False Sonra ActiveCell.Offset (0, 6) .Value = "" Else ActiveCell.Offset (0, 6) .Value = "Hayır" Sonu Eğer End ise Aralık ("A1").