عبدالرحمن هاشم

السلام عليكم ورحمة الله الرجاء أريد أن يعمل هذا الكود مع شيت معين فقط أو شيتات مختارة وليس كل الشيتات الموجودة بالملف لان onedit تعمل على كل الشيتات في جوجل شيت ولا أريد ذلك وشكرا /** * Creates a Date Stamp if a column is edited. */ //CORE VARIABLES // The column you want to check if something is entered. var COLUMNTOCHECK = 9; //العمود الذي سيتم الكتابة فيه ليظهر التاريخ في العمود الذي بعده // Where you want the date time stamp offset from the input location. [row, column] var DATETIMELOCATION = [0,1]; // رقم الصف/العمود الذي سيظهر فيه التاريخ بعد العمود الذي سيتم الكتابة فيه // Sheet you are working on var SHEETNAME = 'LEADS VIP_DATA' var SHEETNAME1 = 'FDATA' function onEdit(e) { var ss = SpreadsheetApp.getActiveSpreadsheet(); var sheet = ss.getActiveSheet(); //checks that we're on the correct sheet. if( sheet.getSheetName() == SHEETNAME || SHEETNAME1 || SHEETNAME2 ) { var selectedCell = ss.getActiveCell(); //checks the column to ensure it is on the one we want to cause the date to appear. if( selectedCell.getColumn() == COLUMNTOCHECK) { var dateTimeCell = selectedCell.offset(DATETIMELOCATION[0],DATETIMELOCATION[1]); dateTimeCell.setValue(new Date()).setNumberFormat(timezone,"dd/MM/yyyy HH:mm"); } } }

السلام عليكم ورحمة الله أساتذتنا الأفاضل الكرام.. كان لي سؤال بخصوص دمج بيانات شيت إلى شيت آخر، المقصد باختصار لدينا مجموعة موظفين وكل موظف شيت خاص به ولديه بداخله أرقام من المفترض أنها ليست مكررة والمطلوب أنه إذا ظهر أي تكرار يظهر سواء عنده أو مع موظف آخر.. يعني لا يجوز أن يكون الرقم مكرر عنده ولا أن يكون هذا الرقم مع موظف آخر ما دام معه هو.. انا استخدمت التنسيق الشرطي في جلب الأرقام المكررة لكل موظف في الشيت الخاص به لكن أريد دمج الموظفين في شيت واحد لكي يظهر لي هل الأرقام مكررة عند الموظفين أم لا؟ أتمنى أن لا أكون أزعجتكم وأن أكون وصلت فكرة طلبي.. والمرفق مثال وجزاكم الله كل خير duplicate.xlsx

السلام عليكم ورحمة الله أساتذتي الأفاضل.. قمت بتصميم عرض تقديمي على بوربوينت وعند حفظه إلى فيديو ونقله إلى برنامج بريمير أجد أن المقاس أصغر! وتوصلت إلى هذا الكود البرمجي ولكن للأسف عند نقله إلى بريمير تحدث نفس المشكلة أن المقاس صغير.. علماً أن مقاس الفيديو المطلوب 1080 × 1920 ووضعت المقاسات في بوربوينت 38.1 سم × 67.733 سم هل يوجد حل إذا سمحتم هذا الكود اللي استخدمته Sub PowerPointVideo() If ActivePresentation.CreateVideoStatus <> ppMediaTaskStatusInProgress Then ActivePresentation.CreateVideo FileName:=Environ("USERPROFILE") & "\Desktop\Your PowerPoint Video1.MP4", _ UseTimingsAndNarrations:=True, _ VertResolution:=1080, _ FramesPerSecond:=29.97, _ Quality:=100 Else: MsgBox "There is another conversion to video in progress" End If End Sub

مبروك أستاذ محمد ونفع الله بك كل طالب علم ومستفيد وجزاك كل خير

تم تعديل العنوان

اتفضل اطلع على هذا المثال للأستاذ الكريم ناصر المصاروة Account21.rar

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

اقترح باستخدام طريقة الترصيد https://www.officena.net/ib/topic/65136-حساب-الرصيد-من-مدين-ودائن/

اخي اطلع على هذه المشاركة وفكرة تمثيلها لنظام الاقساط

مبروك أستاذنا الكريم وأعانك الله ووفقك

مثال ممكن تطبقه Vouchers.mdb

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

وعليكم السلام جرب حسب طلبك test55588_UP.rar

