البحث في الموقع

بسم الله الرحمن الرحيم الحمد لله رب العالمين، والصلاة والسلام على أشرف المرسلين، سيدنا محمد وعلى آله وصحبه والتابعين. تظل منتديات اوفيسنا علي مدار السنوات من تاريخ ولادتها ونشأتها الي اليوم وهي رمز للعطاء بلا حدود حملت علي عاتقها رسالة ذات هدف وهي مشاركة الخبرات والتعلم معظمنا بدانا كسائلين للمساعدة في معلومة ما حتي وصلنا الي داعمين فاتحين قلوبنا لكل مبتغى مساعدة من خلال المشاركات تعلمنا وعلمنا يمكن معظم الفرسان الذي بدأت معهم انقطعوا عن المنتدي لظروف الحياة ومنهم من وافتهم المنية لكن اعمالهم واطروحتهم باقية تذكرنا بهم لندعو لهم بالرحمة وانا عن نفسي انقطعت كثيرا عن المشاركة لظروف صحية لكن اتابع من بعيد .الشكر لهم جمعيا م محمد طاهر المؤسس – عبدالله باقشير – شوقي ربيع – رجب جاويش –احمد فضيلة – ياسر خليل – حمادة عمر – مجدي يونس – جمال الدغيدي – نارت ليبزو – عبدالله المجرب.........والكثيرون مع حفظ الالقاب بارك الله فيهم جمعيا وفي كل عائلة اوفيسنا من اعضاء وفريق عمل . وبعد: فيسعدني أن أشارك المنتدى ببرنامج ادارة اشتراكات IPTV كان طلب لاحد الاخوة علي الخاص سائلين الله تعالى أن ينفع بما فيه من افكار لاستخدام خصائص الفورم الديناميكية وادارتها بشكل سلس . وما توفيقنا إلا بالله عليه توكلنا وإليه ننيب. شرح بسيط للبرنامج اولا : شاشة الدخول اضافة عدد غير محدود من المستخدمين . تحديد صلاحية المستخدم . حفظ كلمة المرور . عرض كلمة المرور. تقييد الدخول 3 محاولات للدخول الغير صحيح . تقرير عن الدخول لكل مستخدم مع الوقت والتاريخ . التحكم في الخيارات من خلال الفورم تبويب (User). ثانيا يوزالفورم كالتالي يحتوي علي العديد والعديد من المهام والوظائف - اضافة مشترك جديد -البحث عن مشترك بمعلومية الرقم التسلسلي او الاسم - تقارير متنوعة - شاشة مساعدة لشرح البرنامج - ادارة المستخدمين والصلاحيات. التبويب الأول ( تبويب جديد ) ادراج تاريخ اليوم بوالرقم التسلسلي شكل تلقائي - الاختيار من قائمة نوع الاشتراك وتعبئة تاريخ البداية والنهاية والسعر بشكل تلقائي - شروط اجبار المستخدم علي ادخال الييانات. التبويب الثاني (البحث ) - امكانية البحث بمعلومية الرقم التسلسلي أو اسم العميل . - اظهار حالة الاشتراك نشط او غير نشط - رسالة تنبيه علي انتهاء الاشتراك خلال ال5 ايام الاخيرة لنهاية الاشتراك. - تعديل بيانات الاشتراك (كلمة المرور - المستخدم - الماك - رقم الهاتف ) - امكانية تجديد الاشتراك. عند ظهور علامة الواتس بالضغط عليها ينتقل البرنامج لارسال رسالة للمشترك بقرب موعد انتهاء الاشتراك وبعد الارسال تظهر رسالة تفيد نجاح الارسال مع اداراج تاريخ الارسال التبويب الثالث (التقارير) تقارير بكافة الاشتراكات . تقرير بالاشتراكات النشطة. تقرير بالاشتراكات المنتهية . تقرير بالاشتراكات حسب الشهر . تقرير التنبيه علي انتهاء الاشتراك خلال ال5 ايام الاخيرة. كشف حساب عميل . طباعة اي تقرير. التبويب الرابع (ادارة الاشتراكات) اضافة اشتراك جديد مع السعر البحث وتعديل اي اشتراك التبويب الخامس (المساعدة) وفيه شرح لتبويبات وظائف البرنامج التبويب السادس (المستخدمين) ولا يمكن الوصول الي التقرير الا اذا كان الدخول ادمن مع المطالبة بادخال الباس ورد نفسها نفس باس ورد الدخول للبرنامج تقرير عن عمليات الدخول لكل مستخدم بالوقت والتاريخ والصلاحية والتي تظهر اسفل افورم. اضافة مستخدم جديد وتحديد صلاحياته البحث وتعديل مستخدم حالي. البرنامج بالمرفقات كلمة المرور الافتراضية 1234 المستخدم Dahy يعمل فقط علي 32bit ZAD IPTV Subscription.xlsm

