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

السلام عليكم أخي الفاضل استعمل الدالة TRIM فهي دالة لإزالة المسافات الزائدة وترك مسافة واحدة فقط بين الكلمات

السلام عليكم احببت ان اسجل اعجابي بالفكرة والجهد الكبير الذي تبذله استاذ ياسر ===== وهذا الكود البسيط عشان ما تقولي ايدي فاضية ===== 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 الكود يقوم بحذف المكرر من القيم والابقاء على قيمة واحدة فقط ويعمل على مدى مفتوح ولا يقوم بحذف الصف بالكامل وانما يقوم بالحذف بطريقة الازاحة الى اعلى

بالفعل وهذا تعديل للمعادلة =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;"")

بإنتظار عكس التشفير اي ان يكون لدي تشفير بلغة SHA-1 وأريد تحويله الى نص

السلام عليكم محاولة للإجابة على لغز جدول متحرك ضع هذه المعادلة في الخلية 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;"")

السلام عليكم جربت المرفق ويعمل بصورة طبيعية

السلام عليكم ما شاء الله فكرة ذكية ...أعجبتني .....جزاكم الله خيرا تقبلوا تحياتي وشكري

تسلم إيدك بجد ،، جزاك الله خير

حياك الله اخي الفاضل ======= تمت الإجابة

جميل جداً تسلم إيدك

الكود سيصبح هكذا 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"

اليك هذه الروابط 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 وهناك المزيد بس انت اكتب في خانة البحث (الجداول المحورية) وستجد ما يسرك

ضع مرفق به ما تريد

هل تقصد http://www.officena.net/ib/index.php?showtopic=57388&p=364945

اليك الكود بعد التعديل 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

مكرر

اليك الكود اللازم لعمل ذلك 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

الف مبروك الترقية والي الامام بكل قوة وذادك الله علما فوق علمك لتكونه به نفعا لاخوانك في المنتدي العظيم بك وبامثالك ربنا يباركلك

ما شاء الله المتابعين كُثر سجل حضوري متابعاً =========== تم التثبيت للفائدة

قمت بعمل كود يعمل بالتغيير في خلية التاريخ لكن اصبح الملف ثقيلاً اثناء تنفيذ الكود الخلاصة خليك على المعادلات احسن

الاساتذة الافاضل ياسر خليل أحمد إبراهيم جعل الله ما تقدمونه في ميزان حسناتكم وشكراً

سلسلة جميلة شيقة مفيدة جداً جداً بارك الله فيك

السلام عليكم اعتقد ان الخطاء ناتج عن اعدادات اللغة في الويندوز جرب الاتي من Control Panel اذهب الى Region and Language قم بضبط اللغة واختر اللغة العربية وان شاء الله يتم عمل اللغة العربية والله اعلم

عندي مشكلة في بعض الطابعات ان الهامش الأسفل للورقة لا يُطبع كاملاً ما الحل

ارفقه في رابط خارجي في أي موقع للتحميل مثل http://www.gulfup.com/