عبدالله باقشير قام بنشر فبراير 8, 2012 الكاتب مشاركة قام بنشر فبراير 8, 2012 استاذي الفاضل عبد الله باقشير اعداد الطلاب كثيره ونريد هذا الكود يعمل اوتوماتيك بدل ان اضع رقم الصوره وقد طلبت عندما لايوجد صوره للطالب نرجو عدم ظهور الفرام المسامحه في هذا الطلب لان الفرام مهم والطباعه مهم الله يرضى عليك وعلينا اخي الفاضل هذه دالة معمولة بكود يعني هي دالة مثل دوال الاكسل الفرق انها تحتاج الى شكل تلقائي لاظهار الصورة والغاية منها اظهار صور في نموذج معين يتغير تبعا لقيم متغيره مثلا لو معك ورقة فيها نموذج لثلاث شهادات ويتغير باستمرار حسب قيمة معينة ممكن تستخدم هذه الدالة لاظهار صورة الطالب في الشهادة تقوم باضافة شكل تلقائي لمستطيل وتضعه في المكان الذي تريده في الشهادة وتعمل هذه الدالة في اي خلية في الورقة وتضيف اسم المستطيل في الدالة وتكرر هذا العمل على باقي الشهادات الثلاث في النموذج ارجوا ان يكون شرحي مفهوما ودمتم رابط هذا التعليق شارك More sharing options...
islam11 قام بنشر فبراير 8, 2012 مشاركة قام بنشر فبراير 8, 2012 (معدل) حزاك الله كل خير وبارك لك استاذ عيد الله باقشير انا رسمت شكل تلقائي ووضعنه في خليه ماذا اقعل بغد ذلك ... لو تكرمت تم تعديل فبراير 8, 2012 بواسطه islam11 رابط هذا التعليق شارك More sharing options...
islam11 قام بنشر فبراير 8, 2012 مشاركة قام بنشر فبراير 8, 2012 حزاك الله كل خير وبارك لك استاذ عيد الله باقشير انا رسمت شكل تلقائي ووضعنه في خليه ماذا اقعل بغد ذلك ... لو تكرمت ظهر اسم الشكل التلقائي ونسخته في الجدول وظهرت الصوره تمام الله يبارك لك بابطل رابط هذا التعليق شارك More sharing options...
asdhamdey قام بنشر فبراير 8, 2012 مشاركة قام بنشر فبراير 8, 2012 عمل متقن ورائع ومفيد جدا استاذ عبد الله باقشير نقلت الصور بسهوله مع كروت محدوده ولكن مع كروت مدرسه كثيرة الطلاب ماذا افعل ؟ رابط هذا التعليق شارك More sharing options...
وليد المصرى 1 قام بنشر فبراير 9, 2012 مشاركة قام بنشر فبراير 9, 2012 روعة يا استاذنا جزاك الله خير استاذ خبور رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 9, 2012 مشاركة قام بنشر فبراير 9, 2012 حفظك ربنا ورعاك ايها البطل العالم العلامه عبد الله باقشير ماشاء الله رابط هذا التعليق شارك More sharing options...
علي فاهم قام بنشر فبراير 9, 2012 مشاركة قام بنشر فبراير 9, 2012 استاذي الفاضل عبد الله باقشير عمل متقن ورائع ومفيد جدا استاذ عبد الله باقشير نقلت الصور بسهوله مع كروت محدوده ولكن مع كروت مدرسه كثيرة الطلاب ماذا افعل ؟ والطباعه مهم الله يرضى عليك وعلينا موضوع غايه في الروعه جزاك الله خيرا موضوع غايه في الروعه جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 10, 2012 مشاركة قام بنشر فبراير 10, 2012 السلام عليكم استاذي القدير ابوعلي لي طلب شرحين في الكود اتمنى ان اجد الاجابة الوافية لديك (كما عودتنا) الشرح هنا ليس يخص دوره في الكود وانما شرح لدور الدوال الموجودة فيه الطلب الاول شرح لهذا الجزء If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng) === الطلب الثاني If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then MyShap.Fill.UserPicture MyFile & Trim(Tp) ibo = True وشكراً رابط هذا التعليق شارك More sharing options...
Ahmed Elbhiry قام بنشر فبراير 11, 2012 مشاركة قام بنشر فبراير 11, 2012 وجود الاستاذ عبد الله باقشير فى المنتدى ومشاركاته الجميلة تعمل كالوقود الذى يحرك السيارة ويحفز الجميع على التعلم والعمل وهو بمشاركاته يفتح الباب امامنا للتعلم ويعطينا الحافز المستمر للتعلم لك منى كل الحب والاحترام والتقدير رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 11, 2012 الكاتب مشاركة قام بنشر فبراير 11, 2012 السلام عليكم ورحمة الله وبركاته الشكر واصل لجميع المشاركين كلا باسمه جزاكم الله خيرا وبارك الله فيكم الطلب الاول شرح لهذا الجزء If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.Path MyFile = MyPath & "\" & kh_pic & "\" & CStr(MyRng) هنا نتاكد من ان اسم مجلد الملف مسار كامل اذا كان اسم الملف مسار كامل اكيد حيكون في النص النقطتين فوق بعض ":" InStr تبحث في النص kh_pic عن النقطتين وتعيد رقما عن مكانه في النص اذا كانت صفرا معناه ان الموجود اسم فقط وليس مسار في هذه الحالة حنستخدم مسار ملف الاكسل ============================================== الطلب الثاني If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then MyShap.Fill.UserPicture MyFile & Trim(Tp) ibo = True Dir من استخدامات FileSystem دالة تستخدم لمعرفة دليل الملف وخواصه If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then هنا نتاكد من وجود الصورة المسماة اذا كانت موجودة MyShap.Fill.UserPicture MyFile & Trim(Tp) نعبي الشكل التلقائي بهذه الصورة لو عملتها يدويا بهذه الخطوات من تنسيق الشكل التلقائي الوان وخطوط تعبئة اللون تاثيرات التعبئة صورة تحديد صورة ارجوا ان يكون شرحنا مفهوما لديكم ودمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 11, 2012 الكاتب مشاركة قام بنشر فبراير 11, 2012 السلام عليكم الاخ الفاضل Ahmed Elbhiry --------حفظه الله جزاك الله خيرا وبارك الله فيكم تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر فبراير 11, 2012 مشاركة قام بنشر فبراير 11, 2012 الاستاذ الفاضل عبدالله باقشير (ابوعلي) حفظه الله الشرح مفهوم ونصف لكن يلزمنا الوقت لاستيعابه شكراً لك على التكرو بالشرح المفصل رابط هذا التعليق شارك More sharing options...
ريان أحمد قام بنشر فبراير 12, 2012 مشاركة قام بنشر فبراير 12, 2012 السلام عليكم دالة روعة ومفهومة وسهلة الإستعمال شكرا أستاذي وجزاك الله كل خير لكن عندي ملاحظة بالنسبة للصورة من نوع جيف عند إدراج صورة متحركة لا تضهر كذلك فهل هذا ممكن رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر فبراير 13, 2012 الكاتب مشاركة قام بنشر فبراير 13, 2012 السلام عليكم دالة روعة ومفهومة وسهلة الإستعمال شكرا أستاذي وجزاك الله كل خير لكن عندي ملاحظة بالنسبة للصورة من نوع جيف عند إدراج صورة متحركة لا تضهر كذلك فهل هذا ممكن الصور المتاحة في الكود التي يقبلها الشكل التلقائي كتعبئة فقط شكرا جزيلا رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر فبراير 14, 2012 مشاركة قام بنشر فبراير 14, 2012 (معدل) اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء تم تعديل فبراير 14, 2012 بواسطه mohammadey1 رابط هذا التعليق شارك More sharing options...
asneet قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 2012 اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير رابط هذا التعليق شارك More sharing options...
mhrrd قام بنشر فبراير 16, 2012 مشاركة قام بنشر فبراير 16, 2012 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
قصي قام بنشر فبراير 28, 2012 مشاركة قام بنشر فبراير 28, 2012 السلام عليكم ورحمة الله وبركاته بارك الله فيك وغفر الله لك ولوالديك العلامة عبد الله رابط هذا التعليق شارك More sharing options...
أبو أنس حاجب قام بنشر أغسطس 13, 2012 مشاركة قام بنشر أغسطس 13, 2012 السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل عبد الله باقشير (أبا علي) حفظك الله وأكرم مدخلك في الفردوس الأعلى من الجنة. بلغك الله ليلة قدره وخواتم مباركة تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال ... بارك الله بك وفيك وجزاك كل خير ورضي عنك ربي. أبو أنس ناصر حاجب رابط هذا التعليق شارك More sharing options...
yasso-it قام بنشر يونيو 18, 2013 مشاركة قام بنشر يونيو 18, 2013 أستاذ خبور انا عضو جديد و عندي طلب لو سمحت أنا عندي صور موجودة في عدد من المجلدات ( حوالي 1200 مجلد ) أريد من هذه الدالة أن : تدخل إلى المجلدات و تسحب الصورة ، مثال : موقع الصورة الأولى : C:/folder1/Pic1 موقع الصورة الثانية: C:/folder2/Pic1 موقع الصورة الثالثة: C:/folder3/Pic1 وهكذا...إلخ فهنا إذاً المطلوب من ملف الإكسل أن يأخذ موقع الصورة من خلية أنا أقوم بتحديدها له هل هذا ممكن ؟؟؟ رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يونيو 18, 2013 الكاتب مشاركة قام بنشر يونيو 18, 2013 أستاذ خبور انا عضو جديد و عندي طلب لو سمحت أنا عندي صور موجودة في عدد من المجلدات ( حوالي 1200 مجلد ) أريد من هذه الدالة أن : تدخل إلى المجلدات و تسحب الصورة ، مثال : موقع الصورة الأولى : C:/folder1/Pic1 موقع الصورة الثانية: C:/folder2/Pic1 موقع الصورة الثالثة: C:/folder3/Pic1 وهكذا...إلخ فهنا إذاً المطلوب من ملف الإكسل أن يأخذ موقع الصورة من خلية أنا أقوم بتحديدها له هل هذا ممكن ؟؟؟ هذه الدالة تعمل مع مجلد واحد فقط يتم تحديده في كود الدالة تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو أنس80 قام بنشر أكتوبر 8, 2013 مشاركة قام بنشر أكتوبر 8, 2013 شي جميل جدا باك الله فيك رابط هذا التعليق شارك More sharing options...
ra--8i قام بنشر نوفمبر 7, 2018 مشاركة قام بنشر نوفمبر 7, 2018 السلام عليكم ورحمة الله وبركاته استاذنا القدير عبدالله باقشير اريدك خاص في هذا الموضوع بعد أذنك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان