XL: Cara menggunakan kotak Input dengan Visual Basic untuk aplikasi

Terjemahan Artikel Terjemahan Artikel
ID Artikel: 142141 - Melihat produk di mana artikel ini berlaku.
Perbesar semua | Perkecil semua

Pada Halaman ini

RINGKASAN

Di Microsoft Excel, Anda dapat membuat Microsoft Visual Basic untuk Prosedur aplikasi yang menggunakan kotak input untuk mengumpulkan data dari pengguna. Untuk membuat kotak input, Anda dapat menggunakan InputBox metode atau InputBox fungsi. Perbedaan utama antara InputBox metode dan InputBox fungsi adalah bagaimana Anda menggunakan mereka untuk memeriksa data yang dimasukkan untuk melihat apakah itu benar.

InputBox metode

The InputBox metode berisi jenis argumen yang dapat Anda gunakan untuk menentukan tipe data untuk dimasukkan. Anda dapat mengenali bahwaInputBox metode yang digunakan jika "InputBox" didahului olehAplikasi objek. Juga, jika Anda mengklik Batalkan dalam kotak input, InputBox metode kembali Palsu.

InputBox fungsi

Anda harus menggunakan conditional seperti Jika pernyataan atau Kasuspernyataan untuk memverifikasi jenis data yang dimasukkan. The InputBoxfungsi dapat memberikan Anda lebih banyak kontrol atas input dan memungkinkan Anda untuk menggunakan pesan kesalahan kustom.

Anda dapat membedakan InputBox fungsi dari InputBox metode Aplikasi objek; fungsi tidak didahului oleh Aplikasi objek. Selain itu, fungsi tidak memiliki argumen untuk memeriksa jenis data yang dimasukkan. Jika Anda mengklik Batalkan tombol di kotak input, InputBox fungsi mengembalikan string teks kosong, "".

INFORMASI LEBIH LANJUT

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Contoh berikut Menampilkan kotak input yang meminta Anda untuk beberapa. Ketika Anda masukkan nomor dan tekan ENTER atau klik Oke, nomor ditulis ke sel A1 di lembar kerja pertama dari buku kerja yang aktif. Jika Anda memasukkan teks, pesan kesalahan muncul dan kotak terus ditampilkan. Jika Anda memutuskan untuk tidak memasukkan apa pun, Anda dapat klik Batalkan dan kotak diberhentikan.

InputBox metode

Dalam contoh berikut, "1" sebelum penutup kurung menunjukkan bahwa hanya angka yang diterima oleh kotak input. Jika Anda memasukkan apa pun, seperti teks atau formula, InputBox metode menampilkan pesan kesalahan. Menggunakan makro Jika pernyataan untuk melihat apakah Batalkan diklik. Jika Batalkan tidak diklik, makro menulis nilai masuk ke sel A1 pada lembar kerja pertama.
   Sub Using_InputBox_Method()
      Dim Response As Integer

      ' Run the Input Box.
      Response = Application.InputBox("Enter a number.", _
         "Number Entry", , 250, 75, "", , 1)

      ' Check to see if Cancel was pressed.
      If Response <> False Then

         ' If not, write the number to the first cell in the first sheet.
         Worksheets(1).Range("a1").Value = Response

      End If

   End Sub
				

Fungsi kotak Input

Dalam contoh di bawah ini, serangkaian Jika pernyataan ini digunakan untuk memeriksa entri. The InputBox di dalam Sementara loop untuk memungkinkan untuk menjadi re-shown jika terjadi kesalahan. Jika semua kondisi benar, jumlah masuk ditulis untuk sel A1 pada lembar kerja pertama dan loop berakhir.
   Sub Using_InputBox_Function()
      Dim Show_Box As Boolean
      Dim Response As Variant

      ' Set the Show_Dialog variable to True.
      Show_Box = True

      ' Begin While loop.
      While Show_Box = True

         ' Show the input box.
         Response = InputBox("Enter a number.", _
            "Number Entry", , 250, 75)

         ' See if Cancel was pressed.
         If Response = "" Then

            ' If Cancel was pressed,
            ' break out of the loop.
            Show_Box = False
         Else
            ' Test Entry to find out if it is numeric.
            If IsNumeric(Response) = True Then
               ' Write the number to the first
               ' cell in the first sheet in the active
               ' workbook.
               Worksheets(1).Range("a1").Value = Response
               Show_Box = False
            Else
               ' If the entry was wrong, show an error message.
               MsgBox "Please Enter Numbers Only"
            End If
         End If
      ' End the While loop.
      Wend
   End Sub
				
Setelah Anda menjalankan makro, nomor Anda memasuki input kotak adalah di sel A1 pada Sheet1.

REFERENSI

Untuk informasi lebih lanjut tentang InputBox metode, dari Editor Visual Basic, klik asisten kantor, ketik inputbox, klik Mencari, dan kemudian klik untuk melihat "InputBox metode."

Untuk informasi lebih lanjut tentang fungsi InputBox, dari Editor Visual Basic, klik Kantor asisten, jenis inputbox, klik Mencari, dan kemudian klik untuk melihat "InputBox fungsi."

Untuk informasi lebih lanjut tentang kotak Input dalam Microsoft Excel versi 7.0, Klik Jawaban Wizard pada Bantuan menu dan jenis:
Ceritakan tentang inputbox
Untuk informasi lebih lanjut tentang kotak Input dalam Microsoft Excel versi 5.0, memilih Pemrograman dengan Visual Basic dalam bantuan; kemudian klik Mencari tombol dan ketik:
masukan
Untuk informasi tambahan tentang mendapatkan bantuan dengan Visual Basic untuk Aplikasi, klik nomor artikel di bawah ini untuk melihat artikel di dalam Basis Pengetahuan Microsoft:
163435VBA: Pemrograman sumber daya untuk Visual Basic untuk aplikasi
"Visual Basic User's Guide" Versi 5.0, bab 11, "Kontrol dan kotak Dialog"

Properti

ID Artikel: 142141 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 5.0 for Macintosh
Kata kunci: 
kbdtacode kbhowto kbprogramming kbmt KB142141 KbMtid
Penerjemahan Mesin
PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.
Klik disini untuk melihat versi Inggris dari artikel ini:142141
Sanggahan Konten KB yang Tidak Lagi Diperbarui
Artikel ini berisi tentang produk yang tidak lagi didukung oleh Microsoft. Oleh karena itu, artikel ini disajikan ?sebagaimana adanya? dan tidak akan diperbarui.

Berikan Masukan

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com