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

تفضل اخى الكريم لك ما طلبت s0ds1 - Copy.xls

تفضلى يمكنك شرحها وذكرها هنا

حضرتك كنت كاتب المعادلة بهذه الصورة =IF(G12,"ثمانون درجة",B_Only(C12,1,1,2,"درجة","درجتان","درجات")) فكيف تكون النتيجة صحيحة بهذه الطريقة واول جزء بالمعادلة الخلية G12 ,ثم قمت بكتابة الخلية C12 داخل معادلة التفقيط فيجب كتابة نفس الخلية داخل معادلة التفقيط ايضا وهى الخلية G12 فبالتالى شكل المعادلة كلها غير صحيحة -لأن ايضا جزء معادلة If غير مضبوط,فيجب ان تكون المعادلة هكذا كالتالى : =IF(G12=100,"مائة درجة",B_Only(G12,1,1,2,"درجة","درجتان","درجات"))

السلام عليكم 🙂 وبطلب من البشمهندس ابا جودي ، تم وضع مثال لعمل VCard QR ، لإضافة معلومات الشخص مباشرة في عناوين الموبايل 🙂 وتم الكود والمرفق مع المشاركة الاولى في هذا الموضوع ، ونتيجة احد السجلات: جعفر

تفضل تفقيط الدرجات.xls

اعتقد انه ليس هناك كلام بعد هذا الملف فبه كل ما طلبت تفقيط الدرجات2.xls

رسم بيانى اضاءة على الشخص المتفوق الفيديو الصور

رسم بيانى الشخص المميز الفيديو الصور

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

شكراً لك يا أستاذ أحمد بدرة معادلة ما خطرت على بالي ، رائعة من رائع لك جزيل الشكر وخالص الدعاء تحياتي

بعد إذن أستاذ علي تم عمل المطلوب بدون عمود مساعد كما طلبت ومعذرة للتأخير فالموضوع ليس بالهين s0ds1 - Copy(1).xls

أستاذى @عبد اللطيف سلوم أرجو تصليح الخطأ وجزاك الله خيراً اوفسنا تلقائي (1).rar

انا اول مرع بصراحة اتعامل مع المرفقات كنت ابحث وكنت ادرس الكود https://docs.microsoft.com/en-us/office/client-developer/access/desktop-database-reference/field2-savetofile-method-dao ثم لتعلم ان الفضل كله لله عزوجل هو العليم و لو لا تفضله سبحانه وتعالى علينا ما اهتدينا

و أخيراً توصلت للحل بمعونة أحد الأكارم قبل وضع الجزء الثاني من السؤال و الفضل في معظمه لك يا @ابا جودى الغالي أكرمك الله و رعالك Dim db As DAO.Database Dim rss1 As DAO.Recordset Dim rss2 As DAO.Recordset Set db = CurrentDb Set rss1 = db.OpenRecordset("T11") ' أسم الجدول Set rss2 = rss1.Fields("F11").Value ' أسم الحقل While Not rss2.EOF rss2.Fields("FileData").SaveToFile CurrentProject.Path 'مسار قاعدة البيانات rss2.MoveNext Wend Set rss2 = Nothing rss1.Close Set rss1 = Nothing Set db = Nothing

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

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

تحت امرك

هو المرفق هاد ثابت ما بتغير اصلا

أخى الكريم انتبه للمعادلة فانت تقوم بكتابتها بطريقة غير صحيحة تم ضبط ملفك 2.xls

اخى وحبيبى واستاذى @Khalf ما هى نتيجة التجربة ؟؟؟ هل وجدت ضالتك قمت بعمل االاعجاب على سؤالى عن التجربة فلم افهم هل وجدت ضالتك ام لا اعجبتك الطريقة ام لا

شوف ممكن حضرتك تبدأ فى اتفيذ قاعدة البيانات وتسأل عند كل نقطة صعب جدا جدا تجد من يقوم بعمل برنامج كاملا

انتظر ان يخبرنى كل من قام بالتجربة بالنتيجة هل تمت التجربة بنجاح ام لا

