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

مميزات التقويم 1-هجري / ميلادي 2- يمكن البحث بالسنوات الهجرية ما بين 1318 و 1500 3- يوضح بالألوان فصول السنة 4-حسب تقويم أم القرى المعتمد من مدينة الملك عبدالعزيز للعلوم والتقنية 5-إمكانية إضافة المواعيد والمهام وتعديلها وحذفها 6-يوفر فرز للمواعيد والمهام القادمة والفائتة 7- يميز مواعيد والمهام المنفذة والفائتة 8- في التقويم يميز اليوم الموجود فيه موعد أو مهمة غير منفذة 9-يمكن تسجيل المواعيد والمهام بالتاريخ الهجري أو الميلادي تم تعديل الملف ليناسب الجميع التقويم.xlsx

السلام عليكم أكثر دقة في الملف المرفق... بن علية حاجي توزيع.xlsx

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

تم التعديل وعمل كل المطلوب عدا طباعة كشف محدد بمجموعة أرقام هوية لأن الطلب غير مفهوم تجربة عمل برنامج لعقد النظافة.xlsm

الأخوة والاصدقاء مساء الخير معلومة مفيدة ان شاء الله كيفية تنسيق ورقة البيانات وجعل منظرها انيق الشرح بالصور المرفقة Test0777134668.accdb

جرب هذا الملف distribution.xlsx

وعليكم السلام ورحمة الله وبركاته لمعرفة حجم قاعدة البيانات نستخدم الامر FileLen(CurrentDb.Name) مع ملاحظة ان الرقم يخرج بالبايت بعني انك ستحتاج الى قسمته على 1024 ليعطيك الحج بالكيلوبايت ثم القسمة على 1024 ليعطيك الحجم بالميجا استخدم الكود التالي وهو عند حجم 30000000 بايت يما يعادل 30 ميجا تقريباً If FileLen(CurrentDb.Name) > 30000000 Then Application.SetOption "Auto compact", True Else Application.SetOption "Auto compact", False End If الكود يقوم بوضع علامة صح امام خيار ضغط واصلاح قاعدة البيانات عند الاعلاق تحياتي

السلام عليكم ما رايك نختصر الكود كالتالي If Not IsNull(Me.x) Then Me.[تابع0].Form.Filter = "[id] =" & Me.x Me.[تابع0].Form.FilterOn = True End If Database5_2.rar تحياتي

بعد تغيير اسماء الصفحات الى Source و Target نفذ هذا الكود Option Explicit Sub get_data() Dim S As Worksheet, T As Worksheet Dim Rg_T As Range, Cel_T As Range Dim Cel_S As Range, Rg_S As Range Dim Dc As Object, K Dim m%: m = 5 Set S = Sheets("Source") Set T = Sheets("Target") Set Rg_T = T.Range("W5", Range("W4").End(4)) Set Rg_S = S.Range("C9", S.Range("C8").End(4)) Set Dc = CreateObject("Scripting.Dictionary") T.Range("AA4").CurrentRegion.Offset(1).ClearContents For Each Cel_T In Rg_T K = Cel_T & Cel_T.Offset(, 1) For Each Cel_S In Rg_S If Cel_S & Cel_S.Offset(, 1) = K Then _ Dc(Cel_S.Offset(, -1).Value) = "" Next Cel_S T.Cells(m, "AA").Resize(Dc.Count) = _ Application.Transpose(Dc.keys) m = m + Dc.Count: Dc.RemoveAll Next Cel_T Set Dc = Nothing End Sub الملف مرفق Fousoul_stds.xlsm

عطل السطر الثاني هكذا Option Compare Database 'Option Explicit Private Sub Form_Current() retvalue = GetSetting("A", "0", "Runcount") GD$ = Val(retvalue) + 1 SaveSetting "A", "0", "RunCount", GD$ If GD$ > 100 Then MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy") DoCmd.Quit End If End Sub تحياتي

شاهد المرفق انقر دبل كليك على الخليه الصفراء واكتب رقمين في اول مربع وهكذا الذي يليه طبعا هذا مثال بالامكان تطويعه لاكثر من حاله حسب طلبك Ali_Cll.xlsm

فورم بحث واظهار النتيجة فى الليست مع جمع البيانات فى TextBox الفيديو

جرب هذا الملف Book1.xlsm

شيت كنترول تجاري إيهاب حسن 2020 صف أول - صف ثاني جميع الشعب شيت بسيط سريع للغاية بدون أخطاء وبه كل ماتحتاج إليه حتى إظهار النتيحة 3_الإصدار_الثالث.rar

موضوع جميل وفيد جدا جزاك الله كل خير ي استاذ محمد

شكرا اخي الكريم على المعلومه القيمه استمر في الابداع

