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

إنشاء جداول اكسس بالأكواد ♥ craet table with hard code ☺ craet table with hard code ☺.rar

جميل و يمكن ان نستعمل كود آخر Sub Text3() i = 1 Do While i <= Cells(Rows.Count, "A").End(xlUp).Row If Trim(LCase(Cells(i, 2))) = Trim(LCase("student")) Then _ Range(Cells(i, 1), Cells(i, Cells(1, Columns.Count).End(xlToLeft).Column)).Interior.ColorIndex = 4 i = i + 1 Loop End Sub

تكرم عينك و عينه Sub salim2() With Range("a1:f" & Cells(Rows.Count, 1).End(3).Row) .Interior.ColorIndex = xlNone .Borders.LineStyle = xlContinuous = 0 End With Set my_rg = Range("a1:a" & Cells(Rows.Count, 1).End(3).Row).SpecialCells(xlCellTypeConstants) k = 1 Do Until k = my_rg.Areas.Count + 1 y = 1 Do Until y = my_rg.Areas(k).Count + 1 my_rg.Areas(k).Cells(y).Activate If ActiveCell.Offset(0, 1) = "student" Then With ActiveCell.Resize(1, ActiveCell.Columns.End(xlToRight).Column) .Interior.ColorIndex = 4 .Borders.LineStyle = xlContinuous = 1 End With End If y = y + 1 Loop k = k + 1 Loop Range("a1").Select End Sub

الأخ/ سليم حاصبيا المحترم والأخ/أبو حنــــين المحترم يشرفني مروركم، ومشاركتكم، فأنتم سباقون في هذا المجال. اسمحولي أن لا أعتبر إجابتكم صحيحة بالرغم من أنها صحيحة، لأنها لم تحقق ديناميكية الإختيار، حيث قمتم بتحديد 3 أعمدة لتطبيق الكود، فلو قمنا بإنشاء جدول يزيد عن 3 أعمدة فإن الكود يعتبر ناقص. تقبلوا تحياتي

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

الاصدقاء الاكارم تحية طيبة جميعنا يعرف كيفية انشاء ساعة في برنامجه و التطبيق اليوم ليس بتطبيق جديد الجديد فيه هو نوع الخط المستخدم فهو نفس شكل الساعة الرقمية Digital اترككم مع المرفق Digital Clock.rar

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

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى حدث ورقة احصائيات وسيعمل معك بدون زر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$C$1" And Target.Address <> "$C$2" Then Exit Sub Range("A5:H100").ClearContents m = 4 LR = Sheet1.Cells(Rows.Count, "I").End(xlUp).Row For R = 2 To LR If Sheet1.Cells(R, "I") >= Range("C1") And Sheet1.Cells(R, "I") <= Range("C2") Then m = m + 1 Range("A" & m) = Sheet1.Cells(R, "I") Range("B" & m) = Sheet1.Cells(R, "C") Range("C" & m) = Sheet1.Cells(R, "D") Range("D" & m) = Sheet1.Cells(R, "J") Range("E" & m) = Sheet1.Cells(R, "L") Range("F" & m) = Sheet1.Cells(R, "M") Range("G" & m) = Sheet1.Cells(R, "N") Range("H" & m) = Sheet1.Cells(R, "O") End If Next End Sub

اكتب هذه المعادلة في الخلية J2 واسحبها الى الخلية J3 =SUMPRODUCT(($D$5:$R$5=TODAY())*($D$6:$R$40="غ")*($B$6:$B$40=ROWS(A1:$A$2)))

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

اليكم الجواب https://msdn.microsoft.com/en-us/library/office/aa221562(v=office.11).aspx

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

عندها يلزم هذا الكود (مع الاخذ بعين الاعتبار مشاركتكم السابقة حول عدد الاعمدة) لم اذكرها هنا لضيق الوقت Sub salim1() lr = Cells(Rows.Count, 1).End(3).Row Range("a1:f" & Cells(Rows.Count, 1).End(3).Row).Interior.ColorIndex = xlNone Set my_rg = Range("a1:a" & lr).SpecialCells(xlCellTypeConstants) k = my_rg.Areas.Count For x = 1 To k For y = 1 To my_rg.Areas(x).Count If my_rg.Areas(x).Cells(y).Offset(0, 1) = "student" Then _ my_rg.Areas(x).Cells(y).Resize(1, 6).Interior.ColorIndex = 4 Next Next End Sub

