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

خيارات الاكسس ---------> اعدادات العميل ---------> التقويم الهجري

اكبر خطأ ربط ارقام تلقائية مع بعض ....... راجع الربط في حقول ID واضح أن الارقام غير متشابهة فلذلك لن يظهر بيانات لعدم توفرها

لاحظ المرفق وعليك بتنسيق التقرير ...... moh.accdb

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

وعليكم السلام ورحمة الله أخي @محمد خالد السعيد كم عدد السجلات القصوى لهذا النموذج الفرعي ؟؟؟؟؟

للفائدة يمكن تحميل قاعدة بيانات القرآن كاملا من موقع qurandatabase باكثر من صيغة http://qurandatabase.org وهنا قاعدة بيانات القرآن كاملا من موقع تنزيل tanzil يمكن تحميل الملف بصيغة txt ثم نسخه الى ملف اكسيل ثم نسخه الى اكسيس ان شاء الله بكل سهولة http://tanzil.net/download تحياتي

من خصائص زر الامر

السلام عليكم اخي ابو عبد الرحمن 🙂 رجاء لا ترفق مرفق فيه بيانات خاصة وحساسة ، لذلك فقد قمت بحذف المرفق (شكرا لأحد اخوتنا على الاشارة الى محتويات المرفق 🙂 ) ، واذا اردت ان ترفق شيء ، فرجاء حذف البيانات الحساسة واستبدالها ببيانات وهمية 🙂 جعفر

السلام عليكم من المفترض أنني وضعت درس التعامل الأنترنت باستخدام FTP و لكن بعض الظروف منعتني من ذلك إن كنت مستعجلا فسوف أقوم بالتعديل على ملفك و إن كنت غير ذلك فسوف أضع الدرس غدا بإذن الله

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

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

بارك الله فيك استاذ محمد وزادك الله من فضله

abo jood أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

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

بعد اذن الاستاذ عبدالفتاح في بي اكسيل واثراء للموضوع جرب هذه الطريقة اليك هذا الماكرو Sub pastespcolwid() ' Keyboard Shortcut: Ctrl+q ActiveCell.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False ActiveSheet.Paste End Sub ضعه في مديول ثم اهب الى Macro ثم Options ثم ادخل حرف Q لاختصار الماكرو انظر الصورة الماكرو ينفذ عملية اللصق عن طريق لوحة المفاتيح والطريقة هي : حدد النطاق الذي تريد ثم نسخ ثم اذهب الى مكان اللصق ثم على لوحة المفاتيح اضغط زر CTRL+Q وهذا المرفق Book1.xlsm

وعليكم السلام .. وبما انك لم تقم بتصميم الفورم بنفسك ,كان لزاما عليك استخدام خاصية البحث بالمنتدى فبه طلبك تكملة وتسجيل بيانات العمال من خلال فورم تسجيل بالرقم القومى

وعليكم السلام-لك ما طلبت جمع يوم + مورد1.xlsx

تفضل تم المطلوب بمعادلات المصفوفة خلاصه1.xlsx

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

الطريقة الثانية هنا الاستبدال بالاختيار ، عن طريق بلوكات يتم حفظها و تستدعي يدويا او كما يسمي Building Block و الطريقة كالتالي لنفرض أنك تريد توفير وقت كتابة جملة السلام عليكم و رحمة الله وبركاته اكتبها فى الملف لاول مرة ثم اخترها و اضغط ALT+F3 سيظهر لك المربع التالي و سنحفظها باسم السلام ضمن العبارات المحفوظة Building Block و هكذا تم حفظها و لاستدعاءها من قائمة Insert اختار Quick Parts Building Blocks organizers ثم اختار الجملة التي تريد ادراجها و سيتم ادراج الجملة المحفوظة المطلوبة و طبعا يمكنك اختصار الخطوات عن طريق اضافة ال quick Parts الى قائمة الاختصارات السريعة فتظهر كايقونة يمكن الوصول اليها سريعا و اختصار الخطوات السابقة كما هو مبين فى الصورة التالية ثانياً : من ناحية اخرى ستجد الوورد يقترح عليك الاستبدالات المسجلة عندما تكتب بعض الجروف دون الحاجة لادراج المكونات يدويا مثلما هو مبين فى الصورة التالىة و كل ما عليك هو ضغط Enter ليتم ادراج الجملة بالكامل 😄 ثالثاً: أيضا هناك حل آخر اذا لم يظهر لديك الاقتراح كما سبق ان تكتب كلمة السلام ثم تختارها دون زيادة مسافات فى النهاية ثم تضغط F3 و سيتم الاستبدال مباشرة من القائمة المخزنة

