نجوم المشاركات

السلام عليكم ورحمة الله وبركاته اهلا بيكم اخواني و أحبائي الكرام لقد اشتقت اليكم والى أرائكم المتميزة وخاصة خبراء المنتدى وعلى هذه الاطلالة الجميلة لقد عملت على برنامج مو برنامج كبير وانما فيه بعض المعدلات البرمجية البسيطة وهي جميلة جدا وموضوعها كيفية اشتغال أو اشتعال الأضواء المرورية و تنبهت الى أمر عندما كنت أقود السيارة ففكرت في أن أقوم بي تجربة عن كيفية عمل أضواء اشارات المرور بعد حساب الوقت أي الوقت انطلاق اشارة الأضواء المرورية و قمت بها على اكسل و أرجو من سيادتكم الكرام أن ينال اعجابكم و آ رائكم تهمنا الى أن أقوم بي اكتشاف برامج جميلة خفية لم تكن في حسبان أي أحد. وشكرا. ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @ exercice_feux_routiers.rar

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم حاليا أقوم بتطوير و زيادة مردودية الموقع بشكل ايجابي و أنا حاليا قمت بانشاء جدول ظريف فيه بعض البرامج جاهزة ولم يسعفني الحظ بي ارفاقها فأخرتها حتى يكون للأعضاء أهمية حول برمجة اكسل البرامج الجاهزة من 12.12.2017 من 20.12.2017 من 25.12.2017 من 29.12.2017 من 01.01.2018 الاحصاء الاحصاء الاحصاء الاحصاء الاحصاء الاحصاء اكسل يتحكم بي حاسوب اكسل يتحكم بي حاسوب اكسل يتحكم بي حاسوب اكسل يتحكم بي حاسوب اكسل يتحكم بي حاسوب اكسل يتحكم بي حاسوب COSP COSP COSP COSP COSP WFI WFI WFI WFI WFI WFI @كل الحقوق محفوظة 2017@ @كل الحقوق محفوظة للمبرمج : مناد سفيان@ كونو في الموعد معا نبني المستحيل و خاصة منتدانا العظيم أوفيسنا المزيد ثم المزيد كان معكم أخوكم في الله مناد سفيان من الجزائر. دمتم في رعاية الله وحفظه. ملاحظة : عند اقتراب حلول السنة الجديدة انشاء الله سأذهب الى قسم تصميم المواقع و قسم اكسس.

تعلم برمجة اكسل كود VBA كود دالفي مع دمج اكسل المبرمج مناد سفيان يرحب بكم قريبا مع المبرمج : مناد سفيان @كل الحقوق محفوظة 2017@

اخي حمادة شكرا على المرور الطيب طلباتك أوامر اتفضل الباسوورد 0774188429 أتمنى الدعاء لي فقط

اخي صديق شكرا على مرورك الجميل ووفقك الله

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

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

و عليكم السلام و رحمة الله و بركاته اخي العزيز ايمن نعم ممكن ذلك اليوم الاول من الاسبوع الاول : firstDayFirstWeek: DateSerial(Year(Date());Month(Date());1) اليوم الاخير من الاسبوع الاول : lastDayFirstWeek: DateSerial(Year(Date());Month(Date());1)+6 اليوم الاول من الاسبوع الثاني : firstDaySecondWeek: DateSerial(Year(Date());Month(Date());1)+7 اليوم الاخير من الاسبوع الثاني : lastDaySecondWeek: DateSerial(Year(Date());Month(Date());1)+13 اليوم الاول من الاسبوع الثالث : firstDayThirdWeek: DateSerial(Year(Date());Month(Date());1)+14 اليوم الاخير من الاسبوع الثالث : lastDayThirdWeek: DateSerial(Year(Date());Month(Date());1)+20 اليوم الاول من الاسبوع الرابع : firstDayFourthWeek: DateSerial(Year(Date());Month(Date());1)+21 اليوم الاخير من الاسبوع الرابع : lastDayFourthWeek: DateSerial(Year(Date());Month(Date());1)+27 بالتوفيق

