XL2000: Bagaimana untuk melewati variabel dalam Visual Basic untuk aplikasi makro

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

Pada Halaman ini

RINGKASAN

Di Microsoft Excel, ketika Anda menggunakan Microsoft Visual Basic untuk aplikasi makro atau prosedur, Anda dapat mempertahankan nilai variabel dengan melakukan salah satu berikut ini:
  • Lulus variabel ke buku kerja yang lain. (Dengan cara ini Anda dapat mempertahankan nilai variabel, bahkan jika asli buku kerja tertutup.)
  • Lulus variabel sebagai argumen dalam buku kerja yang sama. (Anda dapat melakukan ini tanpa membuat variabel publik.)
  • Menetapkan variabel sebagai variabel publik.
Masing-masing metode ini dibahas secara lebih rinci dalam "Informasi selengkapnya" bagian.

INFORMASI LEBIH LANJUT

Microsoft menyediakan pemrogaman hanya untuk ilustrasi, tanpa garansi baik tersurat maupun tersirat, termasuk, namun tidak terbatas pada, jaminan tersirat mengenai keadaan yang dapat diperjualbelikan dan/atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah familiar dengan bahasa pemrograman yang ditunjukkan dan alat-alat yang digunakan untuk membuat dan memperbaiki prosedur. Profesional dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, tetapi mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi kebutuhan spesifik Anda.
Jika Anda memiliki terbatas pengalaman pemrograman, Anda mungkin ingin menghubungi Microsoft Certified Partner atau Microsoft Advisory Services. Untuk informasi lebih lanjut, kunjungi situs Web Microsoft ini:

Microsoft Certified Partner- https://Partner.Microsoft.com/global/30000104

Microsoft Advisory Services- http://support.Microsoft.com/GP/advisoryservice

Untuk informasi lebih lanjut tentang opsi dukungan yang tersedia dan tentang cara menghubungi Microsoft, kunjungi Website Microsoft berikut:http://support.Microsoft.com/default.aspx?scid=Fh;EN-US;CNTACTMS

Untuk melewati sebuah variabel ke buku kerja yang lain

  1. Memulai Excel, dan kemudian tekan ALT + F11 untuk memulai Editor Visual Basic.
  2. Pada Masukkan menu, klik Modul.
  3. Ketik kode berikut ke lembar modul:
    Sub PassVarValues()
       ' Declare variables.
       Dim PassVar1 as Integer
       Dim PassVar2 as Integer
       ' Set the variable PassVar1 to equal 1234.
       PassVar1 = 1234
       ' Set the variable PassVar2 to equal 5678.
       PassVar2 = 5678
       ' Run the macro Receiver and pass the variables to the subroutine.
       ' On a Macintosh computer, you may need to omit the .xls file
       ' extension.
       Application.Run "Book2.xls!Receiver", PassVar1, PassVar2
    End Sub
    					
  4. Tekan ALT + F11 untuk kembali ke Excel.
  5. Pada Berkas menu, klik Simpan.
  6. Dalam Nama file kotak, jenis Book1.xls, lalu klik Simpan.
  7. Klik Baru di toolbar standar untuk membuka buku kerja baru.
  8. Beralih ke Editor Visual Basic.
  9. Pada Masukkan menu, klik Modul, kemudian ketik kode berikut ke lembar modul baru:
    Sub Receiver(PassVar1 As Integer, PassVar2 As Integer)
       ' Declare variable.
       Dim Result1 as Integer
       ' Manipulate the variables.
       Result1 = PassVar1 + PassVar2
       ' Displays the value of the variable PassVar1 in a message box.
       MsgBox PassVar1
       ' Displays the value of the variable PassVar2 in a message box.
       MsgBox PassVar2
       ' Displays the value of the variable Result1 in a message box.
       MsgBox Result1
    End Sub
    					
  10. Beralih ke Excel dan kemudian Simpan buku kerja ini sebagai Book2.xls.
  11. Untuk menutup Book1.xls dan mempertahankan nilai-nilai yang dilewatkan ke Book2.xls, ikuti langkah berikut:

    1. Dalam Book1.xls, memodifikasi makro PassVarValues untuk membaca sebagai berikut:
      Sub PassVarValues()
         ' Declare variables.
         Dim PassVar1 as Integer
         Dim PassVar2 as Integer
         ' Set the variable PassVar1 to equal 1234.
         PassVar1 = 1234
         ' Set the variable PassVar2 to equal 5678.
         PassVar2 = 5678
         ' Run the macro Receiver and pass the variables to the
         ' subroutine.
         ' On a Macintosh computer, you may need to omit the .xls file
         ' extension.
         Application.Run "Book2.xls!Receiver", PassVar1, PassVar2
         ' The following line is new:
         ActiveWorkbook.Close    ' Closes the workbook Book1.xls.
      End Sub
    2. Dalam Book2.xls, memodifikasi makro penerima untuk membaca sebagai berikut:
      ' Set the passed variables to Public so MacroDisp macro can
      ' display the values passed to Receiver
      Public NewVar1, NewVar2, Result2
      
      Sub Receiver(PassVar1 As Integer, PassVar2 As Integer)
         ' Declare variable.
         Dim Result1 as Integer
         ' The following 2 code lines are new:
         ' Set NewVar1 equal to PassVar1, so we can retain the passed
         ' variable value.
         NewVar1 = PassVar1
         ' Set NewVar2 equal to PassVar2, so we can retain the passed
         ' variable value.
         NewVar2 = PassVar2
         ' The variables in the following four code lines have been
         ' changed:
         ' Manipulate the variables.
         Result2 = NewVar1 + NewVar2
         ' Displays the value of the variable NewVar1 in a message box.
         MsgBox NewVar1
         ' Displays the value of the variable NewVar2 in a message box.
         MsgBox NewVar2
         ' Displays the value of the variable Result2 in a message box.
         MsgBox Result2
      End Sub
      							
  12. Dalam Book2.xls, menambahkan makro berikut ke lembar modul:
    Sub MacroDisp()
       ' Displays the value of variable NewVar1 in a message box.
       MsgBox NewVar1
       ' Displays the value of variable NewVar2 in a message box.
       MsgBox NewVar2
       ' Displays the value of variable Result2 in a message box.
       MsgBox Result2
    End Sub
    					
  13. Pada Alat menu, titik Makro, lalu klik Makro.
  14. Dalam Nama makro Daftar, klik PassVarValues, lalu klik Menjalankan. Ketika Anda menjalankan makro MacroDisp, variabel sebelumnya berlalu untuk Penerima makro yang ditampilkan oleh MacroDisp. Perilaku ini terjadi karena variabel yang disimpan oleh variabel publik.

