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

جرب تحديد.accdb

السلام عليكم 🙂 رجاء تجربة هذه النسخة 🙂 وللعلم ، برنامج الموبايل الذي ارفقته انت في احد مشاركاتك ، فلا يقرأ العربية بصورة صحيحة دائما ، ولذا يجب ان تتأكد اكثر من مرة !! جعفر zint QR 3.zip

جرب المرفق ووافينا بالنتيجة .... ‫‫امانات - نسخة_2_3.rar

أخي @mohamadhaje السلام عليكم ورحمة الله .... انظر هل هذه الحسبة صحيحة أم لا .....

يعطيكم العافية جميعا اسمحوا لي بمداخلة بنفس الطريقة اخي العزيز تستطيع التحديد والالغاء لتحديد الكل: CurrentDb.Execute "UPDATE L SET [Delchk] = true " Me.Requery وإلغاء التحديد: CurrentDb.Execute "UPDATE L SET [Delchk] = False " Me.Requery وتستطيع وضعها تحت نفس الزر مع بعض التغييررات لاسم الزر تحياتي لشخصك الطيب أستاذ عبد اللطيف القيمة نعم يتم تخزينها أصلا -1 والقيمة لا 0

ليس بين الجميع أعذار من منا لا يخطئ ويصيب ونحن تحت الأمر بما نستطيع

شغلك تمام ، بس !! 1. ما عندك عرض كافي ، فصغّر عرض الحقول ، 2. قلل من عرض مسافات اليمين واليسار في الطابعة ، 3. استعمل معاينة التقرير ، . 🙂 جعفر 1064.جعفر اوفسنا.accdb.zip

السلام عليكم ورحمة الله عذرا لقد تم النسخ خطأ فالكود يعمل لدى بكفاءة و لكن الكود التالى افضل و اسرع Sub FormatRows() Dim i As Long, x As Long, LR As Long Application.ScreenUpdating = False LR = Range("A" & Rows.Count).End(xlUp).Row If LR < 7 Then LR = 7 Else End If Range("A7:A" & LR).ClearContents i = 7 x = [C5].Value + 6 Do While i <= x Cells(i, 1) = i - 6 i = i + 1 Loop Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته اسهل طريقة أنشئ حقل في جدول L الخاص بك وليكن اسمه DelChk واجعل نوع البيانات فيه رقم والقيمة الافتراضية false الان اذهب الى النموذج الخاص بالجدول وهو عندك L وانشئ زر أمر وضع في الحدث الخاص به الكود التالي CurrentDb.Execute "DELETE * FROM L WHERE [delchk] = true" Me.Requery تفضل هذه قاعدتك عليها مطبق عليها ما ذكرت لك Delchkrecord.accdb

مبارك اخي @kaser906 تستحق هذا اللقب .... اعانك الله وسددك

أخى الكريم لا يصلح بالمعادلات اليك الكود تكتب اسم الشيت الذى تريده فى الخلية A1 ولكن المعادلات فقط لإيجاد واستخلاص اسم الشيت وكتابته فى خلية ما وليس العكس بارك الله فيك Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then ActiveSheet.Name = Target.Text End Sub

مشكلتك انك مقيد المعادلة فى صف واحد وهذه معادلة مصفوفة فبمجرد سحب المعادلة الى الأسفل فتحل المشكلة مهما زادت عدد الصفوف ولكن فى حالتك سوف تزود هذا الجزء من المعادلة &"و "&IFERROR(INDEX($B$8:$B$1000,SMALL(IF($F$8:$F$1000=$N$1,ROW($B$8:$B$1000)-ROW($B$8)+1),ROWS($O$3:O6))),"")

تفضل اخى الكريم عرض الاسماء في كل نطاق2.xlsx

وعليكم السلام تفضل اخى الكريم عرض الاسماء في كل نطاق.xlsx

تفضل اخى الكريم مواعيد المشاريع.xlsx

أول صفحة فى الملف بالمعادلات

وهو كذلك بالملف المرسل اليك فيه هذا الطلب

بسبب تاخرك فى الرد فقد تم حذفه اليك الشيت مرة اخرى-برجاء الإهتمام والرد تغيير اسم الخلية مع اسم الورقة.xlsm

تفضل شيت به ثلاثة طرق تغيير اسم الخلية مع اسم الورقة.xlsm

السلام عليكم، أرحب بكم الإخوة والأخوات الكرام. أقدم لكم اليوم عرض جديد من عروض البوربوينت، حيث يحتوي العرض على نص الجزء الثلاثون من القرآن الكريم، وتلاوة للقارئ الشيخ عبد الباسط عبد الصمد رحمه الله تعالى، وتفسير الجلالين، حيث يمتاز هذا التفسير بتقسيم الآيات عند الشرح وباختصار واضح. عدد الشرائح: 221 شريحة. حجم العرض: 16.31 ميجابايت. ملاحظة: هذا العرض قم بتصميمه بشكل فردي، فالخطأ وارد فيه؛ لذلك أرجو ممن يجد أي خطأ إبلاغي للتعديل، ولكم جزيل الشكر. للتحميل اضغط هنا

