صلاح الدين الجزائري قام بنشر نوفمبر 26, 2015 قام بنشر نوفمبر 26, 2015 (معدل) السلام عليكم و رحمة الله بركاته اما بعد يا اخواني اريدكيفية طباعة ورقة بإسم شخص فقط بالضغط عليه يعني لما اعمل بحث عن طريقة المنسدلة وانا اكون قد كتبت جدول كااامل بالاسماء و الالقاب و تواريخ الميلاد يخرج لي اسماء المكتوبة ، مثل الجداول خانة للإسم و خانة للقب وخانة لتاريخ الميلاد ولما اضغط على الاسم او اللقب او تاريخ الميلاد ،وتنطبع صفحة انا كاتبها مسبقا وبكل معلومات الشخص الذي ضغطت عليه ان شاء الله تكونوا فهمتوووووا تجربة.rar تم تعديل نوفمبر 26, 2015 بواسطه MoChekEs
ابوحمزه المصرى قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 اهلا بكل اخى MOCHEKS .... تفضل اخى لعله المطلوب ... تم الغاء صفحة المنسدلة حيث تختار الاسم من نفس صفحة الطباعة... الرجاء تغيير الاسم للعربيه حسب تعليمات المنتدى تجربة.rar
بن علية حاجي قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 السلام عليكم ورحمة الله أخي الكريم عملت بما في ملفك المرفق، أي بمجرد اختيار الاسم من المنسدلة يتم طباعة البيانات حسب شيت "صفحة الطباعة"... أرجو أن يكون المطلوب... بن علية تجربة.rar 3
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 (معدل) السلام عليكم و رحمة الله و بركاته اما بعد يا اخواني آسف على طرح الموضوع القديم : هنا لقد قمت بكتابة الموضوع بالشكل الخاطئ المطلوب الصحيح هو : انا عندي جدول [ الصفحة 1 ] فيه مثلا اكثر من 50الف شخص ومكتوب فيه اسمه و لقبه و تاريخ ميلاده ورقم تسجيله وفي [ الصفحة 2 ] عندي مكان للبحث عن شخص، لما اقوم بكتابة شخص ما، يقوم بإضهار لي هذه الاسامي حتى ولو كانت متشابهة [ يتم البحث اما بالاسم واللقب ، او تاريخ الميلاد ، او رقم التسجيل ] يضهر لي كااامل معلومات الشخص المكتوب [ مثلا عندي 30شخص متشابه ] يضهرون في 30 في صفحة اخرى مثلالجدول يعني تحت بعض ولما اقوم بالضغط على الشخص الذي اريده، تطبع لي الصفحة قد كنت كتبتها من قبل في الصفحة 3 اذا لم تفهموا المطلوب، قولوا لي اعيد لكم تجربة.rar تم تعديل نوفمبر 27, 2015 بواسطه MoChekEs
ياسر خليل أبو البراء قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 أخي المشاكس يرجى تغيير اسم الظهور للغة العربية بالنسبة لطلبك يحتاج لمزيد من التوضيح ..اضرب بمثال ليتضح المقال 1
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 كيف يعني اسم الظهور ؟.. + انا اريد البحث عن شخص معين، فقط اكتبه في الخانة المناسبة في الصفحة اثنان واضغط enter يأخذني الى صفحة جديدة فيها جميع الي معهم نفس الاسم الي كتبته في الصفحة الثانية على شكل جدول يعني كلهم تحت بعض بالترتيب ولما اضغط على واحد منهم تظهر لي ورقة بإسمه قد كنت كتبتها انا [ مثلا شهادة اقامة ] يعني لما اضغط على الشخص الذي اريده تضهر لي شهادة اقامة بإسمه
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 (معدل) السلام عليكم انسخ الكود التالي الى حدث الورقة المسماه "الصفحة 2" Private Const My_Rng_Adrs As String = "$A$3:$D$55000" Private Const Area_Prnt As String = "$C$7:$E$15" Dim Ar_1() As Variant Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Range("A7:A1000"), Target) Is Nothing Then MsgBox "" If Target <> Empty Then Dim Wr As Worksheet: Set Wr = Sheets("الصفحة 3") With Wr .Cells(7, 4) = Target .Cells(8, 4) = Target.Offset(0, 1) .Cells(9, 4) = Target.Offset(0, 2) .PageSetup.PrintArea = Area_Prnt .PrintPreview .Cells(7, 4) = "": .Cells(8, 4) = "": .Cells(9, 4) = "" End With Cancel = False Set Wr = Nothing End If End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$5" Then Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents If Ali_Serch(CStr(Target), 1) = True Then Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1() End If Erase Ar_1 End If If Target.Address = "$C$5" Then Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents If Ali_Serch(CDate(Target), 3) = True Then Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1() End If Erase Ar_1 End If If Target.Address = "$E$5" Then Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents If Ali_Serch(CStr(Target), 4) = True Then Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1() End If Erase Ar_1 End If End Sub Private Function Ali_Serch(Trget As String, Col As Long) As Boolean Dim Ar Dim Rng As Range Dim C, x, i, XX, Xi, Xt Dim Data_1 Dim Wrsh As Worksheet Set Wrsh = Sheets("الصفحة 01") With Wrsh If Col = 3 And Not IsDate(Trget) Then MsgBox "صيغة التاريخ التي كتبتها غير صحيحه !!", vbExclamation, "إدخال خاطئ !!": Exit Function Set Rng = .Range(My_Rng_Adrs) Ar = Rng.Value ReDim Preserve Ar_1(1 To Rng.Rows.Count, 1 To 4) For x = LBound(Ar, 1) To UBound(Ar, 1) XX = Ar(x, Col): Xi = Trim(Ar(x, 1)): Xt = Trim(Ar(x, 2)) If Col = 3 Or Col = 4 Then Data_1 = Val(XX) ElseIf Col = 1 Then Data_1 = CStr(Xi & " " & Xt) ElseIf Col = 3 Then Data_1 = CDate(DateSerial(Year(XX), Month(XX), Day(XX))) End If If Not Data_1 = Empty Then If Data_1 Like Trget Then Ali_Serch = True i = i + 1 For C = 1 To 4 Ar_1(i, C) = IIf(C = 3, Format(Ar(x, C), "dd/mm/yy"), CStr(Ar(x, C))) Debug.Print Ar(x, C) Next C End If End If Next x End With Set Rng = Nothing: Set Wrsh = Nothing End Function بعد كتابة الاسم او التاريخ او رقم التسجيل اضغط انتر ستظهر النتائج اسفل جدول البحث انقر مرتين على نتيجة البحث في العمود "A" الاسم الاول سيطبع لك النتيجه جرب وابلغنا بالنتائج تحياتي تم اضافة المرفق وبه الكود اعلاه تجربة_111.rar تم تعديل نوفمبر 27, 2015 بواسطه الـعيدروس 4
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 شكرا لك اخي الفاضل، ولكن ممكن تضعها انت اذا ما معك مانع، لأني ما عرفت وين اضعها بالضبط، تجربة.rar
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 (معدل) تمت اضافة المرفق في المشاركة السابقة اخي مشاكس اقتباس كيف يعني اسم الظهور ؟.. يقصد الاستاذ ياسر خليل اسم ظهورك تغيره كأسم عربي بدلاً عن "MoChekEs" تم تعديل نوفمبر 27, 2015 بواسطه الـعيدروس 1
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 13 دقائق مضت, الـعيدروس said: تمت اضافة المرفق في المشاركة السابقة اخي مشاكس يقصد الاستاذ ياسر خليل اسم ظهورك تغيره كأسم عربي بدلاً عن "MoChekEs" شكككرا لك اخي العزيز، + اذا مافي مانع ممكن تعطيني رابط الفيس بوك بتاعك ؟ وتقولي كيف يتم العمل به ارجوك وشكرا لك
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 السلام عليكم المرفق الاول شرح طريقة العمل عليه والمرفق الاخر الملف وبه تعديل بعض الاخطاء البحث بالتاريخ لن يعمل معك اكتب التاريخ في الورقة "الصفحة 01" بالصيغة الصحيحه وسيعمل معك لاني ملاحظ مكتوب 01/01/00 ؟ توضيح.rar تجربة_112.rar 1
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 (معدل) 12 دقائق مضت, الـعيدروس said: السلام عليكم المرفق الاول شرح طريقة العمل عليه والمرفق الاخر الملف وبه تعديل بعض الاخطاء البحث بالتاريخ لن يعمل معك اكتب التاريخ في الورقة "الصفحة 01" بالصيغة الصحيحه وسيعمل معك لاني ملاحظ مكتوب 01/01/00 ؟ توضيح.rar تجربة_112.rar اخي العزيز، انا ليش ما تشتغل معي الرجاء الرد في اقرب وقت واعطيلي الفيس بوك بتاعك لكي اتحدث معك تم تعديل نوفمبر 27, 2015 بواسطه MoChekEs 1
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 اقتباس انا ليش ما تشتغل معي ماهي التي لم تشتغل معك ؟ تأكد من اعدادات امان الماكرو اقتباس + اذا مافي مانع ممكن تعطيني رابط الفيس بوك بتاعك ؟ يوجد ايميل Gmail aahfm2015@Gmail.com
صلاح الدين الجزائري قام بنشر نوفمبر 27, 2015 الكاتب قام بنشر نوفمبر 27, 2015 2 ساعات مضت, الـعيدروس said: ماهي التي لم تشتغل معك ؟ تأكد من اعدادات امان الماكرو لم يشتغل معي يعني لما اكتب الاسم او تاريخ الميلاد او رقم التسجيل ما يضهرلي كما يحصل لك في الفيديو الي اعطيته لي
الـعيدروس قام بنشر نوفمبر 27, 2015 قام بنشر نوفمبر 27, 2015 المشكله عندك اخي هل انت مفعل امان الماكرو منخفض ام لا ؟ اتبع الفيديو في المرفق اذا لاتعرف الطريقه لتفعيل الماكرو تفعيل الماكرو.rar 2
صلاح الدين الجزائري قام بنشر نوفمبر 28, 2015 الكاتب قام بنشر نوفمبر 28, 2015 نعم اخي انا مفعل الماكرو واعرف كيف افعلو اخي يعني ما هو الحل اخي
ياسر خليل أبو البراء قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 تم دمج الموضوعات والشكر موصول لأخي وحبيبي في الله أبا الحسن والحسين على الإفادة بتكرار الموضوعات ونرجو من الأخ السائل عدم تكرار الموضوعات بدون داعي 1
الـعيدروس قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 اخي مشاكس مانوع الاوفيس عندك 2003 ام 2007 ؟ 1
ابو عبدالرحمن البغدادي قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 السلام عليكم - عمل رائع - جزيتم خيرا ممكن زيادة المدى من A الى K ، ويشمل عند اجراء البحث والاستدعاء والطابعة
الـعيدروس قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 السلام عليكم اخي الكريم ابو عبدالرحمن حاول ترفق ملف كمثال وبه المعطيات افضل بدلا مانعمل على شيء ويطلع غير الذي تريد وهكذا نهدر وقت على الفاضي 1
ابو عبدالرحمن البغدادي قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 السلام عليكم - حياكم الله - بارك الله في اعماركم - بيض الله وجهك الطابعة عند الضغط على الاسم.rar
الـعيدروس قام بنشر نوفمبر 30, 2015 قام بنشر نوفمبر 30, 2015 السلام عليكم تفضل الطابعة عند الضغط على الاسم_111.rar 1
صلاح الدين الجزائري قام بنشر ديسمبر 2, 2015 الكاتب قام بنشر ديسمبر 2, 2015 في 11/30/2015, 3:28:35, الـعيدروس said: اخي مشاكس مانوع الاوفيس عندك 2003 ام 2007 ؟ شكرا جزيييلا اخي الغالي عيدروس انا حملت اوفيس 2007 ونجحت ولكن واجهة مشكلة اخي لما اضغط على الاسم مرتين تضهر لي هذه الرسالة http://store1.up-00.com/2015-12/1449074082851.jpg
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.