هشام شلبى

السلام عليكم ===== اخى الحبيب خبور خير *** بارك الله فيك اخى KHMB *** بارك الله فيك اخى عماد محى الدين *** بارك الله فيك اخى yahiaoui *** بارك الله فيك اخى يوسف عطا *** بارك الله فيك اخى مصطفى كمال *** بارك الله فيك اخى بو علام *** بارك الله فيك اخى alidroos *** بارك الله فيك اخى الحبيب الحسامى *** بارك الله فيك وزادك من العلم اضعافا مضاعفة واعذرنى على التأخر فى الرد حيث كنت مرتبط بامتحانات صفوف النقل ومن اليوم سأكون مرتبط بامتحانات الدور الثانى للشهادة الاعدادية . والتمسوا لى العذر فى فترة غيابى القادمة . الى حين الانتهاء من الامتحانات فى اخر الاسبوع القادم اترككم فى رعاية الله

السلام عليكم ===== الاخ *** عماد محى الدين ان شاء الله الاجابة على موضوعك هنا

السلام عليكم ===== اليوم ساقدم لكم استخدام مبهر للدالة VLOOKUP تعودنا ان الدالة VLOOKUP تبحث عن قيمة معينة فى نطاق محدد " فى صفحة محددة" اليوم ستقوم الدالة VLOOKUP بالبحث عن قيمة محددة فى عدة نطاقات وفى عدة صفحات الدالة اسمها multvlookup وهى من النوع U D F Option Explicit[/b] [b]Public Function MultVlookup( _[/b] [b] FindThis As Variant, _[/b] [b] LookIn As Range, _[/b] [b] SheetRange As String, _[/b] [b] OffsetColumn As Integer) _[/b] [b] As Variant[/b] [b]Dim Sheet As Worksheet[/b] [b]Dim strFirstSheet As String[/b] [b]Dim strLastSheet As String[/b] [b]Dim SheetArray() As String[/b] [b]Dim blnFirstSheet As Boolean[/b] [b]Dim rngFind As Range[/b] [b]Dim blnFound As Boolean[/b] [b]Dim n As Integer[/b] [b]'جعل نطاق البحث عمود واحد[/b] [b]If LookIn.Columns.Count > 1 Then[/b] [b] Set LookIn = LookIn.Resize(LookIn.Rows.Count, 1)[/b] [b]End If[/b] [b]'حجم الصفيف لاحتواء كافة أسماء ورقة عمل[/b] [b]ReDim SheetArray(ActiveWorkbook.Worksheets.Count)[/b] [b]'الحصول على أسماء ورقة العمل[/b] [b]strFirstSheet = Left(SheetRange, InStr(1, SheetRange, ":") - 1)[/b] [b]strLastSheet = Right(SheetRange, _[/b] [b] Len(SheetRange) - InStr(1, SheetRange, ":"))[/b] [b]'وضع أسماء ورقة عمل في "نطاق ورقة" مجموعة في صفيف[/b] [b]blnFirstSheet = False[/b] [b]n = 0[/b] [b]For Each Sheet In ActiveWorkbook.Worksheets()[/b] [b] If Sheet.Name = strFirstSheet Then[/b] [b] blnFirstSheet = True[/b] [b] End If[/b] [b] If blnFirstSheet = True Then[/b] [b] SheetArray(n) = Sheet.Name[/b] [b] n = n + 1[/b] [b] End If[/b] [b] If Sheet.Name = strLastSheet Then[/b] [b] blnFirstSheet = False[/b] [b] End If[/b] [b]Next Sheet[/b] [b]'نطاق البحث في كل ورقة عمل في مجموعة[/b] [b]blnFound = False[/b] [b]For n = 0 To UBound(SheetArray, 1)[/b] [b] With Worksheets(SheetArray(n)).Range(LookIn.Address)[/b] [b] Set rngFind = .Find(FindThis, LookIn:=xlValues, _[/b] [b] MatchCase:=False, LookAt:=xlWhole)[/b] [b] End With[/b] [b] If Not rngFind Is Nothing Then[/b] [b] 'ايجاد النتيجة[/b] [b] blnFound = True[/b] [b] End If[/b] [b] If blnFound = True Then Exit For[/b] [b]Next n[/b] [b]'عودة القيمة[/b] [b]If blnFound = True Then[/b] [b] MultVlookup = rngFind.Offset(0, OffsetColumn - 1)[/b] [b] Else[/b] [b] MultVlookup = "Not Found"[/b] [b]End If[/b] [b]End Function[/b] [b] وسوف لا اتكلم كثيرا فالدالة تتحدث عن نفسها المساعدة.rar

