بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 01/21/18 in all areas
-
هذه المعادلة في AE2 =IF(X2="","",IF(COUNTIF($AD$2:AD2,AD2)=1,Order_Salim(AD2),Order_Salim(AD2)&" مكرر : "&COUNTIF($AD$2:AD2,AD2)-1))2 points
-
السلام عليكم هذه طريقة خفيفة عملتها ، بحقل واحد ، ونستخدم فيه الخط بسطرين . . . بهذا الكود: Option Compare Database Dim i As Integer Dim A As String Private Sub Form_Open(Cancel As Integer) i = 0 Me.pr = "سيبدأ التحميل ..." End Sub Private Sub Form_Timer() 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) Me.lbl_Meter.Caption = A Me.pr = "تقدم مؤشر التحقق " & i & "%" i = i + 1 If i = 100 Then Me.TimerInterval = 0 DoCmd.Close acForm, Me.Name End If End Sub . وهناك بديل آخر في الكود بدل 'A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| A = A & ChrW(&H2590) اعمل A = A & ChrW(&H2588) 'Big Block 'A = A & Chr(124) '| 'A = A & ChrW(&H2590) . لتحصل على . . جعفر 888.مؤشر تحميل.mdb.zip2 points
-
السلام عليكم تم التعديل على معادلات عمود "المراتب" في ملف أخي سليم الأخير حتى لا يكون تجاوز لبعض الرتب في حالات تكرارات الرتب التي تسبقها... أرجو أن يكون هو المطلوب... بن علية حاجي tartib for printing salim.rar2 points
-
1 point
-
1 point
-
وعليكم السلام اخي @Shivan Rekany عمل هذه الهدية خصيصا لحاجتك انزل المرفق في هذا الرابط . الوحدة النمطية فيها ما تريد ، وعلشان تحصل على طلبك ، في السطر المؤشر عليه بالسهم ، احذف علامة ' اللي في اول السطر ، وسترى النتائج في اسفل الشاشة (انظر المربع الاحمر) ، والباقي عليك . . ولكن ، 60 هرتز او 75 هرتز لا علاقة لها بحجم الشاشة ، وانما هي لتحديث الشاشة ومنعها من الإهتزاز. جعفر1 point
-
اكيد احضرتك حذفت الكود التالي Sub DeletingShp() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete Next shp End Sub1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
استاذ شفان البرنامج نظيف وخالي من الفيروسات لكن يبدو ان الانتي فايروس microsoft security essentials غير مقتنع بعد يبدو ان الاحتمال الثاني هو الوارد "هو ان عملية اغلاق برنامج ما من ذاكرة الجهاز عن طريق ملف exe خارجي قد يعتبرها الانتي فايروس عملية تهديد بحد ذاتها"1 point
-
استاذي القدير شيفان واستاذي الكبير جعفر تحية طيبة لكم وبعد نعم استاذ شفان قد يتم اعتبار الملف تهديد وذلك بسبب استعمالي للـ UPX لضغط الملف الناتج كما في الصورة المرفقة او هنالك احتمال آخر وهو ان عملية اغلاق برنامج ما من ذاكرة الجهاز عن طريق ملف exe خارجي قد يعتبرها الانتي فايروس عملية تهديد بحد ذاتها لكني سارفق لك نفس البرنامج لكن بدون استعمال UPX ارجو منك فحصه لان ذلك سيساعدنا في تحديد الاحتمال الرئيسي لاعتبار الملف تهديد CloseMSAccess.zip اساتذتي الكرام ..الكود المستعمل هو كما موضح في الصورة التالية الملف يقوم على اغلاق الاكسس العالق في الذاكرة وقد تمت برمجته حسب طلب الاخ محمد القدسي صاحب الموضوع1 point
-
السلام عليكم ورحمة الله تم التعديل حسب ما تريد على المعادلات مع تبسيطها لأبسط شكل ممكن... أرجو أن تفي التعديلات ما تريده بالضبط... بن علية حاجي عداد بقرب انتهاء فترة عقد.rar1 point
-
استبدل الرقم 36 بالرقم 52 (الذي هو رقم الصف لاخر طالب في الجدول) في كل المعادلات بالنسية لدمج المرسلات انسخ البيانات المطلوبة الى صفحة اخرى و اجعل هذه الصفحة(الاخرى) مصدراً لدمج المرسلات الملف مرفق و هو يقوم اوتوماتيكياً بادراج المعادلات اللازمة حسب عدد الطلاب مع نسخ المعاومات المطلوبة الى الورقة 2 tartib for printing salim.rar1 point
-
1 point
-
1 point
-
سلام عليكم .. اشكركم على النقاش هذا.. الحقيقة عملت كل ما ذكرته استاذ تومي ولم يجدي نفعًا.. بدأت بدايةً بعمل علامة صح كما ذكرت.. وظهر لي بعدها أن هذا العامل المتواجد في عنصر البحث لا يصلح تماام الف شكر استاذ مصطفى بالفعل جابت نتيجة بس فيه حاجة تانية هل الكود دا مسموح بيه اقواس اخرى ولا فقط الاقواس () دي والف شكر1 point
-
وعليكم السلام أستأذن الأستاذ تومي بالإجابة لتفادي المشكلة، يرجى الانتباه أنه عند وضع علامة المؤشر بخانة استبدال حوِّلي نمط الكتاب إلى إنجليزي من تغيير اللغة، وبعد ذلك اكتبي ((\*)\) ولا تنسِ وضع علامة صح عند الاختيار (باستخدام احرف البدل) في مربع الحوار "بحث واستبدال". دمتم بخير1 point
-
الاخوه الكرام وجدت فى احد المنتديات هذه المعادله التى تقوم بتفقيط المبالغ فاردت ان تعم الفائده على الجميع تفقيط.rar1 point
-
كود لادراج اسماء أوراق العمل الموجودة بملف اكسل ( ادراجها مع عمل ارتباط تشعبي لها ) Option Explicit Sub ListAllSheets2() Dim sht As Worksheet Dim i As Integer i = 2 For Each sht In Worksheets i = i + 1 ActiveSheet.Hyperlinks.Add _ anchor:=Cells(i, 2), _ Address:="", _ SubAddress:=sht.Name & "!a1", _ TextToDisplay:=sht.Name Next sht End Sub ارتباط تشعبي.rar1 point
-
لتحديد ما بين قوسين في M.Word لعناصر سواء كانت ارقاما او حروفا او معا نقوم بفتح مربع الحوار "بحث واستبدال" فنكتب في مربع البحث عن : ((\*)\) ثم نضع المؤشر في خانة "استبدال بـ" ونغير حجم الخط من 14 الى 12 وهذا من زر تنسيق في مربع الحوار (خط) واخيرا ننقر على زر استبدال الكل. والسلام عليكم ورحمة الله وبركاته1 point
-
استاذ شفان طريقة عمل ملف وينرار محمي بكلمة سر طريقة غير مناسبة خصوصاً اذا ماكنا نريد ان نتعامل مع ما بداخل الملف المحمي من خلال الاكسس فقط كما اننا لانريد ان يتم استخراج محتوى الملف الى الجهاز مما يعرض المحتوى الى السرقة0 points