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

جرب هذا الملف الكود Option Explicit Sub Tasjil() Dim My_rg As Range Dim i%, x%, r Dim Find_rg As Range Dim Sh1 As Worksheet, Sh2 As Worksheet Set Sh1 = Sheets("sheet1"): Set Sh2 = Sheets("sheet2") Set My_rg = Sh1.Range("a8").CurrentRegion.Columns(1) x = My_rg.Rows.Count For i = 1 To x Set Find_rg = Sh2.Range("a7:I36").Find(My_rg.Cells(i), , , xlWhole) If Not Find_rg Is Nothing Then r = Find_rg.Offset(, 1).Address My_rg.Cells(i).Offset(, 1).Resize(, 2).Value = _ Sh2.Range(r).Resize(, 2).Value End If Next End Sub الملف مرفق _Salimسجل غياب.xlsm

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

لا تحتاج لكتابة الكود في أكسس ثم تصديره إلى إكسل فقط تحتاج كتابة جميع سطور الأوامر الخاصة بالإكسل بين السطرين with xl end with وكأنك في تطبيق الإكسل تماما مثلا .activesheet.range("a1").value=5555555

تعديل الماكرو Option Explicit Sub Ashwaii() Application.ScreenUpdating = False With Sheets("Salim") .Select Dim my_rg As Range Dim My_min%, My_max%: My_min = .[c1]: My_max = .[d1] Dim lra%: lra = .Cells(Rows.Count, 1).End(3).Row If lra < 2 Then lra = 2 .Range("a2:a" & lra).ClearContents Dim Nb%: Nb = My_max - My_min + 1 .Range("a2").FormulaArray = _ "=IF(ROWS($A$1:A1)>$D$1-$C$1+1,"""",LARGE((COUNTIF($A$1:A1,ROW(INDIRECT($C$1&"":""&$D$1)))=0)*ROW(INDIRECT($C$1&"":""&$D$1)),RANDBETWEEN(1,SUM(--(COUNTIF($A$1:A1,ROW(INDIRECT($C$1&"":""&$D$1)))=0)))))" .Range("a2").AutoFill Destination:=Range("a2:a" & Nb + 1) .Range("a2:a" & Nb + 1).Value = Range("a2:a" & Nb + 1).Value End With Sheets("data").Select Application.ScreenUpdating = True End Sub

بفضل الله الموضوع بسيط لفتح الإكسل على مصنف معين وتشغيل ماكرو معين فيه استعمل هذه الدالة Function runExcelMacro(wkbookPath, macroName) Dim XL As Object Set XL = CreateObject("Excel.Application") With XL .Visible = False .displayalerts = False .Workbooks.Open wkbookPath .Run macroName .ActiveWorkbook.Close (True) .Quit End With Set XL = Nothing End Function وطريقة استدعائها هكذا Sub mas() Call runExcelMacro("C:\myworkbook.xls", "Macro1") End Sub الباراميتر الأول مسار الملف وليس اسمه فقط والثاني اسم الإجراء موفق بإذن الله

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

السلام عليكم ورحمة الله وبركاته من خلال ملاحظتي بأنه لا يوجد توافق بين اصدارات الاكسس مثال على ذلك بين اكسس 2010 واكسس 2013 و2016 من ناحية الأكواد عند نقل كود من اصدار اكسس 2010 إلى اصدار اكسس 2013 أو 2016 تظهر رسالة خطأ في بناية الكود مع العلم أنه تم نقله بالكامل وبالشكل الصحيح .. سؤالي يا ترى ما هي الأشكالية في هذا الموضوع ؟

لكل عشاق الحديث في برمجة الأوفيس المتقدمة VBA يسعدني أن أقدم لكم شرح كود ترجمة جوجل 2019 في فيجوال بيسك للتطبيقات vba الموجودة ضمن حزمة ميكروسوفت أوفيس وسيكون الشرح على الأكسس microsoft access 2019 ومعالجة خطأ عدم ظهور الترجمة التعرف على أكواد لغات العالم world languages codes الموجودة في ترجمة جوجل وعددها 105 لغة التعرف على أسماء لغات العالم بالإنجليزية وباللغة العربية وباللغة المحلية لكل لغة دالة معرفة لإيقاف تنفيذ الكود فترة من الثواني wait مثل application.wait الموجودة في إكسل كتابة سطرين كود في سطر واحد نطق النصوص من خلال vba بجميع لغات العالم text to speech ترجمة سجلات الجداول أو الاستعلامات من خلال ADO وغيرها الكثيييييير اكتشفها بنفسك رابط القناة لمن لم يشترك معنا حتى الآن https://www.youtube.com/ostazmas2 #ostazmas ************ فتابعونا وقوموا بتفعيل زر الجرس للتنبيه وقت صدور الفيديو وعلق ولو بحرف لكي تدعمنا للاستمرار من أجلكم ********************* وفي هذه المرة لن أضع لكم الملف المستخدم في الشرح ولكن سأطلب ممن فهم الشرح أن يقوم بتطبيقه ويرفع لنا هنا ما تعلمه فعلا كنتيجة الفيديو ///////////////// وتذكر معي الحكمة القائلة: لا تعطني سمكة ولكن علمني كيف أصطاد

بارك الله فيك

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

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

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

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

جزاك الله خيرا سأجرب وأوافيكم بالنتائج ان شاء الله

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

السلام عليكم جرب هذا ووافنا بالنتائج ولكن أنصحك بأمور من باب قول القائل علمنى الصيد ولا تعطنى سمكة 1- أرجو أن تطلع على الأكواد المستخدمة وتحاول فهم الفكرة العامة بها 2- وأن تعلم أن هذه الأكواد مجرد فكرة وليست هى الكود الحصرى لفعل هذا بل يمكن اختزال هذه الأكواد أو تغيرها أو حتى الوصول لنفس النتيجة بدونها 3- وخلاصة القول ألا تعتمد فقط على عملية النسخ واللصق فحسب وجزاك الله خيرا على الصبر حتى انهاء القراءة - ووفقك الله لكل خير ولا تنسنا من صالح دعائك. po.rar

وعليكم السلام تفضل المنتدى الالوان.xlsx

تفضل صديقي admin 1 صلاحيات المستخدمين (1).accdb

الاستاذ سليم المبدع بارك الله لكم في علمكم وصحتكم وفقكم الله

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

تم التجربة بإلغاء السطر المشار إليه، والكود يعمل بشكل كامل. أشكر جهودك أخي شحادة بشير، والشكر موصول للأخ الفاضل/ رفعت يسر حامد على المجهود الأكثر من رائع، وإلى جميع القائمين بمنتدى أوفيسنا. يعطيكم العافية كلامك سليم أخي الفاضل، وقمت بإلغاء سطر x = x + 1 وتم تشغيل الكود والأمور على ما يرام. أشكر جهودك الأكثر من رائعة، ولكل القائمين على منتدى أوفيسنا يعطيك العافية الله يعطيك العافية، تم حل المشكلة بإضافة كود تم إدراجه بالمشاركات أعلاه. أشكر لكم جهودكم الطيبة معنا دمتم بخير

برنامج رائع تسلم ايدك بس كل مفتح اللينك الاقى الصفحة مغلقه 😞

نعم أخي الكريم هذا ما اردته وأكثر والحل فعلا بمنتهى الروعة فجزاك الله خير الجزاء وشكرا لك على مشاركتك النافعة والشكر موصول للأخ فارس بني هلال الذي أتعبته كثيرا معي والحقيقة أعجز عن وصف كرم الأعضاء والمشرفين في هذا الموقع الرائع رغم اني عضو جديد لم يمضي سوى ايام قلائل على تسجيلي في الموقع لم يتأخر الأخوان في الرد على سؤالي شكرا لكم جميعا ❤️ نعم اخي فارس بني هلال مشاركة الأخ ابو عبدالله الحلواني كانت بمنتهى الروعة وتم حل المشكلة شكرا لك وشكرا للأخ ابو عبدالله الحلواني وشكرا لهذا الموقع الرائع❤️

معادلة اخرى =COUNTIF($C$2:$C$6,"?*")

السلام عليكم لو سمحتم لى بالمشاركة هذه فكرة أرجو أن تكون موافقة لطلبك تفضل Test.accdb

شكرا لكم جزيلا

شكرا استاذ مصطفى حل آخر وجدته COUNTA(A1:A10<>"")

يبدو أن فكرة تطبيق ما تعلمه كل منا في الفيديو وصناعة ملف كدليل على الفهم الجيد فكرة صعبة ؟؟؟!!!

تفضل تقدر تضيف مستخدمين وتحدد الصلاحيات وتعدل المعلومات اتمنى لك الفائدة صلاحيات المستخدمين.accdb

Sub فهرس_الأحاديث() ' ' فهرس_الأحاديث Macro ' ' Dim refaat As Double refaat = InputBox("اكتب عدد الإشارات المرجعية") Dim x As Double x = 1 ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _ 2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _ wdAutoFitFixed With Selection.Tables(1) If .Style <> "شبكة جدول" Then .Style = "شبكة جدول" End If .ApplyStyleHeadingRows = True .ApplyStyleLastRow = False .ApplyStyleFirstColumn = True .ApplyStyleLastColumn = False .ApplyStyleRowBands = True .ApplyStyleColumnBands = False End With Selection.TypeText Text:="الحديث" Selection.MoveRight Unit:=wdCell Selection.TypeText Text:="الصفحة" Selection.MoveRight Unit:=wdCell For x = 1 To refaat Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdContentText, ReferenceItem:="H" & x, InsertAsHyperlink:= _ True, IncludePosition:=False, SeparateNumbers:=False, SeparatorString:= _ " " Selection.MoveRight Unit:=wdCell Selection.InsertCrossReference ReferenceType:="إشارة مرجعية", _ ReferenceKind:=wdPageNumber, ReferenceItem:="H" & x, InsertAsHyperlink:=True _ , IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" " Selection.MoveRight Unit:=wdCell x = x + 1 Next End Sub

يشترط لتقوم بعمل ذلك برمجيًا أن يكون إدخال الإشارات المرجعية بهذا النمط فليكن هذا المثال على فهرس الأحاديث. سوف نرمز للحديث الذي تم التحديد عليه في البحث بالرمز H إذًا سوف يكون تسلسل إدخال الإشارات المرجعية للأحاديث هكذا H1, H2, H3, H4 .............. وهكذا حتى نتنهي من كامل البحث . ويجب أن تكون على علم بآخر إدخال مرجعي قمت بعمله فليكن على سبيل المثال إجمالي الإشارات المرجعية للأحاديث 10 أحاديث على سبيل المثال . (يعني انتهيت من آخر حديث H10). سوف تقوم بنسخ الكود ولصقه في ال vba كما تعلم. ثم بعد تشغيل الكود اكتب هذا الرقم 10 بداخل المربع الحواري الذي سوف يظهر. ودع الكود يقوم بتنزيل الإشارات المرجعية. وهذا هو الكود:

السلام عليكم و رحمة الله و بركاته هل من يريد كل الأعداد بين عددين (حسب الاختيار) موزّعة عشوائياً دون تكرار ؟؟ انظر الى الملف المرفق توزيع عشوائي دون تكرار1.rar

السلام عليكم ورحمة الله أخي الكريم سلامي، تم عمل المطلوب وزيادة (جعلتها 10 بطاقات في صفحة واحدة)... تم تبديل الخطوة في زر التحكم إلى 10 بدلا من 2 (حسب عدد الباطاقات)... والتي لم أستطع التحكم فيها هي التسمية الخاصة بجلب صورة كل بطاقة في الصفحة (لم أستطع جعل التسمية ديناميكية أي تسمية واحدة تتغير حسب رقم البطاقة في الصفحة -الرقم في جانب كل بطاقة-) لذا فكل صورة جعلت لها معادلة بالتسمية حسب رقمها (بإذن الله سأفكر في تبسيط هذه العملية بتسمية واحدة).... أرجو أن تفي هذه التعديلات بالغرض المطلوب... أخوك بن علية الملف المرفق : بطاقات للارسال 10.rar

نسيت أخبرك أن تسمي أي مجال بإسم room1 (الأصفر) ليعبر عن عدد صفوف وأعمدة الحجرة 1 و تسمي أي مجال آخر بإسم room2 (الأخضر) ليعبر عن عدد صفوف وأعمدة الحجرة 2 وطبعا تستطيع تغيير العدد في الغرفتين كما تحب مثلا إن كان عندك 120 طالب ، يعني يلزمك (120-104) = 16 مكان وكل مكان محجوز له مقعدين يعني 32 مقعد زيادة ممكن تزيد عدد المقاعد صفين×8 لكل حجرة لتكون 16×8 + 14×8 = 240 فلتحدد فقط مثل هذه المساحات (عدد من الخلايا) وتسميها كما سبق والكود سوف يقوم بالباقي