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

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

جرب المرفق المعادلات المطلوبة في الخلية:B1 (يحب استعمال Ctrl+Shift+Enter و ليس Enter وحدها لانها معادلة صفيف Array_Fromula) =LEFT(A1,(MAX(IF(CODE(MID(TRIM(A1),ROW(INDIRECT("1:"&LEN(TRIM(A1)))),1))>=122,ROW(INDIRECT("1:"&LEN(TRIM(A1)))),0)))+1) في الخلية:C1 (يحب استعمال Ctrl+Shift+Enter و ليس Enter وحدها لانها معادلة صفيف Array_Fromula) =RIGHT(A1,LEN(A1)-(MAX(IF(CODE(MID(TRIM(A1),ROW(INDIRECT("1:"&LEN(TRIM(A1)))),1))>=122,ROW(INDIRECT("1:"&LEN(TRIM(A1)))),0)))-1) اذا لم تعمل المعادلات معك استبدل الفاصلة "," بفاصلة منقوطة ";" في المعادلة أو العكس(حسب اعدادات الجهاز عندك ) dictionary Salim.rar

الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

اشكرك استاذ الحمد لله كود شغال وسهل - احسن الله اليك

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

وعليكم السلام تفضل أخي كود بسيط جداً ومفهوم ... بالطريقة العادية Sub DeleteDuplicatesFromTwoColumns() Dim ws As Worksheet Dim sh As Worksheet Dim rng As Range Application.ScreenUpdating = False Set ws = Sheets("بيانات") Set sh = Sheets("جدول") With sh Set rng = ws.Range("G1:K" & ws.Cells(Rows.Count, "G").End(xlUp).Row) rng.Copy .Range("G1") .Range("G1").CurrentRegion.RemoveDuplicates Columns:=Array(1, 5), Header:=xlNo .Columns("H:J").Delete .Columns(8).Cut: .Columns(7).Insert Shift:=xlToRight .Range("G2:H" & .Cells(Rows.Count, "G").End(xlUp).Row).Copy .Range("A2").PasteSpecial xlPasteValues .Columns("G:H").Clear Application.CutCopyMode = False End With Application.ScreenUpdating = True End Sub وإذا أردت كود متقدم فتفضل الكود التالي .. حيث التعامل يكون بعيد عن التعامل مع ورقة العمل بشكل مباشر .. Sub UniqueFromTwoColumns() Dim ws As Worksheet Dim sh As Worksheet Dim arr As Variant Dim e As Variant Dim i As Long Set ws = Sheets("بيانات") Set sh = Sheets("جدول") arr = ws.Range("G1:K" & ws.Cells(Rows.Count, "G").End(xlUp).Row).Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For i = 2 To UBound(arr) .Item(arr(i, 5) & "," & arr(i, 1)) = .Item(arr(i, 5) & "," & arr(i, 1)) Next i i = 2 sh.Range("A1:B1").Value = Array("الكود", "الاسم") For Each e In .keys sh.Cells(i, "A").Resize(, 2) = Split(e, ",") i = i + 1 Next e End With End Sub

أخى العزيز جرب الكود التالى لتحديد اسم الطابعة مع مراعاة كتابة اسم الطابعة بالطريقة الصحيحة الكود هو إضافة على الكود المستخدم فى الملف المرفق خاصتكم Option Explicit Private Sub CommandButton1_Click() Dim ws As Worksheet, lr% Set ws = Sheets("sheet1") lr = ws.Cells(Rows.Count, 1).End(xlUp).Row If OptionButton1.Value = True Then Application.ActivePrinter = "HP laserJet profissional M1132 MEP" 'اسم الطابعة الأولى المراد استخدامها مع زر الاختيار الأول ws.Range("a1:e" & lr).PrintOut Else If OptionButton2.Value = True Then Application.ActivePrinter = "HP laserJet p1005" 'اسم الطابعة الثانية المراد استخدامها مع زر الاختيار الثانى ws.Range("a1:e" & lr).PrintOut Else End If: End If End Sub

بارك الله فيك استاذ الغالى ياسر أبو البراء لو أمكن وضع هذه الخطوات فى كود لتسهيل العملية وزيادة نطاق الفلترة Sub Data_Filter() Application.ScreenUpdating = False Sheets("بيانات").Select Range("G1:H1000").Select Selection.Copy Sheets("جدول").Select Range("G2").Select ActiveSheet.Paste Application.CutCopyMode = False ActiveSheet.Range("$G$1:$H$1000").RemoveDuplicates Columns:=Array(1, 2), Header _ :=xlNo Range("A1").Select Application.ScreenUpdating = True End Sub