شكرا لمرورك أستاذي الفاضل.. المثال منقول للأمانة ولم أحاول فيه حل هذه المشكلة لضيق الوقت هذه مشاركة أحد الأساتذة أرى أن فيها إفادة للمطلوب بإذن الله https://www.officena.net/ib/topic/66610-هدية-بسيطة-البحث-بجزء-من-الكلمة-داخل-مربع-التحرير-بمجرد-الكتابة-combobox/

وعليكم السلام جرب المرفق test.accdb

أستاذنا الفاضل.. ما هي الطريقة السليمة لحماية القاعدة من العبث والإطلاع على أكوادها مثلما فعلت؟

تم تعديل العنوان

لو قصدك عند اختيار قيمة للصف تظهر علامة صح في خانة الاختيار فادرج هذا الكود في حدث بعد تحديث حقل الصف ونصيحة ابتعد عن المسميات العربية If IsNull(Me.saf) Then Me.اختر.Value = 0 Else Me.اختر.Value = 1 End If

اتفضل اخي حسب طلب test_up.rar

نعم بإذن الله ممكن.. حمل هذه الأداة من هنا وقمت بتثبيتها وبعدها شغل ملفك الوورد ستجدها أضيفت في القائمة باسم KUTOOL اختر tables + select tables وسيقوم بتحديد كافة الجداول الموجودة بالملف

اظاهر فعلا الافضل هو استخدام الإشارة المرجعية لأنك ستحتاج إلى ترتيب الأبيات هجائيا بالنسبة للجداول ممكن ترسل مثال

وعليكم السلام.. عندك استعداد تنسخ الأبيات مرة أخرى؟ الطريقة التي أعرفها هي باستخدام كود الفهارس بتفعيل علامة إظهار الكل ؛ حيث ستقوم بإدراج كود بضغطة واحدة ثم تقوم بنسخ بيت الشعر بداخله في كل مرة لتكون العملية عبارة عن نسخ ولصق. وبما أنهم 500 بيت يعني لن يستغرق وقت طويلا وسيكون أفضل - في رأيي - صناعة كود الفهرسة: ستختار من القائمة مراجع ثم وضع علامة الإدخال وستكتب في خانة الإدخال الرئيسي عنوان الفهرس الذي تريد (آيات قرآنية - أحاديث - أعلام - أبيات شعرية - بلدان.. إلخ)، وفي خانة الإدراج الثانوي سنكتب شرطة هكذا ـــــــــــــــــــ لكي تكون سهلة التظليل ولصق النص المراد فهرسته. وبعد عمل الكود ستظلله وتختار إدراج + الأجزاء السريعة + نص تلقائي وتضغط على حفظ التحديد إلى معرض النصوص التلقائية ثم من علامة التبويب تختار ملف + خيارات + تخصيص الشريط وتضغط على زر تخطيط وتختار من القائمة الأولى كتل الإنشاء وستجد في القائمة المقابلة ظهر فيها نص الكود الذي أضفناه للنصوص التلقائية لتختاره (انظر الصورة) ثم تدرج في خانة مربع مفتاح الاختصار الجديد أي اختصار تريد وليكن مثلا F3 يعني تضغط على الكيبورد زر F3 ثم تضغط زر تعيين ثم موافق .. وبهذا تكون قد انتهيت من اختصار وضع الكود بضغطة واحدة وهي F3 مرحلة الفهرسة ستظلل بيت الشعر وتضغط ctrl + C لنسخه ثم تأتي في نهايته وتضغط F3 لإدراج الكود ثم تضغط مرتين فوق الخط ــــــــــــــــــــــــ لتظلله ثم تضغط ctrl + V للصق بيت الشعر... هذه الحركة لن تستغرق ثانيتين وتكرر هذه الخطوة مع كل بيت شعر وليكون في نهاية ملفك تجميع الفهارس وسيظهر نص بيت الشعر وأمامه رقم الصفحة .. العملية ليست بصعبة واعذرني إن أطلت الشرح ولكن لأبين الفكرة.. مع تحياتي

كل الخطوط الجديدة ستجدها في هذا الموقع الرائع https://arbfonts.com/

وعليكم السلام ما هو الرقم الذي تقوم عليه العملية الحسابية وحسابه بالنسبة المئوية لينتج الأرقام الموجودة بالجدول؟ انظر ما أقصده في المرفق Aziz_new.rar

أخي ضع مثالك ليتسنى للإخوة فحصه وإفادتك بالإجابة.. تم تعديل العنوان