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

@سليم حاصبيا صدقت بكلامك حفظك الله أما التشبيه تحفة والشكر موصول مرة أخرى للأخ @Ali Mohamed Ali

جرب هذا الملف solventer.xlsx

عدم المواخذة الحل الأول لا يعطي النتيجة الصحيحة وإن كان الأولى أرتب قليلا ( لأنه عملية Format Number للخلية وهذا لا يغير قيمة الخلية بل يغير منظرها أو واجهتها ) اي انك تري الرقم مقسوماً على 1000 في الخلية فقط بينما في الحقيقة قيمتها هي نفسها كما ترى في الــــ(formula bar) و هكذا الـــ Format Number هو مجرد قناع للخلية لا يحميها من الكورونا اي (formula bar) الصورة والمعادلة فيها تؤكد ذلك (لو ان الخلية 4.00 تساوي 4 بالحقيقة لكانت نتيجة المعادلة 504 و كذلك الأمر بالنسبة للخلية 0.01 قيمتها الحقيقية 12 لأن نتيجة المعادلة 512 يمكنك تحديد هذه الخلية والنظر الى كاشف الفضائح الذي لا يخبىء سراَ مثل النسوان تجتفظ بالسر حتى أقرب هاتف واليوم أقرب هاتف هو الخلوي في جزدانها كاشف الفضائح هذا هو الـــــ formula bar)

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

في هذا الملف 1- الصفحة Result حيث تظهر النتيجة 3 صفوف تحنوي بيانات مهمه ليغمل عليها الكود الصفوف (5/4/3 مخفية) عدم المس بها كي لا يتعطل عمل الماكرو الصف رقم 5 يجب ان يكون فارغاُ نهائياً لقصل رأس الجدول عن البيانات 2-تكرار البيانات غير مسموح (الماكرو يحذف المكرر اذا كانت جميع بيانات الصف الواجد مكررة) بمعنى اخر اذا كبست الزر اكثر من مرة دون تعديل البيانات لا يعمل الماكرو أكثر من مرة واحدة الماكرو 3 -الزر Clear يمسح البيانات من source التي لا تحتوي على معادلات Option Explicit Sub Get_data() Dim S As Worksheet Dim R As Worksheet Dim i%, m%, Mx% Dim ArS(1 To 20) Dim ArR(1 To 20) Set S = Sheets("Source") Set R = Sheets("Result") m = R.Cells(Rows.Count, 2).End(3).Row + 1 If m < 6 Then m = 6 For i = 2 To 21 ArS(i - 1) = R.Cells(3, i) ArR(i - 1) = R.Cells(4, i) Next For i = 1 To 20 R.Cells(m, ArR(i)).Value = _ S.Range(ArS(i)).Value Next R.Cells(6, 2).Resize(m - 5, 20). _ RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, _ 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20), Header:=xlNo Mx = R.Range("B6").CurrentRegion.Rows.Count If R.Cells(6, 2) <> vbNullString Then With R.Cells(6, 1).Resize(Mx) .Value = Evaluate("Row(1:" & Mx & ")") With .Resize(, 21) .Borders.LineStyle = 1 .Font.Bold = True End With End With End If End Sub الملف مرفق laminedch.xlsm

تفضل التعديل اخي الكريم يجب فك الضغط عن الملفات اولاً تصدير البيانات.zip

وعليكم السلام 🙂 جعفر

وعليكم السلام ورحمة الله وبركاته قم بنسخ ملف القالب الذي قمت بتنسيقه، وبعد تهيئة الجهاز قم بإعادة الملف إلى الجهاز، وضعه في المكان الذي تريده أو في مكان قالب وورد الافتراضي، والذي عادة ما يكون في القرص C ضمن هذا المسار: C:\Users\NameUser\AppData\Roaming\Microsoft\Templates

السلام عليكم 🙂 شوف هذا الرابط جعفر

وعليكم السلام 🙂 هذا الرابط في التصدير الى الوورد . اما التصدير الى الاكسل . او . جعفر

طلبك جاهز اضافة 5 ردجات فقط لجميع المواد اضافة خمس درجات.xlsm

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

ممكن يحول الى اكسس ولكن اولا ارسل نموذج اكسل الى المنتدى وسوف ترى الابداع والافكار التي تعتمد على مدى الفائدة ونوع البرنامج شكرا

جرب هذا الملف لعله يفيدك هذه معادلة مصفوفة =IFERROR(INDEX($A$2:$A$9;SMALL(IF($F$2=TRIM($A$2:$A$9);ROW($A$2:$A$9)-MIN(ROW($A$2:$A$9))+1;"");ROW(A1)));"") اضغط على CTRL+SHIFT+ENTER بحث.xlsx

جربي هذا الماكرو لعله ينفع معك Sub PrintPreview() Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Sheets("sheet1") lastRow = Cells(Rows.Count, 1).End(xlUp).Row ws.PageSetup.PrintArea = ws.Range("A1:g" & lastRow).Address ActiveSheet.PrintPreview End Sub

هذا الماكرو بكفي اذا كانت الدانا تبدأ من الـــ A1 Sub Exacte_Pr_AR() ActiveSheet.PageSetup.PrintArea = _ Range("A1").CurrentRegion.Address End Sub

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

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

بسم الله الرحمن الرحيم السلام عليكم و رحمة الله الخميس‏ 4‏/7‏/1433هـ الموافق ‏24‏/5‏/2012م متابعة المواعيد المهمة وما تم تنفيذة مع البحث و تسجيل ارقام الهواتف و الإيميلات مع امكانية البحث عن أي معلومة به المميزات يجب تمكين وحدات الماكرو اولا 1- المواعيد استخدام التاريخين الهجري و الميلادي معا في عمود التاريخ يتم التريب و الفرز حسب التاريخ تلقائيا عند الدخول اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة تلوين القديم باللون الزهري تلوين المواعيد الحالية بلأخضر الفاتح تلوين المواعيد البعيدة وهي بعد 7 ايام من تاريخ اليوم او اكثر باللون الأصفر تسجيل كلمة منتهي امام كل موعد تم انجازة ليتم اخفائة من القائمة رسالة تحذيرية للتاريخ قبل تاريخ اليوم او بعد سنة من تاريخ اليوم امكانية البحث عن أي معلومة قديمة او جديدة - بحث سريع بجزء من أي كلمة 2- الهاتف يتم الترتيب او الفرز حسب اسماء العملاء اضافة صفوف جديدة مع دوالها تلقائيا عند الحاجة امكانية البحث عن أي جزء من اسم او رقم او بريد الكتروني - بحث سريع تلوين نتائج البحث باللون الأصفر التنقل استخدم زر صورة الهاتف او صورة التقويم اعلى يمين الشاشة للتنقل كلمة المرور لحماية الأوراق ="0" كلمة المرور لحماية محرر الفيجوال بيزك ="0" آمل ان يكون به الفائدة للجميع السكرتيرالخاصv2012.rar

أخي وحبيبي مختار كما يسعدني مداخلاتك الرائعة لإثراء الموضوع بالنسبة للحل المقدم رائع وجميل وإن كنت لا أحبذ استخدام المعادلات (خصوصاً معادلات الصفيف) عموماً بالنسبة للمعادلات يجب ضبطها قليلاً بتثبيت النطاق المعادلة الأولى =IFERROR(INDEX($A$2:$A$11,MATCH(0,COUNTIF($D$1:D1,$A$2:$A$11&""),0)),"") المعادلة الثانية =SUBSTITUTE(AConcat(IF($A$2:$A$11=D2,","&$B$2:$B$11,"")),",","",1) تقبل تحياتي

بسم الله الرحمن الرحيم السلام عليكم الموضوع واضح من العنوان وقد طرح الموضوع سابقا على يد الاستاد /احمد حمور جزاه الله خيرا في الموضوعين / دليل هاتف متطور و دليل هاتف v2باستخدام كيبورد احرف وارقام داخل الفورم مع امكانيات متعدده لكني احببت ان اعيد طرح الموضوع بطريقة مختلفة نوعا ما لن اطيل الكلام واترككم مع رابط تحميل البرنامج ارجو ان ينال اعجابكم هدا البرنامج اهديه بشكل خاص للاستاد جمال عبد السميع (ملك المعادلات) Rabie_Phone.rar

السلام عليكم الأخ الكريم أبو هتون تفضل المرفق به ما طلبت إن شاء الله ورسالة التنبيه صوت وصورة دمت بخير أيسم إبراهيم رسالة تنبيه الغائبون.rar