كود ممتاز استاذ سليم بعد اذن حضرتك ولإثراء الموضوع هناك حل أخر بالمعادلات فى العمود C يمكنك استخدام هذه المعادلة مع التغيير المطلوب فى كل معادلة =SUMPRODUCT(SUMIF(INDIRECT("'"&C$2&"'!"&"B2:B1000"),$B3,INDIRECT("'"&C$2&"'!"&"H2:H1000"))) Total.xlsm

الحمدلله 🙂 وشكرا ابا جودي على التجارب والمعلومة 🙂 اخوي محمد ، تابع معاي مثالي الجاي ، وبعدين نبحث عن البرنامج المناسب 🙂 جعفر

ممكن اضافة صورة من انظر الى اسمك بالاعلى و اضغط عليه وتوجه الى الملف الشخصى

السلام عليكم ورحمة الله وبركاته تمام بفضل تمت التجربة فى المنزل الان على ويندوز 7 نواة 64 بيت اوفيس 2019 نواة 32 بيت كلا المرفقان رقم 2 , رقم 3 يعملان جيدا ويتم قرأة العربية بنجاح وبخصوص البرنامج لم يصادفنى عدم قراءته للعربية بشكل صحيح من قبل استخدمه دائما فى العمل عندما اريد مجرد القراء للرموز بدلا من الذهاب الى المكتب واستخدام ماسح رموز الباركود وعلى كل انا شككت بالويندوز والاوفيس وقمت بتغيريهما شككت بالجوال او بالتطبيق وبحثت على الانترنت ووجدت الموقع الذى كنت اقوم بالتجربة من خلاله وهذه النسخة ليست مجانية انها النسخة المدفوعة الكاملة وعلى كل حال صدر تحديث بتاريخ 16/6/2019 اليكم النسخة الجديدة QR_&_Barcode_Reader_(Pro)_2.2.7-P.apk.zip

أحسنت استاذى الكريم تم المطلوب على اكمل وجه بفضل الله ثم بفضل حضرتك وابداعاتك استاذى الكريم جزاك الله كل خير واعتذر واتأسف دائما لإزعاج حضرتك فمن شيم الرجال العطاء دائما -بارك الله فيك ووسع الله في رزقك واكرمك الله كما اكرمتنى وفرج عنك كربات يوم القيامة كما فرجت علينا كرب الدنيا

عليكم السلام تفضل اخى الكريم كميات اسفلت.xlsx

بالنسبة للسؤال الثاني (حل لإزالة التنسيقات) هذا الكود Option Explicit Sub del_shapes() Dim x As Shape For Each x In ActiveSheet.Shapes x.Delete Next End Sub

اذا زاد عدد الصفحات تقوم بالتعديل في هذا القسم من الكود مع مراعاة ان تأخذ الــ K عدداً جديداً من 3 الى 3 + عدد الصفحات -1 في مثلنا عدد الصفحات (بدون الــ Total ) يساوي 3 ====> عدد الصفحات -1=2 ====> 3 + عدد الصفحات -1=5 ====> (اخذنا الــ K من 3 الى 5) Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select

جرب هذا الماكرو تم التعديل على الملف قليلاً لتصغير حجمه Option Explicit Sub Get_data() If ActiveSheet.Name <> "Total" Then Exit Sub Dim last_row% Dim k%, r Dim mY_sh As Worksheet last_row = Sheets("Total").Cells(Rows.Count, 2).End(3).Row Sheets("Total").Range("c3", Range("c4").End(4)).Resize(, 3).ClearContents Dim i%: i = 3 Dim x$ Dim col% Do Until Sheets("Total").Range("b" & i) = vbNullString For k = 3 To 5 x = Sheets("Total").Cells(2, k) Set mY_sh = Sheets(x) r = mY_sh.Range("b:b").Find(Sheets("Total").Range("b" & i)).Row Select Case x Case "Excursion": col = 8 Case "Shopping": col = 4 Case "Bonus": col = 3 End Select Sheets("Total").Cells(i, k) = mY_sh.Cells(r, col) Next i = i + 1 Loop Sheets("Total").Range("c3", Range("c4") _ .End(4)).Resize(, 4).NumberFormat = "0.00" End Sub الملف مرفق Total Salim.xlsm

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

استاذ @مسفر انت الاستاذ انا من يعتذر لاتعابك معي واظن ان الاخ عبد اللطيف اليوم جان مامركز لان سؤالة بسيط انت اجبت على الصعب

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

