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

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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز
المشرف المتميز
المراقب المتميز
المدير المتميز
الموضوع المتميز
القسم المتميز
khaled alborene Eslam Abdullah لا تميز خلال هذه الفترة YasserKhalil برنامج مرتبات الصقر - الاصدار التانى - حسام خطاب اكسيل اسئله واجابات




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





ترحيل صورة من اليوزرفورم الى اكثر من شيت

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



05-12-2017 10:58 مساء
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 

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






05-12-2017 11:30 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
السلام عليكم أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

يرجى إرفاق ملف كنموذج مصغر لشكل المطلوب لتتضح صورة طلبك وتجد استجابة أفضل

أثارت هذه المشاركة إعجاب: hamadass،




05-12-2017 11:37 مساء
مشاهدة مشاركة منفردة [2]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
 
 
  ترحيل المركز المالى.rar   تحميل rar مرات التحميل :(8)
الحجم :(233.907) KB






05-12-2017 11:39 مساء
مشاهدة مشاركة منفردة [3]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
السلام عليكم أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

يرجى إرفاق ملف كنموذج مصغر لشكل المطلوب لتتضح صورة طلبك وتجد استجابة أفضل
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
السلام عليكم أخي الكريم
أهلاً بك في المنتدى ونورت بين إخوانك

يرجى إرفاق ملف كنموذج مصغر لشكل المطلوب لتتضح صورة طلبك وتجد استجابة أفضل


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





06-12-2017 12:26 صباحا
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
إن شاء الله يساعدك الأخوة المحترفين بالفورم .. وفقك الله لما يحبه ويرضاه





06-12-2017 01:16 صباحا
مشاهدة مشاركة منفردة [5]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
اين محترفين الفورم





06-12-2017 03:13 صباحا
مشاهدة مشاركة منفردة [6]
محمود الشريف
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 247
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 4
يتابعونه : 18
قوة السمعة : 1741
الاعجاب : 446
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
أخى الكريم
لقد اطلعت على ملفك 
والأمر ان شاء الله يسير 

نبدأ بالتسلسل المنطقى للأحداث

بداية 
يجب تنسيق الملف بالشكل التالي
1 - إظهار الصفوف المخفية بالشيتات 
2 - عدم كتابة أى نصوص بالصفوف الخمسة الأولي
3 - عدم دمج الخلايا بالصفوف التالية من الصف الثاني وحتى الصف الخامس 
4 - يجب وضع صندوق صورة بكل شيت من الشيتات السبعة حسب ملفك 
من خلال قائمة Developer ثم من Insert اختر ايقونة صندوق صورة
5 - تسمية كل صندوق صورة حسب الترتيب من الشيت الأول حتى السابع كالتالي
ImageG & ImageF & ImageE & ImageD & ImageC & ImageB & ImageA
6 - يجب وضع الكود التالي فى حدث زر اضافة صورة حتى تظهر داخل صندوق الصورة بالفورم رقم 9
حتى تتمكن من اختيار صورة من الجهاز الذى ستعمل عليه

Private Sub CommandButton1_Click()
  Dim strFileName As String
    
    strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False)
    
    If strFileName = "False" Then
        MsgBox "لم يتم اختيار صورة"
    Else
        Me.Image1.Picture = LoadPicture(strFileName)
        LastSelectedFilePath = strFileName
        Me.Repaint
    End If
End Sub


7 - ضع الكود التالي بزر حفظ البيانات

Private Sub CommandButton2_Click()
Dim wM As Worksheet
Dim wZ As Worksheet
Dim wJ As Worksheet
Dim wA As Worksheet
Dim wB As Worksheet
Dim wC As Worksheet
Dim wD As Worksheet

Set wM = Sheets("sheet1")
Set wZ = Sheets("sheet2")
Set wJ = Sheets("sheet3")
Set wA = Sheets("sheet4")
Set wB = Sheets("sheet5")
Set wC = Sheets("sheet6")
Set wD = Sheets("sheet7")
    
wM.Cells(2, 2).Value = Me.TextBox1.Value
wM.Cells(3, 2).Value = Me.TextBox2.Value
wM.Cells(4, 2).Value = Me.TextBox3.Value
wM.Cells(5, 2).Value = Me.TextBox4.Value
wM.OLEObjects("ImageA").Object.Picture = Image1.Picture

wZ.Cells(2, 2).Value = Me.TextBox1.Value
wZ.Cells(3, 2).Value = Me.TextBox2.Value
wZ.Cells(4, 2).Value = Me.TextBox3.Value
wZ.Cells(5, 2).Value = Me.TextBox4.Value
wZ.OLEObjects("ImageB").Object.Picture = Image1.Picture

wJ.Cells(2, 2).Value = Me.TextBox1.Value
wJ.Cells(3, 2).Value = Me.TextBox2.Value
wJ.Cells(4, 2).Value = Me.TextBox3.Value
wJ.Cells(5, 2).Value = Me.TextBox4.Value
wJ.OLEObjects("ImageC").Object.Picture = Image1.Picture

