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

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

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




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





ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني

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



10-08-2018 07:30 مساء
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 51
الاعجاب : 16
 offline 

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

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب






10-08-2018 08:54 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1286
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7778
الاعجاب : 2215
 offline 
look/images/icons/i1.gif ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني
برجاء رفع الملف مباشر على الموقع
كما موضح بالصورة التالية

FbBDyqTPUWGYzeI
 
 


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




10-08-2018 09:03 مساء
مشاهدة مشاركة منفردة [2]
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني
شكرا لك استاذي 
 
 
  Nouveau dossier.rar   تحميل rar مرات التحميل :(9)
الحجم :(512.965) KB






11-08-2018 07:13 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14698
الاعجاب : 5483
 offline 
look/images/icons/i1.gif ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني
أخي الكريم اللي لسه متشرفناش باسمه
أعتقد أن الامتداد png غير مقبول .. قم بوضع الصور بامتداد jpg 
بعد ذلك في ورقة العمل في العمود J قم بوضع أسماء الملفات فقط بدون المسار كاملاً وبدون الامتداد ..أي بهذا الشكل : 1 ، 2 ، 3
قم بتجربة الكود التالي بعد تطبيق الخطوتين السابقتين

Private Sub ComboBox1_Change()
    Dim rng         As Range
    Dim pic         As String
    Dim i           As Long
    
    Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A5:J1000")

    For i = 1 To 7
        Me.Controls("TextBox" & i).Value = WorksheetFunction.VLookup(Val(ComboBox1.Value), rng, i + 1, 0)
    Next i

    pic = WorksheetFunction.VLookup(Val(ComboBox1.Value), rng, 10, 0)
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & pic & ".jpg")
End Sub

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، محمود ابو الدهب، هانى على،




11-08-2018 09:11 صباحا
مشاهدة مشاركة منفردة [4]
hellong
menu_open
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-07-2018
رقم العضوية : 7290
المشاركات : 28
الجنس : ذكر
تاريخ الميلاد : 1-1-1970
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 51
الاعجاب : 16
 offline 
look/images/icons/i1.gif ما لهذه الصور لا تريد الترحيل _عطب في كود حيرني
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
أخي الكريم اللي لسه متشرفناش باسمه
أعتقد أن الامتداد png غير مقبول .. قم بوضع الصور بامتداد jpg 
بعد ذلك في ورقة العمل في العمود J قم بوضع أسماء الملفات فقط بدون المسار كاملاً وبدون الامتداد ..أي بهذا الشكل : 1 ، 2 ، 3
قم بتجربة الكود التالي بعد تطبيق الخطوتين السابقتين

Private Sub ComboBox1_Change()
    Dim rng         As Range
    Dim pic         As String
    Dim i           As Long
    
    Set rng = ThisWorkbook.Worksheets("Feuil1").Range("A5:J1000")

    For i = 1 To 7
        Me.Controls("TextBox" & i).Value = WorksheetFunction.VLookup(Val(ComboBox1.Value), rng, i + 1, 0)
    Next i

    pic = WorksheetFunction.VLookup(Val(ComboBox1.Value), rng, 10, 0)
    Image1.Picture = LoadPicture(ThisWorkbook.Path & "" & pic & ".jpg")
End Sub

===
اشكرك استاذي الجليل

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




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

أثارت هذه المشاركة إعجاب: Eslam Abdullah، محمود ابو الدهب،






الكلمات الدلالية
لهذه ، الصور ، تريد ، الترحيل ، _عطب ، حيرني ،


 







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



الساعة الآن 12:19 مساء

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