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

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


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


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





كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين

السلام عليكم ورحمة الله وبركاته كيف حالكم اساتذتنا الكرام ان شاء الله تكونو في احسن الاحوال المسألة هي كيفية مقارنة اسم ..



08-02-2020 02:41 صباحا
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 61
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 131
الاعجاب : 2
 offline 
السلام عليكم ورحمة الله وبركاته
كيف حالكم اساتذتنا الكرام ان شاء الله تكونو في احسن الاحوال
المسألة هي كيفية مقارنة اسم مركب من تاريخ وتكست للملف المفتوح
لدينا الخلية "C8" تحمل اسم الزبون  مثلا جنان السبيل
لدينا الخلية "A8" تحمل قيمة تاريخ ثابتة مثلا 08-02-2020
لدينا الملف  يحمل اسم الزبون 
+  تاريخ   مثلا  جنان السبيل_08-02-2020
المطلوب كيف نكتب كود يفكك اسم الملف الى تاريخ والى تكست والعلامة الفاصلة بينهما هي "_"
الكود مفاده هو (IF)اذا كان اسم الملف مختلف عن قيمتي الخليتين  "C8" و "A8"
=>(Then) اذا يحفظ الملف باسم القيمتين  save as
(ElseIF)و اذا كان اسم الملف يساوي قيمتي الخليتين   "C8" و "A8"  
=>  (Then)اذا  يحفظ التغييرات بالملف فقط يعني save change
End If = هو الجواب لي حتشرفونا به يا غليين


 



توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


08-02-2020 11:23 صباحا
مشاهدة مشاركة منفردة [1]
أحمد يوسف
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 416
الجنس : ذكر
الدعوات : 1
قوة السمعة : 753
الاعجاب : 1
 offline 
look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة




08-02-2020 04:35 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8555
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25169
الاعجاب : 53
 offline 
look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
يمكن استخدام الدالة Split للفصل بين أجزاء النص بناءً على فاصلة معينة ..
الأفضل إرفاق ملف ومثال لشكل النتائج المتوقعة .. 




08-02-2020 04:59 مساء
مشاهدة مشاركة منفردة [3]
حسين مامون
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 110
الجنس : ذكر
تاريخ الميلاد : 1-1-1982
قوة السمعة : 393
الاعجاب : 7
 offline 
look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
بعد ادن الاساتذة اليك المرفق 
الماكرو يعمل اذا كان محتوى الخليتين c8 ; a8 غير مطابق لاسم الملف المفتوح  يقوم بانشاء نسخة للملف ويسميه حسب الخليتين المذكورتين ويحفظها في نفس مسار الملف
اما في حالة التطابق يحفظ التغير فقط ولكن التغيير لايشمل الخليتين المذكورتين

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

 
 
 
  محمد 2020.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(21.157) KB





09-02-2020 04:50 صباحا
مشاهدة مشاركة منفردة [4]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 61
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 131
الاعجاب : 2
 offline 
look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
بارك الله فيك وجزاك الله كل خير حسين مامون على الرد الجميل رغم انني توصلت للحل في الصباح وكنت انوي مشاركته معكم لتعم الفائدة لكنني وجدت ان المنتدى لديه مشكلة في الاستضافة ونحمد الله ان ادارة هذا المنتدى لديها باك اب للمنتدى
وهذا هو الحل الذي توصلت اليه


Sub B_Enregistrer_Commande()
Dim path As String

NWK = Range("C8").Value & "_" & Range("A8").Value & ".xlsm"
path = Application.ActiveWorkbook.path & ""
If Range("A8").Value = "" Then
   Range("A8").Value = Format(Date, "dd-mm-yyyy")
End If
If Range("C8").Value = "" Then
     MsgBox ("ATTENTION, vous n'avez pas tape un Prenom du client !")
     Range("C8").selecte
      ActiveCell.FormulaR1C1 = ""
End If
If Range("C8").Value <> "" And Range("A8").Value <> "" And ThisWorkbook.Name = NWK Then
ActiveWorkbook.Save
ElseIf Range("C8").Value <> "" And Range("A8").Value <> "" And ThisWorkbook.Name <> NWK Then
ChDir path
ActiveWorkbook.SaveAs path & NWK, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
 MsgBox ("La Commande a ete sauve !")
End If
    End Sub


 
 
  جنان السبيل 3 _02-08-2020.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(65.463) KB




توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره


09-02-2020 05:00 صباحا
مشاهدة مشاركة منفردة [5]
جنان السبيل
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-01-2020
رقم العضوية : 17616
المشاركات : 61
الجنس : ذكر
تاريخ الميلاد : 1-1-1996
قوة السمعة : 131
الاعجاب : 2
 offline 
look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
السلام عليك الان اخواني اريد ادا تكرمتم بتطوير هذا الكود اذا قارن الكود اسم الملف مع محتوى الخليتين ووجدهما متساويين يعطينا ميساج بوكس يقول لنا فيه هل تود حفظ التغييرات اضغط على نعم او تود اضافة رقم اثنان لاسم زبون مثلا جنان السبيل 2 ويقوم بانشاء نسخة من الملف ويصبح الاسم مثل  جنان السبيل 2 _09-02-2020




توقيع :جنان السبيل

يتم اكتساب المعرفة من خلال التجربة ، كل شيء آخر هو مجرد معلومات.
البرت اينشتاين

زكاة العلم نشره




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
برنامج SmartEdit Pro for Word للكتابة عالوورد بشكل احترافي بكار للأبد
4 555 Marioteet
كتابة جدول مرتب ابجدياً salim
5 143 salim
كيفية الترحيل الى خلية مسماة بدل كتابة رقم الصف والعمود فى كود اليوزر فورم toytotan
6 221 toytotan
كيفية البحث في الشيتات الموجودة داخل ملف الاكسل بدلالة عدة شروط مع كتابة اسم الشيت في خانة العميل alhady
1 760 alhady
كتابة المعادلات بواسطة vba - application- formula احمد شريف
5 275 salim

الكلمات الدلالية
كيفية ، يتحقق ، الملف ، المفتوح ، خليتين ،


 







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

الساعة الآن 01:44 مساء

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