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

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =IFERROR(VLOOKUP(A2,'رقم الموظف'!$A$1:$G$130,5,0),"") Pay-aht_moustafa-20190802-040908.xlsx Pay-mttks_magdi-20181011-082233-2019 - Copy.xls

تفضل 1الأثاث.xlsm

بعد اذن اخي ابو عارف شوف هل هذا ما تقصده Da3 (2).accdb

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

وده اللى انا قلته لك من الأول تجنبا لعدم اهدار الوقت فعليك برفع الملف نفسه طالما لم توفق في الكود المرسل لك

تفضل لك ما طلبت وزيادة تم عمل كود ووضعه في حدث الصفحة لحماية الصفحة الرئيسية _ وكلمة السر 123 Private Sub Worksheet_Activate() Sheets("Main").Protect Password:="123", UserInterFaceOnly:=True End Sub Book1.xlsm

كان عليك من البداية رفع الملف لكى تكون المساعدة أدق ولكن مثلا ضع هذا الكود في كوماند بوتن Enter في الفورم Private Sub CommandButton2_Click() UserForm1.Hide Application.Visible = True Sheets("Sheet8").Select End Sub

Dim queryName As String Dim fileName As String queryName = "إسم الإستعلام" fileName = Application.CurrentProject.Path & "\" & "إسم ملف الإكسيل" & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

هل يمكن لبرنامج اكسل ان يقوم بتقسيم الصورة علي مجموعة خلايا بنسبة مئوية معينة انظر لهذا الملف لتفهم ما أقصده Complete_picture.xlsx

فورم بحث وانتقال للاسم المختار الفيديو الصور

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

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

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

Option Explicit Sub TEST() Dim X, A, B, C, I% X = Range("B3").MergeArea.Rows.Count A = Range("A3").Value B = Range("B3").Value: C = Range("C3").Value Range("A3:C3").UnMerge With Range("A3") For I = 1 To X - 1 .Offset(I, 0) = A: .Offset(I, 1) = B Next End With End Sub جرب هذا الماكرو

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

تفضل جرب مثال ربط قائمة4منسدلة.rar

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

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

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

طيب غير سطر : OldImage = Me.imgWorker.OldValue الى : OldImage = Nz(Me.imgWorker.OldValue, FileName(Worker)) في الملف الاول قبل تعديل طبعا

السلام عليكم و رحمة الله و بركاته و السبب سجل جديد ليس لديه قيمة سابقة و الحل: استثناء سجل جديد في بداية الكود و عرض رسالة تفيد بان سجل اللي قمت باضافته ليس له صورة هل تريد اضافة صورة؟ ، ثم خيارين اذا اخترت لا سيضيف الاسم الجديد بلا خطاء و اذا اخترت نعم سيفتح نافذة لتختار لصورة و عند اختار الصورة البرنامج ينشئ مسار في مجلد صور ثم ينسخ الصورة باسم العامل. والمثال في المرفق Worker (4) (2).rar

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

وعليكم السلام لا تنتظر ان يقوم احد بتصميم فورم لك عليك بتصميم الفورم بنفسك واذا تعسرت في نقطة يمكنك رفعها او يمكنك الإستعانة بهذا الرابط https://www.officena.net/ib/topic/90652-فورم-اكسل-تسجيل-بيانات-وترحيل-بيانات-لصفحة-اخرى/?tab=comments#comment-568528

رائع استاذ على عمل ممتاز

تم التعديل على الملف حتى يتاماشى مع طلبك نسخة من 1.xlsm

أخى الكريم هذه الرسالة ليست مشكلة كما اخبرك الأستاذ وجيه واذا كان هناك اى مشكلة بالملف فمن عندك انت ومن نسخة الإكسيل لديك فالملف يعمل أيضا معى بكل كفاءة

المفروض تحرر الملف بضغط على ايقونة Enable Editng بعد ذلك الملف يعمل معك بشكل جيد

امين آمين اخي الكريم و جزاك الله بمتله واليك اضافة جديدة اضافة علامة مئوية مع رقم نفسه دون دون مربع اضافية لوضع علامة مئويه فيها Da3.accdb

الشيت يعمل معى وليس به اى مشكلة

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

بعد اذن اخى الحبيب استاذ احمد بدره واستاذ احمد يوسف المضوع بسيط لا يحتاج الى ملفين انظر الى هذا الملف لعله يفى بالغرض نسخة من 1111.xlsx

شكرا استاذ : عبداللطيف سلوم

ابوعبدالله_1972 جرب هذا الكود عسى أن يفى بالمطلوب Dim queryName As String Dim fileName As String queryName = "sales" fileName = Application.CurrentProject.Path & "\" & queryName & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, _ queryName, fileName, True

عليك برفع الملفات مع شرح مفصل للمطلوب وسوف تلقى المساعدة من الأساتذة

تفضل لك ما طلبت نسب العلاوة.xls

وعليكم السلام-تفضل لك ما طلبت Map12.xlsm

تفضل هذا الفيديو فبه ما تطلب وترغب https://www.youtube.com/watch?v=mX6JOfgb2hc ولكن فى نهاية الفيديو عند الضغط على Finish & Merge يمكنك الضغط على Edit Individual Documents بدلا من Print Document وذلك للحصول على الملف بالوورد وليس بتنسيق أخر وليس هناك طريقة سوى هذه وهذا هو ملف الوورد المطلوب المرتبات.docx

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

وعليكم السلام -اهلا بك فى المنتدى عليك برؤية هذا الرابط من داخل المنتدى https://www.officena.net/ib/topic/49169-شرح-تحويل-ملف-الاكسل-الى-exe-ثم-تغيير-الايقونة-ثم-setup-شوقي-ربيع/

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

وعليكم السلام -يمكنك استخدام هذه المعادلة البسيطة =IF((C4-D4)<0,0,C4-D4) جعل الناتج السالب صفراً.xlsx

لم توضح هذا فى طلبك عموما تفضل معادلة للبحث عن قيمة بأكثر من شرط-1.xlsx

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

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

تفضل اظهار الوقت سالب.xlsx

عليك برفع الملف ؟!!!!

بسيطة يمكنك استخدام هذه المعادلة -لو افترضنا ان أرقام المعتمرين بالخلية A2 وأن متوسط تسكين الفندق في الخلية B2 فتكون المعادلة بهذا الشكل -ولكن كما ننصح الجميع لابد من رفع ملف في اى مشاركة وتوضيح المطلوب عليه =ROUNDUP(A2/B2,0)

اللهم ارحم استاذنا عماد الدين الحسامي واكرم نزله اللهم امين اما التقويم لسه مشفتهوش انا بتكلم من الموبيل لما افتح كمبيوتر ابقي احط التاتش بتاعي

أخي الكريم مصطفى محمود مصطفى إليك الملف المرفق الخاص بك .. والعمل بالأكواد بدون معادلات .. حيث أن معادلات الصفيف لا أحبذها كثيراً يوضع الكود التالي في موديول عادي Public Coll As New Collection Public Function RefreshCollection() As Collection Dim collDummy As New Collection, ArrIn, ArrHead, I As Long, J As Long, Str1 As String, V Set Coll = Nothing With Sheet1.Range("C46").CurrentRegion ArrIn = .Value ArrHead = .Resize(1).Offset(-44).Value For J = 3 To UBound(ArrIn, 2) Step 2 For I = 2 To UBound(ArrIn, 1) If Len(ArrIn(I, J)) Then On Error Resume Next Str1 = CStr(ArrIn(I, J)) V = Coll(Str1) If Err.Number <> 0 Then Set collDummy = Nothing Coll.Add Key:=Str1, Item:=collDummy End If On Error GoTo 0 Coll(Str1).Add Array(ArrIn(I, J), ArrIn(I, J - 1), ArrHead(1, J - 1)) End If Next I Next J End With Set RefreshCollection = Coll End Function Public Function GetData(Param As String) Dim ArrOut, I As Long, V1, V2 If Coll.Count = 0 Then Set Coll = RefreshCollection() On Error Resume Next Set V1 = Coll(Param) If Err.Number = 0 Then ReDim ArrOut(1 To V1.Count, 1 To 2) For Each V2 In V1 I = I + 1 ArrOut(I, 1) = V2(1) ArrOut(I, 2) = V2(2) Next V2 GetData = ArrOut End If On Error GoTo 0 End Function ويوضع الكود التالي في حدث ورقة العمل المسماة حصص المعلمين Private Sub Worksheet_Activate() Set Coll = RefreshCollection() End Sub Private Sub Worksheet_Change(ByVal Target As Range) Dim Arr Application.EnableEvents = False Select Case Target.Address(0, 0) Case "H4" Range("G6:H1000").ClearContents Arr = GetData(Target.Value) If IsArray(Arr) Then Range("G6").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr Case "K4" Range("J6:K1000").ClearContents Arr = GetData(Target.Value) If IsArray(Arr) Then Range("J6").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr End Select Application.EnableEvents = True End Sub غير رقم المعلم في الخلايا الصفراء وفقط تقبل تحياتي Grab Data By Teacher's ID YasserKhalil.rar

اول مشاركة لية ارجو ان تكون مفيدة ملف بفورم يعرض اسماء الله الحسنى بالصورة والشرح مع شاشة اافتتاحية لمدة زمنية الشيتات محمية بالرقم 123 الكود غير محمي اي استفسار مرحب بها الرابط http://www.mediafire.com/download/c2ypmw5hrw8ru7f/Names.rar Names.rar