وعليكم السلام أخي الكريم أهلاً بك في المنتدى حدد النطاق G2:H11 في ورقة العمل المسماة "بيانات" .. انسخ النطاق والصقه في ورقة العمل المسماة "جدول" في الخلية G1 على سبيل المثال .. اذهب للتبويب Data ستجد أمر اسمه Remove Duplicates انقر عليه وستظهر نافذة اضغط على OK .. وستحصل على المطلوب إن شاء الله

سؤال الموضوع كان: وقد اجبتك على جميع الاسئلة المتعلقة بهذا الخصوص عن طريق نموذجك Admin ، وبهذا يُعتبر الموضوع هذا منتهي اما اي شيء آخر تريد ان تضيف/تغير ، فالامر راجع لك وبالطريقة التي تعتقد انها مناسبة جميع اسئلتك تدور حول مدينة واحدة ، ولكن برنامجك فيه 8 مدن ، وهذا الذي عقّد لك الموضوع ، وخصوصا ان لكل مدينة برنامجها الخاص بها ومستخدميها ، نصيحتي ، انسى شيء اسمه مدينة ، واعمل برنامجك لمدينة واحدة فقط ، وجدول واحد ، وسترى ان جميع اسئلتك تستطيع الاجابة عليها ، وببساطة. والسلام خير ختام جعفر

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

جوابك هو: ادخل في البرنامج ، افتح النموذج Admin في وضع التصميم ، وافتح قفل الحقلين اسم المستخدم وكلمة السر ، الآن اغلق البرنامج (ولا اقصد النموذج Admin ، وانما البرنامج) ، 1. افتح البرنامج من جديد ، ادخل اسم المستخدم a وكلمة سره هي a ، افتح نموذج Admin ، ادخل اسم مستخدم جديد ، وليكن a10 وكلمة السر a10 ، الآن لا يمكن للـ Admin a ان يعطي هذا المستخدم الجديد صلاحية أي مدينة غير CBR . 2. اغلق البرنامج وافتحه من جديد ، ادخل اسم المستخدم a10 وكلمة سره هي a10 ، افتح نموذج Admin ، سترى انه لا يستطيع الدخول الى هذا النموذج ويـ "يدخل يخربط" ، جرب واخبرني النتيجة ، لأننا ندور في نفس الحلقة من هذه الاسئلة عدة مشاركات. جعفر

قد اكون وضعت الشرط بالعكس تجاوز اوقت والتاريخ .rar

برأي هناك عدة حلول لهذه المشكلة 1- يمكنك ترك الحقول مليئة ووضع علامة كبيرة على التقرير تقول انها هدية (قد تستفيد من هذه الطريقة بأنك تعلم الزبون بقيمة الهدية المقدمة له ) 2- تحويل العمليات الحسابية للتقرير بدل الاستعلام بحيث تكون في حدث بعد التحديث لمربع نص الكمية بشرط مربع الاختيار بحيث اذا كان مفعلا يقوم بملء باقي مربعات النص والعكس بالعكس 3- يمكنك تحويل خاصية مربع النص الى غير مرئي في حال كان مربع الاختيار في القائمة مفعلا

السلام عليكم اذا فهمت طلبك صح: 1و2و3و4و جزء من 5. انت تريد ان يُدخل Admin المدينة ، اسم المستخدم من النموذج دون الدخول الى الجدول "اريده اتوماتيك ليس يدوي" ، نعم تستطيع ذلك ، ولكنك انت الذي اقفلت هذين الحقلين (فما عليك إلا ان تفتحهم ، ويكون بإمكانك ادخال اسم المستخدم الجديد وكلمة سره من النموذج وعمل علامة الصح على المدينة) : . 5 الجزء الثاني (هناك اعضاء تابعه له لا يريد منها الدخول). اذا لا يريد منهم دخول البرنامج ، فلماذا يُدخل اسمائهم في البرنامج؟ جعفر

السلام عليكم اخي الكريم ضع هذا الكود في وحدة نمطية Public NewDatabase As String Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Dim strConnect As String Dim strLinkName As String strLinkName = strSourceTableName strConnect = "MS Access;PWD=" & strPassword & _ ";DATABASE=" & strBEPath Debug.Print strConnect Set db = CurrentDb Set tdf = db.CreateTableDef tdf.Connect = strConnect tdf.SourceTableName = strSourceTableName tdf.Name = strLinkName db.TableDefs.Append tdf Set tdf = Nothing Set db = Nothing End Function ومن ثم استدعها من اي مكان في برنامجك وباي وقت لاستيراد اي جدول بالكود التالي Call CreateTableLink(NewDatabase, "table_name", "password") بحيث table_name هي اسم الجدول و password هي كلمة المرور لقاعدة البيانات واخيرا هذا الكود هو لمعلمنا القدير ابو ادم

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

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

الـ Admin للمدينة لما يعمل صلاحية لأي شخص في مدينته ، فلن يستطيع ان يعملها لأي مدينة اخرى

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

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

بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام