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

تفضل data transfer.xlsm

تفضل يمكنك وضع هذا الكود في حدث الصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Range("g1").Value <> "" Then Range("b6").Value = Range("a3").Value End If End Sub data transfer.xlsm

تفضل هذه المعادلة -يمكنك وضعها في الخلية C2 فكان عليك لزاما من البداية رفع ملف وشرح المطلوب بكل دقة =B2&"."&A2

برضو ولا تزعل تفضل ...... Database.mdb

تفضل data transfer.xlsm

وعليكم السلام 🙂 حيالله اخوي محمد 🙂 في النموذج/التقرير المستمر ، لا يمكن التفريق بين الحقول إلا عن طريق التنسيق الشرطي ، وعليه ، في الحاله اللي تريدها ، تقدر تخلي لون الخط في حقل "حاله" لونه ابيض ، فلا تستطيع ان ترى شيء ، عند طباعة التقرير على ورق ابيض🙂 ولكن لا تستطيع ان تجعل حقل اطول/اعرض من الاخر !! وتستطيع كذلك استعمال iif ، بحيث في الحاله اللي تريدها ، يجعل حقل "حاله" فارغ : Status1: iif(me.Namee="AA" or me.Namee="AB","",[status]) سواء في استعلام التقرير ، او في التقرير نفسه 🙂 جعفر

حدد بالضبط اى الخلايا تريد ؟!

عليك بإتباع الخطوات التالية إظهار مقبض التعبئة أو إخفاؤه 1. انقر فوق علامة التبويب ملف، ثم فوق خيارات 2. انقر فوق خيارات متقدمة، ثم ضمن خيارات التحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإفلاتها أو قم بإلغاء تحديدها لعرض مقبض التعبئة أو إخفائه. 3. لتفادي استبدال البيانات الموجودة أثناء سحب مقبض التعبئة، تأكد من تحديد خانة اختيار التنبيه قبل الكتابة فوق الخلايا. إذا كنت لا ترغب في ظهور رسالة لإعلامك بالكتابة فوق الخلايا غير الفارغة، فيمكنك إلغاء تحديد خانة الاختيار هذه

ايش الحكمة بالكود ... ممكن نحل المشكلة ...

عليك برفع ملف وشرح المطلوب عليه بكل دقة

بالعكس الماكروا الى رسله اخي @kanory يقوم بادراج عدد من الاختصارات .... وجميعها تعمل ... واهم ما يميزها انك تستخدم هذه الاختصارات من داخل اي نموذج .... ليس بالضرورة النموذج الرئيسي

بعد اذن اخي علي النتيجة في المعادلة تظهر نصاً ويمكن تحويلها لارقام (طبعاً بضربها بــــ 1) فقط اذا كانت A1 و B1 ارقاماً , وإلا تحصل على خطأ في الملف المرفق معادلة تتجاوز هذا الشيء =IF(OR(N(A1)=0,N(B1)=0),"",B1+(A1/(10^(LEN(A1))))) الملف مرفق كمثال Dic_NUMBER.xlsx

ممكن والعكس ايضا ممكن في المثال المرفق في نموذج الموظف انقر على امر 13 في النموذج الفرعي يرسل امر لتنفيذ اضافة سجل الموجد في النموذج الرئيسي Database15.accdb

او ممكن تستخدم Or For Each tdf In CurrentDb.TableDefs If (tdf.Name = "اسم الجدول الاول") Or (tdf.Name = "اسم الجدول الثانى") Then tdf.Attributes = dbHiddenObject End If Next tdf

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

