SPHINX قام بنشر يناير 2, 2007 قام بنشر يناير 2, 2007 هل من مجيب يا جماعة الخير وانا اسف لو كنت اثقل عليكم
SPHINX قام بنشر يناير 3, 2007 قام بنشر يناير 3, 2007 (معدل) الاستاذ تامر لقد تم اقتباس الكود الاتي من احد روائعك ولكن يوجد لدي استفسار 1. عندما اقوم بالبحث عن بيان ما يقوم البرنامج بالعمل اللازم مع اضافة اشياء لم تكون موجوده في مجال البحث 2. هل نستطيع اضافة مجال البحث 3. عند البحث عن بيانات موجودة بعض الاوقات يرجع يرسال البيانات غير موجودة 4. لو ان تسمح لي بان اثقل عليك ببان كيف يتم البحث اي التسلسل للبحث ومجال البحث وهل البحث شامل الارقام والكلمات او الاثنين معا Sub INQURY() Sheets("Inqury").Select ActiveSheet.Rows.Hidden = False [A3:AC1000].ClearContents s = "" s = Application.InputBox("What are you searchin for !", "Search") If s = False Then Exit Sub If s = "" Then Exit Sub Application.ScreenUpdating = False With Sheets("TRCK").[A4:AC1000] Set MySearch = .Find(s, LookAt:=xlWhole) If Not MySearch Is Nothing Then F = MySearch.Address MyRow = 4 Do x = MySearch.Row y = MySearch.Column For MyColumn = 1 To 29 Sheets("Inqury").Cells(MyRow, MyColumn) = .Cells(x, MyColumn) Next MyColumn MyRow = MyRow + 1 Set MySearch = .FindNext(MySearch) Loop While Not MySearch Is Nothing And MySearch.Address <> F End If End With For A = 3 To 1000 If Cells(A, 5) = "" Then Rows(A).Hidden = True Next ActiveWindow.SmallScroll Down:=-100 Application.ScreenUpdating = True If Application.WorksheetFunction.CountA([A3:AB100]) = 0 Then MsgBox "!áÇ íæÌÏ Ãí ÈíÇäÇÊ Íæá ÇáßáãÉ ÇáÊí ÈÍËÊ ÚäåÇ", vbExclamation, "ÚÝÜæÇð" 'Else: Msg = MsgBox("åá ÊæÏ ØÈÇÚÉ äÊÇÆÌ ÇáÈÍË¿", vbQuestion + vbYesNo, "ÊÃßíÏ ØÈÇÚÉ") ' If Msg = vbYes Then PrintOut End If End Sub تم تعديل يناير 3, 2007 بواسطه SPHINX
SPHINX قام بنشر يناير 4, 2007 قام بنشر يناير 4, 2007 الاستاذ تامر اعرف انني اثقلت عليك بالكثير ولكن ليس لي ملجاء الا هذا المنتدى الرائع والذي تعلمت منه الكثير فيرجى مساعدتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.