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

حاضر اخي ياسر sans repetition salim.zip

اكتب هذه المعادلة في الخلية AF5 واسحب نزولاً (اذا لم تعكل معك استبدل الفاصلة ب فاصلة منقوطة في المعادلة) =IF(Z5<>0,MAX($Af$4:Af4)+1,"")

جرب هذا الشيء Unique List.zip

بارك الله فيك أخي الحبيب سليم وإثراءً للموضوع هذا حل آخر باستخدام معادلة صفيف ، توضع في الخلية I5 معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter معاً =IFERROR(INDEX($D$5:$D$40,MATCH(0,IF(ISBLANK($D$5:$D$40),1,COUNTIF($I$4:I4,$D$5:$D$40)),0)),"") Unique List.rar

السلام عليكم أخي عبدالرحمن بدوي اسمح لي أن اطرح سؤال وأجيب عليه السؤال لنفرض أن الجامبو به ثلاث مشاكل ( وليس مشكلة واحدة) المشكلة الأولى على بعد 16 سم من اليمين المشكلة الثانية على بعد 50 سم من اليمين المشكلة الثالثة على بعد 70 سم من اليمين (لاحظ هنا أن بداية الحساب تكون من اليمين ) فما هي أرقام الرولات التي سيكون بها خلل ؟ الجواب بما أنك اخترت الطريقة الأولى سنضع عدد الرولات وطول الحافتين وطول الرول الواحد ثم في الخلية c7 نكتب أول مشكلة وهي 16 ونلاحظ الجواب في الخلية C8 أو C9 لنفترض أن الجواب هو 3 تغير الرقم في الخلية C7 إلى المشكلة الثانية وهي 50 ولنفترض أن الجواب هو 7:8 نغير الرقم في الخلية C7 إلى المشكلة الثالثة 70 ولنفترض أن الجواب هو 11 ( لاحظ أننا غيرنا الرقم في الخلية C7 فقط ولم نغير أي رقم في الخلايا الأخرى لأن الحساب يجري على نفس الجامبو ) إذن سيكون الخلل هو في الرول رقم 3 وبين الرولين 7 و 8 وفي الرول رقم 11 تحياتي

