بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
الصـقر
-
Posts
1836 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
21
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو الصـقر
-
اساتذتى الافاضل أ/ زيزو العجوز أ/ ياسر فتحى أ/ سعد عابد كل عام وانتم الى الله اقرب شرفنى مروركم العطر جزاكم الله خيرا تقبلوا تحياتى
-
اخى الكريم جرب المرفق تم تطبيق المطلوب حسب ما فهمت من طلبك هو طبعا هل مش احترافى قوى لكنه يؤدى الغرض تقبل تحياتى جديد الدوائر الحمراء.zip
-
اخى الحبيب انت تامر لو قدر استطاعتى ما اتاخر عنك تقبل تحياتى
-
اخى الكريم جرب هذه المعادله =IF(AND(K5>J5;K5<>"");"تم تجديد الاجازة";IF(AND(J5>=TODAY()-30;J5<TODAY());"تنبية باقى شهر لانتهاء الاجازة";IF(J5>=TODAY();"أنتهت الاجازه";""))) تقبل تحياتى
-
اخى الكريم استبدل الكود اللى بالمودويل بهذا الكود Option Explicit Public LeTexte1 As String Public LeTexte2 As String Public LeTexte3 As String Public LaCouleur As String Sub aa() Form1.Show End Sub Sub ParametresHtml() Form1.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='5' face='NEW'>" & _ "<marquee direction=right>" & LeTexte1 & "</marquee></font></body></html>" Form1.WebBrowser2.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='5' face='NEW'>" & _ "<marquee direction=right>" & LeTexte2 & "</marquee></font></body></html>" Form1.WebBrowser3.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='5' face='NEW'>" & _ "<marquee direction=right>" & LeTexte3 & "</marquee></font></body></html>" End Sub ما تم تعديله هذه الجزئيه باالكود "<marquee>" الى "<marquee direction=right>" فى الثلاث WebBrowser تقبل تحياتى
-
اخى الكريم مفيش ازعاج ولا شئ انا تحت امرك بخصوص طلبك المعادله لا تعطى اى نتيجة لانه لم يتحقق اى من الشروط المذكورة عموما جرب المعادله التاليه =IF(AND(K5>J5;K5<>"");"تم تجديد الاجازة";IF(J5>=TODAY()-30;"تنبية باقى شهر لانتهاء الاجازة";IF(J5>=TODAY();"أنتهت الاجازه";""))) تقبل تحياتى
-
استاذى الحبيب ابويوسف ما اروع لسانك العذب جزاكم الله خيرا أناقة وجمال لسانك هي ترجمة لأناقة وجمال روحك العطره التى ترى كل شئ جميلبصراحه كان بنيتى مناسبة المولد النبوى وليس العام الميلادى ولكن اعذرونى بقى انها جاءت متاخره لان قلت لازم اهنئكم بأى ابداع اكسلجى جديد فما أن انتهيت من تحضير الهديه رفعتها لكم بقالى اسبوع بفكر فى عمل اكسلجى اقدمه لكم يكون جديد الى ان هدانى ربى للفكره والعمل الذى قدمته لكم جزاكم الله خيرا وكل عام وانتم بخير تقبل تحياتى
-
اخى الكريم يجب حفظ الملف بصيغه Xlsm أو Xlsb تقبل تحياتى
-
اخى الغالى عبدالعزيز مرورك هو الاروع والاجمل دائما ما تضئ مشاركاتى بنورك تقبل تحياتى
-
اخى الحبيب ابوالبراء جزاكم الله خيرا خلى براء يشوف الملف اكيد هيضحك تقبل تحياتى
-
كل عام وأنتم بخير أسال الله تعالى ان يديم محبتنا فيه وعلى طاعته ورضاه أهنئكم بطريقه اكسليه ارجوا ان تنال اعجابكم أخوكم وتلميذكم الصقر كل عام وانتم بخير.zip
-
اخى الكريم ضع هذه المعادله فى الخليه P5 واسحبها نزولا لاسفل =IF(AND(K5>J5;K5<>"");"تم تجديد الاجازة";IF(J5=TODAY()-30;"تنبية باقى شهر لانتهاء الاجازة";IF(J5>=TODAY();"أنتهت الاجازه";""))) وجرب واخبرنى بالنتيجة تقبل تحياتى
-
استاذى الفاضل ابوالحسن فكرة الحل بالمعادلات الخاصه بى هى عمل عمود مساعد وهو العمود j وبدأ من الخليه j5 تم وضع المعادله التاليه =IF(AND(COUNTIFS(B6:$B$100000;"مشتريات";E6:$E$100000;$L$12;C6:$C$100000;">"&C5)<1;B5="مشتريات";E5=$L$12);1;"") ويجب سحبها لاسفل الى اخر صف به بيانات بالجدول ليكون اخر صف بالجدول مقابل له بالعمود j معادله ولو لاحظت المعادله هتلاقى فيها كلمة " مشتريات" فالمعادله لتقوم بمهمتها لابد من تحقق عدة شروط ومنها ان الخليه بالعمود B تكون كلمة " مشتريات" انا قمت باضافه صفوف اخرى جديده بالجدول وايضا تعديل صفوف قديمة من مبيعات الى مشتريات كانت النتيجة تمام ربما يكون ان حضرتك كتبت كلمة "مشتريات " حرف الياء كتب من الكيبورد "ى" ( اللى حرف N )وليس "يـ" (اللى هى عليها حرف D ) عدل فى اى صف بالجدول موجود به مبيعات عدله الى مشتريات واكتب حرف الياء "يـ" (اللى هى عليها حرف D ) هتلاقى النتيجة مظبوطه وانا ارى ان معادله الاخ ياسر خليل دام انها ظبت معك فهى افضل لانها لا تحتاج الى عمود مساعد على الرغم انى حاولت انسخها عندى واشوف نتيجتها ولم تظبط معى ربما يكون عيب فى النسخه عندى عموما معك كل الخيارات بالمعادلات وبالكود تقبل تحياتى
-
بعد اذن ابوالبراء اخى الحبيب جرب هذا الكود Private Sub UserForm_Initialize() Dim Zo% Dim ZH#, ZW#, AL#, AT#, AH#, AW# Dim FH!, FW! AH = Application.Height: AW = Application.Width AL = Application.Left: AT = Application.Top FH = Height: FW = Width ZH = AH - FH: ZW = AW - FW: Zo = Zoom If ZH < ZW Then Zo = Zo * (AH / FH) Else If ZW < ZH Then Zo = Zo * (AW / FW) Move AL, AT, AW, AH If Zo <> 100 Then Zoom = Zo End Sub تقبل تحياتى
-
استاذى الفاضل / ابوالحسن والحسين شاهد المرفق هل هو طلبك تقبل تحياتى آخر سعر بالكود.zip
-
استاذى الفاضل ابوالحسن اخر خليه بها معادله فى العمود j هى j28 لذالك يجب عند ادخال صفوف اخر سحب المعادله الى اخر صف به بيانات اما بخصوص طلبك الثانى سأحاول جاهد تنفيذ طلبك تقبل تحياتى
-
استاذى الحبيب ابويوسف جزاكم الله خيرا تقبل تحياتى
-
اخى الكريم لم افهم ما تريده جيدا ولكن اذا كنت تريد تحديد عدد اعمدة الليست بوكس فهذا يكون من خلال الخاصيه Column Count اكتبها بها 3 ستجد عدد اعمدة اليست بوكس 3 تقبل تحياتى
-
اخى الكريم زكى جرب المرفق هل هو ما تريد الحل هو مجرد تحايل على الاكسيل لان التعامل مع التاريخ الهجرى بالاكسيل شبه مستحيل يوجد حلول اخرى بالاكواد ولكن انا ارى ان هذا الحل بالمعادلات يفى بالغرض ملحوظه مهمه جدا يجب عند كتابتك للتاريخ ان يكون تنسيقه كالتالى 1437/05/01 يعنى اليوم والشهر يكون رقمين وليس رقم فلو كتبت التاريخ هكذا 1437/5/1 سيكون النتائج خطأ ويرجى تغيير اسمك الى العربيه طبقا لقواعد المنتدى تقبل تحياتى المطلوب دالة في كل شيت.zip
-
اخى الكريم اهلا بيك فى جامعه اوفيسنا يرجى من حضرتك ارفاق ملف فيما بعد وياريت تراجع التوجيهات بالمنتدى بخصوص طلبك بفرض ان الرقم 1254.21 فى الخليه A1 ضع هذه المعادله فى الخليه مثلا B1 =INT(A1) ستجد النتيجة 1254 وضع هذه المعادله فى الخليه مثلا C1 =MOD(A1;1) ستجد النتيجة 21. تقبل تحياتى
-
تفضل اخى الكريم شاهد المرفق تم اخد التاريخ بالاعتبار تقبل تحياتى New Microsoft Excel Worksheet.zip
-
ما الفرق بين امتداد وايهما افضل xlsb ، xlsx ، xlsm
الصـقر replied to عبد الله السعيد's topic in منتدى الاكسيل Excel
الاخ الكريم عبدالله لو استخدمت خاصيه البحث لوفرت لنفسك وقت اكبر من الانتظار راجع الرابط التالى به طلبك http://www.officena.net/ib/topic/64488-الفرق-بين-امتدادات-الاكسيل/?do=findComment&comment=419595 تقبل تحياتى- 1 reply
-
- 1
-
-
بعد اذن استاذى زيزو العجوز واستاذى ابوالحسن الاخ الكريم جرب المرفق تم عمل معادلات بالعمود j اسحبها نزولا لاسفل الى اخر بيانات بالجدول بتاعك وشاهد النتيجة بالخليه n12 تقبل تحياتى New Microsoft Excel Worksheet.zip
-
عمل برنامج حضور وانصراف تم عمل 60 بالمئة من البرنامج ولم اجد حل
الصـقر replied to أبو قاسم's topic in منتدى الاكسيل Excel
اخى الكريم هو ليه حضرتك كاتب الاسماء فى العمود Ti ؟؟ وليه تارك الخليه Ti2 فارغه ؟؟؟؟ على الرغم من تعجبى لطلبك وعدم فهم المقصد منه و لكن شاهد المرفق تقبل تحياتى حضور وانصراف1.zip -
تكملة كود لمسح محتويات خلايا نطاق محدد
الصـقر replied to محمد عبد الناصر's topic in منتدى الاكسيل Excel
تفضل اخى الكريم هل هذا ما قصد sheet4.Range("a5:m1000").ClearContents تقبل تحياتى