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

تفضل لك ما طلبت-كما قلت لك سابقا لابد من ضبط تنسيق الرقم القومى مش عارف ليه الموضوع صعب كده معك يا استاذ على فقط كان عليك ضبط التنسيق مع تثبيت الجزء الموجود بالمعادلة الخاص بالصفحة الأخرى اى وضعه بين علامة الدولار كما تلاحظ المعادلة المفروض والصح تكون هكذا =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

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

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

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

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

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

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

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

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

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

ياباشا جزاك الله كل خير وكل سنه وحضرتك بخير وصحه وسعاده هراجعه حالا

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

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

كل عام والجميع بخير

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

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

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

تفضل اخي Da3.accdb

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

تفضل -عن طريق عمل تنسيق لهذا العمود كما بالصورة 1.xlsx

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

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

تفضل منع النسخ واللصق ومنع حفظ بإسم.xls

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

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

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

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

تفضل اخى الكريم ومن فضلك لابد من التفاعل والمشاركة الإيجابية مع جميع الأعضاء وأتمنى من الله التوفيق لك دائما هايبر لينك - 1.xlsm

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

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

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

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

وعليكم السلام تفضل حذف أرقام من اليمين.xlsx

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

وعليكم السلام تفضل Att Apr 2019.xlsx

السّلام عليكم و رحمة الله و بركاته على رأي أخي الفاضل و أستاذي القدير " ياسر العربي " .. أنت الآن جئت برجليْك لملعبي .. فقط قبل ذلك ما هو الاسم " بالعربية طبعا " الذي تودّ ظهوره على الشّاشة الافتتاحية .. هذا الاسم الذي يُرجى حسب توجيهات المنتدى أن يوفّقك الله و يتم الظهور به على منتدانا الحبيب بإذن الله .. فائق إحتراماتي

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

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

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

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

أخي الكريم مصطفى محمود مصطفى إليك الملف المرفق الخاص بك .. والعمل بالأكواد بدون معادلات .. حيث أن معادلات الصفيف لا أحبذها كثيراً يوضع الكود التالي في موديول عادي 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

مشكووور جدا اخي سأحاول اكمل من حيث اوصلتني انت شكرا على التعاون وسأوافيك بالنتائج