وعليكم السلام-يمكنك استخدلم الكود الموجود بملفك بهذا الكود Private Sub CommandButton1_Click() Dim rngCopy As Range With Worksheets("Sheet1") Set rngCopy = .Range("b7:H" & .Range("B" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible) End With rngCopy.Copy With Worksheets("Sheet2") .Activate .Range("B2").Activate .Paste Link:=True End With End Sub Transfer Data Without Hide Rows.xlsm

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

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

عمل رائع استاذ محمد بارك الله فيك ولإثراء الموضوع هذا حل اخر بدون اكواد ساقية.xls

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

‍جرب هذا الملف Ages.xlsx

مجهود جباااااااااار, تشكر عليه ,,,,, بس واين رابط الملف ؟؟؟

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

تستاهلها اخي الفاضل / مسفر الف مبروك وعند جداره فعلا انت حق لها ولكن احب اني انوه الي ان سابقا في احدي اجابات استاذنا / ابا جودي علي سؤالي كتبت له بانه خبير وثاني يوم علي طول اخذ درجة خبير واول امس كتبت وقلت لك بانك خبير سبحان الله تاني يوم اصبحت بدرجة خبير في المنتدي وهي ليست فراسة مني ولكن يمكن عشان متخصص في الموارد البشرية بدرجة دكتور في الجامعة واقوم بتدرسها للطلبة يعطني احساس بمن له مكنون الخبرة من عدمه هذا ليس افتخار بي وكنت لا احب ابدا اكشف عن مهنتي ولكن اسجل هذه السطور للحفظ في ذاكرة منتدانا الغالي الذي تعلمت منه الكثير مرة اخري مبروك وفعلا انت تستاهل خصوصا تواضعكم العالي يمكن يكون السبب في كتابة هذه السطور

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

كذا تمام جدا جدا الله يوفقك اخوي عبد اللطيف مع الزبون المتعب هذا

بدون تعليق على بقية النقاط ولكني من المعارضين وبشدة إلغاء القائمة المختصرة ، لأن فيها ميزات وسرعة في الاداء ، اللي المبرمج ما يقدر يبرمج مثلها. واعتقد ان ابا جودي خانه التعبير ، فقصده هو: يمكنك عمل عدة قوائم مختصرة في البرنامج الواحد ، مثلا: 1. قائمة مختصرة ، فيها الفرز والتصفية ، ونسخ ولصق ، 2. قائمة مختصرة ، فيها الفرز ، 3. قائمة مختصرة للتقرير ، فيها Zoom 100 ، 150 ، 200 ، طباعة التقرير ، اغلاق التقرير ، 4. .... يعني ، هذه القوائم مافيها الدخول على وضع التصميم 🙂 ومنها ، تجعل لكل نموذج/تقرير قائمته الخاصة ، او قائمة للكل 🙂 جعفر

وعليكم السلام يمكن بالتحايل على المستخدم العادي ...... اكرر المستخدم العادي .... أما المحترف ..... ؟؟؟؟؟؟ فمثلا : فتح البرنامج عن طريق autoexec استخدام منع الشيفت ربط النماذج الهامة بفتح النموذج الرئيسي الى إخرة من الطرق الموجودة في المنتدى

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

بوركت اخي الفاضل

جرب هذا الكود Option Explicit Sub Transfer_data() Dim i%, m%: m = 4 Dim lrA%, My_text Dim Wrd(), t%: t = 1 Dim k%, lRD% Range("D4").Resize(500, 13).ClearContents lrA = Cells(Rows.Count, "A").End(3).Row For i = 4 To lrA Step 2 My_text = Trim(Range("b" & i)) My_text = Split(My_text, " ") For k = LBound(My_text) To UBound(My_text) If My_text(k) <> vbNullString Then ReDim Preserve Wrd(1 To t) Wrd(t) = My_text(k) t = t + 1 End If Next Range("D" & m) = Range("A" & i) Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd m = m + 1 Erase Wrd t = 1 Next lRD = Cells(Rows.Count, "d").End(3).Row Range("D" & lRD + 1) = "TOTAL" Range("E" & lRD + 1).Resize(, 12).Formula = _ "=SUM(E4:E" & lRD & ")" End Sub الصفحة Salim من هذا الملف TTT_salim.xlsm

وعليكم السلام 🙂 في الوقت اللي نقول فيه ان الاكسس ممكن يعمل كل شيء (تقريبا) ، يجينا مثل هذا السؤال ، ونقف محتارين في الجواب !! الكلام عن انواع معينه من المرفقات فقط ، مثل (PDF او Word او صورة او Excel او .. ) المشكلة: لما تطبع اي شيء ، فالامر بين امر الطباعة و الطابعة ، يعني الاكسس يعطي الامر فقط ، الحل: 1. اما ان نضع الملف في تقرير في الاكسس ، ومنه نقدر ان نضع حقل نص فوقه ، فيه البيانات المطلوبة ، وهذا ممكن مع بعض الصيغ اعلاه: الصور وملفات PDF يمكن عرضها مباشرة في الاكسس ، وهذه طريقة : . ملفات الورد ، فقد ابدع اخونا @ابوخليل بعرض مجموعة امثلة هنا ، وفي اعتقادي بأن الاكسل ممكن فتحة باحد هذه الطرق كذلك . 2. ان ندرج هذا الملف في ملف HTML (برمجيا من الاكسس) ، وفي هذا الملف ممكن ان نضيف اي معلومة اضافية ، والبارع في هذا المجال هو اخونا @أبو إبراهيم الغامدي وطبعا اخونا @رمهان 🙂 3. ان نحصل على برنامج يطبع الى طابعة PDF افتراضية (virtual printer) ، وتكون هذه الميزة موجودة فيه ، وطبعا لازم ان هذه الطابعة يمكن التحكم فيها عن طريق Commandline ، 4. هناك شيء اسمه Water mark ، وعادة موجود في جميع الطابعات ، ولابد ان هناك طابعات تمكنك من تغيير الكلمه الى الكلمة التي تريدها ، ولكن قد لا تستطيع تغيير هذه الكلمة برمجيا ، وتظل ثابته . واكيد اكون ناسي طرق اخرى جعفر

فقط أريد أن اعرف اي ماكرو استعملت الاول او الثاني لان الاول يتعاطى مع الارقام فقط اما الثاني مع كل شيء (اذا كانت تسمية الملفات نصوصاً)

بارك الله فيك أستاذ هشام ولك بمثل ما دعوت لى وزيادة-والحمد لله ان تم المطلوب ,والحمد لله الذى بنعمته تتم الصالحات يشير رقم 3 بالمعادلة ان يجلب النسبة وهى ترتيبها في المعادلة كما ترى ثالث بند-فلو لاحظت المعادلة جيدا لوجدت ان داخل قوس اول بند هو الرقم ثم بعد ذلك رقم الشريحة وهو الموجود داخل علامة التنصيص "1"ثم بعد ذلك النسبة 0.1 فبذلك تكون النسبى هي ثالث بند وهى المطلوب جلبها فاذا كتبت مثلا المعادلة بدون الشريحة الموجودة بعد المبلغ بين علامة التنصيص-بمعنى تكتب المبلغ ثم النسبة بعده ففي هذه الحالة يكون الرقم في نهاية المعادلة 2 وليس 3 لأن النسبة موجودة ثانى بند وهو المطلوب اثباته بارك الله فيك وأتمنى وضوح الأمر الأن

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

بارك الله فيك اخى الكريم هذه المعادلة VLOOKUP ببساطة تصمم لحساب النتائج التى تتضمن مجموعة شرائح كما اشرت فى طلبك ومعطياتك =IFERROR(VLOOKUP(E2,{10000,"1",0.1;20000,"2",0.15;45000,"3",0.2;60000,"4",0.25},3),"") فأول جزء من المعادلة E2 وهى خلية الخاصة بصافى الربح الذى بناءا عليه يتم جلب النسبة ,وبما ان لديك عدة نسب تختلف من مبلغ لأخر فبناءا عليه كما ترى بالمعادلة فى حالة ان المبلغ يكون 10000 فلابد ان تكون النسبة 10% وهذه هى الشريحة الأولى وهكذا بالنسبة لباقى المبالغ كما بالمعادلة الى ان تنتهى فى اخر الشرائح وهى 60000 فتكون النسبة هى 25%

تفضل لك ما طلبت دالة if الشرطية.xlsx

جزاك الله كل خير استاذنا الكريم

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

تفضل اخى الكريم هذا كان برنامج جاهز عندى 2.xls

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

المثــــــــــــــــال الرابع  ـــــــــــــــــــــــــــــــــــــ الدالة ( RTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين النص وتستخدم كالتالى RTrim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " الدالة ( LTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يسار النص - عكس السابقة --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 004 - LTrim & RTrim - حذف مسافات يمين ويسار النص.mdb

المثــــــــــــــــال الثالث  ـــــــــــــــــــــــــــــــــــــ الدالة ( Trim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين ويسار النص وتستخدم كالتالى Trim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 003 - Trim- حذف مسافات يمين ويسار النص.mdb

السلام عليكم معذرة أخي محمد و كأنني لم أرى السؤال إلا الآن عندما كنت أتصفح الأرشيف تفضل إجابتك في هذا الكود و قد وضعت معه الشرح: Dim prt As Printer Dim prtOriginal As Printer Set prt = Application.Printers("اسم الطابعة التي نريد طباعة التقرير بها") Set prtOriginal = Application.Printer ' استخراج اسم الطابعة الإفتراضية في الجهاز Set Application.Printer = prt ' وضع الطابعة التي نريد الطباعة بها كطابعة إفتراضية DoCmd.OpenReport "اسم التقرير المراد طباعته", acViewNormal ' كود طباعة التقرير Set Application.Printer = prtOriginal ' إرجاع الطابعة الأصلية كطابعة إفتراضية Set prtOriginal = Nothing Set prt = Nothing Set Application.Printer = Nothing

ما شاء الله استاذ محمد بارك الله فيكم عمل رائع

السلام عليكم

الأخوة الأعزاء تحية من عند الله مباركة طيبة وبعد إليكم هذا البرنامج وهو لا يحتاج للتنصيب فقط اضغط على الملف Double Click فتظهر له أيقونة بجوار الساعة ولقد جربته مع ويندوز 7 وورد 2010 ويعمل بنجاح.وطبعا يعمل مع 2003 الوظيفة: الكثير منا يكتب وهو ينظر إلى لوحة المفاتيح . وكثيرا ما قد ننسى تغيير إتجاه مؤشر كتابة الحروف من لوحة المفاتيح إلى اللغة العربية ! والصدمة ان تنظر إلى ما كتبت ! مثال : Hgsghl ugd;l ,vplm hggi ,fv;hjm > طبعا الصحيح هو : السلام عليكم ورحمة الله وبركاتة. أناأعرف شعورك تماما وخصوصا عندما تحذف كل ما كتبت ! وايضا في حال كنت تكتب بالإنجليزيه وكانت النتيجة حروف عربية لا معنى لها... هنا ياتي دور صديقنا أبو الحروف . في حال كنت تكتب العربية و كان مؤشر الكتابة على الإنجليزية: إضغط في لوحة المفاتيح على Ctrl + D . تحصل على ماكتبت بالعربية 2 - في حال كنت تكتب الإنجليزية و كان مؤشر الكتابة على العربية : إضغط في لوحة المفاتيح على Ctrl + E. حصل على ماكتبت بالانجليزية يعمل على وورد واكسيل وباوربوينت والمفكرة والمنتديات منـــــــــقول ......أرجو أن تستفيدوا منه .. aboal7roof.rar

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

باستخدام الامر docmd.movesize يمكنك تحديد مكان و حجم الشاشة فى حدث عند تغير المقاس للنموذج docmd.movesize 150,150,700,500 أي علي مسافة ا50 و 150 من أعلي يسار الشاشة و بعض 700 و ارتفاع 500 مثلا لتحديد المقاس فقط Private Sub Form_Resize() DoCmd.MoveSize , , 4600, 5300 End Sub