يجد أول خلية نصية مُحمَّلة في ورقة العمل الكلاسيكية XLS تحتوي على النص المطلوب
البنية
function FindText(SearchText: WideString; out Row: Integer; out Col: Integer): Boolean; overload;
function FindText(SearchText: WideString; out Row: Integer; out Col: Integer; MatchCase: Boolean): Boolean; overload;
ملاحظات
يمسح FindText خلايا ورقة العمل الموجودة بترتيب الصفوف أولاً ويُرجع إحداثيات الصف والعمود العامة القائمة على 1 لأول تطابق
الحِمل الزائد ذو المعاملين غير حساس لحالة الأحرف. مرر True لـ MatchCase عند الحاجة إلى مطابقة حالة الأحرف الأصلية
عند عدم العثور على تطابق، يُرجع الأسلوب False ويضبط كلا الإحداثيين على صفر
مثال
if Workbook.Sheets[1].FindText('[CONTACT]', Row, Col) then
Workbook.Sheets[1].Cells[Row, Col].Value := 'John Smith';
انظر أيضاً