أكاديمية الصقر للتدريب

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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





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

فورم ادراج بيانات وصور الفيديو الكود [code]RGltIGZwYXRoIEFzIFN0cmluZzxiciAvPg0KUHJpdmF0ZSBTdWIgQ29tbWFuZEJ1dHRvbjF ..



16-09-2019 02:02 مساء
مجدى يونس
مشرف قسم البوربوينت
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 811
المشاركات : 809
الجنس : ذكر
تاريخ الميلاد : 26-8-1954
الدعوات : 2
يتابعهم : 0
يتابعونه : 43
قوة السمعة : 3778
 offline 

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

الفيديو




الكود

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


16-09-2019 02:05 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif فورم ادراج بيانات وصور
جزاك الله كل خير استاذ مجدى ورحم الله والديك
توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

16-09-2019 03:10 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10439
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 0
يتابعونه : 533
قوة السمعة : 36372
عدد الإجابات: 252
 offline 
look/images/icons/i1.gif فورم ادراج بيانات وصور
بارك الله فيك أخي العزيز مجدي ويرجى إرفاق ملف في الموضوعات التي تقدمها ليكتمل الموضوع ...
تقبل تحياتي

16-09-2019 03:31 مساء
مشاهدة مشاركة منفردة [3]
مجدى يونس
مشرف قسم البوربوينت
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 02-10-2017
رقم العضوية : 811
المشاركات : 809
الجنس : ذكر
تاريخ الميلاد : 26-8-1954
الدعوات : 2
يتابعهم : 0
يتابعونه : 43
قوة السمعة : 3778
 offline 
look/images/icons/i1.gif فورم ادراج بيانات وصور
شكرا لكم اخ على واخ ياسر
انا نزلت الكود ومنزل بالمنتديات الكود لان الناس بتشتكى من تحميل الملف والملف اصلا صغير الحجم




الكلمات الدلالية
بيانات ، ادراج ، فورم ، وصور ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 11:23 صباحا