اتفضل تم بفضل الله تعالى طبعا تحتاج بعد التعديلات التى تلائم كل سجل لبرنامجك Test To Print External File.rar

تفضل وهذه النتيجة بعد التنقل بين صفحات التقرير FahrasTest.accdb طبعا لا اعرف هل هذه النتيجة التي تريدها ام لا لكن الكود الذي وضعته انت يقوم بهذا عند معاينة التقرير والتنقل بين محتوياته

جزيت خيرا الله يبارك فيك هو المطلوب

تفضل -كنت كاتب المعادلة بطريقة غير صحيحة تفقيط الدرجات مع التعديل.xls

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

شكرا اخي الكريم..لقد نجحت اخيرا في اكتشاف خطأي

https://online-barcode-reader.inliteresearch.com/ شككت ايضا بالجوال او بالتطبيق الذى يقرأ الرمز وبحثت و وجدت هذا الموقع https://online-barcode-reader.inliteresearch.com/ مما قطع الشك باليقين ان المشكلة من منشئ الرموز نفسه

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

لماذا لانعمل حقل غير منظم تكون قيمته الفرق بين قيمة اخر سجل ل (المبلغ) مطروحا منه قيمة اخر سجل ل (الدفع) وعندما تكون هذه القيمة صفرا سوف لن تظهر في حقل الباقي في التقرير

انا قصدت المثال في النموذج السابق وليس كامل البرنامج..لا اعلم لماذا لم تضبط معي مع وافر التقدير

وعليكم السلام بارك الله فيك اخى الكريم-فقط يمكنك تتبع المعادلات الموجودة بالخلايا التي بها تواريخ فهى سهلة جدا ويمكنك عملها فكل ما عليك عمله عند زيادة السنوات مثلا ,يمكنك تغيير عدد السنوات الى ما تريد في الخلية C2 وكتابة تاريخ بداية العقد في الخلية C3

ومشاركة مع اخى الحبيب الاستاذ @مسفر اربع نماذج كل نموذج يتقدم عن سابقة بشئ النموذج الاول هو محل السؤال يا دكتور @حلبي باقى النماذج الثلاث افكار متقدمة اليوم السابق والتالي للتاريخ (1).accdb

تفضل إذا كان هذا ما تطلب أخي حلبي اليوم السابق والتالي للتاريخ.accdb

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

الحمد لله توصلت للحل وها هو منشور للفائدة

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

محاولة مني تم العمل ولكن في العمود A فقط s0ds1 - Copy.xls

هذه بعض المواضيع السابقة فى هذا الشأن كودتفقيط وورد كيفية إضافة كود التفقيط المرفق ليصبح صالحاً للإستخدام في ملف وورد 2007 أرجو مساعدتي في انشاء كود رجو المساعدة عمل ماكروتفقيط هل يمكن عمل كودتفقيطفى الوورد كما فى الاكسيل تفقيطالارقام فى الوورد تفقيطسلس وسريع في وورد دالة التفقيط العربي الصحيحة https://www.officena.net/team/mas/tafkeet/

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

بارك الله فيك وجزاك الله كل خير نعم دائما وابدا نتعلم منه الكثير

تفضل اخى الكريم موظفين.xlsm

0

ممكن تجرب هذا برنامج العهدة لمصروفات التشغيل.rar

حاول أستاذ علي تجرب هذا الكود Public Sub CopyrangeA() Dim firstrowDB As Long, lastrow As Long Dim arr1, arr2, i As Integer firstrowDB = 1 arr1 = Array("BJ", "BK") arr2 = Array("A", "B") For i = LBound(arr1) To UBound(arr1) With Sheets("SheetA") lastrow = Application.Max(3, .Cells(.Rows.Count, arr1(i)).End(xlUp).Row) .Range(.Cells(1, arr1(i)), .Cells(lastrow, arr1(i))).Copy Sheets("SheetB").Range(arr2(i) & firstrowDB).PasteSpecial xlPasteValues End With Next Application.CutCopyMode = False End Sub وممكن هذا الكود كمان Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub أو ربما ذلك Sub CopyPaste() Sheet1.Range("A:A").Copy Sheet2.Activate col = 1 Do Until Sheet2.Cells(1, col) = "" col = col + 1 Loop Sheet2.Cells(1, col).PasteSpecial xlPasteValues End Sub وأخر كودجميل Sub PasteSpecial_ValuesOnly() Worksheets("Sheet1").Range("A1:Z100").Copy 'PasteSpecial Values Only Worksheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValues 'Clear Clipboard (removes "marching ants" around your original data set) Application.CutCopyMode = False End Sub

