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

تفضل جرب هذا الملف , يمكنك التعديل عليه كما تشاء UserformKeypad.xls

السلام عليكم 🙂 نستطيع ان نستورد جدول الوورد الى الاكسس مباشرة : . وهذا الكود يقوم بالعمل: Private Sub cmd_From_Word_Click() ' 'https://bytes.com/topic/access/insights/961343-importing-ms-word-tables-into-ms-access-tables-using-vba ' 'modified by jjafferr, 2021-01-07 ' Dim i As Long Dim myValue As String 'Dim appWord As Word.Application, doc As Word.Document Dim appWord As Object, doc As Object Dim dbs As DAO.Database, rst As DAO.Recordset, strDoc As String Set appWord = CreateObject("Word.Application") 'establish an instance of word strDoc = CurrentProject.Path & "\1322.تحويل أكسس.doc" 'set string to document path and file Set doc = appWord.Documents.Open(strDoc) 'establish the document appWord.Visible = False Set dbs = CurrentDb 'establish the database to use (this is our current Database) Set rst = dbs.OpenRecordset("tbl_From_Word") 'establish the recordset With doc.Tables(1) 'target table 1 in People.docx For i = 1 To .Rows.Count 'cycle through rows in Tables(1) [we skip the first row because the table has headers] With rst .AddNew 'creating a new record myValue = doc.Tables(1).Cell(i, 1).Range.Text ![Col_1] = Replace(Replace(myValue, Chr(13), ""), Chr(7), "") 'remove the extra characters myValue = doc.Tables(1).Cell(i, 2).Range.Text ![Col_2] = Replace(Replace(myValue, Chr(13), ""), Chr(7), "") myValue = doc.Tables(1).Cell(i, 3).Range.Text ![Col_3] = myValue .Update 'update the whole record End With Next 'go to next row in Tables(1) End With rst.Close: Set rst = Nothing 'close and clear recordset dbs.Close: Set dbs = Nothing 'close and clear database doc.Close: Set doc = Nothing 'close and clear document appWord.Quit: Set appWord = Nothing 'close and clear MS Word Me.Requery MsgBox "Done" End Sub . ولا تنسى تغيير اسم ومسار ملف الوورد في المتغير strDoc حسب الوضع في كمبيوترك ، جعفر 1322.تحويل.accdb.zip

وفيك بارك ... حياك الله

تفضل .... النماذج.accdb

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

بعد اذن الاخ على =INDEX($B$10:$B$39,MATCH(0,$B$10:$B$39,0)-1)

فقط يمكنك استخدام معادلة المصفوفة (Ctrl+Shift+Enter) =OFFSET($B$10,MAX(ROW(B:B)*(B:B<>0))-10,0) Sheets1.xlsx

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

سؤالك بدون ملف . وطلبك عير واضح على الاقل بالنسبة لي اذا كان طلبك ادراج قيمة خلية من صفجة وادراجها في تذييل الصفحة فيمكنك استخذام هذا الكود Sub FooterFrom_P1() With ActiveSheet.PageSetup .RightFooter = "&14&""Arial,Bold""" & Range("a1").Value End With End Sub شرح الكود RightFooter تذييل يمين 14 حجه الخط Arial,Bold نوع الخط Range("a1").Value قيمة الخلية من الصفجة ويمكنك التعديل في الكود اذا كان التذييل يسار او وسط هذا حسب فهمى لسؤالك وان غير ذلك ارفق ملفا حفظك الله ورعاك

اخي الفاضل: اذا بحثت في المنتدى ستجد الكثير والكثير من المواضيع ، جعفر

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

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

تسلم عشرة على عشرة

جرب هذا الشيء استعلام حسب ايام الشهر.xlsm

وعليكم السلام 🙂 اذا اردت دمج اكثر من استعلام مع بعض ، فيجب استخدام استعلام التوحيد Union query ، ولعمل استعلام التوحيد: 1. ان يكون عدد الحقول الظاهره لكل استعلام ، هي نفسها لجميع الاستعلامات ، 2. اذا كان ناقصك حقل في احد الاستعلامات ، اضف حقل فارغ ، 3. نستعمل الامر Union او Union All بين استعلام وآخر. جعفر

ربما يكون بالمرفق ما تريد الحسابات على عيسى 2.xlsm