wA.Cells(2, 2).Value = Me.TextBox1.Value
wA.Cells(3, 2).Value = Me.TextBox2.Value
wA.Cells(4, 2).Value = Me.TextBox3.Value
wA.Cells(5, 2).Value = Me.TextBox4.Value
wA.OLEObjects("ImageD").Object.Picture = Image1.Picture

wB.Cells(2, 2).Value = Me.TextBox1.Value
wB.Cells(3, 2).Value = Me.TextBox2.Value
wB.Cells(4, 2).Value = Me.TextBox3.Value
wB.Cells(5, 2).Value = Me.TextBox4.Value
wB.OLEObjects("ImageE").Object.Picture = Image1.Picture

wC.Cells(2, 2).Value = Me.TextBox1.Value
wC.Cells(3, 2).Value = Me.TextBox2.Value
wC.Cells(4, 2).Value = Me.TextBox3.Value
wC.Cells(5, 2).Value = Me.TextBox4.Value
wC.OLEObjects("ImageF").Object.Picture = Image1.Picture

wD.Cells(2, 2).Value = Me.TextBox1.Value
wD.Cells(3, 2).Value = Me.TextBox2.Value
wD.Cells(4, 2).Value = Me.TextBox3.Value
wD.Cells(5, 2).Value = Me.TextBox4.Value
wD.OLEObjects("ImageG").Object.Picture = Image1.Picture

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""

MsgBox ("تم الترحيل بنجاح")

End Sub


سيتم ترحيل البيانات مباشرة الى الشيتات السبعة حسب ملفك 

أما فيما يختص بإظهار تلك البيانات بالفورم الرئيسي أو الشاشة الرئيسية 
فلم أجد أين يتم إظهار تلك البيانات بهذا الفورم 
أين تريد إظهار تلك البيانات (( هناك أربع بيانات نصية ، وصورة )) أين هم ؟

وتقبل منى وافر الاحترام والتقدير 
 

أثارت هذه المشاركة إعجاب: YasserKhalil، الصقر، hamadass،




06-12-2017 08:09 صباحا
مشاهدة مشاركة منفردة [7]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1487
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 402
قوة السمعة : 12692
الاعجاب : 3107
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت

جزاكم الله خيرا استاذ محمود فى ميزان حسناتك يارب 142





توقيع :الصقر

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



06-12-2017 01:40 مساء
مشاهدة مشاركة منفردة [8]
محمود الشريف
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 247
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 4
يتابعونه : 18
قوة السمعة : 1741
الاعجاب : 446
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
الأستاذ القدير // حسام _ ( الصقر )
وجزاكم الله عنى خيرا





06-12-2017 07:52 مساء
مشاهدة مشاركة منفردة [9]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
المشاركة الأصلية كتبت بواسطة: محمود الشريف »
أخى الكريم
لقد اطلعت على ملفك 
والأمر ان شاء الله يسير 

نبدأ بالتسلسل المنطقى للأحداث

بداية 
يجب تنسيق الملف بالشكل التالي
1 - إظهار الصفوف المخفية بالشيتات 
2 - عدم كتابة أى نصوص بالصفوف الخمسة الأولي
3 - عدم دمج الخلايا بالصفوف التالية من الصف الثاني وحتى الصف الخامس 
4 - يجب وضع صندوق صورة بكل شيت من الشيتات السبعة حسب ملفك 
من خلال قائمة Developer ثم من Insert اختر ايقونة صندوق صورة
5 - تسمية كل صندوق صورة حسب الترتيب من الشيت الأول حتى السابع كالتالي
ImageG & ImageF & ImageE & ImageD & ImageC & ImageB & ImageA
6 - يجب وضع الكود التالي فى حدث زر اضافة صورة حتى تظهر داخل صندوق الصورة بالفورم رقم 9
حتى تتمكن من اختيار صورة من الجهاز الذى ستعمل عليه

Private Sub CommandButton1_Click()
  Dim strFileName As String
    
    strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False)
    
    If strFileName = "False" Then
        MsgBox "لم يتم اختيار صورة"
    Else
        Me.Image1.Picture = LoadPicture(strFileName)
        LastSelectedFilePath = strFileName
        Me.Repaint
    End If
End Sub


7 - ضع الكود التالي بزر حفظ البيانات

Private Sub CommandButton2_Click()
Dim wM As Worksheet
Dim wZ As Worksheet
Dim wJ As Worksheet
Dim wA As Worksheet
Dim wB As Worksheet
Dim wC As Worksheet
Dim wD As Worksheet

Set wM = Sheets("sheet1")
Set wZ = Sheets("sheet2")
Set wJ = Sheets("sheet3")
Set wA = Sheets("sheet4")
Set wB = Sheets("sheet5")
Set wC = Sheets("sheet6")
Set wD = Sheets("sheet7")
    
