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

السلام عليكم جرب المرفق التالي ان شاء الله به طلبك ولكن يجب ان يكون ملف الصور باسم ( photo ) ويوجد بنفس الفولدر او المجلد الموجود به الملف شاهد المرفق تجربة.rar

السلام عليكم اخي الحبيب / ابراهيم استخدم الكود التالي لتنفيذ البحث المطلوب Private Sub Texinv_Change() On Error GoTo 100 Worksheets("invoice").Activate Columns(2).Find(Texinv, MatchCase:=True).Activate TextBox1 = ActiveCell.Offset(0, 0).Value TextBox2 = ActiveCell.Offset(0, 1).Value TextBox3 = ActiveCell.Offset(0, 2).Value TextBox4 = ActiveCell.Offset(0, 3).Value TextBox5 = ActiveCell.Offset(0, 4).Value TextBox6 = ActiveCell.Offset(0, 5).Value TextBox7 = ActiveCell.Offset(0, 6).Value TextBox8 = ActiveCell.Offset(0, 7).Value TextBox9 = ActiveCell.Offset(0, 8).Value TextBox10 = ActiveCell.Offset(0, 9).Value TextBox11 = ActiveCell.Offset(0, 10).Value TextBox12 = ActiveCell.Offset(0, 11).Value TextBox13 = ActiveCell.Offset(0, 12).Value TextBox14 = ActiveCell.Offset(0, 13).Value TextBox15 = ActiveCell.Offset(0, 14).Value Exit Sub 100: MsgBox ("الرقم غير موجود او خطأ") End Sub

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

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك تفضل اخي المرفق المطلوب بالكود الذي تريده ولكن مع بعض التعديلات ليتناسب مع ما تريده اخي الحبيب ولكن عذرا تم وضعه بسرعة ... فرجاءا التجربة واخباري بالنتيجة واي استفسار معك دائما باذن الله ولكن لاحظ وضع هذا الكود لمسح بيانات الفورم عند الاستعلام KH_ClearControl تقبل خالص تحياتي جزاك الله خيرا استعلام من فاتورة-SAMA11.rar

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك اعذرني فقط في التأخر عليك بالرد وذلك نظرا لظروف وضغط العمل وضيق الوقت فقط وسأحاول تنفيذ هذا الكود بالطريقة التي تريدها مع ملاحظة انني اظن انه لاستخدام هذا الكود والحصول علي افضل النتائج المطلوبة يجب ان تكون البيانات التي يتم استدعاؤها للفورم بنفس ترتيب البيانات في ورقة الاكسيل ( اي ترتيب الاعمدة ) تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / إبراهيم ابوليله بارك الله فيك قمت بتغيير كود الاستعلام نهائيا ليتناسب مع طلبك حيث ان عمود البحث ليس هو اول عمود والاعمدة المطلوب احضارها للفاتورة ليست بالترتيب فوضعت لك كود سهلا يسهل استخدامه اكثر من الكود السابق حتي في حالة زيادة صفوف الفاتورة ويمكنك التعديل فيه كما تريد ... ولكن ليس بكومبوبكس ولكن تكست بوكس جديد لكتابة رقم القيد ثم الضغط علي زر (( استعلام )) واليك الكود المستخدم والملف المرفق وفي انتظار رأيك وردك بالنسبة لهذا الكود Private Sub CommandButton1_Click() Dim a As Integer For a = 2 To 10000 b = Sheet1.Cells(a, 18) If b = TextBox1.Text Then Text_datE = Sheet1.Cells(a, 4) Exit For End If Next a For a = 2 To 10000 b = Sheet1.Cells(a, 18) c = Sheet1.Cells(a, 18) If b = TextBox1.Text Then If b = c Then C1 = Sheet1.Cells(a, 2) D1 = Sheet1.Cells(a, 3) E1 = Sheet1.Cells(a, 5) F1 = Sheet1.Cells(a, 6) G1 = Sheet1.Cells(a, 7) H1 = Sheet1.Cells(a, 8) I1 = Sheet1.Cells(a, 9) J1 = Sheet1.Cells(a, 13) K1 = Sheet1.Cells(a, 10) L1 = Sheet1.Cells(a, 11) M1 = Sheet1.Cells(a, 12) Exit For End If End If Next a '====================== For a = 2 To 10000 b = Sheet1.Cells(a, 18) c = Sheet1.Cells(a, 18) If b = TextBox1.Text Then If b = c Then C2 = Sheet1.Cells(a + 1, 2) D2 = Sheet1.Cells(a + 1, 3) E2 = Sheet1.Cells(a + 1, 5) F2 = Sheet1.Cells(a + 1, 6) G2 = Sheet1.Cells(a + 1, 7) H2 = Sheet1.Cells(a + 1, 8) I2 = Sheet1.Cells(a + 1, 9) J2 = Sheet1.Cells(a + 1, 13) K2 = Sheet1.Cells(a + 1, 10) L2 = Sheet1.Cells(a + 1, 11) M2 = Sheet1.Cells(a + 1, 12) Exit For End If End If Next a End Sub واليك اخي المرفق جزاك الله خيرا استعلام عن فاتورة-SAMA.rar

