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

وعليكم السلام اخي جعفر بدخل في الموضوع مباشرة القوانين وضعت للتنظيم وليست للتنفير اغلب اعضاء الموقع ممن يسهموا في تقديم الحلول ومشاركة الخبرات يكتبون باسماء مستعارة فالهدف نشر المعرف وتقديم يد العون للاخرين كل بمجهوده والتضييق على البعض منهم باغلاق مواضيعهم او تحريرها بدون اسباب موضوعية امر يدعو للتعجب اخيرا قالت العرب : من شدد نفر و من تراخى تألف واصدق من ذلك قوله عز وجل " فَبِمَا رَحْمَةٍ مِّنَ اللَّهِ لِنتَ لَهُمْ ۖ وَلَوْ كُنتَ فَظًّا غَلِيظَ الْقَلْبِ لَانفَضُّوا مِنْ حَوْلِك " اكتفي بما سبق والله الموفق .

يا لغفلتي وجهلي أجبت عن سؤال طرح منذ سنين وسنين كنت حياً أرزق حينذاك ، سبحان الله ...

تفضل هذا الملف ارجو ان يكون طلبك ملاحظة : يتم فتح الملف ب NotePad وتغيير المسار الى المسار المطلوب RemoteOpen.rar

وعليكم السلام ورحمة الله وبركاته بارك فيك استاذ وجيه

جرب الكود التالي في حدث KeyDown في خصائص التقرير If KeyCode = vbKeyP Then MsgBox "عذرا لا يسمح لك بالطباعة", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyV Then MsgBox "عذرا لا يسمخ بنسخ صورة التقريرm", vbCritical, "ERROR" KeyCode = 0 End If If KeyCode = vbKeyC Then MsgBox "عذرا لا يسمح بأخذ نسخة من شاشة التقرير", vbCritical, "ERROR" KeyCode = 0 نعدل لتعطيل نسخ الشاشة و لصقها أي تعطيل Ctrl C و Ctrl V

السلام عليكم ورحمة الله وبركاته تحية طيبة وبعد اهدى هذا الشيت الى منتدى اوفيسنا واساتذته الذين تعلمنا على ايديهم واهديه الى مهندس المنتدى مهندس طارق محمود الذى لم يبخل على فى تقديم الحلول والمساعدات ، وحقيقة وجودى فى منتدى اوفيسنا يعد تكريما لى وشرف الشيت سهل الاستخدام ولا يحتاج الى شرح يوجد ايقونة باسم الصور اذا حبيت تضيف صورة للطالب وبجوار زر الصور زر اخر لمعاينة الصورة ان حبيت تعمل معاينة للصور 1795607452_.xlsm

الدرس الاول في UserForm عناصر الدرس 1- اضافة التبويبات الرئيسية للفورم 2- اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module اولا : اضافة التبويبات الرئيسية 1- نقوم باضة userForm ثم نضيف اطار Frame ونضيف داخله عدد 5 Lebel بالنسبة لعنوان اكتب ما تشاء عربي انجليزي لكن المهم Label Name ( Btn1-Btn2-Btn3-Btn4) ا BackStyle =0 BorderStyle=0 واليبل الخامس لتغير خلفية النص Name=AnlBtn BackColor=&H8000000E& ثم نضيف ليبل خاص بالعنوان نسميه PageNo ثم نضيف MultiPage ونضيف في ال Page1 ثانيا ربط التبويبات بالفورم نضيف Class Module نكتب داخله الكود التالي Public WithEvents LblBtn As MSForms.Label Private Sub LblBtn_Click() ' للحركة بين التبويبات UserForm1.AniBtn.Left = LblBtn.Left 'ربط صفحات المالتي بيج مع التبويبات UserForm1.MultiPage1.Value = Right(LblBtn.Name, 1) - 1 'شريط العنوان UserForm1.PageNo.Caption = "Page No " & UserForm1.MultiPage1.Value + 1 & " ( " & LblBtn.Caption & " )" End Sub وفي الفورم Dim LblEvent(3) As New Class1 Private Sub UserForm_Initialize() With Me.MultiPage1 'لتغير استايل المالتي بيج .Style = fmTabStyleNone: .Value = 0 End With 'عدد التبويبات 4 من صفر الي 3 For AddEvent = 0 To 3 Set LblEvent(AddEvent).LblBtn = Me("Btn" & AddEvent + 1) Next AddEvent End Sub الملف بالمرفقات ياريت ننفذ الخطوات ولو اي استفسار ماتترد اتمني من الله اكون بسط الشرح ويكون فيه الاستفادة مع تحياتي MultiPage Officana.xlsm

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

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

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

اذا ممكن شرح هذه النقطة حتى نقدر نستفيد منها 🙂 المقصود بذلك الشمولية الوضوح امكانية التطبيق عدم الانتقائية الا تكون مبررا لتجاوزات بعض القائمين عليه والا سيكون القانون منفر بدلا من ان يكون منظم ب. فهمتها وكتبتها في الملخص، في نهاية اول مشاركة لي ، أ. ما فهمت كيف شو دور المشرفين فيها !! اسمح لي اقتبس هذا الجزء من مشاركة سابقة ربما يوضح الامر تحياتي،،

