عبدالله بشير عبدالله

السلام عليكم حقيقة الدحول الى الموقع اصبح بالصدفة قليل ما تجدة يعمل الكود سليم والمشكلة في تنسيق الأرقام قي صفخة table في العمودين b& e اذا اردتها بالأرقام العربية حسب ملفك فقم بتنسيقها الى [$-,201]# وان اردتها بالأرقام الغربية اجعل النتسيق رفم بدون خانات عشرية ملف بتنسيق الارقام العربية [$-,201]# مراقبة ثانوية 2026.xlsm ملف بتنسيق الارقام الغربية مراقبة ثانوية1 2026.xlsm

وعليكم السلام ورحمة الله وبركاته InputBox في VBA لا يدعم إخفاء النصوص أو إظهارها كنجوم بشكل مباشر. الحل هو استخدام UserForm مع TextBox خاصية PasswordChar طباعة.xlsm

الاسهم في ملفك لم تشمل الاحتياطي اليك الملف تكملة1 مراقبة 2026.xlsm

اذا كنت تقصد عمل كلمة مرور للزر في الفورم يمنع الدخول الى ملف الاكسل اليك طلبك كلمة المرور 1234 يمكنك تعديلها من الكود طباعة2.xlsm

السلام عليكم جرب الكود في الملف المرفق قم بكتابة رقم اللجنة في J2 فقط تكملة1 مراقبة 2026.xlsm

وعليكم السلام ورحمة الله وبركاته اليك التعديل طباعة1.xlsm

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

وعليكم السلام ورحمة الله وبركاته جرب الكود في الملف المرفق 1الجرد.xlsm

اعلم هذا وواضح بالملف وعملت في قطاع التعليم التقني والتوجيه الفني 39 سنة واعلم جيدا كيف عمل اللجان لم يكن الامر يتطلب كل هذا على كل حال عودة للملف اليك الملف بالتعديل الاخير مراقبة_ تحويل اللجان الى أسماء.xlsm

الملف الذي ارفقته فكرته واضحة وهو ليس بنفس فكرة ملفك تحويل اللجان الى اسماء لسبب بسيط ملقك الاخير تحويل الارقام الى اسماء كل اسم له رقم فريد بمعنى لا يحمله اسم اخر ملفك الاول تحويل اللجان الى اسماء الرقم يتكرر لاكثر من اسم تحويل المعادلات الى كود والكود لاستاذنا الفاضل عبدالله باقشير جعله الله في ميزان حسناته تحويل الارقام الى اسماء.xlsb

اليك ما طلبت بالتنسيق الشرطي aaaa2.xlsm

اليك التعديل حسب طلبك الاخير مع ملاخظة ان :- صفوف الأسماء تكون في الصفوف = 6، 8، 10، 12، 14… وهكذا وهي التي يتم تلوينها صفوف الرواتب او الاختيار من القائمة تكون في الصفوف= 7، 9، 11، 13، 15… وهكذا aaaa1.xlsm

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

ليس هناك ما يستوجب الاعتذار اخي العزيز كلنا اسرة واحدة بالمنتدى بالنسبة لي ساعة وانا احاول فهم الية تحويل الارقام الى اسماء المراقبين بالجدول الثاني ولم اصل الى نتيجة تتبعت الاسهم انت اخترت 4 من العمود C ومنها س7 . لماذا لم تختار 4 التي تحتها وتبقى س8 ؟ بمعنى ما المعيار الذي جعلك تختار 4 الاولى دون الثانية ؟ س5 في الفترة 7 في الجدول الايسر كيف جاءت ؟ الارقام في الاعمدة C و O ما هي ؟ هل هي فترات كما في في عناوين العمودين ؟ كتبت س1 الفترة الثانية امام س1 في العمود N في الجدول الثاني ارجو التوضيخ بالمختصر لم اجد رابط او معيار مشترك يجعلنى افهم الية فكرة التحويل ارجو شرح الفكرة بوضوح اكثر

