NamedRange.FindPrevious أسلوب
تستمر عملية بحث التي كانت قد بدأت مع Findأسلوب.
مساحة الاسم: Microsoft.Office.Tools.Excel
التجميع: Microsoft.Office.Tools.Excel (في Microsoft.Office.Tools.Excel.dll)
بناء الجملة
'إقرار
Function FindPrevious ( _
After As Object _
) As Range
Range FindPrevious(
Object After
)
المعلمات
- After
النوع: System.Object
خلية الذي تريد قبله إلى بحث.Th هو يتطابق مع موضع خلية نشطة عند إجراء بحث هو الانتهاء من واجهة مستخدم.لاحظ أن Afterيجب أن تكون خلية واحدة في NamedRangeعنصر تحكم.تذكر أن يبدأ بحث قبل th هو خلية؛ الخلايا المحددة هو لا بحث إلى أن الأسلوب التفاف حول إعادة ترتيب هو خلية.إذا كان ترتيب هو الوسيطة هو غير محددة، يبدأ بحث قبل خلية العلوية اليمنى في NamedRangeعنصر التحكم.
القيمة المُرجعة
النوع: Microsoft.Office.Interop.Excel.Range
Microsoft.Office.Interop.Excel.Rangeالكائن الذي تمثل خلية تحتوي على معلومات معينة.
ملاحظات
العثور على خلية السابقة بما يوافق الشروط نفسها ك Findأسلوب.
وهذا أسلوب لا يؤثر على تحديد أو خلية نشطة.
عندما يصل بحث إلى بداية نطاق بحث المحدد، فإنه يلتف حول إلى إنهاء النطاق. إلى sإلىp بحث عند حدوث هذه wraparound، وقم بحفظ عنوان اﻷول خلية تم العثور عليه، ثم قم بإجراء اختبار كل عنوان العثور على الخلية المتتالية ضد ذلك حفظ عنوان.
المعلمات الإختيارية
ل معلومات تشغيل معلمات اختيارية، راجع يفتقد المتغير و "المعلمات الاختيارية" في حلول Office.
أمثلة
مثال التعليمة البرمجية التالية يستخدم Findطريقة للبحث عن أول خلية بالقيمة Seashell في NamedRangeعنصر التحكم. مثال ثم يستخدم في FindNextو FindPreviousأساليب العثور على خلية التالية بالقيمة Seashell ثم قم بالرجوع إلى خلية الأصلي. وأخيراً، يستخدم المثال Cutأسلوب إلى قص محتويات الخلية الأولى بالقيمة من Seashell ولصقه في إلى الخلية B1.
Th هو المثال هو لتخصيص المستوى مستند.
Private Sub FindValue()
Me.Range("A1").Value2 = "Barnacle"
Me.Range("A2").Value2 = "Seashell"
Me.Range("A3").Value2 = "Star Fish"
Me.Range("A4").Value2 = "Seashell"
Me.Range("A5").Value2 = "Clam Shell"
Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
= Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
"namedRange1")
' Find the first occurrence of "Seashell".
Dim Range1 As Excel.Range = namedRange1.Find("Seashell", , , _
Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns, _
Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext, _
False, False, )
' Find the next occurrence of "Seashell".
Range1 = namedRange1.FindNext(Range1)
' Return to the first occurrence of "Seashell".
Range1 = namedRange1.FindPrevious(Range1)
' Cut the range with the first "Seashell" and copy it to cell B1.
Dim namedRange2 As Microsoft.Office.Tools.Excel.NamedRange _
= Me.Controls.AddNamedRange(Range1, "namedRange2")
namedRange2.Cut(Me.Range("B1"))
End Sub
private void FindValue()
{
this.Range["A1", missing].Value2 = "Barnacle";
this.Range["A2", missing].Value2 = "Seashell";
this.Range["A3", missing].Value2 = "Star Fish";
this.Range["A4", missing].Value2 = "Seashell";
this.Range["A5", missing].Value2 = "Clam Shell";
Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
this.Controls.AddNamedRange(this.Range["A1", "A5"],
"namedRange1");
// Find the first occurrence of "Seashell".
Excel.Range Range1 = namedRange1.Find("Seashell", missing, missing,
Excel.XlLookAt.xlWhole, Excel.XlSearchOrder.xlByColumns,
Microsoft.Office.Interop.Excel.XlSearchDirection.xlNext,
false, false, missing);
// Find the next occurrence of "Seashell".
Range1 = namedRange1.FindNext(Range1);
// Return to the first occurrence of "Seashell".
Range1 = namedRange1.FindPrevious(Range1);
// Cut the range with the first "Seashell" and copy it to cell B1.
Microsoft.Office.Tools.Excel.NamedRange namedRange2 =
this.Controls.AddNamedRange(Range1, "namedRange2");
namedRange2.Cut(this.Range["B1", missing]);
}
أمن NET Framework.
- الثقة الكاملة للمتصل الفوري. يتعذر استخدام هذا العضو بواسطة التعليمات البرمجية الموثوق بها جزئيًا. لمزيد من المعلومات، راجع باستخدام مكتبات من تعليمات برمجية موثوق بها جزئي.