نجوم المشاركات

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

السلام عليكم الاخ الكريم / krimo145 يتضح من الصورة المرفقة انك لم تقم بتفعيل الماكرو لكي يعمل كل ازرار البرنامج واكوادة ولعمل ذلك اتضح لي انك تعمل علي اوفيس 2007 من الصورة مرفق ملف من اعداد الاستاذ القدير / يحيي حسين في منتداه الرائع المرفق به طريقة تمكين الماكرو في اكسيل 2007 بالصور في ورقة ورد اليك المرفق وبعد اتباع الخطوات الموجودة بالملف المرفق ( ان شاء الله سيعمل البرنامج بنجاح ) وسأنتظر ملاحظاتك وطلباتك عليه مع كل اساتذة هذا الصرح العظيم جزاك الله خيرا طريقة تخفيض مستوى الأمان في كل إصدارات الإكسيل2007.rar

السلام عليكم ورحمة الله أخي الكريم، تم تسمية نطاق البيانات (من العنوان إلى آخر بيانات) بالتسمية Plage باستعمال معادلة بالدالة OFFSET وتم إدراج كود يقوم بتعويض كل 3 فراغات (" ") بفراغين (" ") ثم كل فراغين (" ") بـ (/) ثم يقوم بتحويل كل نص في كل خلية من النطاق بتقسيمه إلى خلايا في الأعمدة المجاورة (4 أعمدة بحساب العمود الأول) حسب الرمز /... الشرط الوحيد أن تفرق بين البيانات (الاسم-العمر-رقم البطاقة-العنوان) بعدة فراغات (على الأقل 3 فراغات -أو 2 فراغات-) أو بالرمز / (وهذا شرط أساسي لعمل الكود).... وأضيفت أيضا بعض التنسيقات التحسينية للأعمدة الأربعة بعد التقسيم .. الكل تجده في الملف المرفق... أرجو أن يكون هذا العمل مستوفيا المطلوب... أخوك بن علية تنسق الملف1.rar

أخى الفاضل / عباس السماوى ما رأيك بكود يقوم بعمل المطلوب تم حذف دالة vlookup الموجودة فى الصفحة و تنفيذها من داخل الكود وأيضا اظهار رسالة المكرر من خلال الكود هذا الكود يوضع فى حدث الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = 0 For i = 4 To 37 For ii = 4 To 27 Step 2 Set RG_LIST = Range(Cells(39, ii), Cells(52, ii + 1)) x = Cells(i, ii) If x <> "" Then Cells(i, ii + 1) = Application.VLookup(x, RG_LIST, 2, 0) xx = Cells(i, ii + 1) End If y = Application.WorksheetFunction.CountIf(Range(Cells(i, 5), Cells(i, ii + 1)), xx) If y > 1 Then MsgBox " هذا الرقم مكرر": Cells(i, ii + 1) = "": Cells(i, ii) = "": Exit Sub Next Next Application.ScreenUpdating = 1 End Sub شرط عدم التكرار لايعمل.rar

السلام عليكم الاخ الكريم / abumode75 هل لديك نموذج للملفات الصوتية (( احسنت اجابة صحيحة وكدلك عند الخطا )) بدلا من اقوم بالبحث عنهم او تقطيعهم لسرعة الانجاز في الوقت فقط جزاك الله خيرا

السلام عليكم الاخ الكريم / krimo145 تم تعديل ملف برنامج العقارات ليكون بمسميات برنامج اقساط برجاء الاطلاع عليه وهل سيفي ذلك بطلبك ام لا وطبعاً كل الشكر لصاحب البرنامج الاساسي الاخ الكريم / Hosam Noor حيث وجدت ان كثيرا من الاكواد في محرر الاكواد باسمه جزاك الله خيرا تفضل المرفق برنامج العقارات محول لبرنامج اقساط.rar

السلام عليكم اخي السائل ان اردت رد كافي من الاخوة لابد من ارفاق ملف وبه تصورك للعمل الذي تريده وان شاء الله تجد اكثر من حل لطلبك من الاساتذه تحياتي

السلام عليكم ورحمة الله أخي الكريم، لقد تم تعديل المعادلات اللازمة لترحيل (استدعاء) البيانات، والخطأ كان أولا في أنه تم نسخها جملة واحدة ولصقها في ملفك وتركت ارتباطها بالملف الذي نسختها منه وثانيا باعتبار أن المعادلات مرتبطة بخلايا (خلية رقم رتبة العميل-خلية الكود) ولم تقم بتعديل هذه الارتباطات وكان أيضا خلل في تسمية الورقة الأولى في الملف الذي نسخت منه المعادلات تسميتها "ورقة 1" وفي ملفك الأخير تسميتها "ورقه 1" وكل هذه الأمور تجعل المعادلات لا تأتي بثمارها... المهم أنه تم التصحيح والتعديل حسب المطلوب (على ما أعتقد)... تم إضافة كود الطباعة للملف (الذي أصبح من نوع xlmx.) مع تصحيحه حسب الخلية S6 التي تحوي "عدد العملاء". وتم أيضا تحجيم ورقة 2 للبيانات لتحتويها ورقة بحجم A4 حتى تكون لكل عميل ورقة واحدة تحوي جميع بياناته المحولة... وملاحظة أخرى : تبقي أرقام الأكواد التالية : 10801109 ، 10801113 ، 10801114 ، 11001064 موجودة في الورقة 1 وبها بيانات لبعض العملاء ولكنها غير موجودة في الورقة 2 أين تُرحل هذه البيانات... أخوك بن علية ملف مرفق به ملفين أحدهما لنسخة 2007 (أو أعلى) وآخر نسخة 2003 : مشروع تخرج أخير.rar

للرفع

بسم الله الرحمن الرحيم السلام عليكم مبارك عليك و علينا و على المنتدى الإصدار الثالث و الى الأمام دائما اخى (( خبور )) أعلم مدى الجهد و الوقت الذى تقضيه فى تحديث البرنامج أعانك الله و بارك الله فيك و جزالك الله خيرا و جعله فى ميزان حسناتك تحياتى السلام عليكم