الاخ الحبيب / إبراهيم ابوليله بارك الله فيك بالفعل اخي الكريم ... تقريبا يعتبر الخطأ في (Adr). حيث انك لم تلاحظ اسماء التكستات بوكس الموجودة في الفورم فالكود الموجود يتعامل مع التكستات في الفورم مثل خلايا ورقة الاكسيل ولذلك يجب ان تكون اسماء التكستات بوكس الموجودة في الفورم مثل الخلايا ... لاحظ الفورم المرفق في الرد السابق ستجد ان كل عمود مسمي باسم الاعمدة مثلا العمود الاول في الفاتورة اسماء التكستات بوكس فيه تبدأ من A1 - A2...... حتي A11 وكذلك العمود الثاني يبدأ بـ B1 .... والثالث بـ C1 .... وهكذا وايضا يجب ان تأخذ في الاعتبار انه تم اضافة الكود الخبوري KH_ClearControl جرب مرة اخري وان شاء الله ستصل الي ما تريد وفي انتظار ردك ... بالنتيجة الممتازة ( باذن الله ) تقبل خالص تحياتي جزاك الله خيرا

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

بعد إذن إخوتى أليك أخى طريقة جديدة تماما سواء فى الفصل أم الدمج size.rar

هى طريقة قمت بالتفكير فيها نظرا لما نعانية من إشتقاق لتاريخ الميلاد ثم القيام بعد ذلك بالقيام بحساب السن وفى هذا المرفق ستجد إضافة أعتقد أن فكرتها جديدة تماما ولم يسبق أستخدامها ممكن أن تكون إضافة للمعادلة العربية طريقة جديدة تماما لأشتقاق العمر من الرقم القومى مباشرا.rar

السلام عليكم الدالة صحيحة المشكل في تنسيق رقم الحساب حيث انو في ملف منسق على انه عددي اما الاخر على انه نصي كما انه يوجد في ملف book1 اسماء كود السلف الخاص بها غير موجود وهو سبب ضهور تلك العلامة لكي تتخلص من علامة N/A# عليك بدالة IFERROR حيث يصبح الكود كاتالي =IFERROR(VLOOKUP($A2;[Book1.xlsx]سلف!$C$7:$E$3700;3;VRAI);"") ارجو ان يكون الشرح قد وصلك وهذا الملف مطبق عليه المعادلات Desktop.rar

بارك الله فيك اخي الكريم / ابو ليمونة والحمد لله ان هديت لما تريد تقبل خالص تحياتي

مرفق صورة ايضا من على جهازى بعد تحميل البرنامج على اكسيل 2010 وجميع برامج الاوفيس 2010

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

السلام عليكم صراحة احببت ان اضع هذا الموضوع منفردا بالرغم من ان هناك مشاركة سابقة لهذا الموضوع علي الرابط التالي اضغط هنا الا ان الموضع هنا قد اكتمل و اصبح لابد من فصله و الموضوع كما اشار العنوان ارجو التجربة و اخباري بالنتيجة تحياتي full_customer.rar

استخدم الكود التالي Private Sub TextBox2_Change() TextBox12.Text = TextBox2.Text End Sub