السلام عليكم ,, كل عام وحضراتكم بخير عندي استفسارين فى الاكسيل بما انه ليس من مناطق قوتى 😅 واتمنى سعة الصدر . الملف المرفق به 2 شيت (Data,يومية الانتاج) وبه يوزر فورم المطلوب منه البحث بجزء من الكلمة فى شيت Data فى نطاق محدد متغير بناء على اختيار RadioButton فإذا كان الهدف من البحث هو ايجاد اسم عامل فيتم البحث فى نطاق اسمه "EmpData" فى شيت Data واذا كان الهدف ايجاد اسم مرحلة فيتم البحث فى النطاق "Process" , ثم اظهار نتيجة البحث فى Listbox فى اليوزر فورم السابق الاشارة اليه. قمت بعمل الكود التالى : Private Sub TextBox1_Change() Dim searchData As Range Dim cell As Range Dim i As Long 'Determine which search data to use based on radio buttons Select Case True Case Process.Value = True Set searchData = ThisWorkbook.Worksheets("Data").Range("Data") Case Emp.Value = True Set searchData = ThisWorkbook.Worksheets("Data").Range("EmpData") Case Else 'No radio button is selected Exit Sub End Select 'Clear the ListBox1 ListBox1.Clear 'Find matching values and add them to ListBox1 For Each cell In searchData If InStr(1, cell.Value, TextBox1.Value, vbTextCompare) > 0 Then ListBox1.AddItem cell.Value End If Next cell 'Select the first item in the ListBox1 If ListBox1.ListCount > 0 Then ListBox1.Selected(0) = True End If End Sub الكود يبحث بنجاح ولكن يظهر عمود واحد فقط فى نتيجة البحث على عكس المطلوب وهو اظهار عدد اعمدة متغيرة طبقاً للنطاق الذى يتم البحث فيه . مثال للتوضيح : فى الصورة المرفقة قمت بالبحث عن عامل يسمى حسن , النتيجة كانت كالتالى : قام بعرض عمود واحد وبه الاسم المطلوب , ولكن المطلوب عرضه هو السطر كامل الذى يحتوى على حسن وبه 5 اعمدة , وبالتالى النتيجة المرجوة ينبغي ان تكون كالتالي : المطلوب عرض النتيجة بهذا الشكل فى Listbox . وتختلف الاعمدة فى حالة البحث عن المرحلة فتكون بالشكل التالي : الاستفسار الثاني : آلية العمل كما رسمتها انى سأقوم بالبحث عن اسم العامل واختياره من القائمة بضغطتين وبذلك يتم نقل "كود العامل" و "اسم العامل" من النتيجة المختارة من القائمة الى السطر الحالي فى الشيت الآخر وهو شيت يومية الانتاج , ثم يتم اليحث عن مرحلة وأقوم باختيار المطلوبة فيتم نقل "كود المرحلة" و "اسم المرحلة" و "سعر المرحلة" الى الاعمدة المناسبة فى نفس السطر وبالتالى تكون النتيجة المطلوبة بعد عمليتين البحث كالتالي : ملحوظة : يمكننى عمل الموضوع فى الاكسيس فى 3 دقائق ولكني ابحث منذ 3 ساعات لرغبتى فى عمله على الاكسيل .😅 اعذروني على الموضوع الطويل , جزاكم الله خير🥰 Search.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

أحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد http://www.officena.net/ib/index.php?showtopic=44506 http://www.officena.net/ib/index.php?showtopic=46612&page=1 http://www.officena.net/ib/index.php?showtopic=47476&p=299772 http://www.officena.net/ib/index.php?showtopic=49929 . كلمة المرور للدخول 123 ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال أترككم لتجربة البرنامج بانفسكم وارحب بمشاركتكم في اية استفسارات او تعديلات وفقنا الله واياكم للصالحات وجمعة مباركة ادارة الاشتراكات V2.rar

كان (الأستاذ أبو عبد الملك السوفي) طلب كود لجعل ال Frame شفافاً ففكرت بشرح الموضوع والأكواد كلها وكيفية وضعها من خلال ثلاث حالات الحالة الأولى :- لجعل frame شفافاً ليعطى شكل صفحة الإكسل التى خلفه تقوم بعمل Class Modules ومن الخصائص تقوم بتغيير اسمه إلى CTransparentFrameMaker ونقوم بوضع هذا الكود به Option Explicit Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type PICTDESC Size As Long Type As Long #If VBA7 Then hPic As LongPtr #Else hPic As Long #End If hPal As Long End Type #If VBA7 Then Private Declare PtrSafe Function GetDC Lib "user32" (ByVal hwnd As LongPtr) As LongPtr Private Declare PtrSafe Function ReleaseDC Lib "user32" (ByVal hwnd As LongPtr, ByVal hdc As LongPtr) As Long Private Declare PtrSafe Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As LongPtr, ByVal nWidth As Long, ByVal nHeight As Long) As LongPtr Private Declare PtrSafe Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As LongPtr) As LongPtr Private Declare PtrSafe Function DeleteDC Lib "gdi32" (ByVal hdc As LongPtr) As Long Private Declare PtrSafe Function DeleteObject Lib "gdi32" (ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function SelectObject Lib "gdi32" (ByVal hdc As LongPtr, ByVal hObject As LongPtr) As LongPtr Private Declare PtrSafe Function BitBlt Lib "gdi32" (ByVal hDestDC As LongPtr, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As LongPtr, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Declare PtrSafe Function GetDeviceCaps Lib "gdi32" (ByVal hdc As LongPtr, ByVal nIndex As Long) As Long Private Declare PtrSafe Function OleCreatePictureIndirect Lib "oleAut32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As LongPtr, IPic As IPicture) As LongPtr Private Declare PtrSafe Function GetWindowRect Lib "user32" (ByVal hwnd As LongPtr, lpRect As RECT) As Long Private hMemDc As LongPtr #Else Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject As Long) As Long Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long Private Declare Function OleCreatePictureIndirect Lib "oleAut32.dll" (PicDesc As PICTDESC, RefIID As GUID, ByVal fPictureOwnsHandle As Long, IPic As IPicture) As Long Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long Private hMemDc As Long #End If Private Const SRCCOPY = &HCC0020 Private Const PICTYPE_BITMAP = &H1 Private Const SM_CYFRAME = 33 Private Const HORZ = 8 Private Const VERT = 10 Private arFramesArray() As Control Private i As Long Private WithEvents oForm As UserForm Private Sub Class_Initialize() i = -1 VBA.AppActivate Application.Caption Call TakeFirstScreenSnapShot End Sub Private Sub Class_Terminate() DeleteDC hMemDc End Sub Public Sub AddFrame(ByVal Frame As Control) i = i + 1 ReDim Preserve arFramesArray(i) Set arFramesArray(i) = Frame Set oForm = Frame.Parent End Sub Private Sub UpdateFrameBackGround(ByVal frm As Control) #If VBA7 Then Dim hMemDc2 As LongPtr, hMemBmp2 As LongPtr #Else Dim hMemDc2 As Long, hMemBmp2 As Long #End If Dim tFrameRect As RECT Dim oPic As IPicture On Error Resume Next GetWindowRect frm.[_GethWnd], tFrameRect With tFrameRect hMemDc2 = CreateCompatibleDC(hMemDc) hMemBmp2 = CreateCompatibleBitmap(hMemDc, .Right - .Left, .Bottom - .Top) SelectObject hMemDc2, hMemBmp2 BitBlt hMemDc2, 0, 0, .Right - .Left, .Bottom - .Top, hMemDc, .Left, .Top + GetSystemMetrics(SM_CYFRAME), SRCCOPY End With Set oPic = CreatePic(hMemBmp2) SavePicture oPic, Environ("Temp") & "\" & frm.Name & ".bmp" Set frm.Picture = LoadPicture(Environ("Temp") & "\" & frm.Name & ".bmp") Kill Environ("Temp") & "\" & frm.Name & ".bmp" DeleteObject hMemBmp2 DeleteDC hMemDc2 End Sub #If VBA7 Then Private Function CreatePic(ByVal hbmp As LongPtr) As IPicture #Else Private Function CreatePic(ByVal hbmp As Long) As IPicture #End If Dim IID_IDispatch As GUID Dim uPicinfo As PICTDESC Dim IPic As IPicture With IID_IDispatch .Data1 = &H20400 .Data4(0) = &HC0 .Data4(7) = &H46 End With With uPicinfo .Size = Len(uPicinfo) ' .Type = PICTYPE_BITMAP .hPic = hbmp .hPal = 0 End With OleCreatePictureIndirect uPicinfo, IID_IDispatch, 1, IPic Set CreatePic = IPic End Function Private Sub TakeFirstScreenSnapShot() #If VBA7 Then Dim scrDc As LongPtr, hMemBmp As LongPtr, hwnd As LongPtr #Else Dim scrDc As Long, hMemBmp As Long, hwnd As Long #End If Dim w As Long Dim h As Long scrDc = GetDC(0) w = GetDeviceCaps(scrDc, HORZ) h = GetDeviceCaps(scrDc, VERT) hMemDc = CreateCompatibleDC(scrDc) hMemBmp = CreateCompatibleBitmap(scrDc, w, h) SelectObject hMemDc, hMemBmp BitBlt hMemDc, 0, 0, w, h, scrDc, 0, 0, SRCCOPY ReleaseDC 0, scrDc DeleteObject hMemBmp End Sub Private Sub oForm_Layout() Dim k As Long For k = LBound(arFramesArray) To UBound(arFramesArray) UpdateFrameBackGround arFramesArray(k) Next End Sub ثم تقوم بوضع هذا الكود داخل اليوزرفورم عن طريق الضغط عليه دوبل كليك Option Explicit Private oCTransparent As CTransparentFrameMaker Private Sub UserForm_Initialize() Dim oCtl As Control Set oCTransparent = New CTransparentFrameMaker For Each oCtl In Me.Controls If TypeName(oCtl) = "Frame" Then oCTransparent.AddFrame oCtl End If Next End Sub وهذا الملف به تطبيقاً على الفكرة Frame.xlsm ------------------------------------------------------------------------------------------------------------------------------ الحالة الثانية :- لجعل Frame شفافاً بلون Userform الذى اسفله نقوم بوضع هذا الكود بداخل ال userform بالضغط دوبل كليك عليه Private Sub UserForm_activate() With Frame1 .BackColor = BackColor End With End Sub وهذا ملف للتوضيح Frame1.xlsm ----------------------------------------------------------------------------------------------------- الحالة الثالثة :- لجعل userform وال frame شفافاً (وهذا الكود والملف من مشاركات الأستاذ ali mohamed ali ) نقوم بوضع هذا الكود داخل اليوزرفورم عن طريق الضغط على اليوزرفورم دوبل كليك Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Dim hWnd As Long Private Sub UserForm_activate() Dim ufcap As String hWnd = FindWindow("ThunderDFrame", ufcap) hosami Me, 150 End Sub Private Function hosami(frm As UserForm, Level As Byte) As Boolean SetWindowLong hWnd, GWL_EXSTYLE, WS_EX_LAYERED SetLayeredWindowAttributes hWnd, 0, Level, LWA_ALPHA End Function وهذا الملف به تطبيقا للفكرة شفافية اليوزرفورم .xlsm

