Cara menggunakan jika kemudian ELSE pernyataan dan pernyataan kasus Pilih contoh yang ditulis dalam Visual Basic untuk Excel

Dukungan untuk Office 2003 telah berakhir

Microsoft mengakhiri dukungan untuk Office 2003 pada 8 April 2014. Perubahan ini telah memengaruhi pemutakhiran perangkat lunak dan opsi keamanan Anda. Pelajari apa artinya ini bagi Anda dan cara untuk tetap terlindungi.

PENTING: Artikel ini diterjemahkan oleh perangkat lunak penerjemahan mesin Microsoft, dan mungkin telah diedit oleh Masyarakat Microsoft melalui teknologi CTF dan bukan oleh seorang penerjemah profesional. Microsoft menawarkan baik artikel yang diterjemahkan oleh manusia maupun artikel hasil editan terjemahan oleh mesin/komunitas, sehingga Anda dapat mengakses semua artikel di Sentra Pengetahuan yang kami miliki dalam berbagai bahasa. Namun artikel hasil editan mesin atau bahkan komunitas tidak selalu sempurna. Artikel ini dapat mengandung kesalahan dalam hal kosa kata, sintaksis atau tatabahasa, sangat mirip dengan penutur asing yang membuat kekeliruan ketika berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab atas ketidakakuratan, kesalahan atau kerugian apa pun akibat dari kekeliruan dalam penerjemahan isi atau penggunaannya oleh pelanggan kami. Microsoft juga akan senantiasa memperbarui perangkat lunak penerjemahan mesin dan alat untuk menyempurnakan Editan Hasil Penerjemahan Mesin.

Klik disini untuk melihat versi Inggris dari artikel ini: 213630
Ringkasan
Di Microsoft Visual Basic untuk aplikasi, ada dua pernyataan yang dapat Anda gunakan untuk melakukan uji bersyarat: jika... Kemudian... Else pernyataan atau pernyataan Pilih kasus . Jika... Kemudian... Else pernyataan mengeksekusi grup pernyataan berdasarkan nilai ekspresi, dan Pilih kasus pernyataan menjalankan salah satu dari beberapa pernyataan berdasarkan nilai ekspresi.
Informasi lebih lanjut
Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat. Ini mencakup, namun tidak terbatas pada, garansi yang tersirat dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrogram yang muncul dan alat-alat yang digunakan untuk membuat dan prosedur debug. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan mengubah contoh tersebut untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Makro contoh berikut menunjukkan cara menggunakan jika... Kemudian... Else dan Pilih kasus pernyataan.

Contoh makro menggunakan jika... Kemudian... Pernyataan lain

   Sub Using_IF()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' 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				

Contoh makro menggunakan pernyataan Select kasus

   Sub Using_Case()      ' Dimension the variable.      Dim x As Integer      ' Place a value in x.      x = Int(Rnd * 100)      ' Display the value of x.      MsgBox "The value of x is " & x & "."      ' 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				
Referensi
Untuk informasi selengkapnya tentang cara menggunakan pernyataan pilih kasus, di Editor Visual Basic, klik Bantuan Microsoft Visual Basicbantuan menu, jenis Menggunakan pernyataan Select kasus di bantuan Office atau Wisaya jawaban, kemudian klik pencarian untuk melihat topik.
Untuk informasi selengkapnya tentang pernyataan jika, dalam Penyunting Visual Basic, klik Bantuan Microsoft Visual Basicbantuan menu, jenis Menggunakan jika... Kemudian... Pernyataan yang lain di bantuan Office atau Wisaya jawaban, kemudian klik pencarian untuk melihat topik.
Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk aplikasi, klik nomor artikel di bawah ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
226118 Pemrograman sumber untuk Visual Basic untuk aplikasi
Untuk informasi selengkapnya tentang cara menggunakan kode contoh dalam artikel ini, klik nomor artikel di bawah ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
212536 Cara mengoperasikan kode contoh dari artikel Pangkalan Pengetahuan
Pilih logika XL2000 XL2002 XL2003 XL2007 XL2010 jika kasus lain

Peringatan: Artikel ini telah diterjemahkan secara otomatis

Properti

ID Artikel: 213630 - Tinjauan Terakhir: 10/29/2015 03:36:00 - Revisi: 3.0

Microsoft Office Excel 2003, Microsoft Excel 2010, Microsoft Office Excel 2007, Excel 2016, Microsoft Excel 2013

  • kbdtacode kbhowto kbprogramming kbmt KB213630 KbMtid
Tanggapan