حافظ حافظ

صباح النور ..اشكرك استاذ سليم حاصبيا

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

يا ليت حد ينور ني بالحل بارك الله فيكم جميعا

تحيتي للجميع الأعضاء

ألجأ إليكم الأساتذة و الأعضاء الكرام ربما اجد الحل المناسب من حضراتكم بهذا الملف .ما اجوه هو ايجاد الفارق بالايام و الساعات و الدقائق و الثواني مثل ماهو موجود بالملف

شكرا للجميع على التعاون

السلام عليكم

اخي عمرو محمد

الكومبوبكس يكون بها ارقام مثلا من 1 الى 10 عند فتح الفورم بواسطة array او additem

عند اختار الرقم 1 مثلا يطلعلي بتاكست بكس 1 مثلا 8594

و عند اختار رقم 2  يطلعلي بتاكست بكس 1 الرقم 548962

عندي فقط بالفورمة كمبوبكس واحد و تكست بكس واحد و هذي الارقام لا تتغير ثابتى

شكرا

السلام عليكم ورحمة الله

من فضلكم

كيف حتكون الكود داخل الفورم1

الكومبوبوكس بها ارقام من 1 الى 10 

لما باختار رقم 1 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 8594

لما باختار رقم 2 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 548962

لما باختار رقم 3 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 3652487

لما باختار رقم 4 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 14587523

لما باختار رقم 5 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 21356842

لما باختار رقم 6 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 25412

لما باختار رقم 7 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 28594

لما باختار رقم 8 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 185294

لما باختار رقم 9 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 1825934

لما باختار رقم 10 في الكومبوبكس1 يظهر بتاكست بكس1 العدد مثلا 25874

وجزاكم الله خيرا

كموبوبكس و تكست بكس.rar

شكرا استاذ فايز ياسين.ياريت تكون تلقائي بدون انتر من فضلك ولك جزيل الشكر.مجرد اكتب التريخ يضهر التفقيط

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

حذف الكومند بوتن.rar

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

السلام عليكم

هل من مساعدة يا سادة يا كرام بارك الله فيكم

السلام عليكم

لو تكرمتم يا الأساتذة كيف ينمكن اظهار التفقيط في الليبل1 عند اظهار المجموع في التاكست بو كس3.مثلا تاكست بوكس1 (5) و تكست بوكس 2 (9) المجموع يظهر (14) في تكست بوكس3 وتكتب "أربعة عشرنقطة" في الليبل1.مع أخذ بعين الاعتبار للاعداد العشرية.واتنمنى عدم كتابة كلمة "فقط" .بارك الله فيكم مشكورين مسبقا

التفقيط للاعداد.rar

شكراوبارك الله فيك منحاولة نجحت بارك الله فيك

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

السلام عليكم مساء الخير

أتمنى من الأساتذة الكرام مساعدتي على تحديد المشكلة في هذا الكود.عندي ملف اسمه "حمادة عمر"  الأصلي و كل شيء فيه جيد حتى التعديل  و الأخر اسمه "المثال" وهو ملفي الشخصي

في الملف "المثال" عملت تماما مثل الملف الأصلي و زدت عمود واحد وتاكست بوكس واحد ..كل شيء تمام ماعدا كود التعديل به خلل حيث التعديل يكون فقط في عمود الاسم و الباقي لا يتغير عند عملية التعديل

أرجو المساعدة بارك الله فيكم

حافظ.rar

السلام عليكم

ألا يوجد حل لمشكلتي أيها السادة الكرام

احتراماتي

رمضان كريم

أتمنى المساعدة منكم في هذا الاشكال وهو كيف أغير اتجاه ال listview من اليمين إلى اليسار غيرت الوضعية من خلال اليوزرفورم لكن المشكل لم يحل

بارك الله فيكم مسبقا

حافظ.rar

 

ضع الكود في حدث المصنف

Private Sub Workbook_Open()
    Application.Visible = False
    UserForm1.Show
End Sub

بارك الله فيك على كود مضبوط جازاك الله خيرا

 

الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي

Private Sub CommandButton1_Click()
Static compteur As Byte
compteur = compteur + 1
If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then
        Unload Me
 Else
    If compteur = 3 Then
    MsgBox "خطاء في كتابةكلمةالسر." & _
    vbCrLf & "لايمكنك الدخول للبرنامج" & _
    vbCrLf & vbCrLf & "سوف تغادر....", _
    vbOKOnly + vbCritical, "كلمةالسر خاطئة"
    ActiveWorkbook.Close
    End If
    MsgBox "كلمةالسرغيرصحيحة." & _
    vbCrLf & "ليس لديك الصلاحية للدخول", _
    vbOKOnly + vbExclamation, "كلمةالسرخاظئة"
     TextBox1.Value = ""
     TextBox2.Value = ""
     TextBox1.SetFocus
    Me.Caption = "Entrez le mot de passe. Tentative " & _
    compteur + 1 & " sur 3"
 i = i + 1
 If i = 2 Then
      End
   End If
 End If
End Sub

بارك الله فيك استاد خزاني .لو سمحت ماهو الكود الدي يجعل الاوراق لا تظهر في البداية يظهر الفورم فقط

للرفع جازاكم الله خيرا.للضرورة

السلام عليكم اساتدتي الكرام

وجدت في هدا المنتدى الرائع هدا الملف.اردت عمل تعديل على هذا الملف يبقى مثل ما هو فقط عند الدخول لا تظهر اوراق الاكسال تظهر الفورم فقط.ولو سمحتم يكون الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي.

شاشة دخول.rar

المنتدى نور اخي واستاذي بوجودك معنا.بارك الله فيك وجعلها بميزان حسناتك.الله يجزيك خير.هذا ما اردت فعله وبحثت عنه

السلام عليكم  ورحمة الله .

قمت بتسجيل فورا ولم أكن اعرف قبل اليوم هذا منتدى العظيم

وانا اقلب صفحات المنتدى اعجبني موضوع و حبيت تنفيذه .دخول لملف من  الفورم و جعل زر امر "عودة الى اكسل" تكون بكلمة مرور .زر امر هذا فقط يكون بكلة مرور اما الفورم افتتاحي لا يكون بكلمة مرور.الملف تجربة 1 هو للتطبيق عليه و ملف2 هو المثال لي تحدثت عليه

زرأمر بكلمة سرية.rar