Lulus variabel sebagai argumen dalam buku kerja yang sama

Contoh menunjukkan variabel ini PassVar1 yang berlalu untuk modul lain tanpa menyatakan sebagai publik. Dalam contoh ini dilewatkan ke makro disebut RecVar2 pada Module2 makro lembar.
  1. Memulai Excel, dan kemudian tekan ALT + F11 untuk memulai Editor Visual Basic.
  2. Pada Masukkan menu, klik Modul.
  3. Pada lembar modul (Module1), ketik kode berikut:
    Sub PassVar2()
       ' Declare variable.
       Dim PassVar1 as Integer
       ' Set the variable PassVar1 to equal 14.
       PassVar1 = 14
       ' Run the macro RecVar2 in Module2 and pass it the variable
       ' PassVar1.
       Module2.RecVar2(PassVar1)
    End Sub
    					
  4. Pada Masukkan menu, klik Modul.
  5. Ketik kode berikut ke lembar modul baru (Module2):
    Sub RecVar2(PassVar1)
       ' Display the value of variable PassVar1 in a message box.
       MsgBox PassVar1
    End Sub
    					
  6. Beralih ke Excel, dan kemudian Simpan buku kerja sebagai Book4.xls.

Mendefinisikan variabel sebagai variabel publik

Contoh ini menunjukkan bagaimana PublicVar1 dinyatakan sebagai publik dapat diakses tanpa benar-benar menyerahkannya ke makro RecVar di Module2. Dalam hal ini contoh, panggilan untuk makro yang RecVar dalam lembar makro Module2 dibuat, dan nilai PublicVar1 ditampilkan.
  1. Membuka buku kerja Excel baru.
  2. Beralih ke Editor Visual Basic.
  3. Pada Masukkan menu, klik Modul.
  4. Ketik kode berikut ini dalam lembar modul yang bernama Module1 di buku kerja yang baru:
    ' Set the variable PublicVar1 public, so Module2 will have access to
    ' it.
    Public PublicVar1
    
    Sub PublicVar()
       ' Set the variable PublicVar1 to equal 12.
       PublicVar1 = 12
       ' Run the macro RecVar on Module2 macro sheet.
       Module2.RecVar
    End Sub
    					
  5. Pada Masukkan menu, klik Modul (Module2).
  6. Ketik kode berikut di Module2:
    Sub RecVar()
       ' Display the value of variable PublicVar1 in a message box
       MsgBox PublicVar1
    End Sub
  7. Beralih ke Excel, dan kemudian Simpan buku kerja sebagai Book3.xls.
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Properti

ID Artikel: 213365 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 2000 Standard Edition
Kata kunci: 
kbdtacode kbhowto kbinfo kbprogramming kbmt KB213365 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:213365

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