تفضل جرب هذا ظ…ط³ط§ط¹ط¯ط©.rar

وعليكم السلام تفضل الجدول: . والاستعلام: . والنتيجة: . جعفر 740.Section_Gender_Count.accdb.zip

السلام عليكم ورحمة الله وبركاته اليوم اطل عليكم ببرنامج ذمم جديد في فكرته وفي مضمونه بداية اود ان اشكر جميع المشرفين والخبراء والاعضاء الذين ساعدوني في اعداد هذا العمل , لانه ان كان يوجد شكر فهو موجه لنا جميعا الملف في مضمونه بسيط وهو متعلق بالبحث والتسديد ولكن بشكل جديد لم اره من قبل في المنتدى فاردت ان تكون لي بصمة في هذا واعتذر منكم لكون الملف باللغه الانجليزيه لانني اعددته على اساس العمل الذي طلب مني , ولكن نظرا لافضال هذا المنتدى علي قررت ان اجعل البرنامج مفتوح المصدر حتى يتسنى لمن يعجب به ان يغير بالاسماء والعناوين وباضافة الاكواد ان اراد وباللغ التي يراها تتماشى معه, خاصة وانني انشأته ليتماشى مع ملف فندق يوجد بها ارقام حجوزات وفواتير وتاريخ قدوم ومغادرة الخ......., لذا يمكنكم تغيير المسميات كما ترغبون لا اريد ان اطيل عليكم البرنامج يتكون مما يلي : بداية الملف انشأ على اساس صفحتين واحده لملفات الذمم الرئيسيه والاخرى للمتفرقات اما الرئيسيه فيتم البحث فيها والتعديل عن طريق الارقام اما المتفرقات عن طريق الاسماء اهم شئ عندي هو زر ADD & EDIT فهو سيظهر فورم جديد من نوعه بخصوصية البحث والتسديد حيث ان الجزأ العلوي من الفورم خاص باضافة الفواتير اما الجزأ السفلي خاص بالبحث والتسديد دون الذهاب الى صفحات الاكسيل والمهم بعد عمل اضافة لفاتوره واردت البحث عنها فقط اختر الاوبشن الخاص بالصفحه ومن ثم ضع الرقم سيظهر لك في ليست بوكس الجميل هنا عند الضغط بالماوس على السطر الموجود في الليست بوكس سيظهر لك تلقائيا مجموعة من التكست بوكس خاصه بكل عامود وستظهر البيانات كما هي في الليست بوكس داخل التكست بوكس وتتغير تلقائيا كلما غيرت السطر, ومن خلال التكست بوكس تستطيع تعديل البيانات الموجوده كامله ان اردت هذا عن خاصية سلكت داخل الليست بوكس اما عن دبل سيلكت داخل الليست بوكس ستدخلك مباشره الى الصفحه وستقف عن الخليه التي اخترتها بصراحة انا تعبت من الشرح لانو سيطول اكثر ولكن ساترككم مع المرفق واي ملاحظه ساجيب عليها ان شاء الله الشكر موصول للجميع DATA3.rar

اخوانى الكرام يوجد بالمرفقات طريقه للحمايه بتشفير الجدول بواسطة ASCII Code لحماية بيانات الجداول فيقوم بكتابة و اظهار المدخلات فى النموذج بالطريقه العاديه و يقوم بتشفيره داخل الجدول اكتب ما تشاء فى النموذج و اذهب الى الجدول لكى ترى بنفسك تشفير الجداول.rar