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

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

يمكنك أن تضع في الحلية G6 المعادلة الآتية =F6/HOUR(E6) وتغيير تنسيق الحلية إلى رقم وإنقاص المنازل العشرية decrease decimal إلى رقمين ليصبح الناتج 1.54

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

هذا لانه هناك خلايا فارغة بالعامود لتلافي ذلك استبدله بهذا الكود Option Explicit Sub del_row() Dim i%, k% Dim x% k = Cells(Rows.Count, 3).End(3).Row If k < 6 Then k = 6 For i = 6 To k If i > k Then Exit For x = Application.CountIf(Range("c6:c" & i), Cells(i, 3)) If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1 Next End Sub

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

السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي 2017شيت مدرستى - الصف الرابع.rar

تفضل أخى الكريم لك ما طلبت 2017شيت مدرستى - الصف الرابع.xls

السلام عليكم ويمكن أيضا استعمال المعادلة التالية (بإدراج الدقائق إن كانت غير معدومة): =60*F6/(60*HOUR(E6)+MINUTE(E6))

اكتب هذا السطر في الكود مباشرة بعد كلمة Sub If ActiveSheet.Name<>"XXXX" then Exit Sub اكتب اسم الشيت مكان XXXX

أتقدم بالشكر لإدارة الموقع الكريمة لمنحها لي وسام (خبير معتمد) في البوربوينت، بصراحة كانت مفاجأة سارة جدًا لي، وأرجو أن أكون على قدر المسؤولية الموكلة إلي من قبل الإدارة. مع خالص الشكر والتقدير.

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

جزاك الله كل الخير وبارك الله فيك على المجهود الطيب

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

السلام عليكم ورحمة الله تفضل كشف حساب مدين ودائن.rar

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

إخوتي الفضلاء التطبيق المرفق هو لما تفضل به الأخ العزيز حيث يتم ترقيم السندات حسب رقم تسلسلي يتم توليده من توليفة السنة و الشهر و رقم تسلسلي ( من ثلاث خانات 000 ) ، مأخوذة من التاريخ الذي يتم ادخاله ( تاريخ السند ) ، و حيث يتم مراعاة ما تم تسجيله من تسلسلات لذلك الشهر من السنة و صرف رقم جديد ، أو صرف رقم 001 للشهر و السنة . عند و جود اي ثغرة في التسلسل يتم التنبيه برسالة ، ويمكن بعدها اضافة كود لتنفيذ اي اجراء لازم هنا تركت ثغرة في تسلسلات شهر 4 . 2018 لتفعيل التدقيق و الرسالة في حال تنفيذ التطبيق كما هو من الصعب حدوث ثغرة ما لم يتم العبث بالجدول مباشرة أو عند الغاء سجل راجيا ان يكون التطبيق مناسبا و وافيا للفكرة التي طرحت و الله من وراء القصد .... NA_Sequence of Bond Numbers.accdb

جرب هذا الماكرو Option Explicit Sub MoudinDa7en() Dim Final_row% Dim My_rg As Range Dim my_sum# Dim i% i = 1 Final_row = Cells(Rows.Count, 2).End(3).Row Set My_rg = Range("e2:e" & Final_row) Do Until My_rg.Cells(i) = vbNullString On Error Resume Next If Not IsNumeric(My_rg.Cells(i)) Then My_rg.Cells(i) = 0 Select Case My_rg.Cells(i) Case Is < 0 My_rg.Cells(i).Offset(0, -1) = My_rg.Cells(i) Case Is > 0 My_rg.Cells(i).Offset(0, -2) = My_rg.Cells(i) End Select i = i + 1 Loop End Sub

Option Compare Database Option Explicit ' >>> By Nart Lebzo For www.officena.net ... 05/04/2018 Private Sub Form_Load() Me.txtSearch.BackColor = vbYellow Me.txtSearch.SetFocus End Sub Private Sub txtSearch_Change() Dim strFilter As String Dim sSearch As String On Error Resume Next If Me.txtSearch.Text <> "" Then sSearch = Me.txtSearch.Text strFilter = "[CompanyName] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [ContactName] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [City] Like '*" & sSearch & "*'" strFilter = strFilter & " OR [Address] Like '*" & sSearch & "*'" Me.Filter = strFilter Me.FilterOn = True Me.txtCountMatches.Value = DCount("CustomerID", "tblCustomer", strFilter) Else Me.Filter = "" Me.FilterOn = False End If With Me.txtSearch .SetFocus .SelStart = Len(Me.txtSearch.Text) End With End Sub Private Sub txtSearch_Click() Me.txtSearch.SetFocus Me.txtSearch.Text = "" Me.Requery With Me.txtSearch .SetFocus End With End Sub و الله من وراء القصد ....... أخي العزيز جعلت البحث ( الفلترة ) ضمن أربعة حقول يمكن ان تكون أقل أو أكثر ... يمكنك التعديل عليها كما تشاء ... و قد جعلته بسيطا قدر الإمكان جرب المرفق ، ... فصلته ... تفصيل حسب طلبك ، يفترض ان يكون وافياً بإذن الله و الله من وراء القصد .... NA_FilterWhileTyping.accdb

