KI50NG

السلام عليكم ورحمة الله وبركاتة . اخواني الاعزاء لدي ثلاث مواضيع معينة ارجو من سيادتكم مساعدتي في حلها. اولاً: لدي ملف اكسال علية برمجة VBA وهو خاص لاستقبال الطلبة في الكلية وهذا الملف سوف يكون على 3 حاسبات يفتح بأن واحد دون اغلاقة والبداء بادخل البيانات بشكل مستمر من قبل الثلاث - المطلوب كيف سوف يتم ربط الملف على الثلاث حاسبات والحصول على البيانات بشكل متسلسل حينما يتم ادخال البيانات من قبل ال3 دون وجود خلل بهذا الموضوع. ثانياً: ملف الاكسال يحتوي على نظام مستخدمين للدخول اليه وحينما يتم اضافة او تعديل على البيانات من واجهة VBA والتي ترسل بيانات الاضافة او التعديل او البحث على شيت 1 . المطلوب كيف يتم ذكر اسم اخر مستخدم لادخال البيانات لكل سطر من اسطر الشيت 1. العامود Q مثلاً . ثالثاً: كيفية عمل وتنسيق طباعة الخاصة بال VBA ارجو المساعدة ولكم جزيل الشكر والتقدير وبعد الانتهاء من العمل سوف يتم رفع الملف لاستفادة الاعضاء .

اخي حسين مامون الغالي . الملف بخصوص الاضافة H1 وملف التعديل HS1 وكذلك H2 و HS2 في داخلة تجد بوتون التعديل الكود الي في داخلة الكود تبع التعديل غير مخصص لشيت مخصص بحد ذاته . والبحث في TEXTBOOKS 23 متربط بال LIST BOOKS . وهذا الكود اضن فيه خطاء واتمنى يكون من اليمين للشمال العرض تبعه . واي اضافات جيدة انا اكون شاكر لك

حبيبي حسين . مشكور على المساعدة الجديدة . ولكن بدي النموذج نفسه لانه التصميم غير قابل للتعديل حاليا ً. واليست بوكس غير معدل البيانات غير مرتبة من اليمين الى الشمال حسب المطلوب . وكود التعديل لم اجدة وانا شاكر لحد لعملك المبدع وسوف نحاول نعمل شيء ينفع الجميع ان شاء الله

السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء . بدي كود التعديل يكون فقط على يوزر فورم 1 . عندما اكون فاتح صفحة USER1 وانا في شيت 2 يعدل على شيت اثنين وليس 1 بدي التعديل يكون على فورم مخصص يعني : عمل كود التعديل على فورم مخصص فقط لا غير موجهة لشيت واحد او اثنين او ثلاثة ولا يتعدى مكانه . والملف مرفق للاستفادة منه من اخوتي . واتمنى النظر ايضاً في عمل LIST BOOKS عند البحث يظهر من الشمال لليمن . والمطلوب من اليمين للشمال وترتيبه اذ امكن ولكم جزيل الشكر والتقدير . Set sh = Worksheets("1") For i = 3 To 10000 If Cells(i, 3) = TextBox23.Text Or Cells(i, 2) = TextBox24.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 1) = TextBox1.Text ActiveCell.Offset(0, 2) = TextBox2.Text ActiveCell.Offset(0, 3) = ComboBox1.Value ActiveCell.Offset(0, 4) = TextBox3.Text ActiveCell.Offset(0, 5) = TextBox4.Text ActiveCell.Offset(0, 6) = TextBox5.Text ActiveCell.Offset(0, 7) = TextBox6.Text ActiveCell.Offset(0, 8) = TextBox7.Text ActiveCell.Offset(0, 9) = TextBox8.Text ActiveCell.Offset(0, 10) = TextBox9.Text ActiveCell.Offset(0, 11) = TextBox10.Text ActiveCell.Offset(0, 12) = ComboBox2.Value ActiveCell.Offset(0, 13) = TextBox11.Text ActiveCell.Offset(0, 14) = TextBox12.Text ActiveCell.Offset(0, 15) = TextBox12.Text MsgBox "Êã ÇáÊÚÏíá" TextBox23.SetFocus Book1.xlsx

السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء . بدي كود التعديل يكون فقط على يوزر فورم 1 . عندما اكون فاتح صفحة USER1 وانا في شيت 2 يعدل على شيت اثنين وليس 1 بدي التعديل يكون على فورم مخصص Set sh = Worksheets("1") For i = 3 To 10000 If Cells(i, 3) = TextBox23.Text Or Cells(i, 2) = TextBox24.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(0, 1) = TextBox1.Text ActiveCell.Offset(0, 2) = TextBox2.Text ActiveCell.Offset(0, 3) = ComboBox1.Value ActiveCell.Offset(0, 4) = TextBox3.Text ActiveCell.Offset(0, 5) = TextBox4.Text ActiveCell.Offset(0, 6) = TextBox5.Text ActiveCell.Offset(0, 7) = TextBox6.Text ActiveCell.Offset(0, 8) = TextBox7.Text ActiveCell.Offset(0, 9) = TextBox8.Text ActiveCell.Offset(0, 10) = TextBox9.Text ActiveCell.Offset(0, 11) = TextBox10.Text ActiveCell.Offset(0, 12) = ComboBox2.Value ActiveCell.Offset(0, 13) = TextBox11.Text ActiveCell.Offset(0, 14) = TextBox12.Text ActiveCell.Offset(0, 15) = TextBox12.Text MsgBox "Êã ÇáÊÚÏíá" TextBox23.SetFocus اهلاً اخي العزيز . انا بعمل ترتيب برنامج بعد الاكمال سوف يتم وضعه في الموقع للاستفادة منه . المطلوب فقط توجيه كود التعديل على شيت معين فقط لا غير . حيث لا يتم تاُير فتح الشيتات على مكان حفظ الفورم .

الف شكر لك ... الاعجاب بقدراتكم الجميله كلام قليل بحق العطاء . استاذي الفاضل . الكود العشوائي المطلوب كما يلي ان امكن . انا لدي USER FORM 1 فيه مجموعه من الحقول لعمل برنامج محاسبي . وهنالك قطع من الفضة ترمز بارقام عشوائية غير متكرره . فالمطلوب كما يلي . SHET 1 الجدول C3:C5000 تكون فيه ارقام عشوائية من اربع خانات غير متكرره . مثلا ً : عندم اضافة تسلسل واحد يكون الرقم العشوائي في الخانة التي تلية 0120 وتكمل باقي المعلومات واليكون التسلسل اثنين يكون الرقم العشوائي في الخانة التي تليها 5231 وتكمل باقي المعلومات وكما يلي بدون تكرار اذ امكن استاذي الفاضل ولكم جزيل الشكر والتقدير

بسم الله الرحمن الرحيم . اخواني اعضاء ومشرفين منتدى اوفسنا المحترمين ... م/ طلب كود . تحية طيبة . لدي استفسار حول كيفية عمل واكواد الخاصة بالـ Userform منها : 1- عملت مربع textbook1 والذي يتم فيه كتابة قيمة رقمية مثلاً 90 . والمربع الاخر textbook2 يوضع فيه نسبة مثلاً 10.3 . عند كتابة الرقمين في المربعين السابقين ذكرهما يكون المربع textbook3 يعمل عملية ضرب و textbook4 يتم فيه عملية الجمع ما بين textbook1 + textbook2 . 2- كود عمل ارقام عشوائية مكونه من 4 او 5 خانات يعني ( 1589 ) فرضاً وتكون غير مكرره في textbook5 على سبيل المثلا . عند كتابة في textbook6 يتم اعطاء رقم عشوائي غير مكرر ضمن عامود C ليشت 1 . ولكم جزيل الشكر والتقدير .

السلام عليكم .. الست بوكس بديا يظهر البيانات من اليمين الى اليسار .. ياريت شرح وشكرا ً

ما حدى رد عليه ؟؟؟؟؟

