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

استاذنا العزيز الوزير الف مبروك الاحتراف وتستاهل اكثر

بالامس قمت بتصدير ملف اكسل من برنامج خارجي . لكنه صدر لي الارقام بطريقة تكست . ( رقم بس يقراه الكمبيوتر نص ) . ولازم تقوم تعمل تنسيق الخلايا رقم . بحثت على الكود الخاص بهذه المشكلة فوجت الكود التالي . وحبيت اطرحة لمن يريد الاستفادة . Sub ConvertTextNumberToNumber() For Each WS In Sheets On Error Resume Next For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = Val(r.Value) Next Next End Sub

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

السلام عليكم ان سمحتوا لي بالمداخلة انا لم اطلع على المرفق بسبب الاصدار ، ولكن المطلوب واضح انا مع الوزير باعتماد التاريخ في الخروج والعودة التصور : جدول فرعي يشتمل على المعرف وحقلي الخروج والعودة ونوعهما ( تاريخ ووقت/ جنرال ) كل العمل المطلوب من المستخدم نقر زر الخروج لرصد التاريخ والوقت ، ومثله في العودة النتائج المنتظرة من هذه العملية : - امكانية الفلترة وجمع الفارق خلال الشهر للتنبيه وقت الحاجة ( عند التجاوز ) - امكانية الفلترة وجمع الفارق حسب الشهر المحدد - امكانية الفلترة وجمع الفارق خلال كامل المدة او اختيار فترة زمنية محددة

الف مبروك

أخي زياد Private Sub UserForm_Initialize() 'هذا هو حدث فتح الفورم End Sub

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

أخي الكريم زياد .. قمت بشرح الكود بالتفصيل لتتضح لك الصورة بشكل تام وأضفت تعليق يلبي طلبك في حالة أردت أن تقوم بالترقيم في الصف رقم 9 أي الخلية B9 كما أضفت سطر آخر في مكانٍ ما في الكود يوضح لك كيفية التغلب على مشكلة الخلايا الفارغة التي لا ترغب في ترقيمها ، وذلك عن طريق الخروج من الحلقة التكرارية التي تقوم بعملية الترقيم 'تعريف متغير من النوع ورقة عمل Dim ws As Worksheet Private Sub CommandButton1_Click() 'تعريف متغيرات من النوع رقم صحيح طويل يمثلان بداية الصفوف التي سيتم الترقيم من خلالها Dim lLrw1 As Long, lLrw2 As Long 'إذا كان صندوق النص فارغ يتم الخروج من الإجراء الفرعي أي لا يتم تنفيذ بقية السطور التالية If TextBox1 = "" Then Exit Sub 'تعريف متغير من النوع رقم صحيح ويحمل قيمة صندوق النص Dim b As Long: b = Me.TextBox1.Value 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each ws In ThisWorkbook.Sheets 'تحديد أول صف سيتم التعامل معه وإدراج الترقيم به 'لكي تجعل الترقيم يبدأ من الصف رقم 9 قم باستبدال الجملة بعد علامة يساوي بالرقم 9 lLrw1 = ws.Cells(1, "C").End(xlDown).Row + 1 'تحديد آخر صف سيتم التعامل معه وإدراج الترقيم به lLrw2 = ws.Cells(Rows.Count, "C").End(xlUp).Row 'تعريف المتغير من النوع رقم صحيح لاستخدامه في الحلقة التكرارية Dim I As Long 'حلقة تكرارية من أول صف إلى آخر صف For I = lLrw1 To lLrw2 'تم إضافة هذا السطر للخروج من الحلقة التكرارية إذا كانت الخلية في العمود الثالث فارغة If IsEmpty(ws.Range("C" & I)) Then Exit For 'وضع قيمة المتغير (القيمة التي توضع في صندوق النص) في العمود الثاني ws.Range("B" & I) = b 'زيادة قيمة المتغير الذي يستخدم في الترقيم بمقدار واحد b = b + 1 'الانتقال إلى الصف التالي داخل نفس الورقة Next I 'الانتقال إلى الورقة التالية Next ws End Sub Private Sub UserForm_Initialize() 'حدث بدء تشغيل الفورم 'يقوم الكود بتعبئة الكومبوبوكس بأسماء أوراق العمل '------------------------------------------------ 'حلقة تكرارية لكل ورقة من أوراق العمل لإضافتها إلى الكومبوبوكس For Each ws In ThisWorkbook.Sheets '[AddItem] سطر لإضافة اسم ورقة العمل إلى الكومبوبوكس من خلال استخدام الطريقة Me.ComboBox1.AddItem ws.Name 'الانتقال لورقة العمل التالية Next ws 'جعل خاصية الإندكس تساوي صفر ليظهر لك أول خيار في الكومبوبوكس 'لو حذفت هذا السطر سيظهر الكومبوبوكس فارغ إلا إذا اخترت عنصر منها بشكل يدوي Me.ComboBox1.ListIndex = 0 End Sub أرجو أن يكون الشرح مفيد ، ولا تبخل علينا بدعوات بظهر الغيب ، فما أحوجنا لتلك الدعوات تقبل تحياتي

