اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

عبدالله المجرب

أوفيسنا
  • Posts

    5,409
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

كل منشورات العضو عبدالله المجرب

  1. السلام عليكم أخي الفاضل استعمل الدالة TRIM فهي دالة لإزالة المسافات الزائدة وترك مسافة واحدة فقط بين الكلمات
  2. السلام عليكم احببت ان اسجل اعجابي بالفكرة والجهد الكبير الذي تبذله استاذ ياسر ===== وهذا الكود البسيط عشان ما تقولي ايدي فاضية ===== Sub Abu_Ahmed_Del() LR = [A1000].End(xlUp).Row For i = LR To 1 Step -1 If Application.CountIf(Range("A1:A" & LR), Cells(i, 1)) > 1 Then Cells(i, 1).Delete Shift:=xlUp Next End Sub الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط ويعمل على مدى مفتوح ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى
  3. بالفعل وهذا تعديل للمعادلة =IF(AND(ROWS($A$1:$A1)<=$J$2;COLUMNS($A$1:A$1)<=$K$2);ROWS(A$4:A4)+(COLUMNS($A4:A4)-1)*$J$2;"")
  4. بإنتظار عكس التشفير اي ان يكون لدي تشفير بلغة SHA-1 وأريد تحويله الى نص
  5. السلام عليكم محاولة للإجابة على لغز جدول متحرك ضع هذه المعادلة في الخلية B4 ثتم إسحب الى الأسفل والى اليسار =IF(AND(ROWS($A$1:$A1)<=$J$2;COLUMNS($A$1:A$1)<=$K$2);COUNTA(A$4:A4)+(COUNTA($A4:A4)-1)*$J$2;"")
  6. السلام عليكم جربت المرفق ويعمل بصورة طبيعية
  7. السلام عليكم ما شاء الله فكرة ذكية ...أعجبتني .....جزاكم الله خيرا تقبلوا تحياتي وشكري
  8. حياك الله اخي الفاضل ======= تمت الإجابة
  9. الكود سيصبح هكذا Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "TEST-1.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close End If End Sub وهنا يتم تعديل اسم الملف MyFlName = "TEST-1.xls"
  10. اليك هذه الروابط http://www.officena.net/ib/index.php?showtopic=51013 http://www.officena.net/ib/index.php?showtopic=150 http://www.officena.net/ib/index.php?showtopic=15722&amp;hl= http://www.officena.net/ib/index.php?showtopic=40690 وهناك المزيد بس انت اكتب في خانة البحث (الجداول المحورية) وستجد ما يسرك
  11. ضع مرفق به ما تريد
  12. هل تقصد http://www.officena.net/ib/index.php?showtopic=57388&p=364945
  13. اليك الكود بعد التعديل Sub hhh() Dim aa As Range, bb As Range, cc As Range, dd As Range, ee As Range, ff As Range, gg As Range, MyDate As String, MyDate2 As String Set aa = Range("sumrange") Set bb = Range("criteria") Set cc = Range("range1") Set dd = Range("criteria1") Set ee = Range("range2") Set ff = Range("range3") MyDate = ">=" & CDate(cc) MyDate2 = ">" & CDate(ff) For i = 3 To [A10000].End(xlUp).Row Cells(i, 2) = Application.SumIfs(aa, bb, MyDate, dd, Cells(i, 1)) - Application.SumIfs(aa, bb, MyDate2, dd, Cells(i, 1)) Next Set aa = Nothing Set bb = Nothing Set cc = Nothing Set dd = Nothing Set ee = Nothing Set ff = Nothing End Sub
  14. اليك الكود اللازم لعمل ذلك Sub Macro2() Dim MyFind As String, MyReplac As String MyFind = InputBox("ضع كلمة البحث", "MyFind") MyReplac = InputBox("ضع كلمة الإستبدال", "MyReplac") Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = MyFind .Replacement.Text = MyReplac .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Selection.Find.Execute Replace:=wdReplaceAll End Sub
  15. الف مبروك الترقية والي الامام بكل قوة وذادك الله علما فوق علمك لتكونه به نفعا لاخوانك في المنتدي العظيم بك وبامثالك ربنا يباركلك
  16. ما شاء الله المتابعين كُثر سجل حضوري متابعاً =========== تم التثبيت للفائدة
  17. قمت بعمل كود يعمل بالتغيير في خلية التاريخ لكن اصبح الملف ثقيلاً اثناء تنفيذ الكود الخلاصة خليك على المعادلات احسن
  18. الاساتذة الافاضل ياسر خليل أحمد إبراهيم جعل الله ما تقدمونه في ميزان حسناتكم وشكراً
  19. السلام عليكم اعتقد ان الخطاء ناتج عن اعدادات اللغة في الويندوز جرب الاتي من Control Panel اذهب الى Region and Language قم بضبط اللغة واختر اللغة العربية وان شاء الله يتم عمل اللغة العربية والله اعلم
  20. عندي مشكلة في بعض الطابعات ان الهامش الأسفل للورقة لا يُطبع كاملاً ما الحل
  21. ارفقه في رابط خارجي في أي موقع للتحميل مثل http://www.gulfup.com/
×
×
  • اضف...

Important Information