ان شاء الله اوصل المنزل واوافيكم بامر الله بالنتيجة

وبإمكانك ان تعمل التسلسل رقم 2 يكون تحت الرقم 1 ، هكذا : جعفر

وعليكم السلام 🙂 نعم يمكن 🙂 اجعل التقرير ضيق (بحيث انك تقدر ان تخلي تقرير ثاني جنبه) ، في التقرير ، اعدادات الصفحة ، الاعمدة ، عدد الاعمدة (خليه 2) ، وفي مشاركة كانت مع اخي @ابوخليل ، بس ما قدرت احصل عليها 😞 جعفر

الحمدلله 🙂 وفي انتظار انك تجربه على الكمبيوتر الاخر ، وتعطينا النتيجة 🙂 جعفر

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

وعليكم السلام 🙂 الحمدلله ، وحياك الله 🙂 ولما احاول اشرح للمبرمج ، ان البرنامج حدوده لخارج البرنامج ، وبرامج الكمبيوتر الاخرى ، فيكون رده الاستغراب !! لوسمحت تجرب هذا المرفق ، وتخبرنا عن النتيجة 🙂 جعفر zint QR 2.zip

الاستاذ / Ali Mohamed Ali شكرا جزيلا بارك الله فيك ، ربى يجعل لك فى دروب الحياة خير وفى دروب التعب راحة وفى دروب الحزن سعادة ** لدى تمنى أخير اريد عمل نتيجة البحث فى الصفوف بالاعلى مثل الهايبر ليك بحيث عند ظهور اى نتيجة والضغط عليها يتم استدعاء النتيجة بالجدول الاسفل مثل وظيفة ctrl+f هل استطيع طرح هذا الطلب كموضوع جديد ام اكمل على هذا الموضوع ؟