السلام عليكم ورحمة الله وبركاته الامر الاول نقوم بتحويل "<<" الى اوامر الفقرة الجديدة او السطر الجديد في الاكسس ويتم ذلك بواسطة عمل استعلام تحديث باستخدام الامر التالي Replace([nass],">>","<div>&nbsp;</div>") طبعا الامر السابق لتحويلها الى لغة Html والتي يتم قراءتها في برنامج الاكسس بواسطة مربع نص منسق والنتيجة كما يلي waz-Officena.accdb

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

السلام عليكم 🙂 فيه مغالطة وعدم وضوح الفرق عند الكثيرين بين حقل الترقيم التلقائي (المعرف الذي ينشأه الاكسس في الجدول) ، وبين حقل تسلسل تلقائي. فحقل الترقيم التلقائي (و كلام اخوي ابو خليل من ذهب 🙂) : اما حقل التسلسل التلقائي ، فهناك طرق لعمله : 1. اذا اردته في التقرير فقط ، 2. اذا اردته في الاستعلام والنموذج ، 3. اذا اردته في الجدول (مثل عمل ترقيم مستمر مثل سندات الصرف ، او فواتير سنوية) : عمل حقل بصيغة رقم (او نص ، حسب المطلب) ، وبرمجيا في النموذج تقوم بإضافة 1 اليه ، وبعدة طرق ، وابسط هذه الطرق : ترقيم تلقائي يتجدد كل سنة - قسم الأكسيس Access - أوفيسنا (officena.net) جعفر

حياك الله 🙂

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

اضافة لما اشار اليه استاذنا الفاضل @ابوخليل هذه المشاركات ربما تفيدك

لا املك طابعة فواتير على الجهاز حاليا ولكن اليك صورة محفوظة من خصائص الطابعة

مشاركة مع اخي الاستاذ @ناقل تفضل -------->>>>>> can.accdb

أ.النجاشي قمت باستعمال دالة Round للتقريب لأقرب عدد صحيح .. قم بإلغائها وإن شاء الله تظبط معك .. =Nz([s])/Nz(1+[tax])

ليست المرة الأولى التي اقول فيها "ممنوع دمج الخلايا حيث يوجد معادلات" تم ازالة الدمج و لن اقبل بأي مشاركة فيها خلايا مدمجة و تتطلب معادلات بعد الآن الملف مرفق makl.xlsx

موضوع مشابه تم حله بالاكواد

بداية يجب ازالة الخلايا المدمجة من الملف (كي يعمل الكود بشكل صحيح) تمت الازالة الكود Option Explicit Sub Get_data() Dim LrF%, k%, LrB% Dim Arr_Form Dim Arr_to Dim Lr Arr_Form = Array("B3", "B4", "B5", "J3", "I5") Arr_to = Array(5, 6, 7, 8, 9) LrF = Fatura.Cells(Rows.Count, "B").End(3).Row - 3 LrB = Bayan.Cells(Rows.Count, "A").End(3).Row + 1 If Fatura.Cells(9, 3) = vbNullString Then Exit Sub For k = LBound(Arr_Form) To UBound(Arr_Form) Bayan.Cells(LrB, Arr_to(k)).Value = _ Fatura.Range(Arr_Form(k)).Value Next For k = 9 To LrF If Fatura.Cells(k, 3) = vbNullString Then Exit For End If Bayan.Cells(LrB, 1).Resize(, 4).Value = _ Fatura.Cells(k, 1).Resize(, 4).Value LrB = LrB + 1 Next End Sub Wael.xlsm

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

جزا الله خيرا من علمونا الأدب والتواضع في النقاش قبل العلم طبعا هذا الكلام لست أنا المقصود به ولا شك (جزاكم الله عنا خيرا كما تظنون بنا خيرا) تمت الفائدة من الموضوع والحمد لله والشكر موصول لاساتذتي و أصحاب الفضل علينا بعد الله وسأكتفي بذكر هذا فأنا استحي أن أضع أفضل اجابة علي أحد الأجوبة دون الآخر فأنا أريد أن أضع علي كل مشاركة من مشاركات أساتذتي أنها أفضل اجابة ولا شك. ورجاء مشاركة أساتذتي الأجر فهذا المرفق بعد التعديل عليه بما يناسبني قمت بدمج كود الاستاذ جعفر مع فكرة الاستاذ أبو جودي (في استخدام الجدول للاجزاء الخاصة بالاسم) مع الابقاء علي فكرة أستاذنا أبو خليل أنها الاسهل في الاستخدام وتخفيف العبأ في كتابة الاكود. جمعتها لمن مر من هنا واحتاج لها بعدي. ملاحظة: لم ارد خدش كود الاستاذ جعفر لذا وضعت موديل آخر لتنفيذ الفكرة (المقتبسة منه 😀). Test Four Name.rar