المرفق به فورم يحتوي على عدد 2 ليست بوكس احدهما لجلب اسماء الاوراق الموجودة في ملف الاكسيل يوجد ازرار تمكنك من ترحيل اسماء الاوراق التي تريد طباعتها او حفظها إلى الليست بوكس الاخر ومن ثم الضغط على زر الطباعة او الحفظ يمكنك اكتشاف الامر عمليا حمل المرفق وشاهد Print and Save As pdf Using ListBox in a UserForm.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

بسم الله الرحمن الرحيم أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم *********************** لاحظت عبر مشاركات عديدة وكثيرة داخل المنتدي موضوع الكنترول مساهمة مني لاخواني المعلمين فكرت في انشاء برنامج نحاول جمعيا ان نشارك في بناءه ويكون مرن بحيث يمكن تعديله للمراحل المختلفة ( ابتدائي - اعداي - ثانوي - ازهري) ونظرا لاني لا امتلك الخبرة الكافية في مجالات الكنترول بحكم انها مش مجال تخصصي لذلك كان التعاون المثمر بيني وبين اخي الحبيب الأستاذ/ قنديل الصياد بما له من خبرة وباع كبير في مجال الكنترول وكانت البداية من خلاله ومن خلال شيت كنترول المرحلة الابتدائية قام باعداده مسبقا كانت البداية قمت بتقسيم العمل علي اربعة مراحل لتفادي الاخطاء واعطاء فرصة للمراجعة والتدقيق والتطوير المرحلة الاولى: تشمل - عملية البحث المختلفة وفيها البحث عن نتيجة طالب بمعلومية رقم الجلوس من الصف الاول للصف السادس وعرض نتيجة الترمين - امكانية عرض تفاصيل درجات الطالب ومن ثم طباعة شهادة الطالب ( تم الانتهاء منها ) المرحلة الثانية : مرحلة الادخال وتشمل - نماذج ادخال بيانات الطلاب الجدد وتسجيل الدرجات (تحت التنفيذ) - ادخال بيانات المدرسة التي تظهر في جميع النماذج (تم الانتهاء منها ) المرحلة الثالثة : التقارير وتشمل تقارير الطلاب (الناجحين - الراسبين ) ، (ذكور - ايناث ) بحسب الديانة (مسلم - مسيحي ) .... الخ (تحت التنفيذ) المرحلة الاخيرة : النماذج وتشمل نموذج تسجيل طالب او تقرير وزارة التربية والتعليم او النماذج التي يحتاج اليها المعلم والطالب . قمت بطرح الموضوع الان لتجربة الفكرة ولنتشارك جمعيا بالافكار المختلفة للاستكمال العمل ان شاء الله تعالى شرح البرنامج 1- الشاشة الرئيسية للبرنامج 2- القوائم الرئيسية للبرنامج 3- قائمة ملف الفرعية 4- قائمة المساعدة الفرعية 5- شاشة البحث 6- شاشة البحث لاختيار الصف وادخال رقم جلوس الطالب 7- شاشة البحث التي توضح نتيجة الطالب في الترمين الاول والثاني 8- شاشة فرعية توضح درجات الطالب بالتفصيل للترم الاول ويمكن الوصول اليها عند اختيارك (عرض تفاصيل النتيجة ) 9- شاشة فرعية توضح بيانات الطالب للترم الثاني 10- خيار ادخال بيانات المدرسة والتي يظهر في جميع النماذج والفورم فاللهم تقبل منا عملنا هذا خالصا لوجهك الكريم اسأل الله العلي القدير أن يوفقني وإياكم لما فيه الخير الملف تجريبي بالمرفقات تم رفعه بدون معادلات لسهولة الرفع والتحميل تم استبدال الملف (الملف الجديد بالمرفقات ) كنترول زاد - المرحلة الابتدائية نسخة تجريبية 1.rar

