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

السلام عليكم ورحمة اله ملف Word كيفية تلوين صف بناء علي قيمة خلية مع ملف إكسل كمثال مصغر اخوكم في الله / أبو الحسن والحسين شرح تلوين الصف بناء علي خلية مع مثال2.rar مع الانتباة : لكي تعطى النتيجة السليمة قم بمراجعة تحرير وصف القاعدة أي الصيغة ادناه ( "مشغول"=5 M$ =) تلقاها بالخطأ ( "مشغول"=1048576 M$ =) قم بتعديلها حسب الموضح بالشكل.

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

Sub Ali_Num() Dim WS As Worksheet Dim R, RB, RB_To, Vl, I Set WS = ورقة1 With ورقة18 I = .Range("H4").Value For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then RB = Val(.Cells(R, 3)) RB_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) WS.Cells(RB - I + 2, "I").Resize(RB_To - RB + 1) = Vl End If Next End With End Sub أخي الكريم أحمد الحاوي ليس من أبدع كمن عدل ..الكود يظل باسم معلمي أبو نصار إليك التعديل البسيط ليؤدي الغرض

السّلام عليكم و رحمة الله و بركاته أخي الكريم " أبو عبد الرحمن البغدادي " في محرّر الأكواد ..الذيسْ وورْكْ بوكْ .. أكتب ما يلي : Private sub WorkBook_Open() UserForm1.Show End Sub على أساس أنّ اسم اليوزرفورم لديك هو : UserForm1 فائق إحتراماتي

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

أخي الحبيب أبو نصار أعتقد أنه لا داعي لاستخدام الحلقات التكرارية المتداخلة حيث أن ذلك يبطيء من عمل الكود ... جرب الكود بهذا الشكل ولاحظ الفرق في سرعة تنفيذ الكودين Sub Ali_Num() Dim SW As Worksheet Dim R, Rb, Rb_To, Vl, i Set SW = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) SW.Cells(Rb + 1, "I").Resize(Rb_To - Rb + 1) = Vl End If Next End With End Sub

السلام عليكم هل تقصد اضافة عمود يقوم بعمل مسلسل حسب رقم الحجره ؟ واذا كان المقصد المسلسل في عمود رقم الحجره كيف اعرف هذا الاسم ينتمي لأي حجره ! جرب هذا الكود حسب فهمي لطلبك Sub Ali_Num() Dim Sw As Worksheet Dim R, Rb, Rb_To, Vl, i Set Sw = ورقة1 With ورقة18 For R = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row If .Cells(R, 1) <> Empty Then Rb = Val(.Cells(R, 3)) Rb_To = Val(.Cells(R, 4)) Vl = Val(.Cells(R, 1)) For i = Rb To Rb_To Sw.Cells(i + 1, "I") = Vl Next End If Next End With End Sub

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " ياسر العربي " على الملف الرّائع و اللّمسة السّحرية المميّزة جزاك الله خيرًا و زادها بميزان حسناتك و زادك من علمه و فضله فائق إحتراماتي و إعجاباتي لست أدري لم أعدْ قادرًا حتّى على رفع صورة إلى المنتدى .. فقمت برفع الملف على موقع خارجي أرجو المعذرة : http://up.top4top.net/downloadf-top4top_34eb2002031-rar.html