انا اسف استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr  اثقلت عليكم كثيرا كثيرا كثيرا يعلم الله تعالى مهما تقدمت اليكم بالشكر ستظل كلماتى وحروفى عاجزة أن تقدم اليكم ما تستحقون ورغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون الف شكر ( أستاذى الجليل و معلمى القدير و والدى الحبيب ( استااذ @jjafferr ) ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم شكر الله لكم واحسن الله اليكم وبشركم بخيرات الدنيا والاخرة اسال الله تعالى ان يرزقكم الفردوس الأعلى بصحبة النبيين والصديقين اسال الله تعالى لكم البركة قى العلم والعمر والعمل والاهل والولد

لا شكر على واجب فكلنا في المنتدي أخوة يكمل بعضنا البعض بارك الله فيك على كلماتك الرقيقة وتقبل تحياتي أخي الفاضل

ابا جودي ، جرب هاي ، وتصبح على خير (لأننا ما نقدر نعرف مشكلتك ، لذلك ما نقدر نجربها نحن 😞 ) 1. قم بحذف الصور من المجلد ، 2. بدل ShellWait ، استعمل Shell فقط ، 3. روح النموذج واعمل معاينه ، 4. سوف تحصل على خطأ من البرنامج ، ولكن لا عليك ، 5. روح لمجلد الصور ، وشوف اذا الموبايل يقرأ الصور 🙂 المشكلة عندك في Page Code لبرنامج cmd !! والظاهر ان نظام الوندوز 7 يختلف عن الوندوز 10 اللي عندي !! جعفر

استاذنا الفاضل / عبداللطيف سلوم جزاك الله عنا خير الجزاء .. هل بالامكان ارفاق نسخه تعمل علي اوفيس 2003

تفضل تم عمل التنسيق المطلوب في الملفين تنسيق شرطى للمكرر2.xlsx هوية.xlsm

الف شكر اخي لكن اريد أن تكون في خليه واحدة

من فضلك اكمل البيانات كى نستطيع عمل ما تريد فملف الإكسيل فارغ لا يوجد فيه بيانات لعمل المطلوب بارك الله فيك

وعليكم السلام أخي العزيز محمد الدسوقي في الحقيقة سأتناول نقطة واحدة فقط في الموضوع ، وهي تصدير الشهادات كلها إلى ملف PDF رابط الملف من هنا

السلام عليكم الاخ الكريم / إسلام الشيمي بارك الله فيك اليك اخي محاولة مني وتعديل طفيف علي كود القدير / عبد الله المجرب علي ملف الموجود بالمشاركة رقم 4# والخاص باغلاق الملف بعد فتحة 5 مرات اليك تعديل يجعل الملف يفتح لعدد 5 مرات وبعد ذلك لا يفتح الا بعد طلب رقم سري وان كان الرقم غير صحيحا يعمل علي اغلاق الملف وان كان الرقم صحيحاً تم الدخول للملف الرقم السري هو : 12345 وطبعا يمكنك تغييره كما تريد وذلك بتغييره في الكود نفسه وانتظر ردك بالنتيجة ... جزاك الله خيرا اغلاق ملف بعد فتحه 5 مرات وفتحه بعد ذلك برقم سري.rar

السلام عليكم الاخ الكريم / الصّارم اعتقد ان التالي به طلبك تماماً ولكن عذرا للاطالة فالموضوع ليس موضوعي ولكنه للقدير العبقري الاستاذ القدير / جعفر طرباق .... جزاه الله خيرا بعنوان ((( كيف نجعل الملف ينتحر و يحدف نفسه من الجهاز تلقائيا ! )))) ولكني احببت ان انقله كما هو ليستفيد منه الجميع بكل طرقه واشكاله ============================================= الكود ادناه يفعل ذلك من داحل الملف نفسه و يمكن ربطه مثلا بالحدث Workbook_BeforeClose و مسح الملف تلقائيا و نهائيا و من دون اشعار المستخدم. SuicidalWorkbook.rar Option Explicit Private Const MSG_TITLE As String = "Deleting Current Workbook ..." Private Const MSG_TEXT As String = _ "You are about to permanently delete the current workbook located in :" Sub Kill_Myself() Dim lUserDecision As Long Dim sMsg As String On Error Resume Next sMsg = "Attention !" & vbNewLine & vbNewLine sMsg = sMsg & MSG_TEXT & vbNewLine sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine Beep lUserDecision = _ MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE) With ThisWorkbook If lUserDecision = vbYes Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End If End With End Sub ====================================================== الكود التالي يحدف الملف بعد شهر واحد من اول استعماله تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Sub Workbook_Open() Dim lInitialDate As Long On Error Resume Next lInitialDate = Evaluate("InitialDate") If Err.Number = 13 Then Me.Names.Add "InitialDate", Date, False Me.Save End If If Date > Evaluate("InitialDate") + 30 Then Kill_Myself End Sub Private Sub Kill_Myself() .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود. ================================================================ الكود التالي يحدف الملف بعد 3 الستعمالات تلقائيا و بدون اشعار المستخدم ! ضع الكود في ThisWorkbook Module Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Kill_Myself End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ينصح اقفال الكود بباسوورد لمنع المستخدم من رؤية او حدف الكود ========================================================= الكود التالي يحذف الملف بعد دقيقة واحدة من فتحه : (ضع الكود في ThisWorkbook Module) Option Explicit Private Const TIMEOUT As Long = 1 Private Sub Workbook_Open() Application.OnTime _ Now + TimeSerial(0, TIMEOUT, 0), Me.CodeName & ".Kill_Myself" End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub ===================================================== حذف الملف ولكن باشعار المستخدم بذلك !!!! للتمكن من اشعار المستخدم و في نفس الوقت منعه تماما من اجهاض عملية حذف الملف , اقترح الكود التالي حيث يتم اشعار المستخدم بعد حذف الملف و ليس قبل : (الملف يحذف نفسه تلقائيا بعد 3 استعمالات و يشعر المستخدم بعد الحذف) Option Explicit Private Const MAX_USES As Long = 3 Private Sub Workbook_Open() Dim lNumberOfUses As Long On Error Resume Next lNumberOfUses = Evaluate("NumberOfUses") If Err.Number = 13 Then Me.Names.Add "NumberOfUses", 1, False Me.Save Exit Sub End If Me.Names.Add "NumberOfUses", Evaluate("NumberOfUses") + 1, False Me.Save If Evaluate("NumberOfUses") > MAX_USES Then Call NotifyUser Call Kill_Myself End If End Sub Private Sub NotifyUser() Dim sVbsFile As String sVbsFile = Environ("Temp") & "\VBS_MSG.vbs" Open sVbsFile For Output As #1 Print #1, "Dim Wb" Print #1, "On Error Resume Next" Print #1, _ "set wb=Getobject(" & Chr(34) & Me.FullName & Chr(34) & ")" Print #1, _ "MSG= ""You have exceeded the Maximum Number of uses of this file."" & vbnewline & vbnewline" Print #1, _ "MSG= msg & ""The file has been permanently deleted from your Drive !""" Print #1, "Do" Print #1, "Loop until wb.name=""""" Print #1, "WScript.Echo MSG" Close #1 Call Shell("WScript.exe " & sVbsFile) End Sub Private Sub Kill_Myself() With Me .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End With End Sub وارجو من الله ان يجعل فيها افادة ... وادعو للاستاذ القدير العملاق / جعفر ... جزاه الله خيرا جزاكم الله خيرا

ان كنت فهمت ما تقصد ، هذا الملف يمكن التحكم في فترة توقفه واختفاؤه ( حاليا 10 ثواني ) hide file.rar