Bu yazımızda Excel de VBA kullanarak waffle menüsü tasarlıyor olacağız. Waffle’ın içindeki malzemeleri listeleyerek kullanıcıya onay kutuları vasıtası ile istediği malzemeleri girme imkanı tanınabiliyor. Dilerseniz Youtube‘daki Excel eğitim videolarımızda konunun yapılışıyla ilgili bilgiyi aşağıdaki videodan edinebilirsiniz.🙂
Excel Visual Basic’te waffle için menü tasarımı yaptık. Siz tasarımı kendinize göre değiştirebilirsiniz. Nasıl yaptığımızı izlemek için yukarıdaki Youtube linkine tıklayarak görebilirsiniz.
Menü tasarımından müşterinin kolaylıkla seçim yapıp sipariş verebilmesi için VBA’da kodlamalar yapılması gerekir.
Kodlama
Waffle menüsünde müşterinin seçim yapmasını sağlamak için VBA arayüzünde yazacağımız kod aşağıda yer almaktadır.
Private Sub Btn_Order_Click()
For k=1 To 3
If UserForm1.Controls("CheckBox" & k).Value = True Then
fruit=fruit & UserForm1.Controls("CheckBox" & k).Caption & "/"
End If
Next k
For k=4 To 6
If UserForm1.Controls("CheckBox" & k).Value = True Then
chocolate= chocolate & UserForm1.Controls("CheckBox" & k).Caption & "/"
End If
Next k
For k=7 To 12
If UserForm1.Controls("CheckBox" & k).Value = True Then
extra=extra & UserForm1.Controls("CheckBox" & k).Caption & "/"
End If
Next k
Msgbox "Meyve Seçimi : " + fruit & vbNewLine _
& "Çikolata Seçimi : " + chocolate & vbNewLine _
& "Süsleme Seçimi : "+extra & vbNewLine
End Sub
Kodda yazılı olan Btn_Order_Click , UserForm1 , fruit , chocolate , extra kelimeleri tasarım için kendi belirlediğimiz kelimelerdir.
Kodu yazdıktan sonra UserForm1 ‘in üzerinde fare ile sağ tıklayıp Insert seçeneği üzerine gelip Module seçeneğine tıklanır. Açılan pencerede yazılması gereken kod aşağıda yer almaktadır.
Sub Menu()
UserForm1.Show
End Sub
Kodu yazdıktan sonra müşterinin seçim yapması için ekrana menüyü yansıtmak gerekir. Bunun için de Excel ekranında bir şekile makro ataması yapılmalıdır.
Öncelikle Ekle sekmesinde bulunan Çizimler seçilir. Şekiller seçeneğinden köşeleri yuvarlatılmış dikdörtgen seçilir. Şekilin içerisine “Waffle Malzeme Seçimi” yazılır. Makro ataması yapmak için şeklin üzerine fare ile sağ tıklayıp Makro Ata seçeneği seçilir. Açılan pencerede Menu sekmesi seçilip Tamam tuşuna basılır.
Böylelikle şeklin üzerine basıldığında hazırlanmış olan waffle menüsü açılır ve kullanıcı buradan gerekli seçimleri yaparak siparişini verebilir.
Excel ile ilgili daha çok bilgi edinmek istiyorsanız Youtube, Instagram, Facebook, Tiktok, Linkedin platformlarından bizi takip edebilirsiniz. Udemy eğitimlerimiz için aşağıdaki görselden Kayıt Ol butonuna basarak derslere kayıt olabilirsiniz.
İlginize teşekkür ederiz, iyi günler dileriz🙂👋