عمل ملف خاص بالموظفين

[محمد الداوودي]

السلام عليكم

 

اريد مساعده في عمل ملف خاص بالموظفين بصورهم الشخصيه

مع العلم ان الصور الشخصيه موجوده في ملف خاص علي سطح المكتب

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

معاينه قبل الطباعه

هناك ملف بالمرفق يوضح البيانات المطلوبه

 

وشكرا

CV - Copy.rar

[ياسر خليل أبو البراء]

أخي الكريم محمد

يرجى تغيير اسم الظهور للغة العربية

بالنسبة للملف المرفق ليس به بيانات في ورقة العمل المسماة DATA يرجى وضع بعض البيانات لتساعد إخوانك على توفير أوقاتهم

وبالنسبة لكود الموظف أين يوضع أقصد ما هي الخلية التي يتم وضع كود الموظف فيها كما يرجى إرفاق ملف فيه نماذج للصور ؟؟

وهل الصور سيتم ربطها باسم الموظف أم بالكود أقصد أسماء الصور ...

تقبل تحياتي

 

[محمد الداوودي]

السلام عليكم

 تم وضع بعض البيانات مرفقه

والصوره مرفقه بها المكان الذييتم وضع فيه كود الموظف

وبالنسبه للصور يمكنك التجربه علي اي نوع من الصور

وسيتم ربط الصور بكود الموظف

وشكراا

 

 

Desktop.rar

[ياسر خليل أبو البراء]

أخي الكريم محمد

إليك الكود التالي يوضع في حدث ورقة العمل

كليك يمين على اسم الورقة المسماة CV ..

ثم اختر الأمر View Code

والصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C4")) Is Nothing Then
        Call ChangePic
    End If
End Sub

وضع الكود التالي في موديول عادي

Sub ChangePic()
    Dim pic As Picture, strPhotosFolder As String, strPhoto As String
    strPhotosFolder = ThisWorkbook.Path & "\Photos\"

    Application.ScreenUpdating = False

        With Sheets("CV")
            While .Pictures.Count
                .Pictures(1).Delete
            Wend
            strPhoto = strPhotosFolder & Trim(.Range("C4").Value) & ".*"
            strPhoto = Dir(strPhoto)
            If Len(strPhoto) Then
                strPhoto = strPhotosFolder & strPhoto
                .Pictures.Insert (strPhoto)
                Set pic = .Pictures(.Pictures.Count)
                With pic
                    .ShapeRange.LockAspectRatio = msoFalse
                    .Left = .Parent.Range("G2:G4").Left
                    .Top = .Parent.Range("G2:G4").Top
                    .Width = .Parent.Range("G2:G4").Width
                    .Height = .Parent.Range("G2:G4").Height
                End With
            End If
        End With

    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

CV Employees Import Pictures Based On ID YasserKhalil.rar

[محمد الداوودي]

شكرا جزيلا

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات

الحمد لله أن تم المطلوب على خير

[محمد الداوودي]

السلام عليكم

كان عندي استفسار بخصوص الدوال في نفس الملف السابق

يعني لو كان صاحب الكود ده اعزب او متزوج ممكن يكتب

"Yes"

في المكان المخصص لها ولو في اطفال ممكن يكتب عددهم ؟

مرفق مثال بسيط للاجابه

Test.rar

[ياسر خليل أبو البراء]

وعليكم السلام أخي الكريم محمد الدوادي

إليك الملف التالي عله يكون المطلوب

تقبل تحياتي

CV Employees Import Pictures Based On ID YasserKhalil V2.rar

[محمد الداوودي]

استاذنا الكريم ياسر خليل

اشكرك جزيلا من صميم قلبي 

والله انا بتعلم من الامثله اللي باخدها من حضرتك مش مجرد بنقل وخلاص ... اشكرك

بالتوفيق يارب

[ياسر خليل أبو البراء]

أخي الفاضل محمد الداودي

يكفيني أن تذكرني بدعوة بظهر الغيب .. بارك الله فيك ووفقك الله لما يحب ويرضى

تقبل تحياتي