الاستاذ مجدى
فورم ادراج بيانات وصور 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم ادراج بيانات وصور 829894
ادارة المنتدي فورم ادراج بيانات وصور 103798

فورم ادراج بيانات وصور Uoou_u10





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


شاطر
 

 فورم ادراج بيانات وصور

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالإثنين سبتمبر 16, 2019 1:42 pm

فورم ادراج بيانات وصور

الفيديو


الصورة

فورم ادراج بيانات وصور Cy10

الكود

الكود:
Dim fpath As String
Private Sub CommandButton1_Click()
Dim x As Integer
Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = False
x = Application.FileDialog(msoFileDialogOpen).Show
If x <> 0 Then
fpath = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
Image1.Picture = LoadPicture(fpath)
Image1.PictureSizeMode = 1
End If

End Sub

Private Sub CommandButton2_Click()
Dim x As Integer
Dim y As Worksheet
Set y = Sheets("sheet1")
x = y.Range("a" & Rows.Count).End(xlUp).Row
With y
.Cells(x + 1, "a").Value = Te1.Text
.Cells(x + 1, "b").Value = Te2.Text
.Cells(x + 1, "c").Value = Te3.Text
End With
Dim i As String
i = Te1.Text

FileCopy fpath, "D:\picture\" & i & ".jpg"
Me.Te1.Text = ""
Te1.Text = ""
Te2.Text = ""
Te3.Text = ""


End Sub

Private Sub UserForm_Click()

End Sub

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم ادراج بيانات وصور Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
ع_ حسام



عدد المساهمات : 11
تاريخ التسجيل : 20/09/2019

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالجمعة سبتمبر 20, 2019 10:39 pm

مشكور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالسبت سبتمبر 21, 2019 2:27 am

عفوا

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم ادراج بيانات وصور Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
hatemmb



عدد المساهمات : 11
تاريخ التسجيل : 17/08/2019

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالأربعاء أكتوبر 30, 2019 6:21 am

مشكور
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالأربعاء أكتوبر 30, 2019 2:15 pm

العفو

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم ادراج بيانات وصور Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
فورم ادراج بيانات وصور
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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