-->

الاكسيل VBA ترحيل البيانات والصور من اليوزرفورم الى شيت الاكسل (مثال عملى فورم الموظفيين ) Excel VBA Picture form Userform To Sheet

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

اهلا بكم متابعى موقع عالم الاوفيس 

درس جديد وكود جديد  مميز من اكواد الاكسيل VBA 

ترحيل البيانات والصور من اليوزرفورم الى شيت الاكسل (مثال عملى فورم الموظفيين )

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

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

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

الفيديو



فى البداية نقوم بانشاء  User Form وندرج علية بعض الادوات من مجموعة من التكست بوكس 

خاصة بالاسم والوظيفة وتاريخ الميلاد ورقم التليفون 

وادراج Command Button لرفع الصور  Command Button اخر لترحيل البيانات وطباعتها من خلال الشيت او ورقة العمل 

دوبل كليك على Command Button الخاص برفع الصورة 

ونكتب فية الكود التالى :

Private Sub CommandButton1_Click()

imagepath = Application.GetOpenFilename(filefilter:="picture files(fichiers image),*.gif;*.jpg;*.jpeg", Title:="choose image")

If imagepath <> False Then

Me.Image1.Picture = LoadPicture(imagepath)

Me.Image1.Visible = True

End If

End Sub


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

ثمناتى بعد ذلك الى  Command Button الزر الاخر الخاص بالطباعة وترحيل البيانات الى شيت الاكسيل 

ونكتب فية هذ الكود

Private Sub CommandButton1_Click()

With Sheet1

Range("c5").Value = Me.TextBox1.Value

Range("c7").Value = Me.TextBox2.Value

Range("c9").Value = CDate(Me.TextBox3.Value)

Range("c11").Value = Me.TextBox4.Value

End With

Set shapimage = Sheet1.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, _

        DisplayAsIcon:=False, Left:=294, Top:=66, Width:=101.25, Height:= _

      126.75)

       With shapimage

        .Object.PictureSizeMode = 1

        .Object.Picture = Me.Image1.Picture

        End With

وهذا الكود سيقوم بترحيل البيانات الى شيت الاكسيل وترحيل الصورة ايضا الى المكان المحدد

ولو حضرتك مش عايز تتعب نفسك فى كتابة الاكواد سبنا لك ملف العمل جاهز وبة كل الاكواد وشغال كمان 100%

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

لتحميل ملف العمل من هنا


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

إرسال تعليق