اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طلب مساعدة - ماكرو في موديول خارجى


الردود الموصى بها

كل عام وانتم بخير .. واريد الاستفسار عن فكرة اردت تطبيقها ولم استطيع ..
الفكرة انى اردت ان تكون اسماء Labels في حالة اذا كان الفورم متعدد اللغات يكون حسب قاعدة IF
( بمعنى اذا وجدت حرف A في الخلية المحددة ( في شيت محدد ) اجعل الاسماء كالتالى  (بالعربي) و اذا لم تجد اجعلهم كالتالى (بانجليزي) )
 
Private Sub UserForm_Activate()
Dim way As String
way = Sheets("Log").Range("K1")
'Me.ImgS.Visible = False
If way = "AR" Then
Me.lblMain.Caption = "اسم الموظف"
Me.lblSelect.Caption = عنوان الموظف"
Else
Me.lblMain.Caption = "Employee Name"
 Me.lblSelect.Caption = "Employee Address"
End If
End Sub
 
السؤال انه اختصارا للكلام اردت وضع هذا الكود في ماكرو خارجى واحد و اربطه على جميع الفورمات و لكن صادفنى مشكلة انه يجب كتابة اسم الفورم في الماكرو الخارجى حتى يستطيع الماكرو التعرف عليه
 
لجئت الى فكره اخرى في حالة ان اردت ان يكون الفورم متعدد اللغات وهى كالتالى :
Private Sub cmbSct_Change()
If cmbSct.Value <> "" Then
If NotNow Then Exit Sub
Vrange = "IEmployee"
Me.lblFN.Text = Application.VLookup(cmbSct.Value, Sheets("Log").Range(Vrange), 2, False)
Me.lblMN.Text = Application.VLookup(cmbSct.Value, Sheets("Log").Range(Vrange), 3, False)
Me.lblLN.Text = Application.VLookup(cmbSct.Value, Sheets("Log").Range(Vrange), 4, False)
Me.OptMl.Value = Application.VLookup(cmbSct.Value, Sheets("Log").Range(Vrange), 5, False)
 
حيث انى اقوم بكتابة الاسماء في الشيت و اجعل الفورم يبحث عنها و شيظهرها طبعا بغض النظر عن لغتها .. هذه الفكرة نجحت و الفائدة منها انها تتمكن من اى عدد من اللغات 
ولكن واجهت نفس المشكلة انى لو وضعت الكود فى ماكرو خارجى لكى يشتغل مع كل الفوورمات بناء على الكلمة اللى هيبحث عنها في كل فورم .. بس واجهنى مشكلة انى لازم اكتب اسم الفورم في الماكرو ولو كتبت اسم الفورم مش هيشتغل على كل الفورمات
 
ارجوا ان اكون قدرت اوضح الفكرة و هى ببساطة كيف اقدر اشغل ماكرو خارجى على كل الفورمات بدون ما اكتب اسم الفورم
 
اشكرك على سعة صدرك ووقتك واتمنى لو عندك الحل تشرحه لى لانى مؤمن ان في مجال البرمجة كل شئ ممكن بس احيانا بيكون الحل مش معروف
 
وكل عام وانتم بخير 
وشكرا
واسف ع الازعاج
رابط هذا التعليق
شارك

شكرا على اهتمامكم بالرد

 

مرفق مثال و المطلوب ان الكود يكون موجود خارج الفورم و يشتغل مع كل الفورمات كل  الفورمات

يتم نغيير لغة الفورم من لعربية الى الانجليزية عن طريق تغيير محتوى الخلية A1 في الشيت ( عربي AR و انجليزى EN )

 

وولكم جزيل الشكر

وكل عام و انتم بخير

 

 

مثال.zip

رابط هذا التعليق
شارك

السلام عليكم ..

هذه أول مرة أشارك في المنتدى 

وكنت اتوقع الاهتمام بالرد .. 

يبدو ان الموضوع صعب او ما بيتعمل ؟؟

عموما شكرا و جزاكم الله خير

رابط هذا التعليق
شارك

 

السلام عليكم ورحمة الله وبركاته

في الملف المرفق استخدمنا متغير معرف على مستوى الملف

ارجو ان يكون الحل مقبول

في امان الله

 

 

اخى الاستاذ الخالدى 

السلام عليكم

 

نعم هو الحل المطلوب .. فكرتك اكثر من رائعة و بصراحة كانت غائبة عنى

انا كنت يأس أن يتم حل هذه الاشكالية لانى سألت هذا السؤال من فترة و لم يرد على أحد

اشكرك جزيل الشكر

رابط هذا التعليق
شارك

اخى الكريم

السلام عليكم

 

انا حاولت ان اجعل الفكرة اكثر تعقيدا و ذلك بأن استخدم قاعدة With بدلا من VLookUP

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

وشكرا لحسن تجاوبك معى 

و السلام عليكم

مثال رقم 3.zip

