Video: Excel Klasör(Dosya) Etiketi Hazır Tablo #Hazır Excell 1 2024
VBA düğmeleri bağımsız değişkeninin esnekliği, Excel ileti kutularınızı özelleştirmenizi kolaylaştırır. Görüntülenecek düğmeleri seçebilir, bir simgenin görüp görmediğini belirleyebilir ve hangi düğmenin varsayılan olduğunu belirleyebilirsiniz (kullanıcı Enter tuşuna basarsa, varsayılan düğme "tıklanır").
Düğmeler argümanı için yerleşik sabitler kullanabilirsiniz. İsterseniz, sabit yerine değeri kullanabilirsiniz (ancak yerleşik sabitleri kullanmak çok daha kolaydır).
Bu sabitlerin birden fazlasını bir argüman olarak kullanmak için, bunları bir + operatörüyle bağlayın.
vbYesNo + vbExclamation
Ya da kod daha az anlaşılır hale getirmek için tercih ederseniz, kullanımı: Örneğin, ikinci Iletikutusu argüman olarak aşağıdaki ifadeyi kullanın Yes ile bir ileti kutusu ve No düğmeleri ve bir ünlem simgesi görüntülemek için 52 değeri (yani 4 + 48).
Aşağıdaki örnek, bir iletinin Evet düğmesiyle kutusu ve görüntülemek için sabitler bir arada kullanan bir yok düğmesi (vbYesNo) yanı sıra bir soru işareti simgesi (vbQuestion). Sabit vbDefaultButton2, varsayılan düğme olarak ikinci düğmeyi (Hayır), yani Kullanıcı Enter'a basarsa tıklanan düğmeyi belirtir. Kolaylık sağlamak için bu sabitler Config değişkenine atanır ve Config'i ikinci bağımsız değişken olarak MsgBox işlevinde kullanır:
Sub GetAnswer3 () Dim Yapılandırma Tamsayı Yapılandırma = vbYesNo + vbQuestion + vbDefaultButton2 Ans = MsgBox (“aylık rapor işleyin?” Konfig'teki) As Long Dim Ans ise Ans = vbYes Sonra RunReport End Sub olarak
GetAnswer3 yordamını çalıştırdığınızda Excel'in görüntülediği ileti kutusu göz atın. Kullanıcı Evet düğmesini tıklatırsa, yordam RunReport adlı yordamı çalıştırır. Kullanıcı Hayır düğmesini tıklatırsa (veya Enter tuşuna basarsa), işlem hiçbir işlem olmaksızın biter. Başlık bağımsız değişkeni MsgBox işlevinde ihmal edildiğinden, Excel varsayılan başlık olan Microsoft Excel'i kullanır.
Aşağıdaki yordam, MsgBox işlevini kullanarak başka bir örnek sağlar:
Sub GetAnswer4 () Dim Msg As String, Yazı Başlığı Dim Config As Integer, Ans As Integer Msg = "Aylık raporu mu istersiniz? ”Msg = Msg & vbNewLine & vbNewLine Msg = Msg &““Msg = Msg &“yaklaşık 15 dakika sürecektir aylık rapor işleniyor. "Msg = Msg &", geçerli "Msg = Msg &" ayına ait tüm satış ofisleri için "Msg = Msg &" için 30 sayfalık bir rapor oluşturacaktır. "Başlık =" XYZ Pazarlama Şirketi "Config = vbYesNo + vbQuestion Ans = MsgBox (Msg, Yapılandırma, Başlık) Ans = vbYes Then RunReport End Sub
Bu örnek, bir ileti kutusunda daha uzun bir ileti belirlemek için etkili bir yöntem gösterilmektedir.İletiyi bir dizi deyimle oluşturmak için bir değişkeni (Msg) ve birleştirme operatörü (&) kullanılır. VbNewLine sabiti, yeni bir satır başlatan bir satır sonu karakteri ekler (boş bir satır eklemek için iki kere kullanın). Başlık argümanı mesaj kutusuna farklı bir başlık görüntülemek için kullanılır. İşte bu yordamı çalıştırdığınızda Excel'in görüntülediği ileti kutusu.
Varsayılanları (örneğin vbYes ve vbNo) bir MsgBox işlevinin dönüş değeri için kullanabilirsiniz. İşte birkaç diğer sabitler.
| Sabit | Değer | Anlamı |
|---|---|---|
| vbOK | 1 | Kullanıcı Tamam'ı tıklattı. |
| vbCancel | 2 | Kullanıcı İptal'i tıklattı. |
| vbAbort | 3 | Kullanıcı Abort tıklattı. |
| vbRetry | 4 | Kullanıcı Yeniden Dene'ye tıkladı. |
| vbIgnore | 5 | Kullanıcı Yoksay'ı tıklattı. |
| vbYes | 6 | Kullanıcı Evet'i tıklattı. |
| vbNo | 7 | Kullanıcı tıklattı. Hayır |
Ve bu, MsgBox işlevi hakkında bilmeniz gereken hemen hemen hepsidir. Dikkatli olarak ileti kutularını kullanın. Hiçbir amaca hizmet etmeyen ileti kutularını görüntülemek için genellikle bir sebep yoktur. Örneğin, insanlar, Günaydın okur her gün bir mesaj kutusu gördüklerinde rahatsız olma eğilimindedir. Budget Projection çalışma kitabını yüklediğiniz için teşekkür ederiz.