سألني صديق عن اعداد ماكرو يساعده فى توفير وقت عدة جمل يحتاج لكتابتها كثيرا فى الوورد واول ما خطر ببالي أن أبدأ كما طلب فى كتابة بعض الاكود، و تطرق ذهني أيضا لاعداد نموذج يحوي الجمل المتكررة، ليختار منه و لكن بفضل الله تذكرت حل يعرفه الكثير ، و لكن ربما لا يستخدمه الكثير، فاحببت مشاركتكم به ساضيف حلان الاول فى هذه المشاركة يخص الاستبدال الالى دون تدخل منك و الثاني ساضيفه فى مشاركة تالية هنا فى نفس الموضوع يخص الاستبدال يدويا اولا الاستبدال الالي فعلى سبيل المثال مثلا بدلا من كتابة جملة "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" اريد ان اختصر كتابتها على سبيل المثال ، و عليه فاختار كلمة لا تحتاج كتبتها كثيرة و يحبذ كونها مزيج من كلمة و حرف مثلا نختار هنا هذ1 لنكتبها كمفتاح للحصول على الجملة أو أي عبارة يسهل عليك استخدامها على الا تكون عبارة يتوقع استخدامها فى الكتابة العادية. مع ملاحظة أن الحد الاقصى لعدد حروف الجملة هو 255 حرف و الخطوات كالتالي: File Options ثم اتباع الخطوات التالية: 1- Proofing 2- Auto correct 3- نكتب هنا هذ1 4- نكتب الجملة الكاملة : "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" 5-add و نكرر ذلك لما نرغب من حالات ثم 6- ok و الان فى الوورد اذا كتبت هذ1 يليها مسافة أو Enter ستستبدل اليا ب "هذا للعلم و اتخاذ ما ترونه مناسباً من إجراءات مناسبة، مع وافر الشكر و التقدير" و هذا طبعا يوضح لماذا اخترنا جملة عبارة غير معتادة مثل هذ1 حتي لا يتم عمل استبدالات غير مرعوب بها اذا اخترنا جملة عادية و في المشاركة التالية ساضيف الطريقة الثانية

السلام عليكم أولا: أخي أحمد لم تضع مثالا لأقوم بالتعديل عليه أنت وضعت جدولا فقط لقد قمت بإضافة حقل لهذا الجدول اسمه value_web سوف توضع فيه القيمة المستوردة من الويب و أضفت نموذج به نموذج فرعي البرنامج يعتمد على قراءة الكود من النموذج الفرعي لكل سجل ثم يجلب القيمة من الويب و يضعها في الحقل value_web Suppliers-Copy-1.rar

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل لاحظت الكثير من الاخطاء عند العمل على المصاحف الرقمية وبفضل من الله تحصلت على ملف ورد من مجمع الملك فهد لطباعة المصحف الشريف اريد كل ايه فى سجل هل يمكن عمل ذلك برمجيا المصحف الرقمى - مجمع الملك فهد.mdb UthmanicHafs1 Ver13.doc

اخي هذه محاولة مني بالكود عن نفسي افضل الاكواد ديناميكية وسريعة من غير سحب المعادلات اذا زادت البيانات ملاحظة اكتب البيانات في العمود a فقط وسيجلب البيانات الكود Sub tr() Dim lr As Integer Application.ScreenUpdating = False lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lr Cells(i, 3) = Cells(i, 1) Next Range("c:c").Copy Destination:=Range("E1") Application.ScreenUpdating = True End Sub المصنف1.xlsm

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

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

أنا أقترح عليك .. تعيد إنشاء الجداول جيدا كما تريد . مع الأخذ بعين الاعتبار تكون أسماء الحقول بالانجليزي

انسخ جميع الخانات اللي تحت وضعها مكان الخانات الزرقاء

جزاك الله خيرا استاذ @أبو إبراهيم الغامدي

إقتراح جميل استاذ أبو إبراهيم الغامدي بارك الله فيك

أهلا بكم.. أقترح عليكم استخدام الشفرة التالية بدلا من السطر الأول Public Sub ExportToTextFile(ReportName) Dim RS As DAO.Recordset Dim TextFile As Integer Set RS = CurrentDb.OpenRecordset("استعلام4") TextFile = FreeFile Open CurrentProject.Path & "\" & ReportName & ".txt" For Output As #TextFile Do Until RS.EOF Print #TextFile, RS![LIGNECD] RS.MoveNext Loop Close #TextFile MsgBox "Done" End Sub Trans CD.mdb

