logo

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



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





08-02-2020 02:41 صباحاً
السلام عليكم ورحمة الله وبركاته
كيف حالكم اساتذتنا الكرام ان شاء الله تكونو في احسن الاحوال
المسألة هي كيفية مقارنة اسم مركب من تاريخ وتكست للملف المفتوح
لدينا الخلية "C8" تحمل اسم الزبون مثلا جنان السبيل
لدينا الخلية "A8" تحمل قيمة تاريخ ثابتة مثلا 08-02-2020
لدينا الملف يحمل اسم الزبون + تاريخ مثلا جنان السبيل_08-02-2020
المطلوب كيف نكتب كود يفكك اسم الملف الى تاريخ والى تكست والعلامة الفاصلة بينهما هي "_"
الكود مفاده هو (IF)اذا كان اسم الملف مختلف عن قيمتي الخليتين "C8" و "A8"
=>(Then) اذا يحفظ الملف باسم القيمتين save as
(ElseIF)و اذا كان اسم الملف يساوي قيمتي الخليتين "C8" و "A8"
=> (Then)اذا يحفظ التغييرات بالملف فقط يعني save change
End If = هو الجواب لي حتشرفونا به يا غليين



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

زكاة العلم نشره
</pre>

look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
  08-02-2020 11:23 صباحاً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 486
الجنس :
الدعوات : 2
قوة السمعة : 1149
الاعجاب : 7
وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع النتائج المرجوة




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




look/images/icons/i1.gif كيفية كتابة كود يتحقق من اسم الملف المفتوح مع قيم خليتين
  08-02-2020 04:59 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 23-08-2017
رقم العضوية : 69
المشاركات : 164
الجنس :
تاريخ الميلاد : 1-1-1982
الدعوات : 1
قوة السمعة : 867
الاعجاب : 0
بعد ادن الاساتذة اليك المرفق
الماكرو يعمل اذا كان محتوى الخليتين c8 ; a8 غير مطابق لاسم الملف المفتوح يقوم بانشاء نسخة للملف ويسميه حسب الخليتين المذكورتين ويحفظها في نفس مسار الملف
اما في حالة التطابق يحفظ التغير فقط ولكن التغيير لايشمل الخليتين المذكورتين
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  محمد 2020.xlsm   تحميل xlsm مرات التحميل :(5)
الحجم :(21.157) KB





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

CODE


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 مرات التحميل :(4)
الحجم :(65.463) KB




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

زكاة العلم نشره
</pre>

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



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

زكاة العلم نشره
</pre>

اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
لا استطيع كتابة موضوع أبو عبد الرحمن
4 11 Yasser Elaraby
ترحيل بيانات من خلايا مختلفه من ملفات الى ملف واحد مع كتابة الملاحظات التى تخص ترحيل البيانات Lotfy
7 209 YasserKhalil
اصلاح كود للكتابة على الملف باللغة العربية عبدالرحمن صبحى
1 179 عبدالرحمن صبحى
كتابة البسملة والصلاة على النبي وجل جلاله بالتنسيق والتشكيل والخط الاحترافي الساحر NeT
5 1622 starta
اجبار التيكست بوكس بكتابة حروف معينه حبيبتى دائما
3 395 YasserKhalil

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









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

الساعة الآن 01:19 PM