السلام عليكم اخي الكريم ابو عبدالملك اعلم ان التعديل يأخذ جهد مضاعف اذا اردت التفاعل من الاعضاء مع طرحك يفضل طلب عمل منفصل لكي يسهل العمل على من اراد المشاركه عموماً اطلعت على ملفك لاحظت ان عمود V في التقرير الشهري فارغ وانت طرحت التالي فكيف نحطه كشرط ضمن الكود وهو فارغ فابطبع لن ينفذ شيء الكود ! تفضل الكود التالي بعد ان تضيف الشهر في عمود V بصفحة التقرير الشهري قم بتشغيله كي يعمل معك Sub Ali_Am() Dim Sht As Worksheet Dim R&, Tx$ Set Sht = Sheets("مجمع النتائج الشهرية") ''************************************** With Sheets("التقرير الشهري") For R = 2 To LR Tx = CStr(Sht.Cells(R, 3)) If Tx = .Cells(R, 3) Then If Ch_Month(.Cells(R, "V")) = CStr(Sht.Cells(R, "V")) Then If SH.Cells(R, "R") >= 60 Then .Cells(R, "L") = Sht.Cells(R, "N") .Cells(R, "M") = Sht.Cells(R, "O") ElseIf SH.Cells(R, "R") < 60 Then .Cells(R, "L") = Sht.Cells(R, "L") .Cells(R, "M") = Sht.Cells(R, "M") End If End If End If Next End With ''************************************** End Sub Private Function Ch_Month(Mn As String) Dim Mm& Dim Tn$, X$ For Mm = 1 To 12 Tn = MonthName(Mm) If Tn = Trim(Mn) Then Mm = Mm - 1 X = MonthName(Mm) Exit For End If Next If Mm Then Ch_Month = X End Function لم اجرب الكود اذا به اي اخطاء اشعرنا وان شاء الله لن يقصر معك الجميع تحياتي

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

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

جرب هذا التعديل هذا التعديل بيتماشي مع ملفك كما هو بوضعه الحالي Dim Sh As Worksheet Sub Ali_Prnt() Dim R As Long Dim Ar Dim Rn As Range, Rn1 As Range Set Sh = ActiveSheet '********************************************** On Error Resume Next Application.EnableEvents = True With Sh II = .PageSetup.PrintArea For R = 1 To .VPageBreaks.Count Ro = .VPageBreaks(R).Location.Row Cl = .VPageBreaks(R).Location.Column Ar = .Range(.PageSetup.PrintArea) Lr = UBound(Ar, 2) + 1 Rw = UBound(Ar, 1) + 1 Set Rn = .Range(Cells(Ro, 2), Cells(Rw, Cl - 1)) Set Rn1 = .Range(Cells(Ro, Cl), Cells(Rw, Lr)) Ali_Rest With .PageSetup .PrintArea = Rn.Address .RightHeader = Sheets("الاساسية").Range("A1").Value & Chr(13) & Sheets("الاساسية").Range("A2").Value .LeftHeader = Sheets("الاساسية").Range("B1").Value & Chr(13) & Sheets("الاساسية").Range("B2").Value .RightFooter = Sheets("الاساسية").Range("A3").Value & Chr(13) & Sheets("الاساسية").Range("A4").Value .CenterFooter = Sheets("الاساسية").Range("b3").Value & Chr(13) & Sheets("الاساسية").Range("b4").Value End With .PrintPreview Ali_Rest With .PageSetup .PrintArea = Rn1.Address .LeftHeader = Sheets("الاساسية").Range("c1").Value & Chr(13) & Sheets("الاساسية").Range("c2").Value .LeftFooter = Sheets("الاساسية").Range("c3").Value & Chr(13) & Sheets("الاساسية").Range("c4").Value End With .PrintPreview Next R .PageSetup.PrintArea = II End With Application.EnableEvents = False '********************************************** On Error GoTo 0 End Sub Private Sub Ali_Rest() With Sh With .PageSetup .RightHeader = "" .RightFooter = "" .CenterFooter = "" .LeftHeader = "" .LeftFooter = "" End With End With Set Sh = Nothing End Sub

