Makale numarası: 141691 - Son Gözden Geçirme: 11 Ekim 2006 Çarşamba - Gözden geçirme: 2.3

XL: Visual Basic örneği, kullanma ve büyük deyimleri

Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.

Bu Sayfada

Hepsini aç | Hepsini kapa

Özet

Microsoft Visual Basic for Applications, koşullu bir test gerçekleştirmek için kullanabileceğiniz iki ifade vardır: bir ıf... Then... else deyimi veya bir Select Case bildirisi. Ifade bir ifadenin değeri temelinde bir grup If... Then... else deyiminin yürütür ve Select Case ' deyimi birkaç ifadenin değeri temelinde ifadelerden birini yürütür.

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler. Aşağıdaki örnek makrolara If... Then... else ve Select Case ifadeleri nasıl kullanacağınızı gösterir.

Örnek makro kullanarak ıf... Then... Else Ekstresi

   Sub Using_IF()

      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)
      ' Test to see if x less than or equal to 10.
      If x <= 10 Then
         ' Display a message box.
         MsgBox "X is <=10"

      ' Test to see if x less than or equal to 40 and greater than 10.
      ElseIf x <= 40 And x > 10 Then
         MsgBox "X is <=40 and > 10"

      ' Test to see if x less than or equal to 70 and greater than 40.
      ElseIf x <= 70 And x > 40 Then
         MsgBox "X is <=70 and > 40"

      ' Test to see if x less than or equal to 100 and greater than 70.
      ElseIf x <= 100 And x > 70 Then
         MsgBox "X is <= 100 and > 70"

      ' If none of the above tests returned true.
      Else
         MsgBox "X does not fall within the range"
      End If

   End Sub
				

Örnek makro kullanarak Select Case Ekstresi

   Sub Using_Case()

      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)

      ' Start the Select Case structure.
      Select Case x

         ' Test to see if x less than or equal to 10.
         Case Is <= 10
            ' Display a message box.
            MsgBox "X is <=10"

         ' Test to see if x less than or equal to 40 and greater than 10.
         Case 11 To 40
            MsgBox "X is <=40 and > 10"

         ' Test to see if x less than or equal to 70 and greater than 40.
         Case 41 To 70
            MsgBox "X is <=70 and > 40"

         ' Test to see if x less than or equal to 100 and greater than 70.
         Case 71 To 100
            MsgBox "X is <= 100 and > 70"

         ' If none of the above tests returned true.
         Case Else
            MsgBox "X does not fall within the range"
      End Select

   End Sub
				

Referanslar

Denetleme program akışı hakkında daha fazla bilgi için Yanıt SihirbazıYardım menüsünü ve türü tıklatın:
koşullu programlama hakkında bana söyleyin
"Visual Basic User's Guide" sürüm 5. 0'da Bölüm 7, "Denetlemek nasıl bilgisayarınızı kod çalışırsa"

Microsoft Press: "Microsoft Excel/Visual Basic Programmer's Guide", sürüm 7.0, Bölüm 3, "Program akışı denetlemek"

Microsoft Excel sürüm 5.0, Yardım menüsünde içindekiler ' i tıklatın, Visual Basic programlama'With ';'ı tıklatın sonra türü ve Arama düğmesini tıklatın:
if

-VEYA-

servis talebi
Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için lütfen Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
163435  (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: Kaynaklar Visual Basic for Applications programlama

Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 5.0c
  • Microsoft Excel 5.0 for Macintosh
  • Microsoft Excel 0.12acres for Macintosh
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 98 for Macintosh
Anahtar Kelimeler: 
kbmt kbdtacode kbhowto kbprogramming KB141691 KbMttr
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:141691  (http://support.microsoft.com/kb/141691/en-us/ )
Retired KB ArticleKullanım Dışı Bilgi Bankası İçeriği Yasal Uyarı
Bu makale, Microsoft'un artık destek sağlamadığı ürünler ile ilgili olarak yazılmıştır. Bu nedenle, bu makale "olduğu gibi" sağlanmıştır ve bundan sonra güncelleştirilmeyecektir.