بعد اذن استاد علي واثراء للموضوع هذا ملف يوجد به دوال لعد وجمع الالوان count and sum color1‬.xls

السلام عليكم ورحمة الله فى محاولة يائسة جرب هذه ="TickerChart|Live!'QO."&A2&".TAD$lasttradeprice'" ثم اسحب نزولا للصف الذى تريد

جزاك الله خيراً استاذ وجيه و تقبل الله منكم صالح الاعمال

اخي اين الملف حتى نعرف المدى والورقة التي ستطبق عليها عالعموم هذا ملف به كود برمجي بمجرد الضغط عليه يتم نسخ المدى بنفس عرض العمود في نفس ورقة العمل Sub width_col() Sheets("sheet1").Range("A1:e50000").Copy With Sheets("sheet1").Range("G1") .PasteSpecial xlPasteColumnWidths .PasteSpecial xlPasteValues, , False, False .PasteSpecial xlPasteFormats, , False, False End With Application.CutCopyMode = False End Sub FORMAT WIDTH‬.xls

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا تم ازاله الصف الاول بالتتغير الى false لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus بالتوفيق اخى Trans CD.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بامكانك حذف هذه الاسطر اخى @radwan1991 MsgBox "جميع مربعات النص بها قيم " On Error GoTo Erra Dim stDocName As String stDocName = "t1" DoCmd.OpenReport stDocName, acNormal Exit_Erra: Exit Sub Erra: MsgBox Err.Description Resume Exit_Erra بالتوفيق ان شاء الله

من العمود a الى العمود m هناك 13 عامود اي أعمده تريد منها

فى انتظار اعمال جديدة

https://www.officena.net/ib/topic/61529-كود-إخفاء-وإظهار-الإستعلامات/ انظر الى هذا الرابط http://arabteam2000-forum.com/index.php?/topic/271876-طلب-كود-اخفاء-الاستعلام-او-التقرير-او-الماكرو-او-وحدة-نمطية-داخل-النموذج/

لك ما تريد الكود Option Explicit Sub get_data() Dim w As Worksheet, K As Worksheet Dim mot Dim RwB As Range, RwG As Range Dim F_rgB As Range, F_rgG As Range Dim first_ro%, act_row%, m% Set w = Sheets("Wakil"): Set K = Sheets("Khoulasa") mot = K.Range("G2") Set RwB = w.Range("A8").CurrentRegion.Columns(2) Set RwG = w.Range("G8").CurrentRegion.Columns(1) Union(K.Range("C6:E100"), K.Range("I6:K100")).ClearContents m = 6 Set F_rgB = RwB.Find(mot, lookat:=1) If Not F_rgB Is Nothing Then first_ro = F_rgB.Row: act_row = first_ro Do K.Cells(m, 3) = w.Cells(act_row, 4) K.Cells(m, 4) = w.Cells(act_row, 3) K.Cells(m, 5) = w.Cells(act_row, 5) Set F_rgB = RwB.FindNext(F_rgB) act_row = F_rgB.Row m = m + 1 Loop Until act_row = first_ro End If m = 6 '======================================== Set F_rgG = RwG.Find(mot, lookat:=1) If Not F_rgG Is Nothing Then first_ro = F_rgG.Row: act_row = first_ro Do K.Cells(m, 9) = w.Cells(act_row, "I") K.Cells(m, 10) = w.Cells(act_row, "H") K.Cells(m, 11) = w.Cells(act_row, "J") Set F_rgG = RwG.FindNext(F_rgG) act_row = F_rgG.Row m = m + 1 Loop Until act_row = first_ro End If '======================================== End Sub الملف مرفق (مجرد ما تغير شيئاً ما في الخلية G2 الماكرو يقوم بعمله) Khoulassa_by_Code.xlsm

ربما كا المطلوب Khoulassa.xlsx

يبقى انت كده ما شوفتش الرابط ...مفيش مشكلة نقول لك تانى - من فضلك اتبع الخطوات الموجودة بالصورة وعليك بتنفيذها

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

تفضل يمكنك جعل المعادلة هكذا =IF(C1=1,RIGHT(A1)+LEFT(A1),"") 1.xlsx

وعليكم السلام-طبعا يمكنك ذلك بهذه المعادلة =IFERROR(VLOOKUP([@[رقم الايصال الاكتروني]],Table1,2,0),"") sheet1.xlsx sheet1.xlsx

بارك الله فيك استاذ محمد وزادك الله من فضله

بارك الله بكل مجهود طيب ... ان شاء الله في ميزان حسناتكم

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

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