Mencari Teks dalam rentang lembar kerja secara terprogram

Metode FindRange objek memungkinkan Anda mencari teks dalam rentang. Teks ini juga bisa menjadi salah satu string kesalahan yang bisa muncul di sel lembar kerja seperti #NULL! atau #VALUE!. Untuk informasi selengkapnya tentang string kesalahan, lihat Nilai kesalahan sel.

Berlaku untuk: Informasi dalam topik ini berlaku untuk proyek tingkat dokumen dan proyek Add-in VSTO untuk Excel. Untuk informasi selengkapnya, lihat Fitur yang tersedia berdasarkan aplikasi Office likasi dan jenis proyek.

Contoh berikut mencari rentang bernama Fruits dan memodifikasi font untuk sel yang berisi kata "apel". Prosedur ini juga menggunakan FindNext metode , yang menggunakan pengaturan pencarian yang ditetapkan sebelumnya untuk mengulangi pencarian. Anda menentukan sel setelahnya untuk dicari, dan FindNext metode menangani sisanya.

Catatan

Pencarian FindNext metode membungkus kembali ke awal rentang pencarian setelah mencapai akhir rentang. Kode Anda harus memastikan bahwa pencarian tidak terbungkus dalam perulangan tak terbatas. Prosedur sampel menunjukkan salah satu cara untuk menangani ini menggunakan Address[] properti .

Untuk mencari teks dalam rentang lembar kerja

1. Deklarasikan variabel untuk melacak seluruh rentang, rentang pertama yang ditemukan, dan rentang yang ditemukan saat ini.

   C#

   Excel.Range currentFind = null; 
   Excel.Range firstFind = null;
   

   VB

   Dim currentFind As Excel.Range = Nothing
   Dim firstFind As Excel.Range = Nothing
   

2. Cari kecocokan pertama, menentukan semua parameter kecuali sel yang akan dicari.

   C#

   currentFind = Fruits.Find("apples", missing,
       Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, 
       Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, false,
       missing, missing);
   

   VB

   currentFind = Fruits.Find("apples", , _
       Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
       Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)
   

3. Lanjutkan pencarian selama ada kecocokan.

   C#

   while(currentFind != null)
   

   VB

   While Not currentFind Is Nothing
   

4. Bandingkan rentang pertama yang ditemukan (firstFind) dengan Tidak Ada. Jika firstFind tidak berisi nilai, kode akan menyimpan rentang yang ditemukan (currentFind).

   C#

   if (firstFind == null)
   {
       firstFind = currentFind; 
   }
   

   VB

   If firstFind Is Nothing Then
       firstFind = currentFind
   

5. Keluar dari perulangan jika alamat rentang yang ditemukan cocok dengan alamat rentang pertama yang ditemukan.

   C#

   else if (currentFind.get_Address(Excel.XlReferenceStyle.xlA1)
         == firstFind.get_Address(Excel.XlReferenceStyle.xlA1))
   {
       break;
   }
   

   VB

   ElseIf currentFind.Address = firstFind.Address Then
       Exit While
   End If
   

6. Atur tampilan rentang yang ditemukan.

   C#

   currentFind.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
   currentFind.Font.Bold = true;
   

   VB

   With currentFind.Font
       .Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
       .Bold = True
   End With
   

7. Lakukan pencarian lain.

   C#

   currentFind = Fruits.FindNext(currentFind);
   

   VB

   currentFind = Fruits.FindNext(currentFind)
   

   Contoh berikut menunjukkan metode lengkap.

Contoh

C#

    private void DemoFind() 
    {
        Excel.Range currentFind = null; 
        Excel.Range firstFind = null; 

        Excel.Range Fruits = Application.get_Range("A1", "B3");
        // You should specify all these parameters every time you call this method,
        // since they can be overridden in the user interface. 
        currentFind = Fruits.Find("apples", missing,
            Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, 
            Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, false,
            missing, missing); 

        while(currentFind != null) 
        { 
            // Keep track of the first range you find. 
            if (firstFind == null)
            {
                firstFind = currentFind; 
            }

            // If you didn't move to a new range, you are done.
            else if (currentFind.get_Address(Excel.XlReferenceStyle.xlA1)
                  == firstFind.get_Address(Excel.XlReferenceStyle.xlA1))
            {
                break;
            }

            currentFind.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
            currentFind.Font.Bold = true; 

            currentFind = Fruits.FindNext(currentFind); 
        }
    }

VB

Private Sub DemoFind()
    Dim currentFind As Excel.Range = Nothing
    Dim firstFind As Excel.Range = Nothing

    Dim Fruits As Excel.Range = Me.Application.Range("A1", "B2")
    ' You should specify all these parameters every time you call this method, 
    ' since they can be overridden in the user interface.
    currentFind = Fruits.Find("apples", , _
        Excel.XlFindLookIn.xlValues, Excel.XlLookAt.xlPart, _
        Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, False)

    While Not currentFind Is Nothing

        ' Keep track of the first range you find.
        If firstFind Is Nothing Then
            firstFind = currentFind

        ' If you didn't move to a new range, you are done.
        ElseIf currentFind.Address = firstFind.Address Then
            Exit While
        End If

        With currentFind.Font
            .Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
            .Bold = True
        End With

        currentFind = Fruits.FindNext(currentFind)
    End While
End Sub

Konten terkait

• Bekerja dengan rentang
• Cara: Menerapkan gaya secara terprogram ke rentang dalam buku kerja
• Cara: Merujuk secara terprogram ke rentang lembar kerja dalam kode
• Parameter opsional dalam solusi Office