لمن يكتب اسمه بغير اللغة العربية مفتخراًياعاشق الضاد إن الضاد عاتبة مابال إسمك "باللاتين" ينكتبتحبذ اللغة العرجـــــــــاء تسمية ونور إسمك للقرآن ينتســـبأقول قولــــــي ولا أبغي معاتبــــة فكل طير لمن يهواه يقتـــــرب أنقلها لكل من استبدل لغته العربية بلغة هو دخيل عليها .صحيح أن من تعلم لغة قوم أمن مكرهم وشرهم ...ولكن ليس أن يذوب وتذوب ثقافته ولغته بهم ..حتى لو دخلوا جحر ضب لدخله..فلم هذه السذاجة والتبعية..ألا تكفيك لغة القرءان ولغة غسان وعدنان.وأول لغة للإنسان...حري بنا أن نعشقها ونكتبها بمداد من ذهب . ألا يكفيك أن نطق بها سيد الخلق وحبيب الحق محمد صلى الله عليه وسلم.. أغزر اللغات بالألفاظ الجميلة تندثر اللغات من حولها فتتغير وتتبدل وتنقرض وهي صامدة كالطود العظيم فتبقى لتصبح لغة أهل الجنة فلنفتخر بعروبتنا وإسلامنا لأن الحضارة والقيم ومكارم الأخلاق منطلقها منا وبقية العالم مقلدون..فلم نترك الدرر ونتبع المجوهرات المزيفة.. لك الشرف بأنك عربي فارفع رأسك شامخا.ولا تهن فمن يهن يسهل الهوان عليه ما لجرح بميت إيلام. والسلام عليكم أخوكم محمد حسن المحمد أبو يوسف.

السلام عليكم ورحمة الله وبركاته بناءاً على رغبة كثير من الأعضاء معرفة كيفية إدراج الباركود في الإكسيل، اسمحولي بأن أبدأ معكم بعض الدروس الخفيفة لمعرفة كيفية التعامل مع جهاز قارئ الباركود في الإكسيل.

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

اسحب اطراف الاستعلام فوق/تحت و يمين/يسار ، وراح تطلع لك تفضل الطريقة لإظهار باقي الاستعلام: جعفر

ولا يهمك ، هذه الطريقة: 1. انت عملت استعلام كمصدر لنموذجك ، انا استعملته في استعلام ، وذلك لأن به جميع الحقول التي تريدها لنموذجك: . وهاي نتائجه: . ثم استعملت هذا الاستعلام لعمل استعلام ثاني ، فقط لأحسب اسماء العملاء في الاستعلام السابق: . والنتيجة: . والان اصبح عندي استعلام به الحقول ، واستعلام آخر به عدد اسماء العملاء ، فعملت استعلام ثالث ، وجبت فيه الاستعلام الاول و الثاني ، وربطت الاستعلامين باسم العميل (لاحظ اسم العميل موجود في الاستعلامين): . والنتيجة ، جميع الحقول التي نريدها ، مع حساب اسماء العملاء: جعفر

احنا نحاول نستغنى عن Dcount, Dsum, Dlookup ، .... قدر الامكان ، لأنها معقدة ، وبطيئة ، وخصوصا اذا كان عندنا بديل من الاستعلام مباشرة جعفر

تفضل تمت العمليه بإستخدام 3 استعلامات ، والنتيجة: جعفر 274.dcount in form.accdb.zip

الاساتذة الفضلاء : ابي نصار وزيزو و ابي البراء .. لكم مني كل الثناء .. فنحن الى جواركم :نتعلم الف باء .. اذهب الله عنا جميعا كل بلاء

وعليكم السلام ما الارقام المفروض ان تظهر في مثالك اعلاه؟ جعفر

أخى و أستاذى أبا البراء بارك الله فيكم وجعل فى ميزان حسناتك

اخى الفاضل ابو نصار اخى الفاضل ياسر العربى جزاكم الله عنى خير الجزاء

فيديو فوق الممتاذ الف شكر لكم

حبيبى الغالى المهندس / ياسر بارك الله فيك .. و جزاك الله خيرًا و زادها بميزان حسناتك تقبل خالص تحياتى وتقديرى

السلام عليكم اخي الكريم شاهد هذا النموذج الذي يمكن التعديل عليه هل طلبك مشابه له ام لا فاتورة44.rar

بارك الله فيك استاذ ابو محمد تم والحمد لله جميع المراحل بنجاح يتبقي.،، اولا:- كيف يتم (عمل واستعادة)النسخه الاحتياطية عن طريق الاكسس وليس من داخل السيرفر لان كما تعلم العميل لا يعرف يعمل نسخه من داخل السيرفر وانما لابد ان يكون ذلك من خلال الاكسس ثانيا:- عند اعطاء البرنامج للعميل كيف يكون الوضع.،. هل يجب ان يقوم بتصطيب ال sql server exp ومن ثم تشغيل برنامج الاكسس ام ماذا تحياتي لك وعلي الجهد المبذول وبارك الله فيك

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

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

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