السلام عليكم ورحمة الله وبركاته كيف حال الاخوة الاعضاء و المشرفين اريد ان اعرف كيف اعمل فورم تاكيدي لعمل اكمر معين مثال عند كبس العميل لزر حذف تظهر له رساله " هل انت متاكد من حذف الفاتووره " اذا اختار "نعم" يطبق الامر و اذا اختار "لا" يختفي فورم الرسالة مع كامل تحياتي

الحب في الله تعالى أوثق عرى الإيمان وهو منحة من الله لا يشترى بالمال . قال تعالى في بيان فضله على عباده المتحابين ( وَأَلَّفَ بَيْنَ قُلُوبِهِمْ لَوْ أَنفَقْتَ مَا فِي الأَرْضِ جَمِيعًا مَّا أَلَّفَتْ بَيْنَ قُلُوبِهِمْ وَلَكِنَّ اللهَ أَلَّفَ بَيْنَهُمْ إِنَّهُ عَزِيزٌ حَكِيمٌ ) . و قد جعل الله الحب في الله سببا للنجاة من النار و دخول الجنة ، ففي الحديث الصحيح المتفق عليه في السبعة الذين يظلهم الله تحت ظله ، منهم ( رجلان تحابا في الله ، اجتمعا عليه ، و تفرقا عليه ) المحبة في الله نعمة من الله ، فقد الأحبة في الله غربة ، والتواصل معهم أنس ومسرة ، هم للعين قرة ، فسلام على من دام في القلب ذكراهم ، وإن غابوا عن العين قلنا يا رب احفظهم وارعاهم . لا يوجد متسع للكلام ، أحبكم في الله جمعياً اخي في الله المبدع أ/ شوقي ربيع وثمرة التعاون المثمر بأذن الله بيننا ، نأتي من جديد في سلسة برامج ضاحي وشوقي الخدمية ، لتيسير ما امكن علي اخواننا , نفعنا الله واياكم بما علمنا ولا تنسونا بدعوة بصلاح الحال بظهر الغيب . كلمة مرور الأدمن admin VBA Password 6626 فورم تعديل / اضافة صلاحيات المستخدمين البرنامج بالمرفقات Multi User Form Permissions Management.rar