نحن ھناک لکی نستفید من البعض تحیاتی لک اخوک شفان ریکانی

أخي الكريم صمم جدولا لتلك البيانات ثم استخدم Dlookup 'ضع الكود التالي في مصدر بيانات مربع النص =DLookUp(" [mrhla] ";"bayanat") ' حيث bayanat اسم الجدول ' mrhla اسم الحقل الذي به البيانات المطلوبة

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

تكوين قوائم فصول المدرسة هذا الملف من ابداع المحترم محمود الشريف .. وهو خاص بتكوين قوائم للفصول المدرسيه .. ولاأروع منه جزاه الله عنا كل خير وبارك له طريقه العمل مع الملف اضغط زر القيم الفريده ليجلب اسماء الفصول مرتبه اختر بعد ذلك الفصل الذي تريد استخراج قائمته من الخليه L1 ======================== تكوين فصول للمحترم محمود الشريف.rar ==== خطوط رائعه يمكن ان تضاف الى الجهاز لتجميل قائمه الفصل ================= خط.rar ========== رابط لخطوط غايه في الجمال والروعه https://up.top4top.net/downloadf-3206k2ma1-rar.html

بسم الله الرحمان الرحيم والصلاة والسلام علي سيدنا محمد اليوم سوف أقدم لكم برنامج مراقبة المبيعات العالمية هو خاص با الدول الأجنبية مثل المعاملات كا البترول و احصائيات نسبية في زيادة المردود منها الوارد والصادر حسب كل بلد أي كل بلد لديه نتائج المردودية المتحصل عليها .... أي استفسار حول هذا البرنامج فأنا تحت الخدمة ************************************************************************************ مــــواضيعـــي المتواضعــــة فــــــي المــــنتدي ) ************************************************************************************ سبحان الله و بحمده .. سبحان الله العظيم @ كل الحقوق محفوظة 2017 @ برنامج مراقبة المبيعات العالمية 20172018.rar

جيد أستاذ يوسف أتحفنا بإبداعاتك: أستأذنكم في المشاركة معكم بهذا الكود: كود اليوم الأول من الأسبوع الأول: "01/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الأول: "07/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثاني: "08/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثاني: "14/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الثالث: "15/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الثالث: "21/" & Format(Date();"mm/yyyy") كود اليوم الأول من الأسبوع الرابع: "22/" & Format(Date();"mm/yyyy") اليوم الأخير من الأسبوع الرابع: "28/" & Format(Date();"mm/yyyy")