أخي احمد الكود ممتاز من حبث الفكرة والاسلوب ولكن لا بد لي من اضافة بعض التعديلات عليه ليكون : 1-بشكل اقصر 2-بدون كل هذه الاوامر Select و Activate التي ترهق البرنامج دون فائدة Option Explicit Sub Ahmed_Salim2() Dim AA%, N%, i%, Last_Row% Dim tt%: tt = 1 AA = [d4] N = Int([d2] / AA) + 1 Last_Row = Cells(Rows.Count, 3).End(3).Row Range("D8", Range("D7").End(4)).ClearContents For i = 8 To Last_Row Range("D" & i) = tt tt = IIf(tt < AA, tt + 1, 1) Next Range("D3") = Evaluate("=COUNTIF(D8:D100,1)") End Sub distribution_Ah_Sal.xlsm

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

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

شكراً لكم

بعد إذن الأساتذة الأفاضل سليم وابن علية لإثراء الموضوع حل بالأكواد ربما يفي الغرض distribution.xlsm

شكرا جزيلا على الاجابة لكن اريد ان يكون في حالة قسمة عدد الطلاب على عدد اللجان ان تكون الزيادة في كل اللجان عدا الاخيرة حتى لو بقية فارغة مثلا اذا كان عدد الطلاب 37 و عدد اللجان 7 يكون في كل لجنة 5 طلاب والاخيرة 2 مثلا اذا كان عدد الطلاب 37 و عدد اللجان 9 يكون في كل لجنة 4 طلاب والاخيرة 1 مثلا اذا كان عدد الطلاب 27 و عدد اللجان 10 يكون في كل لجنة 3 طلاب والاخيرة 0 هل هناك امكانية لذلك بمعنى اذا كان ناتج قسمة عدد الطلاب على عدد اللجان مثلا 3.1 أو 3.6 يكون عدد الطلاب في اللجنة يساوي 4 في كل اللجان بالتساوي حتى لو بقيت اللجنة أو اللجان الأخيرة فارغة

اظهر عمود ثانية مثل رقم الموبايل

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

السلام عليكم صورة ملفك من جهاز حاسوبي اخي تاكد من اعدادات اللغة عندك او غير نوع الخط المستخدم

حسب علمي المتواضع لاتحتاج إليها

ما الهدف من ذلك ؟

الاخ الرائد 77 شكرا على متابعتك معى وبعد اذنك واذن الاخ هانى محمد استعنت بملفك للشرح عليه فى الفيديو القادم تم تسجيله فعلا بس المونتاج بعد صلاة الجمعة ثم الرفع

حياك استاذي الغالي الوزير بالنسبة لحركة المخزون وإضافة الكميات تنقسم إلى عمليتين : 1- العمليات الواردة ( + ) عن طريق ( فاتورة شراء ، وفاتورة مرتجع البيع ). 2- العمليات الصادرة ( - ) عن طريق ( فاتورة مبيعات - مرتجع الشراء ) . لذا لدينا جدولان هما محورا البرنامج 1- رأس الفاتورة (tblFatora) . 2- وأطرافها (tblHaraka). الأطراف يحوي جميع حركات الأصناف داخل وخارج المخزون . إما إضافة الكميات الواردة عن طريق رصيد الأصناف في جدول الأصناف لا احبذها لان الصنف يمر بصعود ونزول في السعر .عليه أرى إضافة الكميات داخل المخزون عن طريق فاتورة شراء ليكون سعر كل صنف معه . هذا كان اجتهاد مني وما تعلمته خلال تجربتي البسيطة في بعض البرامج المحاسبية .ويبقى هذا العمل بشري يعتريه من النقص والسهو ولكن أكررها أنا لست محاسبة وزميلي محاسب كنت أخذ رأيه ورأي زملائي في بعض الأمور المحاسبية . وما نحن إلا حسنة من حسنات علمكم . والباب مفتوح للمناقشة للجميع؟

تابع الخطوات التالية : Example.accdb

اخي الكريم . القاعدة فارغه وما فيها اي شي

ربما هذا الكود يفي بالغرض Sub test() Dim lr Dim x lr = Range("a" & Rows.Count).End(xlUp).Row Range("i3:i" & lr).Formula = "=SUMIF($B:$B,$A:$A,H:H)" Range("i3:i" & lr).Value = Range("i3:i" & lr).Value Range("k3:k" & lr).Formula = "=SUMIF($B:$B,$A:$A,J:J)" Range("k3:k" & lr).Value = Range("k3:k" & lr).Value Range("m3:m" & lr).Formula = "=SUMIF($B:$B,$A:$A,L:L)" Range("m3:m" & lr).Value = Range("m3:m" & lr).Value End Sub

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

من باب الاختصار في كتابة الأوامر وعدم تكرارها مثال: لو اردت تطبيق امر من النموذج الرئيسي للفرعي يكتب بدونها هكذا: Forms!MainForm!SubFormName.Form.AllowEdits = Not Forms!MainForm!SubFormName.Form.AllowEdits.AllowEdits Forms!MainForm!SubFormName.Form.AllowEdits.Requery Forms!MainForm!SubFormName.Form.AllowEdits.SetFocus Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Caption = "Test" Forms!MainForm!SubFormName.Form.AllowEdits.cmdName.Enabled = False ويكتب باستخدامها هكذا ولك حرية الاختيار انا عن نفسي استخدمها With SubFormName.Form .AllowEdits = Not .AllowEdits .Requery .SetFocus .cmdName.Caption = "Test" .cmdName.Enabled = False End With المثال السابق 1- لتحرير نموذج فرعي 2- عمل تحديث للنموذج الفرعي 3- نقل التركيز الى النموذج الفرعي 3- تغيير اسم زر امر الى تست في النموذج الفرعي 4- الغاء التمكين للزر السابق في النموذج الفرعي ويتم الاستخدام بالطريقة السابقة حسب الحاجة التي تريدها ولا يتم التطرق لها لان الاغلب يستخدمها في صمت ولا تشكل مشكلة ::