السلام عليكم ورحمة الله وبركاته أخانا الفاضل، بلانك ملاحظة وُدّية بسيطة بخصوص عنوان مشاركتكم ، ونثق تمامًا أنها صدرت عن غير قصد. (عذراً للإخوة المشرفين على هذا التنويه، ولكن لمّا كان الأمر يخصّني قمت به من باب حرصنا على أن نكون أسرة واحدة في هذا المنتدى.) كل التقدير لتفهّمكم وتعاونكم المثمر دائمًا. قواعد المشاركة https://www.officena.net/Tips/Questions.htm بالنسبة للملف حقيقة لم افهم فكرة تحويل اللجان الى اسماء المراقبين بعد لذلك نأمل منكم : * اخفاء اي عمود ليس له علاقة بالتحويل وهل العمود N في الجدول الايسر والذي به اسماء المراقبين له علاقة بالتحويل ام ان العمود O والذي به ارقام اللجان هو المعتمد للتوزيع . * قم بارفاق ملف به عدد اربع او خمسة اسطر مكتوبة يدويا كاملة للفترات 9 بالجدول الايسر لفهم فكرة تحويل اللجان الى اسماء المراقبين . *اعتقد ان شيت DATA1 هو المطلوب فيه التحويل واعتقد ان القائمة المنسدلة ليس لها علاقة بالتحويل ارجو تاكيد الامر او نفيه. لك كل التقدير والاحترام

وعليكم السلام ورحمة الله وبركاته جرب هذا تسلسل ملئ بيانات الفورم1.xlsm

وعليكم السلام ورحمة الله وبركاته جرب الملف المرفق تسلسل ملئ بيانات الفورم.xlsm

وعليكم السلام ورحمة الله وبركاته خمل المرفق به مثال لتحويل نطاق نطاق معين محدد بالماوس الى pdf pdf1.xlsb

قمت بالتجربة الملف يعمل جيدا تاكد من الماكرو مفعل لوجود كود في حدث الورقتين لا توجد قائمة بل عليك الكتابة باي حروف للصنف

السلام عليكم ورحمة الله وبركاته بعد اذن استاذنا الفاضل hegazee وحسب فهمى لطلب الاستاذ الفاضل Alien يمكنك الكتابة بالحروف الاولى للصنف او اي جزء من حروف الصنف الملف به عدد 2 شيت وكل شيت طريقة حل Bookhisto (2) (4).xlsb

السلام عليكم لم توضخ خلية البحث G1 لها علاقة بالتوزيع ام لا فيكون التوزيع فردي ام للكل على كل حال الملف فيه عدد 2 شيت الاول شيت DATA يقوم بالتوزيع الفردي للمراقب وذلك بالاختيار من الخلية G1 الثاني شيت DATA1 به كود يقوم بتوزيع اللجان على كل المراقبين جرب الملف المرفق متمنيا ان يكون فيه طلبك ملاحظة1_2026.xlsm

السلام عليكم ورحمة الله وبركاته لا مشكلة اخي الفاضل جرب التعديل التالي sa1 (2).xlsb

السلام عليكم ورحمة الله وبركاته الان وضحت الفكرة بارك الله فيك تم عمل كمبوبوكس به اسماء الموظفين الازار المرقمة قي القورم اكوادها موحودة كما هي اعتقد بعد الكمبوبوكس لم تعد في حاجة اليها ان اردت الغائها فابلعنى جرب الملف وان كنت تحتاج الى تعديل في الفورم فابشر تحياتى لك حضور وخروج موظفين.xlsm 4495.xlsm

وعليكم السلام ورحمة الله وبركاته اليك الحل بطريقتين الاولى - بالتنسيق الشرطي Sheet1 اللون الاحمر =AND(A1<>""; OR(A2=""; A2=0)) اللون الاخضر =AND(A1<>""; A2<>""; A2<>0) الثانية - كود في حدث الورقة SHEET2 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:ZZ2")) Is Nothing Then Dim r As Range For Each r In Intersect(Target, Range("A2:ZZ2")) If r.Offset(-1, 0).Value <> "" Then If r.Value <> "" And r.Value <> 0 Then r.Offset(-1, 0).Interior.Color = vbGreen Else r.Offset(-1, 0).Interior.Color = vbRed End If Else r.Offset(-1, 0).Interior.ColorIndex = xlNone End If Next r End If End Sub الملف sa1.xlsb

اذا كنت تعنى بارفاق ملف العمل الملف السابق في مشاركتك الاولى النطاق A1-A20 به معادلة ترقيم وليس اسماء او اكواد موظفين وان كنت تعنى بارفاق ملف العمل ملف جديد اخر فلا يوجد اي ملف في ردك الاخير تحياتي