اذهب الي المحتوي
أوفيسنا

KI50NG

عضو جديد 01
  • Content Count

    34
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

3 Neutral

عن العضو KI50NG

  • الإسم الفعلي
    الإســم

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مهندس

اخر الزوار

521 زياره للملف الشخصي
  1. اخي حسين مامون الغالي . الملف بخصوص الاضافة H1 وملف التعديل HS1 وكذلك H2 و HS2 في داخلة تجد بوتون التعديل الكود الي في داخلة الكود تبع التعديل غير مخصص لشيت مخصص بحد ذاته . والبحث في TEXTBOOKS 23 متربط بال LIST BOOKS . وهذا الكود اضن فيه خطاء واتمنى يكون من اليمين للشمال العرض تبعه . واي اضافات جيدة انا اكون شاكر لك
  2. حبيبي حسين . مشكور على المساعدة الجديدة . ولكن بدي النموذج نفسه لانه التصميم غير قابل للتعديل حاليا ً. واليست بوكس غير معدل البيانات غير مرتبة من اليمين الى الشمال حسب المطلوب . وكود التعديل لم اجدة وانا شاكر لحد لعملك المبدع وسوف نحاول نعمل شيء ينفع الجميع ان شاء الله
  3. السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء . بدي كود التعديل يكون فقط على يوزر فورم 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
  4. السلام عليكم ورحمة الله وبركاته اخوتي الاعزاء . بدي كود التعديل يكون فقط على يوزر فورم 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 اهلاً اخي العزيز . انا بعمل ترتيب برنامج بعد الاكمال سوف يتم وضعه في الموقع للاستفادة منه . المطلوب فقط توجيه كود التعديل على شيت معين فقط لا غير . حيث لا يتم تاُير فتح الشيتات على مكان حفظ الفورم .
  5. الف شكر لك ... الاعجاب بقدراتكم الجميله كلام قليل بحق العطاء . استاذي الفاضل . الكود العشوائي المطلوب كما يلي ان امكن . انا لدي USER FORM 1 فيه مجموعه من الحقول لعمل برنامج محاسبي . وهنالك قطع من الفضة ترمز بارقام عشوائية غير متكرره . فالمطلوب كما يلي . SHET 1 الجدول C3:C5000 تكون فيه ارقام عشوائية من اربع خانات غير متكرره . مثلا ً : عندم اضافة تسلسل واحد يكون الرقم العشوائي في الخانة التي تلية 0120 وتكمل باقي المعلومات واليكون التسلسل اثنين يكون الرقم العشوائي في الخانة التي تليها 5231 وتكمل باقي المعلومات وكما يلي بدون تكرار اذ امكن استاذي الفاضل ولكم جزيل الشكر والتقدير
  6. بسم الله الرحمن الرحيم . اخواني اعضاء ومشرفين منتدى اوفسنا المحترمين ... م/ طلب كود . تحية طيبة . لدي استفسار حول كيفية عمل واكواد الخاصة بالـ Userform منها : 1- عملت مربع textbook1 والذي يتم فيه كتابة قيمة رقمية مثلاً 90 . والمربع الاخر textbook2 يوضع فيه نسبة مثلاً 10.3 . عند كتابة الرقمين في المربعين السابقين ذكرهما يكون المربع textbook3 يعمل عملية ضرب و textbook4 يتم فيه عملية الجمع ما بين textbook1 + textbook2 . 2- كود عمل ارقام عشوائية مكونه من 4 او 5 خانات يعني ( 1589 ) فرضاً وتكون غير مكرره في textbook5 على سبيل المثلا . عند كتابة في textbook6 يتم اعطاء رقم عشوائي غير مكرر ضمن عامود C ليشت 1 . ولكم جزيل الشكر والتقدير .
  7. السلام عليكم .. الست بوكس بديا يظهر البيانات من اليمين الى اليسار .. ياريت شرح وشكرا ً
  8. السلام عليكم . طلب كود لاخفاء او اظهار القوائم في برنامج الاكسال كما في الصورة المرفقة اريد اخفاء الذي محدد بالون الاحمر قوائم التعديل التي بالاعلى + القوائم التي بالاسفل معدا الصعود والنزول ولكم جزيل الشكر -------------------- والكود الثاني ابخث عن كود بحث وتعديل وحذف من الصفوف البحث بالاسم او الرقم ويظهر بقوائم لست بوكس ------------------ طلب كود عمل سحب لملفات او الصور ووضعها في خانه محدده كرابط مثلا ً A | B | C | D | E | F 1 NAME DATE TIME CHOSE FILE عندما اضغط على CHOSE FILE يظهرلي اختيار ملف او صورة لكي يضع رابطها الخاص للفتح حين الضغط عليها رابط مشترك . وبعد انتهائي من تجميع وتركيب الاكواد سوف اعرض عليكم برنامج متكامل قابل للتعديل للجميع بافضل برنامج متواجد وشكرا ً
  9. السلام عليكم . اليوزر : تسجيل . الباسورد : 1234 ----- باسورد الفورم : 1234 ------------------------------- المطلوب الحين اعمل اضافة لشخص بالمعلومات . وبعد ما تكمل ارجع لملف الاكسال من القائمة . رح تشوف الاختيار الي عملت فيه صح . رح يظهر فيها TRUE --- انا اريد في حالة صح يظهر ( صح ) في المربع وفي حالة عدم اختيار شيء يكون المربع فارغ وعندما ترجع للبرنامج وتضغط على بحث عن طريق الفورم يظهر اماكن الصح في البحث . ------------------------------------- استاذ مجدي لو تقدر ترتب فيه وتشوف الشغل كيف موجود وتعدل عليه اكون متشكر ليك جدا ً . الافكار . ( تعمل عمليت بحث من جديد في داخل الفورم ) . ولو تقدر تعمل صفحة اضفط عليها اشوف معلومات من 1 الى اخر ملف .. وثانيا ً . . كيف اقدر اربط كلمة الاكسال مع يوزر حسن بس . ما يظهر للتسجيل . https://up.top4top.net/downloadf-659ytx6k1-zip.html
  10. ألسلام عليكم . طلب تعديل على كود . كود البحث هذا . 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 ) عندما اجي اضع الاسم الشخص لا تظهر علامت الصح في الشيك بوكس ياريت التعديل على الكود
  11. المساعده اخواني الاعزاء ؟
  12. السلام عليكم . طلب كودين . 1- كود لل ( CheckBox ) = بدي يكون الكود في حالة ( true= صح ) و ( false = فراغ ) 2- طلب كود اختياري بين كلمتين ( 0 صباحي - 0 مسائي ) في حالة اختيار الصباحي تضهر النقطة فيه ولو استبدل للمسائي تختفي النقطة من الصباحي OptionButton 3- كيفية عمل اختيارين صباحي ومسائي ComboBox1 وشكرا ً
  13. السلام عليكم . اخواني الاعزاء عملت برنامج اكسل واريد بعض التعديلات . الملف اسمه h1 -- اسم المستخدم ( حسن ) باسورد ( 1234) المشكلة .. 1- الحين عند فتح البرنامج - وادخال اسم المستخدم والدخول - نذهب الى اضافة . ونملي البيانات ونضغط على حفظ . الان البيانات ترحل الى ملف الاكسال . بشيت ( h1 ) فعند اختياري لـ ( مربع صح ) يظهر لي true واذا لم اختار يظهر false كما هو ظاهر في الملف عندما تفتحه . المطلوب هو في كود التعديل لزر الحفظ . بحيث عند الضغط على صح ويتم الحفظ . يظهر تم اختيار القسم . واذا لم اضغط لا يظهر شيء . بمعنى اوضح . ( true = صح - false = لا يظهر شيء ) ويرجى مراجعت الملفات لمن يحب الاطلاع عليه وتعديله وابلاغي بالتعديلات وانا مشكور جدا ً لمن يحب المساعده . ( واعذروني لم استطع ارفاق الملف لكبر حجمة _ تم رفعة على موقع top4top ) https://up.top4top.net/downloadf-64782m4l1-zip.html
×
×
  • اضف...