أبو هادي

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

السلام عليكم يوجد تقويم بالأكسل بإسم "تقويم المناسبات" ، قد يكون مناسبا . تحياتي .

السلام عليكم نسخة جديدة بعد إضافة عمود لتصنيف الحدث وذلك لتقليص دليل الألوان أسفل التقويم ، كما تمت تنقيحات عدة . تحياتي . EventsCalendar_20070118.rar

السلام عليكم سعدنا بعودتك أخي خضر والعود أحمد وسررنا برؤية إسمك من جديد وبعد غياب طويل فحمدا لله على السلامة . وكل عام وأنت بخير وأيامك سعيدة . تحياتي .

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

السلام عليكم أشكرك أخي بو يوسف الراشد بالإصالة عن نفسي ونيابة عن الأخ husam2004 على مشاركتك الكريمة وبعد إذنك أشاركك الحل . مشكلة الهوامش مشكلة عويصة وخصوصا أن هناك دائما حد أدنى للهامش لا يمكن إنقاصه عن طريق الخصائص ولكن أعتقد ولا أجزم أننا عن طريق الكود يمكن التغلب عليها ، فلنجرب هذا الكود : With Printer .LeftMargin = 10 .TopMargin = 10 .RightMargin = 0 .BottomMargin = 0 End With ولنضعه في حدث عند فتح التقرير وإن لم ينجح فجرب أن تضعه في قسم رأس الصفحة حيث هناك ثلاثة أحداث إبدأ بحدث عند الطباعة وإن لم ينجح جرب الحدثين الآخرين . تحياتي .

السلام عليكم كثير ما يشتكي المبرمجون من مشكلة كتابة الأكواد للقوائم كمصدر الـ List Box و Combo Box عند استخدام الفاصلة للفصل بين العناصر ، حيث يوجد هناك الفاصلة والفاصلة المنقوطة . لكن المشكلة لا تطول عند تجربة الأكواد على أجهزتهم التي يبرمجون عليها ، لكنها تكون مزعجة عند استخدام البرامج من المستخدمين حين تكون الفاصلة مختلفة في الإعدادات الإقليمية لأجهزتهم . وقد يكون المستخدم يعي المشكلة فيقوم بحل المشكلة بتبديل الفاصلة للإعدادات الإقليمية ولكن : - ماذا بشأن من لا يستطيع أن يشخص المشكلة ؟ - ماذا لو كان يستخدم أكثر من برنامج يختلف فيهم نوع الفاصلة ؟ والحل هو كيفية الحصول على نوع الفاصلة من الإعدادات الإقليمة حسب الكود التالي : Option Explicit Private Const LOCALE_USER_DEFAULT = &H400 Private Const LOCALE_SLIST = &HC Private Declare Function apiGetLocaleInfo Lib "kernel32" _ Alias "GetLocaleInfoA" (ByVal Locale As Long, _ ByVal LCType As Long, ByVal lpLCData As String, _ ByVal cchData As Long) As Long Function ListSeparator() As String Dim lReturn As Long Dim sSeparator As String sSeparator = Space(256) lReturn = apiGetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLIST, sSeparator, Len(sSeparator)) If lReturn <> 0 Then sSeparator = Left$(sSeparator, lReturn - 1) End If ListSeparator = sSeparator End Function ويمكن تجربة الدالة بهذا الإجراء البسيط : Sub Test() Dim MonthsList As String '-- MonthsList = "Jan" & "," & "Feb" MsgBox MonthsList, , "الفاصلة الإفتراضية للإنجليزي" '-- MonthsList = "Jan" & ";" & "Feb" MsgBox MonthsList, , "الفاصلة الإفتراضية للعربي" '-- Dim ls As String ls = ListSeparator MonthsList = "Jan" & ls & "Feb" MsgBox MonthsList, , "الفاصلة حسب الإعدادت الإقليمية" End Sub آمل أن ينتفع به . تحياتي .

السلام عليكم وصلة ذات صلة : http://www.officena.net/ib/index.php?s=&am...ost&p=65596 تحياتي .

السلام عليكم مرفق نسخة أحدث وجدتها بمنتدى أخي العزيز خضر الرجبي . تحياتي . ChangeOrientation20050706.rar

السلام عليكم الملف مرفق ، قد لا يكون موافقا لما طلبت تماما ولكن باعتقادي أنه مرضي . تحياتي . Elect_20061215.rar

السلام عليكم مرفق ملف آمل أن يفي بالمطلوب . تحياتي . TimeToYear_end.rar

السلام عليكم تحية لكم جميعا وبارك الله فيكم على جهودكم الواضحة : وصلة ذات صلة : http://www.officena.net/ib/index.php?s=&am...ost&p=57681 تحياتي .

السلام عليكم بكل تأكيد أخي رضوان سؤالك لا يخص مثال التعديل على الصور ، بل يخص برنامج خارطة الهلال . وسؤالك فلكي ويحتاج إلى قراءة ليست بالبسيطة لفهم المعايير المؤثرة في رؤية أهلة بداية الشهور وسأذكر ما يحضرني الآن على سبيل الإيجاز : 1 - "المكث" وهو الفترة مابين غروب الشمس وغروب الهلال . 2 - "العمر" وهو عمر الهلال منذ ولادته وحتى وقت غروب الشمس ليوم الإقتران أو الأيام التالية ليوم الإقتران . 3 - "الإرتفاع" وهو ارتفاع الهلال عن الأفق . 4 - "البعد" وهو البعد الزاوي بين مركزي الشمس والهلال . والألوان بالبرنامج تخص معيار يسميى بمعيار يالوب والمرمزة من A إلى F وهو معيار "معقد" يوضح امكانية رؤية الهلال . أما اللون الأحمر فهو يخص المعايير أعلاه من 1 إلى 3 حين لا يكون هناك مكث أو عمر أو ارتفاع ، ويبقى اللون الرمادي فهو للمواقع التي لا تستطيع المعادلات أن تعطي نتائج لها . علما أن البرنامج يعني بثلاثة أيام فقط أول كل شهر ابتداء من يوم الإقتران أو ولادة الهلال . لمزيد من المعلومات الفلكية تستطيع زيارة موقع جمعية الفلك بالقطيف . تحياتي .

السلام عليكم شكرا لك أخي محمد على اهتمامكم ومشاركتكم الكريمة . البرنامج يحتاج إلى ملف مكتبة واحد فقط في حال عدم تسجيله . الملف مرفق . سببه هو إخفاء الأكسس ، عطل الماكرو وجرب . تحياتي . FM20.rar

السلام عليكم شكرا لمرورك أخي الفاضل . افتح المثال باستخدام الشفت ثم قم بالتعديل على الكود حسب التعليمات بالمشاركة رقم 2 . تحياتي .