الطريقه الثامنه :- تعبئه الكمبوبوكس بدون تكرار باستخدام الحلقه التكراريه For Each و المتغير Collection (طريقه احترافيه) هذه الطريقه طريقه احترافيه من حيث فكرة الكود وكتابته ولكنها غير عملية ومفيده فى البيانات ذات النطاق الكبير نظرا لاعتمادها على عدد 2 حلقه تكراريه مما يسبب البطئ فى ادخال البيانات لو كان نطاق العمل كبير لو عندى شيت زى كدا وفيه بيانات وعايز اقوم بتعبئة الكمبوبوكس بالبيانات المظلله باللون الاخضر ولكن دون تكرارشاهد الصوره انا كل مره بالشرح بكتب الكود وبعدين اشرحه بالتفصيل المره دى انا هشرحه قبل ما اكتبه تعالو نشوف ايه اللى بيحصل ببساطه ايه المطلوب ؟ المطلوب هو ادخال البيانات اللى بالشيت المظلله باللون الاخضر ( A2:B7) اذن لازم اعمل متغير يعبر عن كل خلية بالنطاق فنعمل ايه ؟ Dim data As Range انا دلوقتى عايز العمودين دول يدخلوا فى الكمبوبوكس برضوا فى عمودين انا هعمل ان كل بيانات عمود عباره عن مجموعه بمعنى ايه الخلايا من A2 الى اخر خلية بها بيانات فى العمود A ( دى تكون مجموعه اولى ) والخلايا من B2 الى اخر خلية بالعمود A ( دى تكون مجموعه تانية ) طيب علشان اعلن عن مجموعه يبقى لازم اعمل كدا Dim data As Range Dim group1 As Collection Dim group2 As Collection عرفت متغير وسميته group1 وقلت ان المتغير ده من النوع Collection ( وCollection تعنى مجموعه ) طبعا زى ما اتفقنا انى عايز اعرض عمودين يبقى لازم اعرف كل عمود فى مجموعه فأنا محتاج اعرف متغير لكل مجموعه لذالك عملت group1 و group2 طيب group1 و group2 عباره عن ايه ؟ عباره عن مجموعات جديده اذن لازم استخدم set لتحويل قيمة المتغير الى كائن طيب أزاى ؟ بالشكل ده شوف الكود Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection حولت قيمة المتغير group1 الى كائن يساوى مجموعه جديده وايضا حولت قيمة المتغير group2 الى كائن يساوى مجموعه جديده ********************************************************************************************* محلوظه مهمه جدا انا عملت مجموعتين لاننا عايزين نقوم بتعبئة الكمبوبوكس ببيانات العمودين A و B لكن لو حضرتك عايز عمود A فقط اذن تعرف مجموعه وحده فقط يعنى على حسب عدد الاعمده هتعرف مجموعات *********************************************************************************************** طيب دلوقتى عملنا بالكود مجموعتين عايزين ندخل فيهم البيانات بقى اللى بالشيت فنعمل ايه ؟ هنستخدم الحلقه التكراريه For Each ونسمى الحلقه باسم Data ونقول ان الحلقه تبدأ من A2: الى اخر خليه بها بيانات وطبعا اتكلمنا بالتفصيل قبل كدا عن الحلقه For Each راجع الدرس السابق تعالو نشوف الكود وصل لوين ؟ Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) Next data كدا عملنا الحلقه والحلقه هتلف من خلال Next بس كدا هتلف على الفاضى مجرد بس هتمر على الخلايا اللى بالنطاق وتقولها السلام عليكم ان مش عايز سلامات وطيبون دلوقتى انا عايز استفيد من لفتها ومن عملها عايز اقولها ان group1 المجموعه الاولى تساوى العمود A اللى هو Data وعايز ان group2 المجموعه الثانيه تساوى العمود B اللى هو بجوار الـ Data ( من خلال offset) فالكود هنضيف فيه ايه ؟ شوف الكود Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data group2.Add data.Offset(0, 1).Value Next data قلنا ان group1 قم بأضافه data ( اللى هى خلايا العمود A) من خلال Add وكذالك group2 قم بأضافه خلايا العمود B واحد هيقولى بس كدا هياخد كل البيانات اللى بالنطاق حتى وان كانت مكرره وانت قلتلى ان الطريقه دى مش هيكرر البيانات فى الكمبوبوكس هو انت بتضحك عليا هقوله يا عم اصبر شوية انا عايز اديك الطريقتين لو عايز البيانات زى ما هى حتى وان كانت مكررة يبقى الكود السابق كدا تمام ولكن لو مش عايز تكرار بسيطه جدا هنعمل اضافه صغيره جدا جدا جدا شوف الكود On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data, data.Text group2.Add data.Offset(0, 1).Value Next data اللى مركز معايا وصاحى هيعرف ايه اللى تم اضافته تم اضافه السطر الاول وهو عباره On Error Resume Next وتعنى عند حدوث اى خطا انتقل الى السطر التالى واحد هيقولى طيب وهو هيحصل خطأ ليه هو مش الكود مكتوب صح هقوله لان انت طلبت عدم تكرار الاسماء فالكود عندما يصادف اسم مكرر هيتوقف ليتم تبليغ حضرتك فعلشان كدا كتبتله هذه العباره انه مش عايزه يبلغنى وينتقل الى السطر التالى ويكمل الحلقه بتاعته دون توقف وتم اضافه هذا الجزء البسيط فى السطر group1.Add data, data.Text الجزء المظلل باللون الاحمر هى الاضافه البسيطه اللى تمنع التكرار طيب كدا حلو قوى لحد دلوقتى تم تعبئة كل مجموعه المجموعه الاولى بالعمود A والمجموعه الثانيه بالعمود B ازاى بقى ندخل بيانات كل مجموعه فى اعمدة الكمبوبوكس اذن هستخدم الخاصيه With واقفالها بــ End with للاشاره الى الكمبوبوكس المراد تعبئته With Me.ComboBox1 End With هنا ياتى دور الحلقه التكراريه التانيه اللى مهمتها تلف على كل محتويات المجموعه ودخلها فى اعمدة الكمبوبوكس الحلقه هى For Next للمرور على كل عناصر المجموعه من رقم 1 اللى هو اول عنصر بالمجموعه الاولى الى اخر عنصر بالمجموعه الاولى On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data, data.Text group2.Add data.Offset(0, 1).Value Next data With Me.ComboBox1 For i = 1 To group1.Count .AddItem group1(i) .List(.ListCount - 1, 1) = group2(i) Next i End With AddItem. يشير الى العمود الاولى للكمبوبوكس وقمنا بتعبئة عناصر المجموعه group1 (List(.ListCount - 1, 1. يشير الى العمود الثانى للكمبوبوكس وقمنا بتعبئة عناصر المجموعه group2 يبقى تحديد وقت تنفيذ الكود وزى ما اتفقنا قبل كدا ان وقت تنفيذ الكود انت اللى بتحدده ولكن على سبيل المثال فى حدث فتح الفورم Private Sub UserForm_Initialize() On Error Resume Next Dim data As Range Dim group1 As Collection Dim group2 As Collection Set group1 = New Collection Set group2 = New Collection For Each data In Sheet1.Range("A2:A" & Sheet1.Cells(Rows.Count, "a").End(xlUp).Row) group1.Add data, data.Text group2.Add data.Offset(0, 1).Value Next data With Me.ComboBox1 For i = 1 To group1.Count .AddItem group1(i) .List(.ListCount - 1, 1) = group2(i) Next i End With End Sub والى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد وطريقه اخرى من طرق تعبئة الكمبوبوكس انتظرونا تقبلوا تحياتى

السلام عليكم اخى الكريم يمكنك استخدام المعادلة التالية =IFERROR(INDEX(الاساسية!A:A;SMALL(IF(الاساسية!$B$2:$B$16=LOOKUP(2;1/($B$7:$B7<>"");$B$7:$B7);ROW(الاساسية!$B$2:$B$16));C7));"") فقط ضعها فى الخلية D7 ولا تنسى CTRL+SHIFT+ENTER ثم قم بسحبها لاسفل اليك المرفق جدول المراقبة اليومي++_2.rar

أخى العزيز / سليم تحية طيبة وبعد ،،،،،، سامحنى على ذلك. فذلك أول موضوع لى بعد تعديل الموقع. خالص شكرى وتقديرى أخوك عيد مصطفى

هو الدوس على زر اعجاب حاجة صعبة أوي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله .....أعزائي أعضاء المنتدى ؛ أضع بين أيديكم الإصدار الثالث من ( برنامج متابعة الدخل و المصروفات ) في هذا الإصدار قمت بتحديث وتطوير صفحات التقرير لسجلات الوارد والصادر وهيكلتها من الأساس مع إضافة الألوان المتدرجة ضمن التنسيق الشرطي وفي البنية البرمجية للعناوين المتغيرة حيث إعتمدت الدوال الشرطية ( if ) بدلا من التنسيقات الشرطية والكثير من الأفكار التي لم تكن في الإصدارات السابقة؛ ولعل أبرز مايتميز بههذا الإصدارهو خدمة التعرف على السجلات التي تتجاوز مبلغ الحد الأقصى للمصروفات؛ الذي يكتب في صفحة التقرير التفصيلي، كما أصبحت إمكانية إستخدام أكثر من عملة أفضل من حيث كثرة الخيارات وشمولية التحكم في صفحة التقرير التفصيلي مع حرية الفرز والتفكيك بين مختلف الحسابات الأخرى - و في هذه النسخة أيضا حاولت وبقدر الإمكان أن أقدم شرح وافي لجميع مكونات البرنامج - وفي العادة هذا الأمر لايتم إلا عن طريق الشرح المصور وهذا طبعاً يجعل حجم البرنامج كبير جدا نظراً لإرفاق الصور، لذلك نرى الكثير من المصممين والمبرمجين أحيانا يكتفون بوضع شروحاتهم المصورة بشكل منفصل عن البرنامج في المنتديات أوفي المواقع وهذا أمر جيد لكن يصعب على المستخدم الرجوع إليه بشكل سريع، لذلك قررت أن أشرح البرنامج و لو بشرح نصي بحيث يكون هذا الشرح وافي وشامل وفي نفس الوقت مرفق مع البرنامج بشكل دائم وهذا لايتطلب حجم كبير رغم أن هذا الشرح أخذ مني الكثير من الوقت مضافا إلى وقت تصميم البرنامج في حد ذاته ؛.... أخي الكريم … صحيح البرنامج بسيط من حيث واجهته وبقية شاشاته لكنه مزود ومعد للقيام بكثير من الأفكار الخدمية والمحاسبية الهائلة والتي يمكن للمستخدم أن يطلع عليها ويعرف تفاصيلها من خلال قرائة الشروح المرفقة في (صفحة التعليمات - حول About ) والتي يمكنك الإنتقال إليها من خلال ضغط زرالتعليمات الموجود في جميع أقسام البرنامج ؛.... مرة أخرى أأكد تميز هذه النسخة عن سابقتها، وإذا كنت من مستخدمي الإصدارات السابقة؛ فحتماً سوف تشعر بتلك الفروقات. وفي حال رغبتك إغتناء الإصدار الثاني يمكنك الرجوع إليه على هذا الرابط إضغط هنا أتمنى لكل من يغتني هذا البرنامج التوفيق والإستمتاع به راجياً عدم فك حمايته و عند وجود أي تعليق أو ملاحظة على البرنامج أو في حال رغبة الإخوة المحترفين لأي نص برمجي أو صيغة للدوال الشرطية - أرجو كتابة ذلك في المنتدى أو مراسلتي على الإيميلات الموجودة أدناه . أخي العزيز .... إذا كنت ترى أنك تستفيد من البرنامج فإن طلبي الوحيد والأكيد هو أن لاتنساني من صالح الدعوات - أخوكم - أبو أحمد بن الشيخ محمد اللويم . السعودية - الأحساء ، قرية الشعبة HU1977@HOTMAIL.COM h.aboahmad@gmail.com برنامج متابعة الدخل والمصروفات_الإصدار الثالث.zip

اخى الكريم جرب المرفق جيداً وابدى ملاحظاتك f.rar

اخى واستاذى الحبيب / حسام عيسى الله يبارك فى حضرتك وفقنا الله واياكم لما فيه الخير ................ استاذى الحبيب / محمد حسن المحمد سأكتفى بقول : إنى احبك فى الله جزاك الله كل الخير على هذا الدعم المستمر ............... خالص تحياتى وتقديرى واحترامى

حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip

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

بسم الله الرحمن الرحيم -----------السلام عليكم و رحمة الله وبركاته (( كلمة شكر أوجها لإدارة المنتدى والمشرفين )) وكل القائمين على هذا الصرح العظيم على الثقة اللي منحوني اياها وترقيتي ((عضو محترف )) بعد ما كنت عضو منحرف أشكر الإدارة على هذه الترقيه الذي اعتبرها شرف لي .. ووسام على صدري.. وأتمنى أن أكون في محل الثقة .... بمساعدة اخواني المشرفين والاعضاء معا يداً بيد لنبني منتدى راقي و مبدع . وإن شاء الله أكون عند حسن ظنكم جميعاً. وشكرا تحياتي لكم ادارة ومشرفين واعضاء ,, فائق حبي واحترامي .. وبيقولوا تستحقها عن جدارة مش عارف علي ايه ولا هو جر رجل يعني هههههه

أخي الكريم وائل هذه إضافة لابد وأنك أضفتها أو تم تنصيبها على جهازك ..

الف مليون شكر هذا هو المطلوب تمام التمام استاذنا الله يبارك فى حضرتك تقبل احترامى وتقديرى

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

اخى الحبيب / يــاسر العربى مبارك عليكم الترقية المستحقة ... الى مزيد من التقدم والرقى ان شاء لله واشارك حضرتك الشكر والتقدير للمنتدى وأساتذته والقائمين عليه على هذه الثقة الغالية التى منحونى اياها وفقنا الله جميعاً لما فيه الخير ... والسلام عليكم .

الحمد لله الذي بنعمته تتم الصالحات تقبل وافر تقديري أخي وليد

استاذى الحبيب / أبو البراء لكم يسعدنى دائماً مرور حضرتك العطر تقبل خالص تقديرى واحترامى

السلام عليكم ورحمة الله وبركاته اعزائي في المنتدي هذا عمل قمت به بمساعدة اساتذه من المنتدى وخاص الاستاذ ياسر خليل أبو البراء وطبعا كل باقي المعادلات هي من المنتدى انا فقط صممت هذا البرنامج طريقة عمله والمراد منه اضعه بين ايديكم ليستفيد منه من له حاجه به وهو كالتالي يتالف الملف من عدة صفحات 1- ATTENDANCE وهذه الصفحة او الشيت هي لادخال ساعات الدخول والخروج في الخالية المسمى IN لساعة الدخول والخليه المسمى OUT لساعة الخروج وحرف A في حالة الغياب وحرف S في حالة المرض وحرف V في الاجازاة وحرف F لليوم الجمعة ويوم الجمعه يتم تغير التنسيق عن تغير التاريخ في خلية G3 ويكتب الشهر ثم اليوم يعني (10/1/2015) وهكذا يتم تغير التنسيق تلقائي وهذا بالنسبة للشيت الاول والثاني 2- Daily Site وهذا الشيت خاصة فقط للطباعة فقط عليك تغير تاريخ الشهر من اجل التنسيق لليوم الجمعة من خليه H3 3- Report on employee وهذا الشيت هو لجلب معلومات عن الموظف وذلك عن طريق كتابة اسم الملف في الخليه B3 فيتم احضار كافة المعلومات عنه 4- Number trades in the project وهذا الشيت يعطيك عدد اصحاب كل مهنه في المشروع والملف تم اخفاء ورقة هي ورقة 1 وفيها بيانات للاسترجاعها عن طريقة ايقونة التنسيق واظهار ورقة ولا يتمت تغير فيه اي شيء والملف محمي برقم 123 ومن لديه افكار اضافية فلا يقصر علينا بها وله منا جزيل الشكر برنامج حظور وانصراف.rar

تم بفضل الله شاكر مساعدتكم اخي وائل واخي عادل وبارك الله فيكم

أخي الحبيب خالد الرشيدي عمل رائع ومتميز كعادتك دائماً .. تقبل وافر تقديري واحترامي

اخى الكريم عفوا لاحظت خطا ما فى الكود السابق الكود السابق بعد 10 سجلات سيقوم بترقيم الاتى (A-11 / A-12 ) واعتقد ان هذا ليس مرادك ويمكنك استبداله بالكود التالى Dim f As String f = DCount("id", "mytable") If f >= 10 Then id = "A-" & (DCount("id", "mytable")) - 10 + 1 Else id = DCount("id", "mytable") + 1 End If

كالعادة اخي ياسر سباق بالخير اخي مصطفى اطلع على المرفق واية موضوع الأوطة دة فيها لا أجرسكوا كلوكوا :) جدول المراقبة اليومي.rar

شكرا لك اخى مارد على المجهود الرائع شكرا لك وشكرا لادارة المنتدى

تفضل الحل مع بعض التنسيقات القائمة المنسدلة مطاطة (تستجيب لأي تعديل أو زيادة في الاسماء و لا تطهر الاسم المكرر الا مرة واحدة) تستطيع زيادة البيانات مع اسماء محتلفة report.zip

اعتمادا على الماكرو المنشور في هذه الصفحة https://msdn.microsoft.com/en-us/library/office/ff195646.aspx وبعد إدخال بعض التعديلات عليه، جرّب وحدتَي الماكرو أدناه لتباعد الأحرف (الأولى للزيادة والثانية للإنقاص، مع العلم أن الوحدتين هما للتباعد لا للموضع). ملاحظة: عليك اختيار النص قبل تشغيل الماكرو. إن نسيت تحديد نص وشغّلت الماكرو، فستظهر رسالة بالإنكليزية تطلب منك تحديد النص أولا. Sub IncreaseFontSpacing() If Selection.Type = wdSelectionNormal Then Selection.Font.Spacing = Selection.Font.Spacing + 0.1 Else MsgBox "You need to select some text." End If End Sub Sub DecreaseFontSpacing() If Selection.Type = wdSelectionNormal Then Selection.Font.Spacing = Selection.Font.Spacing - 0.1 Else MsgBox "You need to select some text." End If End Sub

السلام عليكم لا حاجة للرسم البياني هذه العملية لها طريقتان في الحساب كما هو موضح في المرفق فإيهما كان صحيحا فاعتمد عليه ولكن يجب أن تجرب المرفق وإن ظهر أي خلل يمكن أصلاحه تنبيه1/ الخلايا الصفراء في المرفق بها معادلات تنبيه2/ إذا كانت النتيجة بهذا الشكل 3 فهذا يعني أن الخلل في الرول رقم 3 إذا كانت النتيجة بهذا الشكل 2:3 فهذا يعني أن الخلل واقع بين الرولين 3 و 2 أي في مكان القطع تحياتي تحياتي repositioning1.rar

الموضوع محتاج شرح اوضح مع الامثلة والتبسيط والحصر للحالات اخي تحياتي

'فرضنا متغير f Dim f As String 'قلنا ان المتغير يساوى مجموع سجلات حقل الترقيم f = DCount("id", "mytable") 'اذا كان المتغير اكبر من 10 سيقوم بادراج الرمز A وتستطيع ان تغيرها بعد ذلك الى 10000 If f >= 10 Then id = "A-" & DCount("id", "mytable") + 1 Else id = DCount("id", "mytable") + 1 End If الحدث موجود بعد تحديث مربع نص التاريخ فقط اكتب تاريخ الفاتورة وسيتم الترقيم ترقيم رموز.rar

اطلع على المرفق لعلة المطلوب تحياتي تغيير التاريخ.rar

اخوتى الاعزاء اليكم المرفق من جديد وآسف على التأخير ايام المراقبة.rar

ما شاء الله تبارك الله عمل ومجهود أكثر من رائع أخى الحبيب أ / محمد الريفى زادك الله من العلم الكثير والكثير وجزيت خيرا الجزاء على كل ما تقدمه من علم يستفاد منه الجميع تقبل خالص تحياتى وتقديرى

أخي الحبيب زيزو الملف لا يتم تحميله يرجى إعادة رفعه من جديد تقبل تحياتي

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

اي مشكوووورررر اخي ابو سليمان لمرورك الكريم اثابك الله وانار طريقك بالعلم النافع بس فيه سؤال بيطرح نفسه ??مين ابو عماار ايى شخص اسمة ياسر يطلق عليه ابو عمار " عمار بن ياسر " او ل شهيد بالاسلام

اخي nedal_shami رائع وفقك الله تحياتي

بعد اذن الاساتذه الكرام هذا حل اخر بمعادلة =IF((ROW(F9)-ROW($F$8))<=$G$8;$F$8;"") تكرار بناء على عدد.rar

السلام عليكم بعد إذن أساتذتنا الافاضل، ولإثراء الموضوع من منظور مختلف ياريت لو تجرب الكود ده .... والفرق بينه ومبين ما سبق انه بمجرد ما تعمل له تشغيل يقرا العدد المطوب من الخلية المجاورة ثم يقوم بادراج عدد التكرارات المطلوب دون التأثير على ما اسفله من بيانات تكرار بناء على عدد OB.rar Sub RepeatCellValue() Dim I As Integer Dim A A = ActiveCell.Offset(0, 1).Value If IsNumeric(A) Then For I = 1 To A ActiveCell.Copy Selection.Insert Shift:=xlDown Next Application.CutCopyMode = False End If End Sub تكرار بناء على عدد OB.rar

جميل جداً أخي الحبيب سليم والأجمل الإعلان عن المتغيرات .. بالنسبة للمتغير Integer قرأت في أكثر من مصدر أنه من الأفضل الإعلان عنه من النوع Long (إذ أنه حتى لو تم الإعلان عنه من النوع Integer فإن الفيجوال بيسك يقوم بتحويله إلى Long) هذا والله أعلى وأعلم

اخي ياسر اثراء للموضوغ اليك هذا الكود تستطيع ان تحدد اكثر من صف و اكثر من عامود للنكرار Sub repet() Dim myrg As Range Dim t As Integer Set myrg = Application.InputBox("Enter your data", Type:=8) t = Application.InputBox("Enter your number", Type:=1) myrg.Copy ActiveCell.Resize(t * myrg.Rows.Count, myrg.Columns.Count) End Sub

أخي الكريم كريم إليك الكود التالي عله يفي بالغرض Sub CopyData() Dim Rng As Range, xValue, xNum Dim InputRng As Range, OutRng As Range On Error Resume Next Set InputRng = Application.Selection Set InputRng = Application.InputBox("حدد النطاق المراد تكراره", "Officena", InputRng.Address, Type:=8) Set OutRng = Application.InputBox("حدد الخلية التي تريد وضع النتائج بها", "Officena", Type:=8) Set OutRng = OutRng.Range("A1") For Each Rng In InputRng.Rows xValue = Rng.Range("A1").Value xNum = Rng.Range("B1").Value OutRng.Resize(xNum, 1).Value = xValue Set OutRng = OutRng.Offset(xNum, 0) Next End Sub قم بتنفيذ الكود .. حدد النطاق المراد تكرار قيمه (على أن يكون في الخلية المجاورة عدد مرات التكرار) .. حدد أول خلية في نطاق النتائج .. انتهى Repeat Cell Values X Times.rar

السلام عليكم صراحة ـ لست مع فكرة اجبار العضو على المشاركة ليستطيع التحميل ـ على الرغم من انها كما تفضلت متبعة و منتشرة و لها مزاياها - فنحن على عكس الكثير من المواقع التي تسعي لزيادة عدد الردود نقوم دوريا بتنقيح المواضيع و حذف المشاركات التي ليست بها اضافة قبل ارشفة الموضوع. و الهدف من ذلك ان لا يضيع وقت القاريء لاحقا في قراءة ما لا يلزمه و يصعب الوصول للمشاركات الهامة في وسط العديد من المشاركات. التفاعل نعم مفيد بصفة عامة ، و لكن نريد نوعية معينة فقط من التفاعل الفاعل المفيد.

الاخ العزيز شكرا لمجهودك

بارك الله فيك وجزاك الله خير الجزاء

بارك الله فيك وشكرا على الجهود

اليك الحل كما يجب ان يكون الرقم القومي.rar