طارق محمود

<p> </p> السلام عليكم أخي العزيز هذه دالة مستحدثة أول سطر strID يأخذ قيم الرقم القومي Function Governorate(strID As Variant) As String يخطر الإكسل بتكوين دالة مستحدثة إسمها Governorate تعتمد نتيجتها علي المتغير strID ثاني سطر If Len(strID) = 14 Then >إذا كان طول (عدد أحرف) هذا المتغير = 14 فلتفعل مايلي ، ................................إذا لا ، سينهي الدالة ولن يفعل شيئا مايلي يبدأ من السطر الثالث ( Select Case Mid(strID, 8, 2 إختبر حالة الحرفين(أو الرقمين) اللذان يبدءآن من الحرف الثامن وبطول 2 (أي الحرف الثامن والتاسع) من المتغير باقي الأسطر يخبره أنه حسب نتيجة إختبار حالة هذان الحرفان ينتج من الدالة المستحدثة إسم المحافظة الدالة عليها Case "01": Governorate = "القاهرة" Case "02": Governorate = "الإسكندرية" Case "12": Governorate = "الدقهلية" Case "13": Governorate = "الشرقية" Case "14": Governorate = "القليوبية" Case "15": Governorate = "كفر الشيخ" Case "16": Governorate = "الغربية" Case "17": Governorate = "المنوفية" Case "18": Governorate = "البحيرة" Case "19": Governorate = "الإسماعيلية" ... .... ... يعني الموضوع ببساطة أن الرقم القومي "29908040201834" يعني يعني أن صاحبه من محافظة رقم 02 أي الإسكندرية

السلام عليكم الملف لايعطي أخطاء معي قد يكون السبب أن بالملف الدالة المستحدثة للملف وهي Governorate والتي تحتاج لتفعيل الفيجوال بيزيك عند فتح الملف إذا كان يخبرك أن الملف يحتوي علي ماكرو ... ثم يسأل التفعيل ففعله أو من خيارات - ماكرو - أمان إجعله اقل مايمكن حسب الأوفيس 2007 - 2003 ..؟؟

السلام عليكم تفضل أخي المرفق به الحل وبعض الشرح الاشعار_طارق.rar

السلام عليكم أخي الكريم أهلا ومرحبا بك بين إخوانك إستخدم دالة VLOOKUP وإلا إسأل مرة أخري

السلام عليكم أخي الحبيب عندك خطأين الأول أنك إذا استخدمت الدالة vlookup فيجب مراعاة ان يكون العمود الدليل (الأول) في مجال البحث هو من يحتوي علي القيمة المراد البحث عنها بمعني أن يكون العمود المحتوي علي الرقم الذي تريد إيجاده هو العمود الأول في مجال البحث الثاني أنك كتبتها بالشكل =VLOOKUP(B38,A6:B35,1,0) فإذا وجدت القيمة في العمود (1) فسترد لك القيمة نفسها في العمود (1) والصحيح VLOOKUP(B38,A6:B35,2,0) مرفق الحل بطريقتين الورقة A والورقة B مع شرح بسيط Book1_2.rar

تفضل المرفق ملء فراغات1.rar

السلام عليكم في هذه الحالة إستخدم نفس الكود في حدث الصفحة كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 3 Or Target.Column > 5 Then Exit Sub On Error Resume Next Application.Calculation = xlCalculationManual Dim LastR As Long LastR = Range("E" & Rows.Count).End(xlUp).Row Range("c5:c" & LastR).SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C" Range("d5:d" & LastR).SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C" Application.Calculation = xlCalculationAutomatic End Sub

ولو مصمم علي كود تظلل المساحة التي بها فراغات ثم تطلب تشغيل هذا الكود Sub xx() For Each r In Selection If r.Value = "" Then r.Value = r.Offset(-1, 0).Value Next r End Sub

السلام عليكم أنظر طريقة سريعه في الفيديو المرفق فلتر (تصفية) ، فرز للفراغات عمل معادلة أن الخلية تساوي مافوقها مليء المعادلة لليمين ولأسفل أثناء الفلتر حذف الفلتر وممكن تعمل بعد كده نسخ / لصق خاص قيم فقط أنظر الفيديو المرفق Fill down.rar

السلام عليكم أخي الحبيب بعد إذن أخي الغالي / أبوأحمد إتبع الخطوات التالية (1) إذهب للخلية المطلوبة B25000 ممكن بسهولة عن طريق Ctrl-G ثم تكتب B25000 (2) منها ، إضغط Ctrl-Shift-Up ، و Up هنا تعني السهم لأعلي (3) إضغط Ctrl-D

عفوا لم أقرأ السؤال جيدا الرد سابق هو عكس ماتريد هو ربط خلية ما بإسم الشييت ، يعني أن يتغير محتوي الخلية إذا تغير إسم الشييت وسأتركه لإمكانية إستخدامه من أي من الأعضاء الكرام أما ماتطلب فهو كود أخونا pal بفرض أن الخلية المطلوب الربط بها هي A1 ولا تنسى ان تضعه في حدث الصفحة كما نصحك أخونا أبوأحمد

السلام عليكم أخي العزيز / عيد جرب أن تضع المعادلة التالية في أي خلية =RIGHT(CELL("filename",B2),LEN(CELL("filename",B2))-SEARCH("]",CELL("filename",B2)))

السلام عليكم أخي وأستاذي الجليل / خبور خير إخواني مشرفي الإكسل بعد إذنكم أنا ثبتت الموضوع للفائدة ولتحفيز(ذلك الكنز) أستاذنا/ خبور خير ليخرج لنا مما لديه زاده الله واعطاه حتي يرضي

السلام عليكم أخي العزيز يبدو أنك بخيل في شرح ماتريد عموما أنظر المرفق به ماتطلب إن شاء الله إستخدمت فقط دالتين COUNTIF ، INDIRECT في معادلة واحدة ونسختها للباقي =COUNTIF(INDIRECT(X),A) حيث تعد الدالة COUNTIF في العمود (X) مرات تكرار القيمة A 22_2.rar

السلام عليكم أخي الفاضل أهلا ومرحبا بك أخا كريما فاعلا في المنتدي أنظر المرفق تجد به ماتريد بالعمود الأصفر حساب عمر فاتورة مبيعات بالايام.rar

أخي الحبيب وأستاذي الجليل / أحمد يعقوب مجرد مرورك علي موضوع أنا أشارك به شرف كبير فما بالك بالمشاركة ايضا جزاك الله خيرا ودائما مرحبا بتعدد الأفكار لتعم الفائدة

أخي العزيز يسهل تطويع الجدول المحوري بجهد قليل أو كود بسيط للتغلب علي أكثر مشاكله شيوعا لكي: (1) يتم تنشيطه كلما دخلت الصفحة التي بها الجدول ...........بطريق غير مباشر كلما حدثت البيانات ستدخل للصفحة بدون عمل أي ريفريش ستتحدث أوتوماتيكيا ، هذا الكود من سطر واحد وقد عملته لك بالفعل في الملف السابق (2) نجعل مجال البيانات في الجدول المحوري والذي يستمده من Sheet1 ، نجعله ديناميكيا متغيرا كلما أضفت سطر جديد فيدخل ضمن مجال الجدول ........ هذه لم افعلهت وغن كانت ستفيد سهلة إن شاء الله (كود من بضعة أسطر)

السلام عليكم في هذه الحالات تستخدم برامج أخري قد لاتكون في نفس كفاءة ومرونة الإكسل ولكنها مجهزة للتعامل مع حجوم البيانات العملاقة بسبل أسرع كثيرا من الإكسل

السلام عليكم أخي العزيز حل سريع جدا بالجداول المحورية تفضل المرفق sales Db2.rar

السلام عليكم أخي العزيز ملأت لك بيانات وهمية عن 2300 طالب تقريبا ومرفق الملف وبه كود الفرز الذي تريد أنقر علي الزر الأصفر ملاحظة : تستغرق عملية الفرز من 1 إلي 6 دقائق حسب قوة الكمبيوتر لديك كنترول الامتحانات_4_طارق.rar

السلام عليكم تفضل أخي المرفق به امثلة وليس مثالا واحدا Weekday.rar

وهذا هو الكود Sub Macro5() ' ' Macro5 Macro Dim sh(99) As String x = Sheets.Count For k = 1 To x For i = 1 To x sh(i) = Sheets(i).Name Next i For i = 1 To x - 1 Z = sh(i) For j = i + 1 To x If sh(j) < Z Then Z = sh(j) Next j If sh(i) > Z Then Sheets(Z).Move Before:=Sheets(i) Next i Next k End Sub

السلام عليكم أخي العزيز تفضل المطلوب في المرفق ترتيب الورقات أبجديا.rar

السلام عليكم عذرا أخي انشغلت عن سؤالك فكرت لك في حل أفضل أضفت خاصية لزر (جلب البيانات كلها) تجعله يضع فواصل للصفحات بعد كل 11 إسم بالتتابع وبعدها تطبع مباشرة أنقر زر (جلب البيانات كلها) وشاهد النتيجة في المرفق Book1_TAREQ4.rar

جزاكم الله خيرا بعض ماعندكم