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

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


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

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


الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



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


 

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

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


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

فورم ادراج بيانات وصور 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://magdi54.forumegypt.net
ع_ حسام




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

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

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


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

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

عفوا

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

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




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

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

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


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

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

العفو

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

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




عدد المساهمات : 7
تاريخ التسجيل : 12/02/2019

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالإثنين يونيو 29, 2020 12:46 pm

شكرا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
Adel200




عدد المساهمات : 188
تاريخ التسجيل : 12/09/2021

فورم ادراج بيانات وصور Empty
مُساهمةموضوع: رد: فورم ادراج بيانات وصور   فورم ادراج بيانات وصور Avatarالإثنين سبتمبر 27, 2021 11:04 pm

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

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