غير خصائص مربع القائمة كما في الصورة .....

جرب هذا الملف Cond_format.xls

هذا يتوقف على الامر هل ينفذ على الكلمة او الحرف او السطر ، فلكل منها طريقة تكرار للتنفيذ و فى كل الاحوال يتم عمل loop لتكرار التنفيذ او استخدام امر مثل Find لتنفيذ الاستبدال للمجموعة المختارة بعض الامثلة للكلمات For i = 1 To Selection.Words.Count With Selection.Words(i) If IsNumeric(.Text) Then .Text = "(" & Trim(.Text) & ")" i = i + 1 End If End With Next i او For Each R_o_w In ActiveDocument.Words R_o_w.Select If Len(Selection) = 0 Then R_o_w.Delete Unit:=wdCharacter, Count:=1 Next استخدام Find With Selection.Find .Text = "^p" .Replacement.Text = "، " End With Selection.Find.Execute Replace:=wdReplaceAll

ملف رائع شكراً لك اخي العزيز

تفضل تم التعديل واضافة كل الشهور كما انه يمكنك اضافة أو حذف صفحات او شهور من خلال هذه المعادلة فى تعريف النطاق المبينة والموضحة بالصورة ={"1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31"} يومية.xlsm

تفضل لك ما طلبت محمد_2020.xlsm

جرب هذه المعادلة (بدون جدول اضافي) / (Ctrl+Shift+Enter) =INDEX($C$7:$E$8,MATCH($J$4,$B$7:$B$8,0),) INDEX($C$7:$E$8,,MATCH($J$3,$C$6:$E$6,0)) الملف مرفق File_Sa.xlsx

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي جلب مقطع من نص.xls

لا حاحة للكود في مثل هذه الحالة تكفي هذه المعادلة (Ctrl+Shift+Enter) =IF(ROWS($K$4:K4)>ABS(COUNTIF($D$4:$D$100,"<>"&$G$4)-COUNTBLANK($D$4:$D$100)),"",INDEX($D$4:$D$100,SMALL(IF($D$4:$D$100<>"",IF($D$4:$D$100<>$I$4,ROW($D$4:$D$100)-ROW($D$4)+1)),ROWS($K$4:K4)))) الملف مرفق Copie.xlsx

السلام عليكم بالفكرة نفسها، هذا حل آخر... hb_test 1.xlsx

وعليكم السلام تقدر تستخدم هذا الكود: Private Sub Command1_Click() TerminateProcess ("calc.exe") End Sub Private Sub TerminateProcess(app_exe As String) Dim Process As Object For Each Process In GetObject("winmgmts:").ExecQuery("Select Name from Win32_Process Where Name = '" & app_exe & "'") Process.Terminate Next End Sub واذا ما فادك ، استعمل الكود من هنا: http://www.vbforums.com/showthread.php?318582-Terminating-Running-EXE&p=1878673#post1878673 جعفر

السلام عليكم هته الفكرة راودتني عندما كنت اصمم برنامج دليل الهاتف على طريقة سامسونج جالكسي لكني لم أنجح حينها في تنفيذها اليوم وصلت الى الطريقة بحمد الله وشكره واردت مشاركتكم بها المهم وصلت الى طريقة تجعل اللون الابيض يختفي من الفورم حيث يصبح شفافا بل منعدم وبهذه الطريقة اصبح يمكن جعل الفورم ياخذ اي شكل نريده كل ما عليك هو وضع هذا الكود في موديل Option Explicit Public Declare Function FWw Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SWLg Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function DrMBar Lib "user32" Alias "DrawMenuBar" (ByVal hWnd As Long) As Long Public Declare Function SLWA Lib "user32" Alias "SetLayeredWindowAttributes" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Long, ByVal dwFlags As Long) As Long Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Declare Function ReleaseCapture Lib "user32" () As Long Public hWnd As Long Public Function Rabie_Sk(uf As Object, colors As Variant, Optional Sk As Variant = True) hWnd = FWw(vbNullString, uf.Caption) SWLg hWnd, -16, &H80080080: SWLg hWnd, -20, &H80000: DrMBar hWnd Select Case Sk Case True SLWA hWnd, colors, &H2, &H1 Case False SLWA hWnd, colors, 50, &H2 End Select End Function وفي حدث UserForm_Initialize ضع هذ الكود Rabie_Sk Me, vbWhite, True والباقي عليك في اختيار الشكل الذي تريده لا اطيل عليكم وأترككم مع المرفق تحياتي للجميع اجعل الفورم يأخذ اي شكل تريده.rar

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