رابط هذا التعليق
شارك

اخى الكريم

السلام عليكم

 

انا حاولت ان اجعل الفكرة اكثر تعقيدا و ذلك بأن استخدم قاعدة With بدلا من VLookUP

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

وشكرا لحسن تجاوبك معى 

و السلام عليكم

مثال رقم 4.rar

رابط هذا التعليق
شارك

أستاذنا العبقري / الخالدي

 

السلام عليكم ورحمة الله وبركاته

 

كل عام وحضرتك بخير وجزاك الله خيراً على هذا الإبداع جعله الله في ميزان حسناتك. لك كل التحية والتقدير.

رابط هذا التعليق
شارك

الاستاذ الخالدى

السلام عليكم

 

جزاك الله كل الخير على مجهوداتك الطيبة و حسن تعاونك و جعله الله في ميزان حسناتك

ولكن لى تعقيب وهو ان في المثال رقم 4  فأن القيم التى كانت تظهر في LBL لاتظهر بنفس طريقة ترتيبها بواسطة VLookUP

ارجوا من سيادتك التكرم بدراسة الكود لكى تظهر االقيم بنفس طريقة الترتيب 

واكرر شكرى لحسن تجاوبك حيث انك الوحيد المتجاوب معى رغم مشاغلك ووقتك الثمين

وشكرا

رابط هذا التعليق
شارك

 الاخ الاستاذ الخالدى 

السلام علبكم

 

مرفق صورة توضح الفرق في ترتيب البيانات التى تظهر على نفس الـ lbl بين طريقة Vlookup و With و المرجوا التكرم بالنظر فيها

 

ولا اخفي عليك سرا هو انى اريد ان استغل هذه السانحة للاستفادة من علمكم و خبرتكم 

فقد تبادر الى ذهنى سؤال عن امكانية عمل جمله For في حالة اختلاف عدد lbl من فورم الى اخر

وذلك بفرض ان كان عددها في الفورم الاول 4 lbl و في الفورم الثانى 5 lbl

 

و اشكركم على سعة صدركم

و السلام عليكم

post-23368-0-49932400-1413023737_thumb.j

post-23368-0-07923100-1413023784_thumb.j

رابط هذا التعليق
شارك

أستاذنا العبقري / الخالدي

 

السلام عليكم ورحمة الله وبركاته

 

كل عام وحضرتك بخير وجزاك الله خيراً على هذا الإبداع جعله الله في ميزان حسناتك. لك كل التحية والتقدير.

الاخت الكريمة والاستاذة الفاضلة / أم عبد الله

وعليكم السلام ورحمة الله وبركاته

كل عام وانتم بالف خير

شكرا لك وكل من مر على الموضع

تقبل الله منا ومنكم صالح الاعمال

في امان الله

رابط هذا التعليق
شارك

 الاخ الاستاذ الخالدى 

السلام علبكم

 

مرفق صورة توضح الفرق في ترتيب البيانات التى تظهر على نفس الـ lbl بين طريقة Vlookup و With و المرجوا التكرم بالنظر فيها

 

ولا اخفي عليك سرا هو انى اريد ان استغل هذه السانحة للاستفادة من علمكم و خبرتكم 

فقد تبادر الى ذهنى سؤال عن امكانية عمل جمله For في حالة اختلاف عدد lbl من فورم الى اخر

وذلك بفرض ان كان عددها في الفورم الاول 4 lbl و في الفورم الثانى 5 lbl

 

و اشكركم على سعة صدركم

و السلام عليكم

وعليكم السلام ورحمة الله وبركاته

في المرفق يتم تعبئة اي Label يبدأ اول ثلاثة احرف من اسمه بـ lbl

وتتم التعبئة من عمود البحث حسب الرقم في اخر اسم الـ Label

ارجو ان يكون المطلوب

  في امان الله

مثال رقم 5.rar

  • Like 2
رابط هذا التعليق
شارك

اخى الاستاذ الموقر الخالدى

 

عندما يجد المرء فرصة للمعرفة لايضيعها بسهولة و ان شاء الله سيكون نشرك للعلم صدقة جارية 

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

هلا يمكن مثلا دمج كائن اخر ولو كان مثلا CommanButon في الفورم و نريد ان نجعل له تسمية بنفس الفكرة

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

فكرة اخرى : في الكود المرفق فكرة عن المسح بطريقة مبتكرة على حد علمى ، كيف يمكن تطبيق هذه الفكرة و ماهى قواعد جعلها مقروؤه في كل الفورمات

 

كما انى ابحث واسئل عن المواضيع بطريقة جديدة وافكار مستحدثة

وربما يكون هنالك اخوان افاضل مثلى لن يفهموا الكود مباشرا دون شرح 

اعذرنى لانى اثقلت عليك .. وجعل الله نشرك للعلم صدقة جارية لك 

وشكرا

post-23368-0-35258500-1413138756_thumb.j

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information