السلام عليكم اخي الكريم بعد البحث الطويل عثرت على ملف للاستاذ ابو عبد الله وهو ملف جميل جدا ارجو ان يفيدك حيث تستطيع من خلاله دمج الخلايا المطلوب دمجها وبقليل من التعديل مثل حذف الاسطر الفارغة وبعض التعديلات الاخرى يمكن ان تحصل على نتيجة جيدة وبالتوفيق ان شاء الله join cells again.xls

وعليكم السلام ورحمة الله وبركاته حسب خبرتي المتواضعة اذا قمت بتحويل نص الوورد الى نص text يمكن استيراد هذا الأخير الى قاعدة بيانات اكسس تحويل أكسس.accdb

في نهاية الكود، احذف كل شيء واترك هذا فقط: With Selection.Font .Hidden = False End With Selection.MoveUp Unit:=wdLine, Count:=1 ألف شكر لك أخي العزيز أبو عاصم على العمل المميز، ولكن حتى يتم عمل الكود يجب تعطيل خيار (نص مخفي)، هذا ما لاحظته: ما هي الكلمات التي يجب تجاهلها بداية الاسم؟ سأذكر بعض الكلمات، وأرجو ذكر كلمات أخرى إن وُجِد؛ حتى نحصيها وبعد ذلك نبحث عن حل برمجي متكامل للمشكلة، الكلمات التي تخطر ببالي هي: ابن؛ مثلاً: ابن عباس. ابن أبي؛ مثلاً: ابن أبي حازم. ابن أم؛ مثلاً: ابن أم مكتوم. ابنة؛ مثلاً: ابنة عبد المطلب. ابنة أبي؛ مثلاً: ابنة أبي أمية. أبو؛ مثلاً: أبو هريرة. أم؛ مثلاً: أم سلمة. بنو؛ مثلاً: بنو قينقاع. (ال) التعريف؛ مثلاً: الوليد، كذلك من العبارات التي تم معالجتها؛ مثلاً: ابن أبي ال (ابن أبي الدنيا)، بنو ال (بنو النضير)، أم ال (أم البنين).

تفضل هذه المعادلة لعد أحرف الخلية =LEN(A4) أما بالنسبة لتحديد كتابة 31 حرف أو أقل فقط بالخلية فهذا يتم من خلال DataValidation كما بالصورة وتم تنفيذ ذلك على الملف بالفعل دالة عدد الاحرف.xlsx

الأستاذ Ali Mohamed Ali أكثر من رائع بوركك لله

Essayez ce fichier Naser_date.xlsx

السلام عليكم ورحمة الله وبركاته ألف شكر لك على المشاركة المميزة أخي الحبيب أبو عاصم، وبعد: 1- هل لك أن تضع لنا ملف Word نطبق عليه الماكرو؟ 2- ماذا لو كان في الفهرس (أحمد بن محمد أبو القاسم القرطبي) أو (عبد الله بن أم مكتوم)؟ 3-من وجهة نظري الحل الأسلم يكون كالتالي: في إدخال الحقول أضف حقلين هكذا: { XE ابن عباس - عباس - \f person } بعد أن تنتهي من إضافة الحقول بهذا الشكل، تقوم بإدراج الفهرس، ثم تحول النص إلى جدول، ومن بند (فصل النص عند) تكتب (-)، سيصنع لك جدولاً قريباً من هذا الشكل: ابن عباس - عباس - رقم الصفحة الآن تقوم من فرز بترتيب الجدول حسب العمود الثاني، بعد ذلك تقوم بحذف العمود الثاني، وبذلك تنجح الطريقة دون ثغرات ومشاكل.

ملف لحساب العمر بالسنين والشهور والأسابيع والأيام والساعات والدقائق والثواني 0003 حاسبة العمر.xlsx

