Xima Alfadni قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 كل عام وانتم بخير .. واريد الاستفسار عن فكرة اردت تطبيقها ولم استطيع .. الفكرة انى اردت ان تكون اسماء 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) حيث انى اقوم بكتابة الاسماء في الشيت و اجعل الفورم يبحث عنها و شيظهرها طبعا بغض النظر عن لغتها .. هذه الفكرة نجحت و الفائدة منها انها تتمكن من اى عدد من اللغات ولكن واجهت نفس المشكلة انى لو وضعت الكود فى ماكرو خارجى لكى يشتغل مع كل الفوورمات بناء على الكلمة اللى هيبحث عنها في كل فورم .. بس واجهنى مشكلة انى لازم اكتب اسم الفورم في الماكرو ولو كتبت اسم الفورم مش هيشتغل على كل الفورمات ارجوا ان اكون قدرت اوضح الفكرة و هى ببساطة كيف اقدر اشغل ماكرو خارجى على كل الفورمات بدون ما اكتب اسم الفورم اشكرك على سعة صدرك ووقتك واتمنى لو عندك الحل تشرحه لى لانى مؤمن ان في مجال البرمجة كل شئ ممكن بس احيانا بيكون الحل مش معروف وكل عام وانتم بخير وشكرا واسف ع الازعاج
عبدالله باقشير قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 وعليكم السلام من الافضل ارفاق ملف حتى يفهم المطلوب جيدا وتتم المعالجة فيه تحياتي 1
Xima Alfadni قام بنشر أكتوبر 3, 2014 الكاتب قام بنشر أكتوبر 3, 2014 شكرا على اهتمامكم بالرد مرفق مثال و المطلوب ان الكود يكون موجود خارج الفورم و يشتغل مع كل الفورمات كل الفورمات يتم نغيير لغة الفورم من لعربية الى الانجليزية عن طريق تغيير محتوى الخلية A1 في الشيت ( عربي AR و انجليزى EN ) وولكم جزيل الشكر وكل عام و انتم بخير مثال.zip
Xima Alfadni قام بنشر أكتوبر 4, 2014 الكاتب قام بنشر أكتوبر 4, 2014 السلام عليكم .. هذه أول مرة أشارك في المنتدى وكنت اتوقع الاهتمام بالرد .. يبدو ان الموضوع صعب او ما بيتعمل ؟؟ عموما شكرا و جزاكم الله خير
الخالدي قام بنشر أكتوبر 10, 2014 قام بنشر أكتوبر 10, 2014 السلام عليكم ورحمة الله وبركاته في الملف المرفق استخدمنا متغير معرف على مستوى الملف ارجو ان يكون الحل مقبول في امان الله مثال2.rar 5
Xima Alfadni قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 السلام عليكم ورحمة الله وبركاته في الملف المرفق استخدمنا متغير معرف على مستوى الملف ارجو ان يكون الحل مقبول في امان الله اخى الاستاذ الخالدى السلام عليكم نعم هو الحل المطلوب .. فكرتك اكثر من رائعة و بصراحة كانت غائبة عنى انا كنت يأس أن يتم حل هذه الاشكالية لانى سألت هذا السؤال من فترة و لم يرد على أحد اشكرك جزيل الشكر
Xima Alfadni قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 اخى الكريم السلام عليكم انا حاولت ان اجعل الفكرة اكثر تعقيدا و ذلك بأن استخدم قاعدة With بدلا من VLookUP ولكنها للاسف م اشتغلت معاى .. ممكن حضرتك تفيدنى بتصحيح الخطء في تركيب الصيغة وشكرا لحسن تجاوبك معى و السلام عليكم مثال رقم 3.zip
Xima Alfadni قام بنشر أكتوبر 10, 2014 الكاتب قام بنشر أكتوبر 10, 2014 (معدل) وشكرا تم تعديل أكتوبر 10, 2014 بواسطه Xima Alfadni
الخالدي قام بنشر أكتوبر 11, 2014 قام بنشر أكتوبر 11, 2014 اخى الكريم السلام عليكم انا حاولت ان اجعل الفكرة اكثر تعقيدا و ذلك بأن استخدم قاعدة With بدلا من VLookUP ولكنها للاسف م اشتغلت معاى .. ممكن حضرتك تفيدنى بتصحيح الخطء في تركيب الصيغة وشكرا لحسن تجاوبك معى و السلام عليكم مثال رقم 4.rar
أم عبد الله قام بنشر أكتوبر 11, 2014 قام بنشر أكتوبر 11, 2014 أستاذنا العبقري / الخالدي السلام عليكم ورحمة الله وبركاته كل عام وحضرتك بخير وجزاك الله خيراً على هذا الإبداع جعله الله في ميزان حسناتك. لك كل التحية والتقدير.
Xima Alfadni قام بنشر أكتوبر 11, 2014 الكاتب قام بنشر أكتوبر 11, 2014 الاستاذ الخالدى السلام عليكم جزاك الله كل الخير على مجهوداتك الطيبة و حسن تعاونك و جعله الله في ميزان حسناتك ولكن لى تعقيب وهو ان في المثال رقم 4 فأن القيم التى كانت تظهر في LBL لاتظهر بنفس طريقة ترتيبها بواسطة VLookUP ارجوا من سيادتك التكرم بدراسة الكود لكى تظهر االقيم بنفس طريقة الترتيب واكرر شكرى لحسن تجاوبك حيث انك الوحيد المتجاوب معى رغم مشاغلك ووقتك الثمين وشكرا
Xima Alfadni قام بنشر أكتوبر 11, 2014 الكاتب قام بنشر أكتوبر 11, 2014 الاخ الاستاذ الخالدى السلام علبكم مرفق صورة توضح الفرق في ترتيب البيانات التى تظهر على نفس الـ lbl بين طريقة Vlookup و With و المرجوا التكرم بالنظر فيها ولا اخفي عليك سرا هو انى اريد ان استغل هذه السانحة للاستفادة من علمكم و خبرتكم فقد تبادر الى ذهنى سؤال عن امكانية عمل جمله For في حالة اختلاف عدد lbl من فورم الى اخر وذلك بفرض ان كان عددها في الفورم الاول 4 lbl و في الفورم الثانى 5 lbl و اشكركم على سعة صدركم و السلام عليكم
الخالدي قام بنشر أكتوبر 11, 2014 قام بنشر أكتوبر 11, 2014 أستاذنا العبقري / الخالدي السلام عليكم ورحمة الله وبركاته كل عام وحضرتك بخير وجزاك الله خيراً على هذا الإبداع جعله الله في ميزان حسناتك. لك كل التحية والتقدير. الاخت الكريمة والاستاذة الفاضلة / أم عبد الله وعليكم السلام ورحمة الله وبركاته كل عام وانتم بالف خير شكرا لك وكل من مر على الموضع تقبل الله منا ومنكم صالح الاعمال في امان الله
الخالدي قام بنشر أكتوبر 11, 2014 قام بنشر أكتوبر 11, 2014 الاخ الاستاذ الخالدى السلام علبكم مرفق صورة توضح الفرق في ترتيب البيانات التى تظهر على نفس الـ lbl بين طريقة Vlookup و With و المرجوا التكرم بالنظر فيها ولا اخفي عليك سرا هو انى اريد ان استغل هذه السانحة للاستفادة من علمكم و خبرتكم فقد تبادر الى ذهنى سؤال عن امكانية عمل جمله For في حالة اختلاف عدد lbl من فورم الى اخر وذلك بفرض ان كان عددها في الفورم الاول 4 lbl و في الفورم الثانى 5 lbl و اشكركم على سعة صدركم و السلام عليكم وعليكم السلام ورحمة الله وبركاته في المرفق يتم تعبئة اي Label يبدأ اول ثلاثة احرف من اسمه بـ lbl وتتم التعبئة من عمود البحث حسب الرقم في اخر اسم الـ Label ارجو ان يكون المطلوب في امان الله مثال رقم 5.rar 2
Xima Alfadni قام بنشر أكتوبر 12, 2014 الكاتب قام بنشر أكتوبر 12, 2014 استاذى الكريم بجد جزاك الله كل الخير على كرمكم واكرر شكرى
Xima Alfadni قام بنشر أكتوبر 12, 2014 الكاتب قام بنشر أكتوبر 12, 2014 اخى الاستاذ الموقر الخالدى عندما يجد المرء فرصة للمعرفة لايضيعها بسهولة و ان شاء الله سيكون نشرك للعلم صدقة جارية خطرت في بالى درجة اخرى من الصعوبة و هو ان حضرتكم انشأئتم الماكرو الخارجى لاى عدد من lbl لاى فورم هلا يمكن مثلا دمج كائن اخر ولو كان مثلا CommanButon في الفورم و نريد ان نجعل له تسمية بنفس الفكرة ولكن المرجوا من سيادتكم شرح الماكرو في خطوات لكى نستفيد من الفكرة لانى بصراحة هنالك نقاط لم افهمها في الكود الرائع فكرة اخرى : في الكود المرفق فكرة عن المسح بطريقة مبتكرة على حد علمى ، كيف يمكن تطبيق هذه الفكرة و ماهى قواعد جعلها مقروؤه في كل الفورمات كما انى ابحث واسئل عن المواضيع بطريقة جديدة وافكار مستحدثة وربما يكون هنالك اخوان افاضل مثلى لن يفهموا الكود مباشرا دون شرح اعذرنى لانى اثقلت عليك .. وجعل الله نشرك للعلم صدقة جارية لك وشكرا
Xima Alfadni قام بنشر أكتوبر 13, 2014 الكاتب قام بنشر أكتوبر 13, 2014 للرفع و شكرا لمن يهتم بالاجابة على الموضوع
Xima Alfadni قام بنشر أكتوبر 15, 2014 الكاتب قام بنشر أكتوبر 15, 2014 للرفع - وشكرا على عدم التجاوب من الاخوة خبراء الاكسيل و المشرفين في هذا الصرح التعليمى العظيم
Xima Alfadni قام بنشر أكتوبر 20, 2014 الكاتب قام بنشر أكتوبر 20, 2014 للرفع مرة اخرى عسي ان يصادف اخ كريم يعلم الاجابة يجيب على اتساؤل - زكاه العلم نشره
Xima Alfadni قام بنشر أكتوبر 22, 2014 الكاتب قام بنشر أكتوبر 22, 2014 للرفع مرة اخرى عسي ان يصادف اخ كريم يعلم الاجابة يجيب على التساؤل
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.