السلام عليكم ===== الموضوع الحادى عشر ====== أول فديو - صوت و صورة - للأستاذ خبور عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع العاشر ======

السلام عليكم ===== الموضوع التاسع ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع الثامن ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع السابع ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع السادس ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع الخامس ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع الرابع ====== عنوان المشاركة الاصلية

السلام عليكم ===== الموضوع الثالث ====== عنوان المشاركة الاصلية

السلام عليكم ===== اخى الحبيب *** خبور خير* سادعو لك بقلبى ما لا استطيع قوله بلسانى

السلام عليكم ===== اخى اتمناه طلبك واذا كان غير ذلك اوضح اكثر مطلوبك اخفاء الصفر 2.rar

السلام عليكم ===== اخى شمس الثورة شاهد المرفق اخفاء قيم الصفر.rar

السلام عليكم ===== الموضوع الثانى ============ عنوان المشاركة الاصلية

السلام عليكم ===== اخى والاحباب كل عام وانتم بخير لاحظت فى الفترة الاخيرة الاقبال المتزايد على المواضيع والشروحات المعدة بالفيديو وبناء على الطلبات الكثيرة لعمل قسم خاص بمثل هذه المشاركات ومنها مثلا مشاركات الاخ كيماس المفيدة . سأضع هنا رابط موضوع وتعريف للموضوع دون زيادة فى التعليقات فالتعليقات ستكون فى المشاركة الاصلية للموضوع وكمثال ستكون المشاركة هكذا شرح عمل كود لتقريب حسب شروط معينة عنوان المشاركة الاصلية واسمحوا لى سأقوم بتعديل المشاركات لتكون ملخصة وخالية من الكلام المرسل حتى تكون مرجعا مفيدا ان شاء الله . وفى حالة الاقبال على الموضوع سأقوم بتثبيته لفترة

السلام عليكم ===== اخى العزيز شاهد المرفق hhhhhhhh.rar

السلام عليكم ===== اخى*** كيماس بارك الله فيك

السلام عليكم ===== اخى العزيز

السلام عليكم ===== اخى الحبيب "ملك الذوق" *** عادل حنفى عذرا لم ارى مشاركتك =================== اخى الحبييب *** yahiaoui عذرا لم ارى مشاركتك =================== شكرا لكما جميعا

السلام عليكم ===== اخى *** يوسف هذا الرد مقتبس " لا املكه" Step 1 Open the Windows registry by clicking "Start," selecting "Run," typing "regedit" into the "Open" box and clicking "OK." # Step 2 Navigate to "HKEY_CURRENT_USER>Software>Microsoft>Office>12.0>Excel" in the registry by clicking the arrow to the right of each of these folders. # Step 3 Right-click the "Options" key inside the "Excel" folder, point to "New" and select "DWORD Value." Type "NoReReg" over "New Value" to rename it. # Step 4 Right-click "NoReReg" and select "Modify." Type "1" into the "Data Value" box. Click "OK." Close the Windows registry. # Step 5 Open Microsoft Excel 2003. Click "Help" in the toolbar. Select "Detect and Repair" and click "Start." After "Detect and Repair" is complete, click "OK." Close Excel 2003

السلام عليكم ===== اخى يوسف مؤقتا هناك حل سريع كليك يمين على الفايل ثم Open With

السلام عليكم ===== اخى MONEER111 هذه هى احد الطرق لتعريف أى دالة من النوع U D F المرفق الاول شرح فيديو لطريق التعريف والثانى مرفق اكسيل لعمل الدالة اضاقة دالة.rar sssss.rar

السلام عليكم ===== اخى شمس الثورة اضافة الاستاذ يحيى حسين List(R, 2) = Format(MyRange_Search.Cells(Mycel.Row - 1, 3).Value, "yyyy/mm/dd") شاهد المرفق البحث لشمس.rar