اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

فورم بحث وتعديل وحفظ احتاج مساعدة بالكود له


yara ahmed
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

اخواتى حبايبى الاصدقاء الزملاء العباقرة

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

البحث اما بالرقم القومى او رقم الكود والتعديل يتم  على المصروف 

وخالص دعائى

فورم..xlsm

رابط هذا التعليق
شارك

تم معالجة الامر بالنسبة لزر "حفظ " والباقي فيما بعد لضيق الوقت

1- تم تحسين مظهر اليوزر من حيث التنسيق

2- لا تتم عملية الترحيل الى الشيت الا اذا كانت كل التكست بوكسات
     (الرقم    القومى / رقم الكود/ الاسم /  المصروف) غير فارغة 
    نظهر رسالة بعدد التكست بوكسات الفارغة

3- الكود لا يسمح بتكرار البيانات (اي بيانات مكررة يقوم الكود بحذفها على الفور

4- يمكن التنقل والعمل داخل الشيت حتى ولو كان اليوزر ظاهراً

5- جربي وهاتي رأيك

YARA_uSER.xlsm

  • Like 3
رابط هذا التعليق
شارك

اخويا وحبيبى والله بجد انت رائع بس اناعندى شيت به الاسماء والارقام القومية وانا اضع لهم المصروف

كنت عايزة الفورم اعمل استدعاء اما بالرقم القومى او بالكود واقوم بالتعديل بحيث اضيف المصروف واختار حفظ فيتم الحفظ بالشيت

شكرى وحبى وكل حاجة حلوة لا تكفيك حقك وتعبك وكرمك يامستر ياجميل 

  • Like 2
رابط هذا التعليق
شارك

تم معالجة الأمر

1- للبحث 
     * تعبئة احد التكست بوكسات الخضراء ( ليس الاثنين معاً) بما تريد البحث عته (مع مراعاة وجود ما تريد البحث عنه في الجدول بنفس العامود)
        اذا كان ما يبحث عنه موجوداً ( ولو في اكثر من صف) تظهر كل البيانات على الليست بوكس
       و اذا لم بكن موجوداً يتوقف الماكرو

2-للتعديل (او الحفظ من جديد) 

        بعد اجراء عملية البحث

     * اضغط على اي صف من الليست بوكس (ما عدا الصف الأول    العناوين) 
          تظهر لك بيانات الصف   الرقم القومي و رقم الكود (في المربعات الحضراء)
          يظهر لك المصروف القديم (المربع الأصفر الاول    غير قابل للكتابة بداخله)
          ورقم الصف ( المريع الزهري)  امّا المصروف الجديد عليك ان تحدده بنفسك (المربع الأصفر الثّاني)
     * اكتب الرقم الجديد للمصروف في المربع الأصفر الثاني
     * اضغط الزر "حفظ" عندها تنتقل المعلومات الى الشيت و الليست بوكس في نفس الوقت

3- الملف مرفق وعسى أن ينال الإعجاب

YARA_FORM..xlsm

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

اخى استاذ سليم واجهتنى مشكلة 

الليست لا تخرج البيانات كاملة الاسم غير كامل 

مش عارفة ايه الحل الاسم بيكون رباعى

لو مفيش حل ممكن الليست تعرض العمودين

EوFفقط

شاكرة كرمك

بارك الله فيك

رابط هذا التعليق
شارك

اخى استاذ سليم حاصبيا الفاضل

واجهتنى مشكلة عندما ابحث عن رقم واضغط باليست واقوم بوضع المصروف الجديد ثم اضغط حفظ يتم الحفظ تمام تمام تمام

ثم اقوم بوضع رقم جديد اضغط بحث لا يحدث شئ ويجب ان اغلق الفورم واعيد فتحه ليقوم بالبحث

مع اعتذارى وكل شكرى ليك من قلبى والله

YARA_FORM_New..xlsm

رابط هذا التعليق
شارك

للبحث من جديد (أحد المربعين الخضر يجب ان يكون فارغاً)
 نبهت الى هذا الشيء سابقاً (كي يعرف الاكسل عن ماذا تريدين البحث)

لذلك قبل البدء يعملية البحث الجديد قومي بمسح المربع الذي لا تريدينه

  • Like 1
رابط هذا التعليق
شارك

تم معالجة الامر 

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

 

yara Pic.png

الملف من جديد

 

YARA_FORM_Super..xlsm

  • Like 2
رابط هذا التعليق
شارك

اخى فى الله سليم حاصبيا اولا اشكرك اشكرك اشكرك الفورم والتنسيق رائع

نفس المشكلة والله بعد ما اختار الكود او الرقم القومى واختار بحث ثم حفظ 

اقوم بكتابة رقم اخر لا يعمل

ملحوظة الاسماء التى بالشيت تحفة جدااااااااااااا كنت هموت من الضحك وانا بقرأها 

كل حبى وشكرى وكل العرفان لك اخى واستاذى ومعلمى 

تم تعديل بواسطه yara ahmed
رابط هذا التعليق
شارك

استاذنك استاذ سليم لمعالجة هذا الموضوع يجب مسح الحقول بعد عملية الحفظ

ويتم تغير هذا الجزء من الكود

Private Sub BT_SAVE_Click()
Dim old_num
Set sh = Sheets("Sheet1")
last = sh.Cells(Rows.Count, 1).End(3).Row
 If last = 1 Then Exit Sub
 sh.Range("A2:G" & last).Interior.ColorIndex = 35
  If Me.T_NewMASROUF.Value = "" Then
   MsgBox "الرجاء تحديد المصروف الجديد قي الخانة المناسبة", _
    vbMsgBoxRtlReading
  Exit Sub
  
  End If
  old_num = LB_Kadim.Caption
  With Me.ListBox1
  If .ListIndex < 2 Then Exit Sub
  x = .List(.ListIndex, 7)
  sh.Cells(x, 7) = Me.T_NewMASROUF.Value
  .List(.ListIndex, 0) = Me.T_NewMASROUF.Value
  End With
  Me.ListBox1.ListIndex = -1
  Me.LB_Kadim.Caption = old_num
  sh.Cells(x, 1).Resize(, 7).Interior.ColorIndex = 40
  Application.Goto sh.Cells(x, 1)
    Me.T_CODE = ""
  Me.T_KOUMI = ""
Me.LB_Kadim = ""
Me.T_NewMASROUF = ""
End Sub

اخر اربع اسطر مسئولين عن مسح الحقول 

سامحنى استاذى سليم ا اقصد الا المساعدة لوجه الله

احترامى لشخصك الكريم

  • Like 4
رابط هذا التعليق
شارك

   اذا اعجبتك الاسماء أرجو ابتكار المزيد مثلها (مع الاسماء المؤنّثة)

انصح باضافة هذين السطرين على الكود ( في المكان المتاسب حسب الصورة )  لمسح التكست بوكس المناسب تحضيراً للبحث التالي

 

 

yara4.png

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information