الأخ الكريمAlsalim1 جرب المرفق التالى abo_abary_رواتب الموظفين2.rar

حسب الاكواد.. ابدا في الشغل وان شاء الله لو واجهنا كود يحتاج تعديل او اختصار بخبرك ..

السلام على جميع الاخوة الافاضل اما بعد : ما هي التكتيكات و الحيل المستعملة لجع ملف اكسل به فورم مثلا اكثر خفة و اقل حجما و كانه فارغ

السلام عليكم جرب الرفق حذف وتعديل اسم عميل.rar هل بهذه الطريقة

تفضل ترقيم تلقائي في الاستعلام2.rar

اذن ساعات الاجازة الثابتة شهريا للموظف هي فقط 4 واي زيادة يتم نقلها الى جدول IN_p وتجميعها تراكميا حسب الشهر ولماذا يتم ادخال الساعات يدويا؟ بما ان هناك ساعة مغادرة وساعة عودة يجب احتساب ساعات المغادرة تلقائيا ،،،

تم اضافة مكون اخر و هو حذف المسافة قبل النقطة فى نهاية الجمل مرفق ملف الموديول الكامل بحيث يمكن استيراده الي ملف او الي ملف Normal ليعمل على كل الملفات (( تم تحديث الملف فى مشاركة لاحقة))

مبروك استاذنا الوزير ترقية مستحقة والي الامام دائما ان شاء الله

مبروك اخي على الترقية تستحقها بالموفقية ان شاء الله

صباح الخير اخي احمد بدأت الفكرة في الوضوح الان بالنسبة لعدد ساعات الموظف، هل يتم وضعها يدوياً من قبلك؟ وهل رقم 4 هو الساعات الأساسية لكل موظف واي تجاوز عنها يحسب ضمن الساعات الزائدة والتي سيتم تخزينها في جدول IN_P ? ان كان كذلك، فالجدول IN_P يجب أن يقبل التكرار لانه سيتم تخزين الساعات الزائدة لنفس الموظف لاكثر من شهر. ما هي آلية نقل البيانات(التخزين) في الجدول؟ بمعنى هل تريدها بزر أمر أم ماذا؟ عموماً عملت لك تصوري الأولي جرب واعطيني ملاحظاتك مع الإجابة على أسئلتي :: تحياتي waz1-Ijazat.rar

مبارك عليك الترقية اخ الوزير وعقبال الاعلى لك وللأخوة الافاضل في هذا الصرح

السلام عليكم ورحمة الله وبركاته جزيل الشكر شيخنا واستاذنا ابو خليل على هذه الثقة وأسأل الله أن يعيننا وإياكم على تقديم كل ما هو خير لصالح الجميع دعوة بظهر غيب تكفيني :: تحياتي لكم جميعا

طلب الاستاذ محمد سلامة في صميم الموضوع وقد علقت على سؤاله : ولا بأس استاذ رمهان ان ترفع انت موضوعا جديدا تتحفنا فيه بما في جعبتك مع الشكر والتقدير

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

الأخ الكريمعمر سليمان بعد السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_المنصرف اليومي.rar

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