السلام عليكم حسب فهمي للمسألة هذه محاولة في الملف المرفق وأرجو أن تفي الغرض المطلوب.... بن علية حاجي 01 الاحصاء.xlsx

كان من الواجب ارفاق ملف (الوقت ليس كافياً لوضع ملف يحتوي على ما تريد) لكن حيث انها المرة الأولى ارفق لك هذا الملف النموذج الكود Option Explicit Sub Sorte_PLease() Dim m%, Ro%, i% Dim Obj_Pos As Object Dim Obj_Neg As Object Set Obj_Pos = CreateObject("System.Collections.ArrayList") Set Obj_Neg = CreateObject("System.Collections.ArrayList") Range("c1").CurrentRegion.ClearContents Ro = Cells(Rows.Count, 1).End(3).Row For i = 1 To Ro If Cells(i, 1) = vbNullString _ Or Not IsNumeric(Cells(i, 1)) Then GoTo Next_I If Val(Cells(i, 1)) >= 0 Then Obj_Pos.Add Cells(i, 1).Value Else Obj_Neg.Add Cells(i, 1).Value End If Next_I: Next i Obj_Pos.Sort Obj_Neg.Sort m = 1 Cells(m, 3).Resize(Obj_Pos.Count) = _ Application.Transpose(Obj_Pos.toarray) m = m + Obj_Pos.Count Cells(m, 3).Resize(Obj_Neg.Count) = _ Application.Transpose(Obj_Neg.toarray) Set Obj_Pos = Nothing: Set Obj_Neg = Nothing End Sub الملف مرفق sorts Pos and Neg.xlsm

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

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

السلام عليكم =========== حلول جميلة كالعادة الاخ ya0m7 وجدت لك هذا الملف لعله يكون مفيد قوائم فى كل الاتجاهات.rar

السلام عليكم بارك الله فيك اخي الخالدي مغلومات مفيده جزاك الله خيرا والشكر واصل لجميع المشاركين حفظكم الله جميعاً خبور خير

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

السلام عليكم ورحمة الله وبركاته لإثراء الموضوع والفائدة في حالة كان النص في الخلية ناتج عن معادلة – حسب علمي- لا يمكن تقسيم الاسطر فيها بالضغط على Alt ثم Enter. في هذه الحالة يمكن استخدام معادلات لغرض تقسيم الاسطر. مرفق مثال تحياتي ادراج فاصل اسطر بالمعادلات.rar

السلام عليكم ورحمة الله أخي الكريم، في إكسيل لا يمكن تقسيم الخلايا بالطريقة التي تريدهاـ ولكن يمكن القيام بما فعله أخي الكريم kemas أو يمكن أيضا اختيار خلية (خلايا) من سطرين وعمودين ثم باستعمال خاصية دمج الخلايا يمكن الحصول على المبتغى كما تجد ذلك في الملف المرفق... Classeur2.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم عند كتابة السطر الأول , للانتقال للسطرالثاني في نفس الخلية اضغط Alt ثم Enter

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

بسم الله الرحمن الرحيم إخوتي أعضاء منتدى أوفيسنا السلام عليكم و رحمة الله تعالى و بركاته بعدما شرحت مجموعة من الدالات في إكسل ارتأيت أن أجمعها في موضوع واحد مع إضافة شروحات لدالات جديدة حتى لا تتشت مجهودات أعضاء المنتدى الكرام في البحث المضني و الطويل عن هذه الشروحات ، كما أنني أطلب من الإخوة المشرفين تثبيت الموضوع ليبقى مرجعا دائما و مستمرا مفتوحا في وجه الجميع . دعواتكم لي بالتوفيق و السداد و الصحة و العافية هي الزاد و هي المعين . و هذا شرح للدالات الإحصائية : و هذا شرح الدالات الحسابية و المثلثية ثم هذا شرح الدالات الخارجية و هذا شرح الدلات المالية و هذا شرح الدلات الهندسية هذا شرح لدالات البحث و المراجع ثم الملف السادس هو شرح لدالات التارايخ و الوقت الملف السابع هو شرح لدالات المعلومات و هذا الملف العاشر الخاص بشرح دالات النص و البيانات الملف الأخير هو شرح لدالات قواعد البيانات _____________________.rar _______________________________.rar ____________________.rar ___________________.rar ____________________.rar ________________________.rar ________________________.rar ___________________.rar ________________________.rar