wM.Cells(2, 2).Value = Me.TextBox1.Value
wM.Cells(3, 2).Value = Me.TextBox2.Value
wM.Cells(4, 2).Value = Me.TextBox3.Value
wM.Cells(5, 2).Value = Me.TextBox4.Value
wM.OLEObjects("ImageA").Object.Picture = Image1.Picture

wZ.Cells(2, 2).Value = Me.TextBox1.Value
wZ.Cells(3, 2).Value = Me.TextBox2.Value
wZ.Cells(4, 2).Value = Me.TextBox3.Value
wZ.Cells(5, 2).Value = Me.TextBox4.Value
wZ.OLEObjects("ImageB").Object.Picture = Image1.Picture

wJ.Cells(2, 2).Value = Me.TextBox1.Value
wJ.Cells(3, 2).Value = Me.TextBox2.Value
wJ.Cells(4, 2).Value = Me.TextBox3.Value
wJ.Cells(5, 2).Value = Me.TextBox4.Value
wJ.OLEObjects("ImageC").Object.Picture = Image1.Picture

wA.Cells(2, 2).Value = Me.TextBox1.Value
wA.Cells(3, 2).Value = Me.TextBox2.Value
wA.Cells(4, 2).Value = Me.TextBox3.Value
wA.Cells(5, 2).Value = Me.TextBox4.Value
wA.OLEObjects("ImageD").Object.Picture = Image1.Picture

wB.Cells(2, 2).Value = Me.TextBox1.Value
wB.Cells(3, 2).Value = Me.TextBox2.Value
wB.Cells(4, 2).Value = Me.TextBox3.Value
wB.Cells(5, 2).Value = Me.TextBox4.Value
wB.OLEObjects("ImageE").Object.Picture = Image1.Picture

wC.Cells(2, 2).Value = Me.TextBox1.Value
wC.Cells(3, 2).Value = Me.TextBox2.Value
wC.Cells(4, 2).Value = Me.TextBox3.Value
wC.Cells(5, 2).Value = Me.TextBox4.Value
wC.OLEObjects("ImageF").Object.Picture = Image1.Picture

wD.Cells(2, 2).Value = Me.TextBox1.Value
wD.Cells(3, 2).Value = Me.TextBox2.Value
wD.Cells(4, 2).Value = Me.TextBox3.Value
wD.Cells(5, 2).Value = Me.TextBox4.Value
wD.OLEObjects("ImageG").Object.Picture = Image1.Picture

Me.TextBox1.Value = ""
Me.TextBox2.Value = ""
Me.TextBox3.Value = ""
Me.TextBox4.Value = ""

MsgBox ("تم الترحيل بنجاح")

End Sub


سيتم ترحيل البيانات مباشرة الى الشيتات السبعة حسب ملفك 

أما فيما يختص بإظهار تلك البيانات بالفورم الرئيسي أو الشاشة الرئيسية 
فلم أجد أين يتم إظهار تلك البيانات بهذا الفورم 
أين تريد إظهار تلك البيانات (( هناك أربع بيانات نصية ، وصورة )) أين هم ؟

وتقبل منى وافر الاحترام والتقدير 
 

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





06-12-2017 08:04 مساء
مشاهدة مشاركة منفردة [10]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
فيما يخص الفورم الرئيسى اريد اظهار الصورة بدلا من الصورة الموجودة به والاسم بدلا من الاسم المكتوب تحت الصورة





06-12-2017 08:40 مساء
مشاهدة مشاركة منفردة [11]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
أما فيما يختص بإظهار تلك البيانات بالفورم الرئيسي أو الشاشة الرئيسية 
فلم أجد أين يتم إظهار تلك البيانات بهذا الفورم 
أين تريد إظهار تلك البيانات (( هناك أربع بيانات نصية ، وصورة )) أين هم ؟

وتقبل منى وافر الاحترام والتقدير 
 [/quote]

يوجد صورة للوجو الجمعية فى الفورم الرئيسى اريد ازالتها واضع بدلا منها الصورة التى سوف يتم اختيارها واريد ان اضع الاسم فى label الموجود تحت الصورة الذى به اسم الجمعية





06-12-2017 09:04 مساء
مشاهدة مشاركة منفردة [12]
hamadass
menu_open
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 05-12-2017
رقم العضوية : 2170
المشاركات : 8
الجنس : ذكر
تاريخ الميلاد : 7-7-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
سؤال اخير لو عايز اضيف شيتات جديدة اعرفها ازاى فى الكود
 






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
الاستعلام بالصورة أو إدارج الصورة محمود الشريف
10 806 Manned
ادارج صورة محمد النيل
7 117 YasserKhalil
مساعدة في كود برمجي لأظهار صورة في اليوزفورم سعيد العربي
6 121 YasserKhalil
طلب طود جلب صورة سعيد العربي
4 90 YasserKhalil
استخراج البيانات واحضارها بصورة تقرير عبدالله فتحى
28 472 YasserKhalil

الكلمات الدلالية
ترحيل ، صورة ، اليوزرفورم ، اكثر ،


 







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



الساعة الآن 02:30 صباحا

أعلن هنا
أعلن هنا
أعلن هنا