السلام عليكم بالنسبة لسؤال أخي سلم Sub tlween1() Range("a1").CurrentRegion.Interior.ColorIndex = xlNone Cells(1, 1).Activate Do While ActiveCell <> "" If Trim(LCase(ActiveCell.Offset(0, 1).Value)) = Trim(LCase("student")) Then _ ActiveCell.Resize(1, 3).Interior.ColorIndex = 4 End If ActiveCell.Offset(1, 0).Activate Loop End Sub و هناك كود آخر يعمل نفس العمل Sub Text2() Dim c As Range For Each c In ActiveSheet.UsedRange If Trim(LCase(c.Value)) = Trim(LCase("student")) Then Range(Cells(c.Row, 1), Cells(c.Row, 3)).Interior.ColorIndex = 4 Next End Sub

الإجابة في هذا الكود: Range("a1").Select Do Until ActiveCell.Value = "" Range(ActiveCell, ActiveCell.End(xlToRight)).Interior.ColorIndex = 20 ActiveCell.Offset(1, 0).Select Loop الشرح: أولاً: اخترنا الخلية a1 ثانياً: كتبنا حلقة تكرارية تبحث عن الخلايا الفارغة ثالثا: ظللنا الخلايا على يمين a1 إلى أن يجد خلية فارغة (وهذا يمثل عدد الأعمدة) رابعا: نزلنا إلى b1 وطبقنا الفقرة السابقة وهكذا إلى أن نصل إلى آخر صف.

سؤالنا القادم: كيف نختار الجدول بشكل تلقائي (ديناميكي) ومن ثم نظلله.. بمعنى أن الكود يصلح لأي حجم .. فلا داعي بأن تذكر له عدد الصفوف ولا عدد الأعمدة؟!!! كالمثال التالي:

و عليكم ورحمة الله وبركاته اتفضل اخى TestA.rar

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

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

هذا من تواضعك.. وإلا مشاركاتك وإجمالي نقاط السمعة لديك تشهد على خبرتك

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

اليك المثال والفكرة هي الفورم الرئيسي هو str قاعدة بيانات1.rar

الأخ الكريم طائع الملف ليس له علاقة بعملية الفلترة اطلع على الملف التالي وشوف النتائج ... Sub YasserKhalil() Dim I As Long, X As Long, Y As Long X = 3: Y = 7 Application.ScreenUpdating = False With Sheets("Sheet2") .Range("B7:D17").ClearContents If .Range("A1").Value = 1 Or .Range("A1").Value = 2 Or .Range("A1").Value = 3 Then I = .Range("A1").Value Sheets("data" & I).Activate .Range("B" & Y).Resize(, 3).Value = Cells(109, X).Resize(, 3).Value .Range("B" & Y + 1).Resize(, 3).Value = Cells(109, X + 4).Resize(, 3).Value .Range("B" & Y + 2).Resize(, 3).Value = Cells(109, X + 8).Resize(, 3).Value .Range("B" & Y + 3).Resize(, 3).Value = Cells(109, X + 12).Resize(, 3).Value .Range("B" & Y + 6).Resize(, 3).Value = Cells(109, X + 16).Resize(, 3).Value .Range("B" & Y + 7).Resize(, 3).Value = Cells(109, X + 20).Resize(, 3).Value .Range("B" & Y + 8).Resize(, 3).Value = Cells(109, X + 24).Resize(, 3).Value .Range("B" & Y + 9).Resize(, 3).Value = Cells(109, X + 28).Resize(, 3).Value .Range("B" & Y + 10).Resize(, 3).Value = Cells(109, X + 32).Resize(, 3).Value Else I = .Range("A1").Value Sheets("data" & I).Activate For X = 3 To 43 Step 4 .Range("B" & Y).Resize(, 3).Value = Cells(109, X).Resize(, 3).Value Y = Y + 1 Next X End If .Activate End With Application.ScreenUpdating = True End Sub تم إضافة هذا الكود أرجو أن يكون المطلوب Ehsaa.rar

