-
Posts
602 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو عبدالله الصاري
-
وعليكم السلام ورحمة الله وبركاته g1 = Range("H13").Value غير من g1 الى g2 تحياتي
-
تفضل اخونا الفاضل New Microsoft Excel Worksheet (3).xlsx
-
معادلة استاذنا الفاضل ابراهيم الجداد سليمة 100% شيت.xlsx
-
كيفية التحكم في الشيت وتعديله مع ان الفورم يكون ظاهراً
عبدالله الصاري replied to Alaaq3's topic in منتدى الاكسيل Excel
-
حفظك الله اخي الفاضل ولك كل تقديري واحترامي
-
وعليكم السلام ورحمة الله وبركاته جرب هذه المحاولة تقارير.xlsm
-
1106650381_-(1).xlsm
- 1 reply
-
- 1
-
تعديل على كود لإخفاء الأعمدة (كشف حضور وغياب)
عبدالله الصاري replied to alliiia's topic in منتدى الاكسيل Excel
اخي الفاضل افادك الله كما افدتنا وجزاك الله كل خير الخطأ ليس لغوي بل برمجي فيجب ان تكون الكلمة متوافقة في القائمة المنسدلة في الخلية B2 مغ الكلمة الموجودة في الكود بمعنى مبسط اذا كانت كلمة أبريل في القائمة المسدلة بالفتحة فيجب ان تكون في الكود نفسها بالفتحة واذا كانت كلمةإبريل في القائمة المسدلة بالكسرةفيجب ان تكون في الكود نفسها بالكسرة واذا كانت كلمة ابريل بدون كسرة ولا فتحة فيجب ان تكون في الكود مثلها بمعنى التطابق التام في شكل اي كلمة بما في القائمة والكود حفظك الله ورعاك -
يمكنك تعطيل الماكرو من خيارات ومركز الثوتيق والدخول الى محرر الاكواد ومعرفة الرقم السري على كل حال جرب 1984
-
تعديل على كود لإخفاء الأعمدة (كشف حضور وغياب)
عبدالله الصاري replied to alliiia's topic in منتدى الاكسيل Excel
اولاأيوجد خطأ بالكود قم بتعديل كلمة إبريل الى أبريل بالكود بملفك كالتالي Case Is = "إبريل": kh_ColumnHidden "FC:FV" الى Case Is = "أبريل": kh_ColumnHidden "FC:FV" ثانيا لضمان الحقوق وكما اشرت في مشاركتى بالاعلي ان الكود من المنتدى وهو للعلامة اخونا من اليمن (وقاها الله وحفظ اهلها من الفتن والحروب ) الاستاذ عبدالله باقشير ثالتا ساحاول ان اشرح الكود الكود يتكون من جزء رئيسي وهو يتم اخفاء كل الاعمدة من العمود Gالى الى اخر عمود XFD بمعني اخفاء كل الاعمدة بالصفحة عد1 الخمسة الاعمده الاولي والتي بها الاسم وايام الحضور الخ Sub kh_ColumnHidden(ColumnAddres As String) ' الغاء اهتزاز الشاشة Application.ScreenUpdating = False ' الصفخة المراد تطبيق الكود عليها Sheets("الحضور والغياب").Select ' اخفاء الاعمدة من العمود G الى اخر عمودXFD Columns("G:XFD").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub بعد اخفاء جميع الاعمدة عدا الخمسة الاولي سنقوم باظهار الاعمدة التي نحتاجها If Not Application.Intersect(Range("B2"), Range(Target.Address)) Is Nothing Then Select Case Target.Value Case Is = "سبتمبر": kh_ColumnHidden "G:AB" Case Is = "أكتوبر": kh_ColumnHidden "AC:AW" Case Is = "نوفمبر": kh_ColumnHidden "AX:BS" Case Is = "ديسمبر": kh_ColumnHidden "BT:CO" Case Is = "يناير": kh_ColumnHidden "CP:DK" Case Is = "فبراير": kh_ColumnHidden "DL:EE" Case Is = "مارس": kh_ColumnHidden "EF:FB" Case Is = "أبريل": kh_ColumnHidden "FC:FV" Case Is = "مايو": kh_ColumnHidden "FW:GS" السطر الاول B2 وهي الخلية التي يتم اختيار الشهر منها Select Case Target.Value يتم اختيار الحالة (الشهر) حسب القيمة اي قيمة B2 Case Is = "سبتمبر": kh_ColumnHidden "G:AB" في حالة B2 تساوي ستمبر قم باظهار الاعمدة من "G:AB" فلو ذهبت الى شيت الحضور والغياب لوجدت شهر سبتمبر يبدأ من العمو د G وينتهي عند العمود AB وهكذا لبقية الاشهر اتمنى اني قدمت ما يفيدك -
تعديل على كود لإخفاء الأعمدة (كشف حضور وغياب)
عبدالله الصاري replied to alliiia's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله بركاته من خلال التجربة كود استاذنا الفاضل بن عليه سريع جدا اما طول الكود فتم اختصاره بكود من المنتدى وكما يقال كل الطرق تؤدي الى روما . فكود السيد بن عليه والكود المختصر يؤديان نفس النتيجة تحياتي كشف حضور وغياب1.xlsm -
جزاك الله خيرا واضح انك بذلت فيه جهذا كبيرا وكذلك مفتوح المصدر وفقك الله واكيد سيفيد من لهم اهتمام بالجمغيات الخيرية تحياتي ومزيد من التقدم والابداع
-
عمل باسورد اظهار شيت الاكسل مخفى على هيئه نجوم
عبدالله الصاري replied to abdelhmed's topic in منتدى الاكسيل Excel
وعليكم السلام ورحمة الله وبركاته هذا الموضوع به طلبك ان شاء الله https://www.officena.net/ib/topic/66864-استدعاء-فورم-عن-طريق-رقم-سري/#comment-434812 -
مبروك الأستاذ lionheart الترقية الى درجة خبير
عبدالله الصاري replied to Ali Mohamed Ali's topic in منتدى الاكسيل Excel
تستحقها عن جدارة الف مبارك وفقك الله -
بارك الله بك ولك اضعاف ما دعوت لي جرب الملف المرفق البرنامج الجديد 2021 (1) (12) (6).xlsm
-
وعليكم السلام ورحمة الله وبركاته قم بتظليل عمود التاريخ تم انقر الفارة اليمين تظهر قائمة منسدلة اختر منها تنسيق خلايا ثم من القائمة الاخرى اختر تاريخ بالنسبة لمعاينة الطباعة قم باستبدال كلمة PrintOut بـ PrintPreview بالكود تحياتي
-
قم بنغيير اسم الشيت كما افاد استاذنا عبد الفتاح
-
Sub COPYPASTE() ActiveCell.Copy Range("C9").Select Sheets("SHEET2").Select Range("C8").Select ActiveSheet.Paste End Sub
-
جسب فهمي لطلبك طبعا C9 خلية اللصق التابتة يمكنك تغييرها Sub COPYPASTE() ActiveCell.Copy Range("C9").Select ActiveSheet.Paste End Sub
-
اخي الفاضل لو قمت بالبحث بالمنتدى لوجدت حلا لطلبك كما اخبرك استاذنا الفاضل محمد صالح في المرفق التالي كود لطباعة الكل وطباعة اختيارية عن طريق الفورم وهذا الكود للعلامة الاستاذ عبدالله باقشير شهادة مرتب.xls
-
الملف بعد تحويل الى رقم SA2.xlsx
-
ارفق الملف حتى يتمكن الزملاء من معرفة سبب المشكلة
-
وعليكم السلام ورحمة الله وبركاته السبب هو الارقام الموجودة تم تخزينها الى نص ستجد في زواية الخلية علامة انقر عليها تظهر لك خيارات اختر تحويل الى رقم او يمكنك تضليل كل الخلايا والنقر عى العلامة في اول خلية واحتر تحويل الى رقم فيتم تحويلها كلها مرة واحدة شاهد الصورة المرفقة