إخوتى الأعزاء أعضاء هذا الصرح العظيم إستكمالا لروائع المعادلات أليكم مرفق جديد يقوم بما يقوم به الكود بالأضافة إلى دمج عمودين فى عمود وكان قد طلب منى لعمل قوائم فصول وكانت المشكلة دمج العمودين فى عمود واحد ومع المحاولة والأصرار كانت هذه النتيجة فأثرت أن يشاركنى إخوتى هذه النتيجة لعلها تفيد يوما أحد الأعضاء وأن يقيمها أساتذتى اللذين تعلمت على أيديهم سواء بالإيجاب أو السلب وليعلم الجميع فى النهاية أن الغرض نبيل والخطأ غير مقصود وفى النهاية أتمنى أن ينول المرفق إعجاب إخوتى ونزولا على أمر أستاذى ومعلمى وأخى الكبير ( دغيدى )تم إضافة مرفق أخر ليكون مكمل للمرفق الأول وهى قائمة من عمود ( 1 ) مفلترة أيضا وبدون فراغات وهذا مرفق ثالث لعمود واحد مفلتر وتم إشتقاق منه قائمة منسدلة مفلترة أيضا sort-from-a-to-z-from-two-columns1.rar قائمة مفلترة من عمود واحد وبدون فراغات.rar قائمة مفلرة أبجديا وتم عمل منها قائمة منسلة مفلترة.rar

اخى الكريم قريبا سوف ارفع لك برنامج المتابع للمخازن والمبيعات والمشتريات وحساب موردين وعملاء وطابعه فوريه لفاتوره البيع هذه النسخه مجانيه ومفتوحه مدى الحياه

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

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

نظرا لقرب إنتهاء الأعوام الدراسية وأستخراج النتائج هذه طريقة جديدة أو بمعنى أدق طريقة جديدة لعمل العشرة الأوائل ترتيب جديد للعشرة الأوائل.rar

الأخ الحبيب : ابراهيم بارك الله فيك قم أخي الحبيب بوضع الكود المقصود والخاص بالاستعلام في الأمر الخاص بالتكست بوكس الذي تريده كالتالي Priavte sub TextBox2_Afterupdate() بدلا من وضعه في الأمر الخاص بالكومبوبكس ComboBox2_Click وسيعمل معك الاستعلام بالشكل المطلوب بعد الادخال في التكست بوكس والضغط علي انتر وعذرا لعدم امكاني ارفاق ملف بسبب انقطاع النت لدي حيث اقوم بكتابة هذا الرد من ع الموبايل حتي لا يتأخر ردي عليك وسأتابع ردك بعد التجربة من ع الموبايل تقبل خالص تحياتي

السلام عليكم اخي الحبيب / إبراهيم ابوليله بارك الله فيك ولكن علي حسب فهمي بعد الاطلاع علي الملف الاخير ان الاعمدة المطلوب اظهارها في الفورم غير متجاورة اولا : هل يمكن ان تقوم بالتعديل في الاكسيل لتجعل كل الاعمدة المطلوب ظهورها في الفاتورة بجوار بعضها ستجد تنفيذ الكود معك اسهل ثانيا : ان لم يكن ذلك غير مطلوب ما هي الاعمدة التي تريد ظهورها في الفاتورة عند الاستدعاء ثالثا : كم عدد صفوف الفاتورة ... حيث انه في صفحة الاكسيل رقم القيد مثلا 12 صف والفاتورة بها صفين فقط برجاء مزيد من التوضيح او التعديل وعذرا علي التأخير في الرد تقبل خالص تحياتي

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

أخى الحبيب ( محمد مرزوق ) لاأدرى ماذا أقول بعد هذه الكلمات الجميلة شكرا أخى الحبيب وجزاك الله عنى خيرا

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

أليك أخى ماطلبت المرفق الأول ( العناصر المحصورة بين تاريخين ) أما المرفق الثانى ( بالعناصر المحصورة بين التاريخين بالأضافة إلى أسم العميل ، أى بثلاث شروط ) salles3.rar salles4.rar

شكرا أخى الحبيب (أبو حسنين) وجزاك الله عنا خيرا

