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 وشكرا ً

؟؟؟؟؟؟؟

السلام عليكم . اخواني الاعزاء عملت برنامج اكسل واريد بعض التعديلات . الملف اسمه h1 -- اسم المستخدم ( حسن ) باسورد ( 1234) المشكلة .. 1- الحين عند فتح البرنامج - وادخال اسم المستخدم والدخول - نذهب الى اضافة . ونملي البيانات ونضغط على حفظ . الان البيانات ترحل الى ملف الاكسال . بشيت ( h1 ) فعند اختياري لـ ( مربع صح ) يظهر لي true واذا لم اختار يظهر false كما هو ظاهر في الملف عندما تفتحه . المطلوب هو في كود التعديل لزر الحفظ . بحيث عند الضغط على صح ويتم الحفظ . يظهر تم اختيار القسم . واذا لم اضغط لا يظهر شيء . بمعنى اوضح . ( true = صح - false = لا يظهر شيء ) ويرجى مراجعت الملفات لمن يحب الاطلاع عليه وتعديله وابلاغي بالتعديلات وانا مشكور جدا ً لمن يحب المساعده . ( واعذروني لم استطع ارفاق الملف لكبر حجمة _ تم رفعة على موقع top4top ) https://up.top4top.net/downloadf-64782m4l1-zip.html

انا سيفت الملف والملف شكله انضرب رح اعيد الشغل مره ثانية ...

السلام عليكم ... معاي ملف بدي فيه تعديلات بسيطة 1- بدي في صفحة البحث الي هي ( H3 ) في مربع TEXTBOX2 اول ما احط الاسم واضغط على BOT1 يظهرلي المعلومات في المربعات . ( يعني عمل كود البحث في مربع TEXTBOX2 ) والغاء الكود الترقيمي . ويظهر في البحث التسلسل ( ) 2- عملت علامة صح وربطها في المرباع ., ولكن بيطلعلي TRUY - FALS , انا اريد عندما اضغط على حفظ في H1 - H2 يظهر في مربع الصح . طلب نيابة عن ( TRUY ) والمربع الذي لم اضغط عليه لا يظهر لي اي شي في المربع الخاص بملف الاكسل .. فقط المربعات التي اضغط عليها . 3- ملف TEXTBOX3 لو حد يقدر يبدل المربع - بمربع ( صباحي - مسائي ) اختيار واحد من الاثنين فقط يكون افضل ,. وشكرا ً hassan.zip

استاذ مجدي انا معاي ملف حجمة 22 ميجة مش عارف ارفعه هنا . واريد من حضرتك شويت تعديلات عليه اذا امكن في حوار التعديل كيف اتواصل معاك من شان تشوف الملف لو تقدر وانا الممنون

ما اشتغل حبي .... انا عندي الشين أسمو sader ----- او ----- sheet7

السلام عليكم . انا عملت فروم فية ادخال بيانات دون العودة للاكسال ولكن عندما ادوس على كلمت تعديل لا يتم التعديل لانه الكود غير موجه لصفحة الشيت المختصة كيف اربط الكود بشيت معين Private Sub CommandButton1_Click() For i = 2 To 10000 If Cells(i, 1) = TextBox8.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(a, 0) = TextBox1.Text ActiveCell.Offset(a, 1) = TextBox2.Text ActiveCell.Offset(a, 2) = TextBox3.Text ActiveCell.Offset(a, 3) = TextBox4.Text ActiveCell.Offset(a, 4) = TextBox5.Text ActiveCell.Offset(a, 5) = TextBox6.Text ActiveCell.Offset(a, 6) = OptionButton1.Value End Sub

اعلى

ألسلام عليكم . كود الحفظ اريدة يكون مختفي في شيت معين كيف اعملو For i = 2 To 10000 If Cells(i, 1) = TextBox9.Text Then Cells(i, 1).Select Exit For End If Next i ActiveCell.Offset(a, 0) = TextBox1.Text ActiveCell.Offset(a, 1) = TextBox2.Text ActiveCell.Offset(a, 2) = TextBox3.Text ActiveCell.Offset(a, 3) = TextBox4.Text ActiveCell.Offset(a, 4) = TextBox5.Text ActiveCell.Offset(a, 5) = TextBox6.Text ActiveCell.Offset(a, 6) = OptionButton1.Value End Sub

السلام عليكم . اطلب من حضراتكم طلبين الاول . 1- اخفاء الاطار الي يظهر فية صفحة الاغلاق كما موضح في الصورة المرفقة ان امكن . 2- اريد ان اعمل اضافة في الفورم يضيف يدرج فيها ارتباط تشعبي لصورة او ملف . بحيث يظهر اليه في المكان المخصص له رابط الصورة حين الضغط عليها يظهر الصورة من الفورم ولا اعود للاكسال .

تسلم يالغالي . دا المطلوب كان . الحين معايا سؤال . انا الحين بدي اسوي اختيار في الفورم يجلبلي صورة في او PDF بحيث يكون مثل الارتباط التشعب لمن اختار يطلعلي صورة ادوس عليها يعرضلي الصورة او المف ومش عارف من وين احصلها هل في شرح معين للموضوع