السلام عليكم . طلب كود لاخفاء او اظهار القوائم في برنامج الاكسال كما في الصورة المرفقة اريد اخفاء الذي محدد بالون الاحمر قوائم التعديل التي بالاعلى + القوائم التي بالاسفل معدا الصعود والنزول ولكم جزيل الشكر -------------------- والكود الثاني ابخث عن كود بحث وتعديل وحذف من الصفوف البحث بالاسم او الرقم ويظهر بقوائم لست بوكس ------------------ طلب كود عمل سحب لملفات او الصور ووضعها في خانه محدده كرابط مثلا ً A | B | C | D | E | F 1 NAME DATE TIME CHOSE FILE عندما اضغط على CHOSE FILE يظهرلي اختيار ملف او صورة لكي يضع رابطها الخاص للفتح حين الضغط عليها رابط مشترك . وبعد انتهائي من تجميع وتركيب الاكواد سوف اعرض عليكم برنامج متكامل قابل للتعديل للجميع بافضل برنامج متواجد وشكرا ً

السلام عليكم . اليوزر : تسجيل . الباسورد : 1234 ----- باسورد الفورم : 1234 ------------------------------- المطلوب الحين اعمل اضافة لشخص بالمعلومات . وبعد ما تكمل ارجع لملف الاكسال من القائمة . رح تشوف الاختيار الي عملت فيه صح . رح يظهر فيها TRUE --- انا اريد في حالة صح يظهر ( صح ) في المربع وفي حالة عدم اختيار شيء يكون المربع فارغ وعندما ترجع للبرنامج وتضغط على بحث عن طريق الفورم يظهر اماكن الصح في البحث . ------------------------------------- استاذ مجدي لو تقدر ترتب فيه وتشوف الشغل كيف موجود وتعدل عليه اكون متشكر ليك جدا ً . الافكار . ( تعمل عمليت بحث من جديد في داخل الفورم ) . ولو تقدر تعمل صفحة اضفط عليها اشوف معلومات من 1 الى اخر ملف .. وثانيا ً . . كيف اقدر اربط كلمة الاكسال مع يوزر حسن بس . ما يظهر للتسجيل . https://up.top4top.net/downloadf-659ytx6k1-zip.html

ألسلام عليكم . طلب تعديل على كود . كود البحث هذا . TextBox1.Value = "" TextBox2.Value = "" CheckBox1.Value = "" CheckBox2.Value = "" CheckBox3.Value = "" CheckBox4.Value = "" CheckBox5.Value = "" CheckBox6.Value = "" CheckBox7.Value = "" TextBox3.Value = "" CheckBox8.Value = "" Sheets("h1").Activate ListBox1.Clear ss = Sheets("h1").Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each c In Range("B3:B" & ss) B = InStr(c, TextBox22) If B > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(c.Row, 2).Value ListBox1.List(k, 1) = Cells(c.Row, 1).Value ListBox1.List(k, 2) = Cells(c.Row, 3).Value ListBox1.List(k, 3) = Cells(c.Row, 4).Value ListBox1.List(k, 4) = Cells(c.Row, 5).Value ListBox1.List(k, 5) = Cells(c.Row, 6).Value ListBox1.List(k, 6) = Cells(c.Row, 7).Value k = k + 1 End If Next c --------------------------- CheckBox3.Value = "" هنا انا بدل ( TRUE - FALSE ) > الى ( TRUE = Y - FALSE = N ) عندما اجي اضع الاسم الشخص لا تظهر علامت الصح في الشيك بوكس ياريت التعديل على الكود

المساعده اخواني الاعزاء ؟

السلام عليكم . طلب كودين . 1- كود لل ( CheckBox ) = بدي يكون الكود في حالة ( true= صح ) و ( false = فراغ ) 2- طلب كود اختياري بين كلمتين ( 0 صباحي - 0 مسائي ) في حالة اختيار الصباحي تضهر النقطة فيه ولو استبدل للمسائي تختفي النقطة من الصباحي OptionButton 3- كيفية عمل اختيارين صباحي ومسائي ComboBox1 وشكرا ً

؟؟؟؟؟؟؟