طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سما محمد

 

بارك الله فيكي

ولقد اسعدني كلامك جدا جدا

تقبلي تحياتي وشكري

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

[حسام مصطفي]

راااااااااااااائع

هو دا الكلام والشرح والجمال بجد

اكمل مشوارك استاذنا

من اجلنا نحن  تلاميذك

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / حسام مصطفي

 

بارك الله فيك

تقبل تحياتي

وان شاء الله يعننا علي اكمال المشوار بنفس الطريقة

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

[حمادة عمر]

اللهم صلي علي سيدنا ((( محمد )) وعلي آله وصحبه اجمعين

[الصاوي حسن]

أستاذنا الجليل / حماده عمر 

 

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

 

أرجو التكرم بمساعدتي في الفورم المرفق

 

1- عند حذف أي موظف يظهر خطأ  ويتم إغلاق الفورم ولكن يتم حذف الموظف !

2- المساعدة في تفعيل ال calender  في إدخال تاريخ التعيين وتاريخ العودة من أخر أجازة في الفورم. 

3- عمل ترتيب  تلقائي للموظفين حسب  رقم الوظف بعد حذف أي موظف مع الاحتفاظ بترتيب السيريال

4- في userform 2   إدخال مزايا الراتب ( تجميع اجمالي الراتب تلقائيا )

 

أرجو أن لا  أكون أثقلت في طلباتي

 

جزاك الله كل خير  وجعله في ميزان حسناتك ....

 

 

أوفيسيي جديد ........

 

06-04-2013-000000.rar

[حمادة عمر]

السلام عليكم

الاخ العزيز / الصاوي حسن

 

بارك الله فيك

بالنسبة لملفك المرفق والطلبات الخاصة به

1- بالنسبة لموضوع الحذف فقد جربته علي الملف المرسل منكم ويعمل بصورة طبيعية لدي ...

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

 

2- بالنسبة لتفعيل الـ calender في يوزر فورم 1  تم تنفيذ طلبك ولكن بدون زر مجرد الدخول في تكست بوكس التاريخ

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

 

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

    وبالنسبة لهذا الطلب استخدم المعادلة التاليه في عمود الترقيم

=IF(B4="";"";SUBTOTAL(3;B$3:B4))

او استخدم الكود التالي للترقيم التلقائي في حدث الورقة Private Sub Worksheet_Change

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 2 Then
    If Target.Value <> "" Then
      With Cells(Target.Row, Target.Column - 1)
        .FormulaR1C1 = _
          "=IF(COUNTA(RC[1]:RC[1])=1,COUNTA(R2C[1]:RC[1]),"""")"
      End With
    Else
      Cells(Target.Row, Target.Column - 1).ClearContents
    End If
  End If
  ActiveSheet.Protect Password:=123, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

4- بالنسبة لتجميع اجمالي الراتب في يوزر فورم 2 تم عمل المطلوب

 

واي تعديلات او طلبات معك دائما ( باذن الله )

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

 

06-04-2013sama.rar

تم تعديل أبريل 7, 2013 بواسطه حمادة عمر

[الصاوي حسن]

أستاذنا الجليل / حماده عمر

 

جزاك الله كل خير على سرعة الرد

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

 

 

 

او استخدم الكود التالي للترقيم التلقائي في حدث الورقة Private Sub Worksheet_Change

ActiveSheet.Protect Password:=123, DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

 

أستئذن حضرتك بس تجرب إضافة راتب موظف بعد تعديل جمع الراتب لأن في رسالة خطأ بتظهر

كما أرجو تفعيل ال calender علي تاريخ العودة من أخر أجازة لأني حاولت أضيفه بنفس الطريقة لكن يتم التغيير على التاريخين جميعا .

وأكون شاكر جداً لو عملت الترتيب

 

جزاك الله كل خير وجعله في ميزان حسناتك ....

 

 

أوفيسيي جديد ........

تم تعديل أبريل 7, 2013 بواسطه الصاوي حسن

[Basheer_7]

جزاك الله خيرا......

[حمادة عمر]

السلام عليكم

الاخ الكريم / الصاوي حسن

 

بارك الله فيك

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

ولكن الكود الموجود في المشاركة المرسلة مني

قمت بحذف هذا السطر من الكود ليعمل معك بدون رقم سري .

.... و علي العموم .... ساقوم بفتح الملف ان وجد له باسورد ( بعد اذنك ) للعمل عليه

وسأقوم بالتعديلات المطلوبه عليه كما طلبت ... عند ما اعود ( ان شاء الله )

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / Basheer_7

 

بارك الله فيك

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

[مراد]

جزاكم الله جير وبارك فيكم

[الصاوي حسن]

أستاذنا الجليل / حماده عمر

 

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

 

في انتظار الرد

[مهيب الحمادي]

جزاكم الله خير الجزاء وجعل هذا العمل في ميزان حسناتكم

[حمادة عمر]

السلام عليكم

الاخ الكريم / الصاوي حسن

 

بارك الله فيك

تفضل اخي الكريم المرفق .... به طلبك ان شاء الله

واي تعديلات او طلبات اخري ... لا تترد

في انتظارك

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

 

 

06-04-2013sama-sama.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم / مراد

 

بارك الله فيك

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / مهيب الحمادي

 

بارك الله فيك

جزيل شكري علي مرورك الكريم

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

[مهيب الحمادي]

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة

(((( تابع / مرفقات الدرس الثاني ))))

ملف الفيديو رقم 4

ملف القــــديــــر الــــرائــــع / الحســــــامــــــي

فيديو4 .. طريقة عمل شاشة ادخال 3-4.rar

الدرس الثالث textbox.rar

[مهيب الحمادي]

حفظك الله استاذي العزيز على هذه الدروس القيمة

وعندي مشكله صغيره وارجوا مساعدتي فيها

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

[الصاوي حسن]

جزاكم الله خير الجزاء وجعله في ميزان حسناتكم         

[حمادة عمر]

السلام عليكم

الاخ الكريم / مهيب الحمادي

 

بارك الله فيك

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

ويتم استخدام الكود التالي بالطريقة التالية :

ماعليك سوى عمل التالي :
1 / - فتح الملف الذي تريد فك الحماية الخاصة بة .
2 / - الضغط على مفتاح Alt + F 11 .
3 / - بعد ذلك تظهر لك نافذة
Microsoft Visual Basic من قائمة Insert نختار Module .
4 / - تظهر بعد ذلك نافذة
Module ماعلينا سوى نسخ ولصق اومر البرنامج
الموجودة في الملف المرفق وبعد ذلك نقوم بأغلق نافذة
Microsoft Visual basic .

5 / - بعد ذلك يظهر لنا ملف الاكسل الخاص بنا نذهب الى قائمة عرض > وحدات ميكرو > عرض وحدات الميكرو .

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

 

او قم بارفاق الملف للعمل عليه ....

وفي انتظار ردك .... هل نجحت الطريقة ام لا

Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox "One usable password is " & Chr(i) & Chr(j) & _
 Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
 Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _
 Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
 Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / الصاوي حسن

 

بارك الله فيك

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

[مهيب الحمادي]

جزاك الله خيراً على هذه الدروس الجميلة يا استاذ حماده

[حمادة عمر]

بارك الله فيك

اخي الكريم / مهيب الحمادي

جزيل شكري لمرورك الكريم

[رائد 1982]

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

استاذ / حمادة عمر

علي هذا لمجهود الجبار

[حمادة عمر]

السلام عليكم

الاخ الكريم / رائد

 

بارك الله فيك

تقبل تحياتي وشكري

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