أستاذى الرائع الجميل ( رجب جاويش ) وحشنى مشاركة حضرتك ونورت المنتدى كله ، وهذا حل أخر بطريقة أخرى بالأضافة لحل أستاذى الرائع lookup-max-price.rar

أخى الحبيب ( ريان أحمد ) كلماتك ومرورك أسعدتنى شكرا لك أخى الحبيب وجزاك الله عنى خير الجزاء

أخى الحبيب ( أبو عبد الرحمن ) طبعا أنا دمجت طريقة أستاذى العظيم وعميد منتدانا ( دغيدى ) بالأضافة إلى طريقة جديدة أتمنى أن يكون المرفق كافيا لتلبية طلبك تقبل تحياتى وتحيات أستاذى ( دغيدى ) دمج خلايا.rar دمج خلايا 2.rar

أخى الحبيب ( الرملى ) شكرا على مرورك وملاحظتك القيمة التى عدلت المعادلة لتكتمل جميع أركانها جزاك الله خيرا

أستاذى ( خالد القدسى ) حضرتك عرضت نموذج لدالة ( subtotal ) إن بيتم كتابة رقم قبل المعادلة لتجاهل الصفوف المخفية وهذا ليس رقم تجاهل ولكنة من مكون الدالة لتجعلها تقوم بوطيفة معينة دون الأخرى ، ويسمى ( function - num ) أى رقم عند كتابتة يؤدى وظيفة معينة بمعنى أخر هه الدالة يمكن أن تقوم بدل العديد من الدوال ومنها على سبيل المثال عند كتابة رقم ( 1) تعمل عمل دالة ( avarage ) ، وعند كتابة رقم ( 2 ) تعمل عمل دالة ( count ) وعند كنابة رقم ( 3 ) تقوم بعمل دالة ( counta ) ، وعند كتابة رقم ( 4 ) تقوم بعمل دالة ( max ) .....................الخ أما عند كتابة رقم ( 9 ) فهى تقوم بعمل الدالة ( sum ) أى تكون دالة بديلة لدالة ( الجمع ، sum ) وهكذا أستاذى أما عن الدالة إللى حضرتك بتنوه عنها لحساب الصفوف المخفية فهى ممكن أن تقوم بذلك وإلى خضرتك الدليل بالأضافة ألى دالة صفيف تقوم بنفس العمل وغيرها كثير تجاهل الصفوف المخفية.rar

أخى الحبيب ( الرملى ) أولا شكرا على الملحوظة الهامة جدا جدا جدا لأنى فعلا جربت المعادلة على أرقام قومية تواريخ ميلادها قبل ( 2000 ) وتناسيت تمام هذا السن وهو سن مابعد ال ( 2000 ) للك تم تدارك الخطأ وهذا مرفق لما بعد سنة ( 2000 ) طريقة جديدة تماما لأشتقاق العمر من الرقم القومى مباشرا وها مرفق لما بعد سنة 2000.rar

أستاذى ومعلمى الرائع الجميل ( رجب جاويش ) ماشاء الله عليك معادلات أكواد شئ رائع بجد بارك الله فيك ولأثراء الموضوع هذا حل أخر وإن كان يوجد العديد من الطرق الذى ليس لها نهاية لتحقيق طلب أخى السائل ترحيل بيانات3.rar ترحيل بيانات4.rar

أخى الحبيب ( ناصر ) أليك المرفق بعد تطبيق معادلتك علية هذا أولا أما ثانيا وهذا الأهم إن المعادلة الموجودة لعمل الفلترة معادلة ( صفيف ) أى بعد الإنتهاء من كتابتها داخل الخلية عيك الوقوف فى نهايتها والضغط على ( ctrl+shift+enter ) معا لكى تخقق المعادلة العمل بشكل سليم ثالثا - بعد كتابة المعادلة فى الخلية الأولى للعمود النراد فلترتة علم على المدى الذى ستظهر به النتيجة ( العمود المراد فلترتة ) ثم قف على نهاية المعدلة الأولى أو الموجودة فى الخلية الأولى ثم إضغط ( ctrl+shift+enter ) سيظهر لك المدى المفلتر قائمة مفلترة من عمود واحد وبدون فراغات.rar