Çalışma sayfası aralıklarındaki Metinleri program aracılığıyla arama

Find nesnesinin Range yöntemi, aralık içindeki metinleri aramanızı sağlar. Bu metin, veya #VALUE!gibi #NULL! bir çalışma sayfası hücresinde görüntülenebilen hata dizelerinden herhangi biri de olabilir. Hata dizeleri hakkında daha fazla bilgi için bkz . Hücre hata değerleri.

Şunlar için geçerlidir: Bu konudaki bilgiler, Excel için belge düzeyi projeler ve VSTO Eklenti projeleri için geçerlidir. Daha fazla bilgi için bkz. Office uygulaması ve proje türüne göre kullanılabilen özellikler.

Aşağıdaki örnek adlı Fruits bir aralığı arar ve "elmalar" sözcüğünü içeren hücreler için yazı tipini değiştirir. Bu yordam, aramayı yinelemek FindNext için önceden ayarlanmış arama ayarlarını kullanan yöntemini de kullanır. Aramadan sonra aranacak hücreyi belirtirsiniz ve FindNext yöntem gerisini işler.

Not

Yöntemin FindNext araması, aralığın sonuna ulaştıktan sonra arama aralığının başına geri kaydırılır. Kodunuz, aramanın sonsuz bir döngü içinde kaydırılmadığından emin olmalıdır. Örnek yordam, özelliğini kullanarak bunu işlemenin Address[] bir yolunu gösterir.

Çalışma sayfası aralığında metin aramak için

1. Aralığın tamamını, ilk bulunan aralığı ve geçerli bulunan aralığı izlemek için değişkenleri bildirin.

   C#

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

   VB

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

2. arama yapılacak hücre dışındaki tüm parametreleri belirterek ilk eşleşmeyi arayın.

   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. Eşleşmeler olduğu sürece aramaya devam edin.

   C#

   while(currentFind != null)
   

   VB

   While Not currentFind Is Nothing
   

4. bulunan ilk aralığı (firstFind) Hiçbir şey ile karşılaştırın. Değer içermiyorsa firstFind , kod bulunan aralığı (currentFind ) depolar.

   C#

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

   VB

   If firstFind Is Nothing Then
       firstFind = currentFind
   

5. Bulunan aralığın adresi ilk bulunan aralığın adresiyle eşleşiyorsa döngüden çıkın.

   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. Bulunan aralığın görünümünü ayarlayın.

   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. Başka bir arama yapın.

   C#

   currentFind = Fruits.FindNext(currentFind);
   

   VB

   currentFind = Fruits.FindNext(currentFind)
   

   Aşağıdaki örnekte tam yöntem gösterilmektedir.

Örnek

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

İlgili içerik

• Aralıklarla çalışma
• Nasıl yapılır: Çalışma kitaplarındaki aralıklara program aracılığıyla stil uygulama
• Nasıl yapılır: Program aracılığıyla koddaki çalışma sayfası aralıklarına başvurma
• Office çözümlerinde isteğe bağlı parametreler