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





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

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



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




05-12-2017 11:30 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 1764
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 8
يتابعهم : 0
يتابعونه : 152
قوة السمعة : 4937
الاعجاب : 1403
 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
يتابعونه : 0
قوة السمعة : 10
الاعجاب : 0
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت
 
 
  ترحيل المركز المالى.rar   تحميل rar مرات التحميل :(2)
الحجم :(233.907) KB





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

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

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


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




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




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




06-12-2017 03:13 صباحا
مشاهدة مشاركة منفردة [6]
محمود الشريف
menu_open
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-09-2017
رقم العضوية : 627
المشاركات : 195
الجنس : ذكر
تاريخ الميلاد : 14-2-1980
يتابعهم : 4
يتابعونه : 8
قوة السمعة : 1100
الاعجاب : 285
 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
المشاركات : 549
الجنس : ذكر
الدعوات : 3
يتابعهم : 0
يتابعونه : 154
قوة السمعة : 3091
الاعجاب : 716
 offline 
look/images/icons/i1.gif ترحيل صورة من اليوزرفورم الى اكثر من شيت

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






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




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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود جلب صورة للشيت سعيد العربي
6 96 محمود ابو الدهب
الاستعلام بالصورة أو إدارج الصورة محمود الشريف
6 108 YasserKhalil
مطلوب عرض صورة متحركة داخل الفورم محمود ابو الدهب
2 78 محمود ابو الدهب
برجاء معرفة ما الخطأ الذى يتم عرضة بالصورة الاتية محمود ابو الدهب
11 137 Yasser Elaraby
ربط خلية بصورة محمد حسن المحمد
8 185 محمد حسن المحمد

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


 







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