وعليكم السلام ورحمة الله في وضع إغلاق الجداول والاستعلامات قم من تبويب خيارات اختيار مصممو الكائنات ثم في SQL Server - ANSI92 قم بإلغاء الاختيار على خانة قاعدة البيانات هذه انظر الصورة المرفقة

استاذي الغالي العيدروس واضح انه في مشكلة في تحديد الخلية j8 فانا ريحت دماغي ومفكرتش ابحث وخبطت كدا علي طول علي حد علمي البسيط Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range On Error Resume Next Set Ws = Sheets("salary") L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:C" & L), Ws.Range("AM8:AM" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy Application.ScreenUpdating = False Sheet7.Activate .[j8].Select .Paste Sheet3.Activate Application.ScreenUpdating = True End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub وعذرا علي التخبيط اللي عملناه في كودك

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

تفضل اخي الغالي ما طلبت وظبط انت تعديلاتك بقي وياريت الاخ عبد العزيز يحط النص المتحرك form111.rar

السلام عليكم جرب التالي Sub Ali_A() Dim Ws As Worksheet, L Dim Rng As Range Dim Rn As Range Set Ws = Sheets("salary") L = Split(Ws.UsedRange.Address, "$")(4) For Each Rng In Union(Ws.Range("C8:C" & L), Ws.Range("AM8:AM" & L)) If Rng.Borders(xlEdgeRight).LineStyle <> -4142 Then If Not Rng Is Nothing Then If Rn Is Nothing Then Set Rn = Rng Else Set Rn = Union(Rn, Rng) End If End If End If Next With Sheets("Total") If Not Rn Is Nothing Then Rn.Copy .[J8].Select .Paste End If End With Application.CutCopyMode = False Set Rn = Nothing Set Rng = Nothing End Sub

بارك الله فيك أخي الحبيب أبا الحسن والحسين على الشرح الرائع والسلس والسهل والممتاز جزيت خيراً أخي الغالي

اخى مختار اقتبست رد اخى ياسر لانه ابلغ رد

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

استاذنا جيفار ياما اتعلمنا منك

شاهد المرفق اكتب تاريخ البداية والنهايه في المربعين ع الفورم وانقر بحث تحياتي الرشيدى _ إحصاء_111.rar

مجرد تسمية للكود بإمكانك تسمية ماتشاء مثلاً Sub Naser_Almsre () اسم فقط هذا يرمز الى تحديد الخلايا التي تحتوي على صيغه الملاحظ انا عمود Am يحتوي على صيغ فقط لذا عبرنا عن التي تحتوي على صيغه اما بخصوص مرفقك الاخير لم افهم طلبك بخصوص الجدول هل ملفك الاساسي به جداول وبينها فراغات اما جداول وبينها اسطر قيم ؟

أخي الكريم الجواد الأبيض أهلا بك في المنتدى ونورت بين إخوانك نتمنى لك قضاء أمتع الأوقات مع إخوانك بالمنتدى جرب الملف التالي عله يفي بالغرض Swimming Heats.rar

السلام عليكم عندي جدول اسمه barcodeir مشكلة بتقسيم واجو المساعدة في تقسيم قيمة الباركود من عامود الى عدة أعمدة مع الملاحظة الى ما يلي : الكود = *A1-a1-000200-101* A1= مرتبط بجدول noufoustable / field1 المفروض بيروت في عامود nfousi a1 = ستسقط كما هي في عامود a1 000200 = رقم الجدول لا يتكرر وسيسقط في عامود irsalieh 101 = سيسقط في عامود 101 ولك جزيل الشكر user = tarek pass = 26180 --------------------------- للرفع ----------------------------- barcodeir.rar

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

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

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

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

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

السلام عليكم الامر بسيط 1- افتح الملف المرفق 2- اجعل الماوس علي (ماكرو القائمةالرئيسية) 3- اذهب Tools Marco Create Menu Form macro لإستفسارات أخرى يرجى مراسلتي علي bu_humaid@hotmail.com New_Microsoft_Office_Access_2007_____________.rar