السلام عليكم ورحمة الله وبركاته مرحبا جميعا عندي ملف اكسل وفيه كود VBA انا اريد تطبيق نفس هذا الدرس ,, لكن على شكل UserForm : http://trumpexcel.com/2013/10/excel-drop-down-list-with-search-suggestions/ الملف جاهز ويعمل ( لكنه غير مكتمل بعد ) لكن هناك مشكلة بسيطة عند ربط Combobox1 بالخلية A3 في الورقة Temp لكي يتم انتاج قائمة جديدة كل مرة يتم فيها ادخال نص في Combobox انتهي بدائرة غير منتهية مثلا : عند كتابة جزء من النص (مثلا bb ) تظهر جميع الاسماء التي تحتوي على هذا النص .. عندما انقر على الاختيار الاول تمشي الامور تمام كما اريد وانقر على زر perview ويظهر المعاينة لكن المشكلة عندما انقر اي خيار آخر غير الاول يختفي النص في Combobox (يجي ويختفي بسرعة ) كأنه لووب او شي خاطئ في تعريف dynamic named range ارجو المساعدة وشكرا مقدما SEARCH.rar

أساتذة هذا المنتدى الرائع - عيد سعيد علينا جميعا وكل عام وانتم بخير ارجو شرح طريقة عمل شاشة ادخال UserForm فى اكسيل 2010 لأن كل الموجود شروحات على اكسيل 2007 وارجو التكرم بأن يكون الشرح بالصور مع خالص الشكر والتحيه