اعتذر بشدة ... لم انتبهت على ذلك اتفضل اليك هذا استعلام SELECT CHECKINOUT.USERID, Max(CHECKINOUT.CHECKTIME) AS MaxOfCHECKTIME, [11].ID, [11].FristName, Max(Format([CHECKTIME],"dd/mm/yyyy")) AS DateIN, First(Format([CHECKTIME],"hh:nn:ss AM/PM")) AS TimeIN FROM 11 INNER JOIN CHECKINOUT ON [11].USERID = CHECKINOUT.USERID GROUP BY CHECKINOUT.USERID, [11].ID, [11].FristName HAVING (((Max(Format([CHECKTIME],"dd/mm/yyyy")))=[Forms]![ADSEmployees]![iDate2]) AND ((First(Format([CHECKTIME],"hh:nn:ss AM/PM"))) Between #12/30/1899 5:0:0# And #12/30/1899 9:59:59#)); TimeINOUT.zip

استخدم first في الاستعلام TimeINOUT.zip

جرب آخر تعديل 2_OK_الطبيب.rar

اتفضل تم استخدام هذا الكود =IIf(Len([المعدل] & "")=0;" ";IIf([المعدل]<50;"مكمل";"ناجح")) اليك المرفق student1.rar

اتفضل بحث باسم الصنف.rar

اکتب ھذا الشرط IF len(Me.Muaadal & "" ) <> 0 then ' هنا اكتب كودك Endif والا ارفع قاعدة بياناتك للتعديل عليه Muaadal ھو اسم مربع المعدل

عفواً استاذي الكبير فأنا تلميذك .. تحياتي لك

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

مشكور أخي الحبيب وبارك الله فيك معلومه مختصرة و جميلة وسهلة الاستخدام kanory@ أسأل الله أن يبارك في كل من القائمين على هذا المنتدى من مشرفين واعضاء

لاحظ هذه الصورة المشكل في الكود الذي عليه الإطار الأحمر و لاحظت أنه لا يوجد أي تغيير عند التعديل عليه بحذف الكلمة الأخير !Rajmsanf جرب أحذف هذه الكلمة مع علامة التعجب التي قبلها و لاحظ النتيجة

حلو اوصلت الي كمان فكره بطبقها عندي شكرا اليك

تفضل هذا الملف يلغيها بشكل دائم شغل هذا الملف مرة واحدة فقط.zip

ھذا الكود لفتح النموذج من اليسارك الاعلى الى يمينك للاسفل هذا عند فتح Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub وهذا في تايمر Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideHeight >= 3000 Then Me.InsideHeight = 4000 Me.InsideWidth = 4165 Me.TimerInterval = 0 End If End Sub وهذا الكود لفتح النموذج من يسارك الى يمينك عند الفتح Private Sub Form_Open(Cancel As Integer) Me.InsideWidth = 0 Me.TimerInterval = 100 End Sub عند تايمر Private Sub Form_Timer() Me.InsideWidth = Me.InsideWidth + 200 If Me.InsideWidth >= 4000 Then Me.TimerInterval = 0 Me.InsideWidth = 4165 End If End Sub وهذا من الاعلى الى الاسفل Private Sub Form_Open(Cancel As Integer) Me.InsideHeight = 0 Me.TimerInterval = 100 End Sub Private Sub Form_Timer() Me.InsideHeight = Me.InsideHeight + 200 If Me.InsideHeight >= 4000 Then Me.TimerInterval = 0 Me.InsideHeight = 4165 End If End Sub واليك 3 نماذج بثلاث طرائق ثلاث طرائق جميلة لفتح نماذج.rar

جرب هذه المعادلة =IF((N($E$8)*N($K$8))=0,0,IF(OR($D$2={14,16,18,20,25,32,35}),($D$2/1000)*60,""))

اخي وليد هل تريد عندما يكون احد الخليتين فارغة ان لا يكون الناتج 0 وفي معادلتك تظهر 1 حيث ان 0+1 = 1 حيث ان الدالة تستخدم في التقريب الي اقرب رقم صحيح بعد الكسر هل تريد ان يظهر ناتج الخلية المقربة مضافا اليها واحد بغض النظر عن فراغ احد الخلايا =IF(AND(K8<>"",E8<>""),CEILING((K8*E8),1)+1,IF(K8="",CEILING(E8,1),IF(E8="",CEILING((K8),1))))

تفضل =IF(OR(K8="",E8=""),0,CEILING((K8*E8),1)+1)

مجموعة أكواد جاهزة html بسم الله الرحمن الرحيمالسلام عليكم ورحمة الله وبركاتهاليوم جايب لكم مجموعة من الأكواد الجاهزة اللي راح تساعدكم في تصميم المواقع بلغة html وأروا أن يستفيد الجميع منها :-أكواد الhtml 1. جعل الصورة او الكلمة او جملة تتحرك <html><head><tilte><span lang="ar-sa">شبيه الريح 2002</span></title></head><body><marquee direction="right">هاااااااااااااي</marquee>يمكن إضافة خلفية لكلمة او كبر خطها نوعها و يمكن تحريكها بأشكالم مختلفةلوضع خلفية بلون <marquee background="red">جربه</marquee><marquee <font color="red" direction="right">ان شاء الله حلو</marquee>ملاحظة يمكن كتابة جميع هؤلاء داخل الكود<marquee <font color="red">باااااااااااااااي</marquee>2.كود زرين للامام وللخلف<form method="post"><input type="button"value="للخلف" onClick="gotoHist(-1)"><input type="button" value="للامام" onClick="gotoHist(1)"></form> 3. رسالة تظهر للزائر عندما يدخل لصفحتك<SCRIPT LANGUAGE="JavaScript"><!--window.alert("مرحبا بكم مع تحيات شبيه الريح 2002 بس ")// --></SCRIPT> 4. كود طلب ترشيح للموقعscript language="JavaScript"><!-- The JavaScript Source!! <a href="http://faam.8m.com.">function vote () {vote4alnadeem=window.open("http://www.arank.com/cgi-bin/rank/rankem.cgi?action=in&id=hamad999");} function cancel () {}if (confirm("هل ترشحنى لافضل مائه موقع عربى")) { vote();} else cancel()// --></script>5. كود لعداد رائع تستطيع وضعه في جميع صفحات مع ضرورة تغيير العنوان في كل مرة<img src="http://cgibin.erols.com/cgi-bin/Count.cgi?df=غير العنوان فى كل مره &ft=6&tr=N&dd=B&md=8">6. كود الشريط المتحرك<p align="center"><marquee bgcolor="#FFFFFF" width="468">شبيه الريح 2002</marquee></p>7. كود لإجبار المتصفح على عدم الاحتفاظ بصفحة مؤقتة و طلب الصفحة من الموقع فى كل مرة تزور فيها الصفحة.<META http-equiv="Pragma" content="no-cache">يتابع ... ::3:: 8. ضع خدمة القاموس (انجليزى-عربى) (عربى-انجليزى) فى موقعك<TABLE align=center cellSpacing=1 cellPadding=1 bgColor=#bbbbbb width=10% border=0><TD width=100% bgcolor=cccccc><FONT face='Verdana' color=#000000 size=2>Dictionary</font></td><TR><TD width=100% bgcolor=cccccc><Form Name='Search' method='POST' action='http://vbzoom.com/dictionary/index.php'><FONT face='Verdana' color=#000000 size=1><INPUT type='text' maxLength=50 size=20 name=FindWord><BR><input type=radio name=SearchMothod value=0 checked><B> Start Of Field </B><BR><input type=radio name=SearchMothod value=1><B> Any Part Of Field</B><BR><INPUT type=submit value='Find'></TD></form></TABLE>9.كود جالب اخبار جريدة الجزائر <iframe src="http://server1.الجزائر .com.sa/express/sitenews.asp?site=4852" width=250 height=25 frameborder=0 scrolling=no></iframe>10. لتغيير لون شريط التمرير في صفحة موقعك<STYLE>BODY {SCROLLBAR-FACE-COLOR: #808080; SCROLLBAR-HIGHLIGHT-COLOR: #eabc5a; SCROLLBAR-SHADOW-COLOR: #eabc5a; SCROLLBAR-3DLIGHT-COLOR: #FFFFFF; SCROLLBAR-ARROW-COLOR: #000000; SCROLLBAR-TRACK-COLOR: #c0c0c0; SCROLLBAR-DARKSHADOW-COLOR: #eabc5a}</STYLE>11. اليوم والتاريخ بصفحتك<script LANGUAGE="JavaScript"><!-- This script and many more are available online from --><!-- The JavaScript Source!! http://javascriptsource.com --><!-- Beginvar day="";var month="";var myweekday="";var year="";mydate = new Date();myday = mydate.getDay();mymonth = mydate.getMonth();myweekday= mydate.getDate();weekday= myweekday;myyear= mydate.getYear();year = myyearif(myday == 0)day = " الأحد, "else if(myday == 1)day = " الأثنين, "else if(myday == 2)day = " الثلاثاء, "else if(myday == 3)day = " الاربعاء, "else if(myday == 4)day = " الخميس, "else if(myday == 5)day = " الجمعة, "else if(myday == 6)day = " السبت, "if(mymonth == 0) {month = "يناير "}else if(mymonth ==1)month = "فبراير "else if(mymonth ==2)month = "مارس "else if(mymonth ==3)month = "ابريل "else if(mymonth ==4)month = "مايو "else if(mymonth ==5)month = "يونيو "else if(mymonth ==6)month = "يوليو "else if(mymonth ==7)month = "اغسطس "else if(mymonth ==month = "سبتمبر "else if(mymonth ==9)month = "اكتوبر "else if(mymonth ==10)month = "نوفمبر "else if(mymonth ==11)month = "ديسمبر "document.write("<b><font face=Arial size=3> " + day + " " + myweekday + " - " );document.write(month + " - "+ year + "</font></b>");// End --></script> 12.ارسل الموقع لصديق<!-- TWO STEPS TO INSTALL EMAIL THIS PAGE:1. Copy the coding into the HEAD of your HTML document2. Add the last code into the BODY of your HTML document --><!-- STEP ONE: Paste this code into the HEAD of your HTML document --><HEAD><SCRIPT LANGUAGE="JavaScript"><!-- Original: Ronnie T. Moore --><!-- Web Site: The JavaScript Source --><!-- This script and many more are available free online at --><!-- The JavaScript Source!! http://javascript.internet.com --><!-- Beginfunction initMail(form) {text = "Check out this page: " + window.location;form.message.value = "Hi" + form.sendto.value + " (" + form.to.value + "):\n\n"+ text + "\n\nYour Friend,\n" + form.sendername.value + "(" + form.senderemail.value + ")";return (form.to.value != "");}// End --></script></HEAD><!-- STEP TWO: Copy this code into the BODY of your HTML document --><BODY><center><form name=emailform method=post action="http://cgi.freedback.com/mail.pl" target="_new" onSubmit="return initMail(this);"><input type=hidden name=subject value="** Check Out This Site! **"><input type=hidden name=message value=""><table><tr><td colspan=2 align=center><b><font color="#FF00FF">ارسل الموقع لصيق</font></b></td></tr><tr><td><font color="#FF00FF"><b>اسم صديقك</b></font><b><font color="#FF00FF">:</font></b></td><td><font color="#FF00FF"><b><input type=text name=sendto size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">بريد صديقك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=to size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">اســــــــــمك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=sendername size="20"></b></font></td></tr><tr><td><b><font color="#FF00FF">بــــــــــريدك:</font></b></td><td><font color="#FF00FF"><b><input type=text name=senderemail size="20"></b></font></td></tr><tr><td colspan=2 align=center><input type=submit value="Ok!"></td></tr></table></form></center><p><center><p><a href="http://www.geocities.com/reo2003_eg">موقع شبي الريح 2002</a></p></center><p><!-- Script Size: 1.63 KB -->13.لمنع اعلانات النوافذ لمن يعاني من الاعلانات <!-- Start code //--><Script Language='Javascript'><!--eval(unescape('%66%75%6E%63%74%69%6F%6E%20%6F%70%6 5%6E%20%28%29%20%7B%72%65%74%75%72%6E%20%74%72%75% 65%3B%7D'));//--></Script>

بارك الله فيك

السلام عليكم تفضل أخي المرفق sumifs.rar

اخي ابو احمد جزاك الله خير على الرد ولكن الداله SUMPRODUCT ثقيله جدا على الجهاز سبق وان جربتها ولم يعجبني ادائها هلا حاولت بالداله sumifs فهي رائعه ولكن لم اجد حلا لعدم تعرفها على التاريخ اذا كان خارج المعادله

من حسن حظي ان اكون اول واحد يرد جزاك الله كل خير عمل متقن

اخي الكريم ازلت نسخة اوفيس 2007 والمشكلة لا تزال قائمة المشكلة ان نفس الجهاز يشغل برنامج اخر من اكسس لماذا هذا البرنامج بالذات لا يعمل كذلك هذا البرنامج يعمل في جهازي في العمل ولكن عندي في البيت لا يعمل شكرا