برنامج بيانات الموظفين

[نفا]

بسم الله الرحمن الرحيم

اخواني وأعزائي المنتدى الغالي

ارغب في عمل برنامج صغير لبيانات الموظفين لدينا بالعمل

هو عبارة عن ثلاث ورقات

الورقة الأولى إدخال بيانات الموظف

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

الورقة الثانية مكان حفظ البيانات

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

مرفق الملف للتعديل

____________________.rar

[عبدالله باقشير]

اسلام عليكم

تفضل الملف

____________________.rar

[نزار سليمان عيد]

السلام عليكم

مبدع دوما اخي خبور جزاك الله خيرا

ابو خالد

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ ابوخالد-------------------حفظه الله

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

[نفا]

اخي العزيز مبدع مبدع مبدع

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

يا ريت تعطيني ترجمة كاملة لما عملت حتى استفيد ويستفيد الآخرين

تحياتي

انت بالفعل مبدع فأكمل إبداعك بالشرح

[نفا]

اخي العزيز خبور خير يا ريت تشرح لي وش عملت

Dim R As Integer, Last As Integer تعريف المتغير

With ورقة2 في الورقة الثانية

Last = .Range("B" & .Rows.Count).End(xlUp).Row + 1

For R = 1 To 15

.Range("B" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 3)

.Range("Q" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 7)

Next R

.Range("A" & Last).Value = Last - 3

End With

End Sub

Sub KH_Clear_A()

Dim R As Integer

For R = 1 To 15

ورقة1.Cells((R * 2) + 2, 3).ClearContents

ورقة1.Cells((R * 2) + 2, 7).ClearContents

Next R

End Sub

Sub KH_Clear()

Dim Last As Integer

With ورقة2

Last = .Range("B" & .Rows.Count).End(xlUp).Row + 4

.Range("A4:AE" & Last).ClearContents

End With

End Sub

اريد ترجمة حرفية لهذا المايكروا الله يعطيك العافية

[عبدالله باقشير]

السلام عليكم

ساشرح لك جزئية من الكود وستعرف الباقي بنفسك

ما عليك سوى حساب المتغير R تسلسليا وعليه ستعرف موقع الخلايا المرحلة

Sub kh_start()
Dim R As Integer, Last As Integer
'    في الورقة اللي كود نمبر بتاعها اسمة ورقة2
'     (.)كذا يصبح اي شي خاص بالورقة يبدا بنقطة
With ورقة2
'     بي زايدا الرقم واحد(B)اخر صف في العمود
    Last = .Range("B" & .Rows.Count).End(xlUp).Row + 1
    For R = 1 To 15   '   (R) السلسلة
        '   (R-1)من الخلية بي في آخر صف يتم تسلسل الاعمدة حسب المتغير
        .Range("B" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 3)
        .Range("Q" & Last).Offset(0, R - 1).Value = ورقة1.Cells((R * 2) + 2, 7)
    Next R
    .Range("A" & Last).Value = Last - 3
End With
End Sub

[أبو جديد]

ممتاز أخي / خبور

الله يعطيك العافية