سمير نجار

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

جاري التحميل جزاك الله كل خير

بارك الله فيك استاذي ابا البراء لك كل الشكر والتقدير

السلام عليكم ورحمة الله وبركاته السادة الكرام مشرفين واعضاء كيف يمكن مراقبة الكود في فورم عن طريق F8 step into في حال تشغيل الفورم

بارك الله فيك استاذي ابا البراء كنت قد حصلت من النت على مثل هذا الكود ThisWorkbook.VBProject.VBComponents("UserForm1").name = "newName" ولكن لم يعمل وتظهر رسالة : وصول برمجي الى مشروع فيجوال بيزك غير موثوق به ولكن هل يعمل الكود عند حضرتك ؟؟؟ وقد وجد كودا من النت لم استطع الاستفادة منه وهو يحتاج الى اضافة من مكتبة فيجوال بيزك Sub RenameControls() ' ' use tools > references to include a reference to the ' extensibility library ' Dim vbpTemp As VBProject Dim frmTemp As VBComponent Dim cntTemp As MSForms.Control Set vbpTemp = Application.VBE.ActiveVBProject Set frmTemp = vbpTemp.VBComponents.Item("Userform1") For Each cntTemp In frmTemp.Designer.Controls If TypeOf cntTemp Is MSForms.TextBox Then Select Case UCase(cntTemp.Name) Case "TEXTBOX1" cntTemp.Name = "txtUsername" Case "TEXTBOX2" cntTemp.Name = "txtDepartment" Case "TEXTBOX3" cntTemp.Name = "txtAccount" End Select End If Next End Sub هو لتغيير اسماء الكونترولات . هل يمكن الاتفادة منه في مطلبي

بارك الله فيك استاذي ابا البراء الامر له علاقة بموضوعي السابق حيث إنه اذا كان بالامكان تعديل اسم الفورم برمجيا يمكنني استدعاء فورم البحث من خلال 3 فورمات لدي 3 فورمات sam1 sam2 sam3 ولدي فورم بحث find (واذا امكنني تغيير اسم اي من الثلاث فورمات ) يمكن أن أجعل فورم البحث مرتبط بفورم اسمه (form1) فعند تشغيل sam1 يتغير اسمه الى form1 لكي يعمل فورم البحث وعند الغاء form1 يتغير اسمه الى sam1 ونفس الشيء مع sam2 و sam3 واذا كان هناك طريقة افضل فجزاكم الله كل خير

السلام عليكم ورحمة الله وبركاته السادة الكرام مشرفين واعضاء هل يمكن تغيير اسم الفورم برمجياً طبعاً المطلوب هو تغيير الـ name وليس الـ caption أظن أنه ليس بحاجة الى مرفق

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

سلمك الله والجميع من كل سوء اخي الكريم

وعليكم السلام اخي الكريم ياسر حسب معلوماتي البسيطة يمكن ذلك عن طريق هذه الدالة =MID(A2;1;4)&"/"&MID(A2;5;2)&"/"&MID(A2;7;2) ارجو ان يكون المطلوب Date.rar

وعليكم السلام استاذي الكريم ابوالبراء بارك الله فيك عند تشغيل الفورم سيظهر المجموع في عمود الرصيد بشكل صحيح وذلك لأن تنسيق عمود مدين ودائن بالشكل التالي ( في حدث التكست بوكس ) MY_List.List(T, 3) = .Cells(R, "D") MY_List.List(T, 4) = .Cells(R, "E") واذا اردنا أن يظهر تنسيق الارقم في عمود مدين و دائن ( فاصلة الالف ) سيكون تنسيق عمود مدين ودائن بالشكل التالي MY_List.List(T, 3) = Format(.Cells(R, "D"), "#,##0") MY_List.List(T, 4) = Format(.Cells(R, "E"), "#,##0") في هذه الحالية . ستكون نتيجة عمود الرصيد غير صحيحة حيث إن الرقم 3125 سيتم معاملته على أنه 3 فقط وليس 3 آلاف أرجو أن أكون وضحت المطلوب عمود في ليست بوكس يجمع قيمة في صفه و قيمة ماقبله.rar

السلام عليكم بعد اذن استاذي الكريم سليم اخي الكريم محمد أيضاُ ينفعك هذا الكود البسيط If Val(TextBox1) > Val(TextBox2) Then TextBox3 = "منتظم" Else TextBox3 = "متأخر" End If

السلام عليكم استاذي الكريم ياسر خليل عمل أكثر من رائع بارك الله فيك ونفعنا بعلمك

لاحظت وجود عدد من الأحبة للرفع

لاحظت وجود عدد من الأحبة للرفع

السلام عليكم هل من أحد له (مراق - هوى - باع - بال ) في خصائص الليست بوكس ؟؟؟؟؟؟؟

السلام عليكم ورحمة الله وبركاته تم حل المشكلة ولله الحمد ولكن هناك مشكلة في جمع الاعداد ذات التنسيق (فاصلة الالاف) في حالة عدم تنسيق عمود الليست سيكون الكود ( عندها سيعمل الكود بشكل جيد) MY_List.List(T, 3) = .Cells(R, "D") MY_List.List(T, 4) = .Cells(R, "E") وفي حال كان تنسيق العمود (فاصلة الالاف) والكود هو MY_List.List(T, 3) = Format(.Cells(R, "D"), "#,##0") MY_List.List(T, 4) = Format(.Cells(R, "E"), "#,##0") فإن المشكلة أنه سيتم جمع الرقم مثلاً 3.250 على ان قيمته 3 وليس 3.250 اي سجمع الرقم الذي قبل الفاصلة فقط بانتظار الرد بارك الله فيكم عمود في ليست بوكس يجمع قيمة في صفه و قيمة ماقبله.rar

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

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

وعليكم السلام استاذي الكريم صدقت لدي نسخة اكسيل 2007 ( ولكن هل لاحقة XLSM لا تعمل على اوفيس 2007 ؟؟؟) وقد قمت بتثبيت حزمة توافق للاوفيس ومع ذلك لم يعمل المرفق الاول وكذلك الثاني ألا يمكنك حفظ الملف بلاحقة XLSX او ارفاق الكود فقط في المشاركة جزاك الله خيراً

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

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

وعليكم السلام اخي الكريم اين الملف المرفق؟