Cara membuat kotak pesan sementara sementara berjalan makro

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

Pada Halaman ini

RINGKASAN

Di Microsoft Excel, Anda tidak dapat menampilkan kotak pesan pada saat yang sama makro kedua berjalan. Namun, Anda dapat mensimulasikan kotak pesan dengan kotak teks ketika menggunakan Visual Basic untuk aplikasi makro. Untuk melakukan ini, Anda akan membuat kotak teks dan posisi tersebut pada layar pada sesuai yang baru. Dengan kode, Anda dapat menampilkan kotak teks, menjalankan kedua Anda subrutin, dan, pada kesimpulan subrutin, menghapus kotak teks. Contoh dalam artikel ini menunjukkan proses ini. Anda dapat mengubah desain kotak teks untuk melihat tetap Anda inginkan. Contoh berikut memberikan Anda hanya salah satu cara untuk menampilkannya.

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. Untuk informasi tentang menampilkan pesan kotak di Excel 97 untuk Windows dan Excel 98 Macintosh Edition, lihat artikel berikut di Basis Pengetahuan Microsoft:
162257 OFF97: Bagaimana untuk menunjukkan "Sekarang pengolahan" Dialog ketika menjalankan makro

Contoh kode Visual Basic

  1. Ketik nama di sel A1 Sheet1 di buku kerja yang baru.
  2. Pada Insert menu, klik makro, dan kemudian modul.
  3. Pada lembar modul baru, ketik subrutin dua berikut:
          Sub DisplayTextMsgBox()
             ' Select the first worksheet.
             Worksheets(1).Select
    
             ' Create a text box on the active worksheet.
             ActiveSheet.TextBoxes.Add(215, 195, 91.5, 60).Select
    
             ' Store the name of Worksheet in variable StoreWSNM.
             StoreWSNM = ActiveSheet.Name
    
             ' Store the name of Text Box in variable StoreNM
             StoreNM = Selection.Name
    
             ' Set the Font and Border properties of the text box.
             With Selection
                With Selection.Characters.Font
                   .Name = "Arial"
                   .FontStyle = "Bold"
                   .Size = 20
                End With
                With Selection.Border
                   .LineStyle = xlContinuous
                   .ColorIndex = 1
                   .Weight = xlThick
                End With
    
                'Set round corners for the text box.
                .RoundedCorners = True
    
                'Set message text color to black.
                .Interior.ColorIndex = 15
    
                'Assign message text to the text box.
                .Characters.Text = "Please Wait..."
             End With
    
             ' Actual macro that will run while Please Wait...
             ' message is being displayed.
             Second_Macro
    
             ' Makes sure the proper Worksheet is selected.
             Worksheets(StoreWSNM).Select
    
             ' Makes sure the proper text box is selected.
             ActiveSheet.TextBoxes(StoreNM).Select
    
             ' Deletes the Please Wait... text box.
             Selection.Delete
          End Sub
    
          ' Note that the Please Wait... text box will be displayed
          ' until this macro has completed.
    
          Sub Second_Macro()
    
             ' Select A1 and copies it.
             Range("a1").Select
             ActiveCell.Copy
    
             ' Set loop to occur 5 times.
             For LoopIt = 1 To 5
    
                ' Move down one row and paste the contents of A1.
                ActiveCell.Offset(1, 0).Select
                ActiveSheet.Paste
    
                ' Waits one second before looping.
                ' NOTE: This is only done for demonstration purposes to
                ' slow down the macro so the Please Wait text box will
                ' be displayed for at least 5 seconds.
                Application.Wait Now + TimeValue("00:00:01")
             Next
          End Sub
    						
  4. Pada menu alat, klik makro. Dalam kotak makro, pilih makro disebut DisplayTextMsgBox, dan klik tombol jalankan.
Catatan: Jika Anda makro kedua akan memilih lembar kerja lain sementara berjalan, Anda mungkin ingin menonaktifkan layar memperbarui pada awal dari kedua makro. Ini akan memastikan bahwa kotak teks tunggu tetap pada layar sementara makro yang berjalan. Anda dapat menggunakan Application.ScreenUpdating = False untuk mematikan layar memperbarui.

Properti

ID Artikel: 148209 - Kajian Terakhir: 15 September 2011 - Revisi: 2.0
Berlaku bagi:
  • Microsoft Excel 95 Standard Edition
Kata kunci: 
kbcode kbhowto kbprogramming kbmt KB148209 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:148209
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