بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد مميز من اكواد الاكسيل 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%
بس متنساش تسيب تعليق لنا سواء كان بالايجاب او السلب علشان لو عندنا اخطاء نتلافاها فى الدروس القادمة ان شاء الله