الاخ حماده عمر نورتنى والله فينك انت اوعى تكون زعلام منى

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل المرفقات عدد ( 2 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة حيث لم اتمكن من اضافتهم في المشاركة الاولي نظرا للمساحة المخصصة لكل عضو ( حسب علمي ) فيديو2 .. طريقة عمل شاشة ادخال 2.rar شاهد النتيجة فيديو3 .. طريقة عمل شاشة ادخال 3.rar

بسم الله الرحمن الرحيم عرض أخونا أبو عقيل مثال في الصلاحيات والترميز وعمليات المستخدمين وهو مثال قيم وأردت عرضه على الأعضاء مع التعرض بالشرح لموضوع الصلاحيات وهذا الشرح مجرد اجتهاد فقط فلست أنا من صنع المثال وأتمنى أن أكون عند حسن ظنكم فلست خبيراً كما تظنون ولكني طالب علم أجتهد فقط لا غير كما أرجوا أن يسامحنى أبو عقيل أعاده الله إلينا سالماً على هذا الشرح السيئ لمثال عبقري من أمثلته . ========================================== تعتمد طريقة أبو عقيل في الصلاحيات على طريقة الخيارات للمستخدمين في تحديد من المتاح أو المسموح له فتح النماذج أو التقارير إذا الصلاحيات هي فتح النموذج أو التقرير وبكلامنا العادي أننا إذا صنعنا جدول يتم تحديثه كلما تم فتح البرنامج ليكون موجود به اسم المستخدم الحالي فقط وكلمة السر الخاصة به مع مستويات الصلاحيات له ، وعند فتح أي نموذج يذهب البرنامج إلى الجدول ثم يختبر خلية الصلاحية فإذا كانت بنعم ( أو 1) يفتح النموذج وإذا كانت ( لا أو 2) يغلق النموذج مع رسالة بها اسم المستخدم الحالي تقوله له ليس من حقك فتح هذه الشاشة . ومن الأفضل استيراد الكائنات الخاصة بالصلاحيات ثم نسخ الأكواد اللازمة لعملها على النماذج ولكننا سنبدأ من البداية حتى نتعرف على كيفية بنائها وكيفية تطويرها وملاءمتها لبرامجنا . وفي مثال أخونا أبو عقيل كانت الأدوات كالتالي مع أشكال توضح خصائص الحقول أ- الجداول 1- جدول المستخدمين ( tb5) وهو الذي سيحتوي على معلومات جميع المستخدمين ويحتوي على * حقل Name لاسم المستخدم مفتاح يمنع تكرار أسماء المستخدمين * حقل rmz لرمز المستخدم والغرض الأساسي منه تمييز المدير أو مالك البرنامج بالرمز ( mas ) ليتم تمييزه عن غيره من المستخدمين وهذا التمييز هو الذي سيستخدم لاحقاً في فتح نموذج الصلاحيات نفسه وهو حقل لا يسمح بالتكرار حتى يكون المسئول واحد فقط . * حقل password وهو الخاص بالرمز السري للمستخدم أو الرقم السري وقناع الإدخال يكون password ليكون نجوم ولا يسمح بالتكرار . *بعد ذلك تأتي حقول المستويات ( levels ) وهذا الحقل عبارة عن قائمة من عمودين عمود يحتوي على صفين بهما القيمين (1 ،2) والعمود الآخر قيمتين مناظرتين ( نعم ولا ) وتم تغيير خصائص هذا الحقل ليظهر كعمود واحد به الأربع قيم أسفل بعضهم ويتم تخزين القيمة 1 أو 2 في الحقل وسبب الاختيار لخصائص هذا الحقل بهذا الشكل لأنه سيتم إدخال قيم هذا الحقل من نموذج الصلاحيات وستكون القيم الظاهرة في النموذج هي نعم أولا بينما يتم تخزين القيم في الحقل ب 1مناظره لنعم أو 2 مناظره لـ لا وهكذا حتى المستوى الرابع عشر كما في مثالنا ... أما البيانات التي ستخزن في هذا الجدول فهي اسم المستخدم ورمزه ورقمه السري وصلاحياته والتي سنقرنها بنموذج أو أكثر مقابل لكل level بمعنى أننا لو اعتبرنا أن لدينا نموذج form1 سنقرنه بـ level1 فإذا كانت قيمة حقل level1 =1 سنسمح بفتح النموذج أما إذا كانت قيمته 2 سيتم إغلاق النموذج . الشخص الذي سيوضع رمزه ( حسب مثال أبو عقيل ) = mas هو الذي سيكون له الصلاحيات الكاملة بغض النظر عن اسمه أو كلمة السر الخاصة به . وسنقوم بتغيير جميع مستويات الصلاحية الخاصة به في الجدول إلى الرقم 1 2- جدول fbi وهذا الجدول به نفس الحقول السابقة بحيث أنك تستطيع نسخ الجدول السابق مع تغيير اسمه ثم حذف حقل password منه ولكن أخونا أبو عقيل أضاف حقيلن آخرين وهما date و Time ليستخدمهما في تاريخ وتوقيت الحذف والإضافة والتعديل في البيانات وأعتقد أن هذين الحلقين ليس لهما علاقة مباشرة بموضوع الصلاحيات . هذا الجدول لن يتدخل أحد في كتابة بياناته بل سيقوم البرنامج بتحديث بياناته بناءاً على اسم المستخدم الذي سندخله في شاشة الدخول للبرنامج فعندما نكتب اسم المستخدم وكلمة مروره الصحيحة سيقوم البرنامج بتشغيل استعلام تحديث يأخذ بيانات المستخدم كاملة ويحدث بها سجل جدول fbi وكلما تغير المستخدم تغيرت بيانات سجل الجدول fbi حسب المستخدم الجديد . يليه الجزء الثاني وقد تم تجزأة الموضوع لكثرة عدد الصور