اسف على التاخير صراحة لم اتدكر موضوعك حتى قمت بالمشاركة في احدى المواضيغ المشابهة تفضل اخي اليك حل اخر ربما يفيدك test_MH.xlsm

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي ....في حالة كانت عندك على الجهاز نسخة اوفيس 2016 او ما قبل يمكنك استخدام المعاداة التالية في الخلية ("G14") مع الظغط على المفاتيح Ctrl+ Shift+ Enter مع سحب المعادلة الى الاسفل =SI(E9="";"";SIERREUR(@Singlecellextract(F9;تعريفات!$B$2:$C$1000;2);"")) ثم التوجه الى المطور واضافة هدا الكود في module Function SingleCellExtract(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer) Dim i As Long Dim Result As String For i = 1 To LookupRange.Columns(1).Cells.Count If LookupRange.Cells(i, 1) = Lookupvalue Then Result = Result & " " & LookupRange.Cells(i, ColumnNumber) & "," End If Next i SingleCellExtract = Left(Result, Len(Result) - 1) End Function اما في حالة كنت تمتلك نسخة 2019 وما فوق يمكنك استخدام المعادلة التالية في الخلية ("G14") مع الظغط على المفاتيح Ctrl+ Shift+ Enter =JOINDRE.TEXTE(", ";VRAI;SI(F4=تعريفات!$B$2:$B$1000;تعريفات!$C$2:$C$1000;"")) على العموم قم بتحميل الملفات من المرفقات بما انني استخدم اوفيس فرنسي احاول عدم اعادة صيغة المعادلات تفاديا للاخطاء . بالتوفيق فوسفور _VBA.xlsm نسخ حديثة.xlsx

تفضل هذه المحاولة ارجو ان تكون طلبك ملاحظة : التعديل تم بتصرف لكن قد يؤدي للمطلوب aa.rar

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

للرفع

وعليكم السلام ورحمة الله وبركاته 🙂 طيب شوف هذي الفكرة مثلا للتنقل بين قواعد البيانات وإعادة الربط بينها :

بارك الله فيك اخي الكريم

ما شاء الله فورم شكله جميل

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

جميل جدا مزيدا من التألق والابداع بادن الله

نعم ممكن الفكرة باستخدام ماكرو نسمية AutoKeys وماكرو فرعي ^p واجعل التقرير منبثق نعم ومشروط نعم مرفق مثال test.accdb

ان شاء الله احاول تكون الشروحات فيديو

طيب استبدل هذا السطر لديك ::: CurrentDb.Execute ("Delete * From Me.Combo15") بهذا السطر ::::: CurrentDb.Execute ("Delete * From " & Me.Combo15 & "") اعلمنا بالنتيجة :::::

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

السلام عليكم و رحمة الله عذرا على التأخير بسبب ظروف خاصة ..ربما يفيدك هذا الكود Private Sub CommandButton2_Click() 'الأوراق المختارة Dim ws As Worksheet, b As Boolean, s As String, x As Integer Dim Arr(), Ln As Long, sh As Worksheet Dim p As Long, Cont As Long, C As Range, j As Integer Dim Tmp(), r As Long, f As Integer '''''''''''''''''''''' ' Arr تخزين اسماء الشيتات المطلوب العمل عليها فى المصفوفة For Each ws In Worksheets For x = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(x) = True Then s = ListBox1.List(x) If s = ws.Name Then ReDim Preserve Arr(p) Arr(p) = s p = p + 1 End If End If Next x Next ws '''''''''''''''''''''' ''Tmp' اعداد للمصفوفة الجديدة On Error Resume Next For i = 0 To UBound(Arr) For Each sh In Sheets(Arr(i)) Ln = Sheets(Arr(i)).Range("A" & Rows.Count).End(3).Row Cont = Cont + Ln Next Next ReDim Preserve Tmp(Cont - 1) r = 0 '''''''''''''''''''''''' ' ' Tmp' تخزين البيانات فى المصفوفة For j = 0 To UBound(Arr) For Each C In Sheets(Arr(j)).Range("A1:A" & Ln) If Len(C) > 0 Then Tmp(r) = C.Value r = r + 1 End If Next Next '''''''''''''''''''''''' ' استدعاء البيانات المخزنة للست بوكس With Me.ListBox1 .Clear .List = Tmp End With End Sub

وعليكم السلام ورحمة الله وبركاته إن كنت تريد إجمالي الغياب يرجى وضع المعادلة التالية في الخلية Y7 =SUM(COUNTIFS(C7:X7;"غ");COUNTIFS(C7:X7;"م");COUNTIFS(C7:X7;"ب")) وفي الخلية Z7 =COUNTIFS(C7:X7;"م") ثم اسحب نزولاً ..بالتوفيق إن شاء الله تعالى .والسلام عليكم

أخي // اسلام تم تعديل الملف يمكنك السداد بطريقتين الطريقة الاولي:- 1- من خلال شاشة الدفعات يمكنك اختيار المستأجر المستحق عليه ايجار قم اضغط خيار(سداد) بجوار اسم المستأجر 2- سيحولك البرنامج تلقائيا الي شاشة الايرادات لتحرير ايصال استلام الايجار 3- اكمل بقية بيانات الايصال (رقم السند - البيان ) ثم اضغط (حفظ) 4- تظهر لك تاكيد حفظ السند والترحيل. تلاحظ عند طلب طلب كشف تم ظهور العميلة الطريقة الثانية مباشرة من شاشة الايرادات والمصروفات 1- اختار (ايراد) 2-ثم من نوع السند اختار ( تحصيل ايجار) 3- سوف يظهر لك كمبوبوكس لاختيار اسم المستأجر 4- اكمل بقية البيانات ثم حفظ الملف بالمرفقات برنامج الايجارات الاصدار الثاني 2- ضاحي الغريب.rar