كو حقا رائع أستاذ سليم-ونفذ المطلوب بدقة متناهية جعله الله فى ميزان حسناتك وبارك الله فيك وجزاك خيرا كثيرا

السلام عليكم و رحمة الله وبركاته هذا اسم سبهلله فضلا احترم عقول الأخرين

كلمات الشكر تعجز عن شكرك سيدي الكريم ، لكن جزاك الله كل خير وأثابك الجنة ، وجمعنا وإياكم في الجنة أخوة على سرر متقابلين

اليك الملف من جديد الحد الأقص Salim new.xlsm

عليكم السلام اهلا بك في المنتدى :: لكي تحصل على الاجابة والمساعدة من الاعضاء عليك بقراءة شروط وضوابط المنتدى اولا والالتزام بها .. وهنا وقعت في عدة اخطاء : :: 1- عنوان خاطيء ..... 2- طرح اكثر من سوال في مشاركة واحدة ..... ومع كل هذا المرفق معطوب ؟! . تحياتي

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

تم معالجة الامر (بواسطة ارقام الخلايا في عامود الاسماء) فقط اكتب البداية في الخلية H4 والنهاية في الخلية H5 في الشيت "sew sheet" واضغط الزر Run لا حاجة لكتابة الاسماء في الماكرو السايق (فقط من اسم كذا الى اسم كذا) حسب الجدول الكود Option Explicit Sub Print_out() With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False .Calculation = xlCalculationAutomatic End With Dim S_Sh As Worksheet: Set S_Sh = Sheets("DATA") Dim Targ_sh As Worksheet: Set Targ_sh = Sheets("Sew_Sheet") Dim x%, y%, t1%, t2%, i% Targ_sh.Unprotect x = Targ_sh.[h4]: y = Targ_sh.[h5] t1 = Application.Min(x, y): t2 = Application.Max(x, y) If t1 <= 1 Then t1 = 2 For i = t1 To t2 Targ_sh.Cells(3, 2) = S_Sh.Range("a" & i) '======================================= 'Choose Here print Or print previvew Targ_sh.PrintPreview ' Targ_sh.PrintOut '========================================= Next With Application .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True .Calculation = xlCalculationAutomatic End With Targ_sh.Protect End Sub الحد الأقص Salim new.xlsm

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

بمكنك استعمال هذا الماكرو ( في احر سطرين قبل Next اختر او طباعة او معاينة قبل الطباعة) و ذلك بحذف الفاصلة العليا أمام ما تريد عند تنقيذ الماكرو تظهر لك رسالتين الرسالة الاول ابتداءً من الاسم (الاول) الرسالة الثانية حتى الاسم (الاخير) تضع الاسم من الجدول تماماً كما هو دون مسافات زائدة او ناقصة (الافضل اخذ الاسم Copy / Paste) لا مشكلة في الترتيب (اذا كان اول اسم مثلاُ رقمه 15 والثاني 5) اكسل يرتبها بحيث يكون الاول 5 والثاني 15 Option Explicit Sub Print_out() Dim S_Sh As Worksheet: Set S_Sh = Sheets("DATA") Dim Targ_sh As Worksheet: Set Targ_sh = Sheets("Sew_Sheet") Dim x%, y%, t1%, t2%, i% Dim First_Name$, Second_Name$ First_Name$ = Application.InputBox("give the first name", Type:=2) Second_Name = Application.InputBox("give the seconde name", Type:=2) First_Name = Application.Trim(First_Name) Second_Name = Application.Trim(Second_Name) x = Application.Match(First_Name, S_Sh.Range("a:a"), 0) y = Application.Match(Second_Name, S_Sh.Range("a:a"), 0) t1 = Application.Min(x, y): t2 = Application.Max(x, y) For i = t1 To t2 Targ_sh.Cells(3, 2) = S_Sh.Range("a" & i) '======================================= 'Choose Here print Or print previvew ' Targ_sh.PrintPreview ' Targ_sh.PrintOut '========================================= Next End Sub

وعليكم السلام تفضل قم بالضغط علي زر print_all الحد الأقصى نهائي معدل 2018.xlsm

وهذا هو الملف المسخدم فى الفيديو أستاذ ناصر لكى تعم الفائدة -بارك الله فيك بحث بالاسم باستخدام ساجدة العزاوي كومبوبوكس.xlsm

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

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

أخى العزيز مرحبا بك فى منتدانا الكريم من الأفضل ان ترسل ملف بالبيانات التى تريدها وما تريد عمله حتى يتسنى للإخوة الكرام مساعدتك ولكنى أرسلت ملف لك من عندى لعله المطلوب-تفضل هذا وكلمة السر: 123456 Stores.xlsm

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

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