اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. حمادة عمر

    حمادة عمر

    المشرفين السابقين


    • نقاط

      40

    • Posts

      6,205


  2. ابو جودي

    ابو جودي

    أوفيسنا


    • نقاط

      13

    • Posts

      6,503


  3. Shivan Rekany

    Shivan Rekany

    الخبراء


    • نقاط

      12

    • Posts

      3,490


  4. jjafferr

    jjafferr

    أوفيسنا


    • نقاط

      12

    • Posts

      9,724


Popular Content

Showing content with the highest reputation on 24 أبر, 2017 in all areas

  1. هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية
    5 points
  2. انت بحاجة الى وحدة نمطية تضع فيها كل شرط ، هكذا (طبعا لم اضع كل الشروط ، وعليك بإضافتها كلها): Function Clean_Data(S) 'S = string of numbers mixed with data If Right(S, 2) = "-x" Then C = Mid(S, 1, Len(S) - 2) ElseIf Right(S, 5) = "xxxxx" Then C = Mid(S, 1, Len(S) - 5) Else C = S End If Clean_Data = Trim(C) End Function وتنادي الوحدة النمطية من الاستعلام هكذا: B: Clean_Data([f5]) والنتيجة حسب الشروط التي في الوحدة النمطية: جعفر
    3 points
  3. السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك ولكن والله عندما ادخل للمنتدي .. واقوم بالعمل علي موضوعك لا افهم المطلوب تماما حتي انه لا يمكنني البدء فيما تريد لم افهم هذه الجزئية كيف تكون قيمة الكومبوبكس TRUE او FALSE اين الليست بوكس المضاف فعذرا اخي الكريم محمود .. انت تتحدث عن ملفك وطلبك بطريقة سليمة لأنك تفهم المطلوب وتفهم ما تريد منه فمعذرة .. برجاء معي واحدة واحدة لنصل الي ما تريد ان شاء الله فهيا بنا نقوم بتنفيذ طلب طلب سيكون ان شاء الله اسرع وافضل لي .. لكي افهم بالضبط منك ما تريد وعذرا مرة اخري لعدم تمكني من فهم طلبك تقبل خالص تحياتي
    3 points
  4. السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك عذرا اخي الكريم .. مشغوليات العمل وضعف النتي لدي هذه الايام فقط اليك المرفق التالي تم تنفيذ ( زر ادخال وترحيل بيانات ) كما قمت انت بالتوضيح في المشاركة السابقة وايضا تم تنفيذ عمل البحث بالكومبوبكس ( البحث عن علاوة ) ولكن يجب الآخذ في الاعتبار القيمة في العمود AG ان تكون كلمة TRUE وكلمة FALSE بهذا الشكل وبنفس الحروف لضمان عمل التشيك بوكس اي كما في الصورة التالية وفي انتظار ردك وتوضيحاتك .. وخلينا ماشيين كده طلب طلب لضيق الوقت لدي هذه الايام فقط ولكن ان شاء الله دائما معك وبسرعة تقبل خالص تحياتي تحديث علاوات+ .rar
    2 points
  5. بعد اذن اخي و حبيب القلب ياسر انظر الى هذا الملف صفحة Salim dup_Remover_from cel.rar
    2 points
  6. انا سويت لك حق المردود لكن انت معك مشكلة انه الاصناف لا تظهر في التفاصيل في الفواتير راجع العلاقات ومصادر البيانات ولازم تغير ايضا نوع الفاتورة الى مردود لانها تنتقل مبيعات فلازم تحذف من الاستعلام الالحاقي وتكون القيمة الافتراضية مردود مبيعات بالتوفيق راجع البرنامج وحدد المشاكل وابدأ باصلاحها واحده واحدة برنامج مخزون.rar
    2 points
  7. فتح الله عليكم وزادكم علما وبارك لكم فى علمكم واسال الله تعالى ان ينفكم بما علمكم جزاااااااااااكم الله تعالى خيرا استاذ @Shivan Rekany انت لا تدرى حجم الكرب الذى فرجته عنى اسأل الله العلى القدير لكم خير الدارين الله يرضى عليك وعلى والديك يارب
    2 points
  8. المشاركات لم تفقد و لله الحمد كلها موجودة ، و لكنها مشكلة تتعلق بالاظهار و ربما سببها الكاش على السيرفر و جاري بحث الامر باذن الله تعالي
    2 points
  9. لا داعي للشكر استاذي الفاضل المهم ان تستفيد منه في اي وقت ممكن شكرا لك استاذي نريد منكم ان تستفيدوا منه وتساعدوا من يحتاج مساعدتكم
    2 points
  10. بالفعل .. مشكلة حيث لا تظهر الردود إلا حين ترد فقط وفي وقتها أما بعد ذلك تختفي
    2 points
  11. شكرا جزيلا أخي شفان انا شفت البرنامج سابقا ، ولكني الآن انزلته ، وبالفعل به الكثير ، وكما قلت انت : جعفر
    2 points
  12. أخوي ابو زاهر الآن انزلت مرفقك ، وماشاء الله بحر من الكائنات لازم تخبرنا وين تريدنا نطالع ، اي جدول ، اي حقل ، اي قيمة ، .... وهكذا ، واذا شرحك وافي ، فعلى بركة الله ، ولكن رجاء ، اعطنا كل التفاصيل يعني: 1. ما حد يعرف برنامجك مثلك ، فلا تتوقع منا نبحث عن حقل هنا او هناك ، 2. ساعدنا بمعرفة المطلوب وبدقة ، علشان نساعدك بالاجابة وبشرح جعفر
    2 points
  13. والله كنت أجهزة قبل أن تسأل أستاذى العزيز اتفضل جاااااااهز لعيونك استاذ عبد الفتاح.rar اللى راح يظهر فى الاستعلام لازم يكون = true من الجدول تمام
    2 points
  14. بارك الله فيك أخوي جعفر وفي جميع أخواننا أعضاء المنتدى.. أول.. أصيب وأخطي.. عادي.. عضو جديد مشاركات ماوفت أربعين في راحة بال ومستانس بالأخوان على العموم كل شيء بقدر.. والله يقدر ما فيه الخير لي ولأخواني الأعزاء.... محبكم أبو إبراهيم
    2 points
  15. السلام عليكم الاخ الكريم /n_tareq بارك الله فيك بعد اذن اخي الحبيب / سليم حاصبيا .. جزاه الله خيرا انت قمت فعلا بتنفيذ ما اخبرك به من تعديل اسماء الشيتات ولكنك تجاهلت اسم هذه الشيتات في باقي الكود وبذلك تصبح التعديلات في الكود كما يلي : ** بدلا من السطر التالي للمتغيرات .. Dim i As Integer, LastR As Long, ws As Worksheet سنضيف به المتغير الآخر وهو الورقة الثانية او الشيت الثاني كما هو في السطر التالي Dim i As Integer, LastR As Long, ws, ws1 As Worksheet ** السطرين التاليين Set ws = ThisWorkbook.Sheets("البيانات") Set ws = ThisWorkbook.Sheets("المدراء") سيتم تغييرهم تبعا للمتغيرات التي قمت بوضعهم في الجزئية السابقة كما يلي : Set ws = ThisWorkbook.Sheets("البيانات") Set ws1 = ThisWorkbook.Sheets("المدراء") ** ثم جزئية آخر صف .. سيتم تغيير او اضافة للصف التالي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 كما هو يلي LastRow = ws.Cells(Rows.Count, "B").End(xlUp).Row + 1 LastRow1 = ws1.Cells(Rows.Count, "B").End(xlUp).Row + 1 وبالتالي ستقوم بعمل حلقة تكرارية .. لكل منهما .. لتكن مثلا S مثل T ولكن مع LastRow1 .. ثم يظل الجزء الاول في الكود والخاص بتفعيل عمل المطلوب في حالة اختيار OptionButton1 كما هو بدون تعديل ثم يتم تغيير الجزء الخاص بتفعيل عمل المطلوب من الكود في حالة اختيار OptionButton2 كالتالي If OptionButton2.Value = True Then If TextBox1.Text = Mid(ws1.Cells(S, 3).Text, 1, Len(TextBox1.Text)) Then UserForm1.ComboBox1.AddItem ws1.Cells(S, 3) UserForm1.Controls("TextBox" & i).Value = ws1.Cells(S, i).Value UserForm1.CommandButton4.Enabled = True Unload Me End If ارجو ان اكون قد وضحت لكم المطلوب وان لم يتتضح .. فبرجاء ارسال ملف مرفق كمثال ليتم العمل العمل عليه تقبل خالص تحياتي
    2 points
  16. السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك لاداعي اخي الكريم لمثل هذه الكلمات منك .. فكما اخبرتك الجميع هنا يشارك ابتغاء مرضاة الله والكل يشارك حسب وقته وبالفعل انا عن نفسي انشغلت الايام الماضية ولا زلت في العمل وبعض مشغوليات الحياة وكنت بالفعل قد قمت بالعمل علي ملفك ولكن الظروف فقط .. واليك ما قمت به قبل مشاركاتك الاخيرة ومحاولتك بها ( لم اطلع عليها حتي الآن ) حيث ان ما دعاني للدخول الآن رغم الظروف العملية .. هي ردوك ( بصراحة لا تعجبني ) واليك الشكل المبدئي للفورم الذي قمت بتنفيذه بناءا علي طلبك ( وبه حل لمشكلة التاريخ التي تبحث عنها ) شاهد واخبرني ولكن لي طلب لديك هو ان نقوم سويا بتنفيذ المطلوب خطوة خطوة وطلب طلب ... نظرا لضغط العمل لدي فقط وحيث انني عندما ابدء بقراءة الطلبات بتووه منك ياعم ففيه ( الاستعلام .. التاريخ في الكمبوبكس تاريخ وليس ارقام .. التشيك بوكس لا يمكن اختيار الاثنين معا واحد فقط ) ولكنها بعض الطلبات المبدئية والتمهيدية للعمل علي طلباتك دا بس يا عم علشان متزعلش ... وعلي فكرة ليس هنا ضيوف فكلن اصحاب هذا الصرح العملاق فبمجرد ان قمت بالتسجيل اصبحت من اصحاب المنتدي اخي الكريم تقبل خالص تحياتي وعذرا علي الاطالة ... تحديث علاوات1 .rar
    2 points
  17. هذا الذي كنت عايز اسولف معاك فيه .. وهو ان يكون لدي جدول به ثلاث حقول اسم الحقل والمعيار والقيمه وها انت ماشاء الله وبيقول المثل الحر تكفيه الاشاره بالتوفيق
    1 point
  18. الحمد لله مليون إعجاب أستاذ رمهان نجاح مبهر بل أيضا جعلت نص المعيار كاملا فى الجدول فصار أكبر من 200 أنت أنشأت حقلا يقيم ما إذا كانت القيمة أكبر من 200 هذا الحقل يعطى صواب و خطأ و جعلت المعيار له صواب ===== بينما أنا كنت أركز طريقة الحل على وضع المعيار فى الحقل [exmtotal] و مرة أخرى تقدم لنا Eval خدمة عظيمة وفقكم الله الآن نستطيع وضع معاييرنا كلها فى جدول و الإشارة إليها
    1 point
  19. هذا سريعا وبعدين نسولف استاذ عبدالفتاح SELECT t1.exmid, t1.exmtotal FROM t1 WHERE (((Eval([exmtotal] & DLookUp("[my_parameter]","tbl_parameters","[select_Parameter] =true") & 200))=True)); بالتوفيق
    1 point
  20. السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك بالنسبة للمسلسل خاصتك فانت قد قمت بوضع معادلة ترقيم فيه ولذلك لا يمكن ترحيله من خلال الفورم حيث انه اذا قمت بعمل ذلك فانه سوف يسجل في الصف 500 بعد آخر معادلة موجودة في العمود A ولكن يمكنك في هذا الكود التسجيل وبمجرد التسجيل ووجود اي بيانات في العمود B سوف يتم عمل الترقيم وان اردت نجعل الترقيم من خلال الفورم نفسه تلقائيا ولكن سيجعلنا نتخلي عن معادلة الترقيم التلقائي خاصتك تقبل خالص تحياتي
    1 point
  21. 1 point
  22. السلام عليكم ورحمة الله اليك المرفق ربما يكون هذا هو الحل 2017صيفية برمجية 2استعلام.rar
    1 point
  23. شاهد المرفق اخي الكريم ولكن شاهد الطريقة فقط حيث يحتاج الكود الجديد لبعض التعديلات السهلة البسيطة للحصول علي النتائج السليمة 100% ولكنه اسرع من الكود خاصتك .. وان شاء الله ان كان يفي بغرضك نكمل .. تقبل خالص تحياتي 20171صيفية برمجية استعلام.rar
    1 point
  24. العفو منك استاذى الجليل ومعلمى القدير ما انا الا طالب علم جزاكم الله خيرا وده الملف مرة اخرى باللمسة الرمهانية AllowAdditions (1).rar
    1 point
  25. السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك ضع اخي الكريم الكود التالي في زر ( تسجيل بيانات جديدة ) اما بخصوص زر التعديل فعلي اي اساس سيتم التعديل وباي الاعمدة او المعطيات سيتم البحث ليتم التعديل من خلاله هل هو من العمود QUO. REF. NO. اليك كود تسجيل البيانات Private Sub CommandButton2_Click() 'كود زر تسجيل بيانات Dim iRow As Long Dim ws As Worksheet Dim ii As Integer Set ws = Worksheets("QUOTATION BLOCKS & KERBS") iRow = ws.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row 'ws.Cells(iRow, 1).Value = Me.TextBox1.Value ws.Cells(iRow, 2).Value = Me.TextBox2.Value ws.Cells(iRow, 3).Value = Me.TextBox3.Value ws.Cells(iRow, 4).Value = Me.TextBox4.Value ws.Cells(iRow, 5).Value = Me.TextBox5.Value ws.Cells(iRow, 6).Value = Me.TextBox6.Value ws.Cells(iRow, 7).Value = Me.TextBox7.Value ws.Cells(iRow, 8).Value = Me.TextBox8.Value ws.Cells(iRow, 9).Value = Me.TextBox9.Value ws.Cells(iRow, 10).Value = Me.TextBox10.Value ws.Cells(iRow, 11).Value = Me.TextBox11.Value ws.Cells(iRow, 12).Value = Me.TextBox12.Value ws.Cells(iRow, 13).Value = Me.TextBox13.Value ws.Cells(iRow, 14).Value = Me.TextBox14.Value ws.Cells(iRow, 15).Value = Me.TextBox15.Value ws.Cells(iRow, 16).Value = Me.TextBox16.Value ws.Cells(iRow, 17).Value = Me.TextBox17.Value ws.Cells(iRow, 18).Value = Me.TextBox18.Value For ii = 1 To 18 Me.Controls("TextBox" & ii).Value = "" Next End Sub تقبل خالص تحياتي
    1 point
  26. بسم الله الرحمن الرحيم الاخوان الاعزاء في المنتدى لدي قاعدة بيانات مطلوب فيها اختيار عشوائي لموظفين تحدد القيمة من حقل نصي والمطلوب عدم التكرار في كل مرة بالمقارنة مع حقل صح او خطا المشكلة تكمن بالطريقة الصحيحة لوضع dlookup انا واضعهه في الكود ولكن اعطيتها ايقاف لان عند تنفيذها تلغي القيمة المطلوبة لعدد الموظفين في القرعة وقاعدةالبيانات المرفقة توضح ما توصلت اليه ارجو المساعدة قدر الامكان مع الشكر الجزيل مقدما test.rar
    1 point
  27. فورم بسيط لاضافة شيت اوعدة شيتات دفعة واحدة هو طلب للاخ الكريم / وليد زقزوق في موضوع وطلب له علي الرابط http://www.officena.net/ib/index.php?showtopic=49438 ولكن ما دعاني لوضعه في موضوع جديد هو ان عنوان الرابط المذكور (( كود لحذف ورقة عمل جديدة )) ********************************** فأردت وضعه في موضوع جديد بعنوان جديد للتسهيل علي من يبحث عن مثل هذه الاوامر ********************************************* وتم تنفيذ طلب للاخ الحبيب / إبراهيم ابوليله ايضا علي نفس الرابط بمنع اضافة الشيتات في حالة تكرار الاسم ارجو ان ينال اعجابكم .... ويكون فيه الافادة للجميع جزاكم الله خيرا sama-add-sheet.rar
    1 point
  28. الاخ الكريم / galal elgammal شاهد هذا الفورم به ما تريد الانتقال الي اوراق العمل مهما كان عددها تقبل خالص تحياتي فورم للنتقال لصفحات الملف.rar
    1 point
  29. السلام عليكم الاخ الكريم / sayed awad بارك الله فيك مرور طيب وكريم جزاك الله خيرا
    1 point
  30. السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك مرور وحده يشرفني ... ولكني بالفعل في اي موضوع لي انتظر مرورك وردك فردودك بالفعل لها طعم ومذاق خاص وتجعل اي موضوع اجمل واجمل جزيل شكري علي كلماتك الاكثر من رااائعة تقبل خالص تحياتي جزاك الله خيرا
    1 point
  31. السلام عليكم الاخت الفاضلة / أم عبد الله بارك الله فيكي مرور طيب وكريم من اخت كريمة وراائعة شرفتي الموضوع تقبلي خالص تحياتي جزاكي الله خيرا
    1 point
  32. السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك كلمات كريمة وجميلة من شخص كريم ورااائع تقبل خالص تحياتي جزاك الله خيرا
    1 point
  33. السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيك جزيل شكري علي كلماتك الاكثر من رااائعة جزاك الله خيرا
    1 point
  34. السلام عليكم الاخ الحبيب / عباس السماوي بارك الله فيك دائما صاحب الردود المتميزة والطريقة الفريدة فردودك لها طعم ومذاق خاص ومرور يشرف الموضوع و صاحب الموضوع تقبل خالص تحياتي جزاك الله خيرا
    1 point
  35. السلام عليكم الاخ الكريم / largot2009 بارك الله فيك مرور طيب وكريم جزاك الله خيرا
    1 point
  36. السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك مرورك علي الموضوع وحده يشرفني ويشرف الموضوع فما بالكم بالثناء عليه ... تقبل خالص تحياتي جزاك الله خيرا
    1 point
  37. الاخت الفاضلة / سما محمد بارك الله فيكي مرور طيب وكريم كما قلت في الرد السابق ان الكود الخاص باخفاء اللون الابيض هو كود للاخ الحبيب / شوقي ربيع - تم توظيفه فقط في هذا العمل وتم تركه بالطبع كما هو حفاظا علي حقوق الملكية تقبلي خالص تحياتي جزاكي الله خيرا
    1 point
  38. السلام عليكم الاخ الحبيب / البروفسير بارك الله فيك افضل ما في الموضوع انه اسعدك واضحكك اخي الحبيب جعلنا الله سببا لابتسامه ولو بسيطه علي وجه كل منا تقبل خالص تحياتي جزاك الله خيرا
    1 point
  39. السلام عليكم الاخ الكريم / عبد السلام زاوي بارك الله فيك مرور طيب وكريم من شخص كريم جزاك الله خيرا
    1 point
  40. السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك والله انت الاجمل والاحلي بأخلاقك العالية وبحبك الدائم لمساعدة الغير وافادة الجميع لك مني ارق وافضل تحيه جزاك الله خيرا
    1 point
  41. السلام عليكم الاستاذ الحبيب / أبو حنين بارك الله فيك بالفعل التواضع من شيم العظماء فكل الشكر والتقدير والعرفان لك استاذنا فأنت استاذ الجميع تقبل خالص تحياتي جزاك الله خيرا
    1 point
  42. السلام عليكم الاخ العزيز / عبد الرحمن شفيق بارك الله فيك كلماتك كبيرة جدا وغاليه .. وانا اخي العزيز طالب علم فقط في هذا الصرح العملاق جزاك الله خيرا
    1 point
  43. السلام عليكم الاستاذ القدير / عباس السماوي بارك الله فيك ردودك دائما لها طابع خاص ... ومذاق جبار .. يسعد الجميع بوجودك وردودك والاكيد انك لسه شباب .... ربنا يعطيك الصحة والعافية دائما تقبل خالص تحياتي جزاك الله خيرا
    1 point
  44. السلام عليكم الاستاذ القدير / عباد بارك الله فيك سعدت جدا بمرورك ... وكلماتك اسعدتني كثيرا ومن الاكيد انه منكم دائما نتعلم تقبل خالص تحياتي جزاك الله خيرا
    1 point
  45. الاخ الكريم / عبد الحميد شقير بارك الله فيك وشرف للجميع انضمامك الينا ... وستسعد اخي كثيرا في هذا الصرح العملاق وستجد محبه غير عادية في الله بين الاخوة الاساتذة والاعضاء والجميع جزاك الله خيرا
    1 point
  46. السلام عليكم الاخ الفاضل / احمد عطية رزق بارك الله فيك شرفني مرورك واسعدني كثيرا جزاك الله خيرا
    1 point
  47. السلام عليكم الاخ الكريم / مراد بارك الله فيك لكم يسعدني ان اولي مشاركاتك في موضوعاتي المتواضعة جزاك الله خيرا
    1 point
  48. السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك لنقل القوائم الي ملفك اتبع الشرح الموجود بالمشاركة رقم 18# بها نفس الطلب للاخ / ريان جزاك الله خيرا
    1 point
  49. السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك جزاك الله خيرا
    1 point
×
×
  • اضف...

Important Information