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

السلام عليكم ورحمة اله ملف 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

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

السلام عليكم ورحمة الله وبركاته البغض منا قد يرغب فى ازالة التنسيق الشرطى عن خلية أو نطاق لسبب ما مع ازالة أو ابقاء آثاره من تنسيقات مثل لون الخلايا و لون و حجم الخط .... الخ و بإذن الله تعالى سأعرض عليكم ــ اخوتى ــ كودين يؤديان هذه المهمة الأول : يقوم بازالة التنسيق الشرطى مع ازالة آثاره من نطاق محدد : Sub RemovingCFandEffects() ' Removing Conditional Formats and the Effects Dim Rng As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False Rng.FormatConditions.Delete Application.ScreenUpdating = True MsgBox ("The Conditional Formats in The Range " & Rng.Address & vbCrLf & " has been Removed and The Effects") End Sub الثانى : يقوم بازالة التنسيق الشرطى من نطاق محدد مع ابقاء آثاره من تنسيقات كما هى أو بعبارة أخرى تحويل التنسيقات الشرطية الى تنسيقات عادية : Sub RemovingCFbutNotEffects() ' Removing Conditional Formats but not the Effects Dim Rng As Range, C As Range Set Rng = Sheets("Sheet1").Range("A1:C10") Application.ScreenUpdating = False For Each C In Rng ' Rng.SpecialCells(xlCellTypeAllFormatConditions) With C .Interior.Color = .DisplayFormat.Interior.Color .Font.FontStyle = .DisplayFormat.Font.FontStyle .Font.Color = .DisplayFormat.Font.Color .FormatConditions.Delete End With Next Application.ScreenUpdating = True MsgBox ("The Conditional Formats in the Range " & Rng.Address & vbCrLf & "has been removed but Not the Effects ") End Sub أتمنى أن يكون موضوعا سهلا وخفيفا ونافعا لكم ... تقبل الله منا و منكم صالح الأعمال والسلام عليكم ورحمة الله وبركاته Removing Conditional Formats.rar

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

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

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

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

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

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

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

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

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

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

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

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

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

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

وعليكم السلام.. انظر هذه الصورة

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

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

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

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

الاستاذ / العيدروس ( ابو نصار ) جزيت الخير من رب العالمين على اهتمامك بالرد فلك مني كل الشكر والتحية استاذنا الاستاذ ياسر ( ابو البراء ) : ماشاء الله .. كود رائع يفي بالمطلوب تماما .. جزاك الله خيرا .. وزادك علما ونشاطا لخدمة الاعضاء ..لك كل التحية والتقدير الاساتذة الافاضل : عذرا .. عند تعديل بداية رقم الجلوس ... لا يعمل الكود بالشكل المطلوب .. اذ انه يقوم بتكرار بعض ارقام الحجرات امام حجرات اخرى .. كما في المرفق ترقيم تلقائي.rar

اشكرك اخي العزيز ودمت لنا معلما

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

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

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

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

يعطيك الف عافيه اخي ابو محمد2

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

أخي وحبيبي مختار يعجبني فيك التميز في الموضوعات ..تأتي بما لم يأتِ به الأوائل جزيت خير الجزاء

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

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

يقول المثل ابا خليل قديمك نديمك لذلك شغلك القديم اصح ! واسمح لي باختصاره الى الكود التالي Shell "cmd.exe /C copy " & """" & CurrentProject.FullName & """" & " " & """" & CurrentProject.Path & "\abc.mdb" & """" حيث الانتباه الى تساوي الامتداد بين الملف الحالي والوجهة ! تحياتي

وعليكم السلام في مكتبتي امثلة كثيرة متنوعة للنسخ ولكني عثرت لك على هذا الكود الصغير يقوم بنسخ اي شيء باي اسم واي امتداد وصيغة ولصقه على اي اسم نختاره واي امتداد وصيغة Private Sub zer1_Click() CopyFile CurrentProject.Path & "\xx.accdb", "D:\xx.accdb" End Sub Function CopyFile(vPathSource As String, vPathDestination As String) As Boolean FileCopy vPathSource, vPathDestination CopyFile = True End Function اخي آخر الارض .. جرب ووافنا بالنتائج

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

ينقل ....

السلام عليكم نموذج للدليل المحاسبي اربعة مستويات بالامكانيات التالية: 1- العمل على نموذج فارغ 2- اضافة حذف جذور(1-9) 3- امكانية اضافة 99 حساب للرئيسي وفروعة الاخرى نموذج للدليل المحاسبي ثلاثة مستويات شاهد المرفق 2003-2010 نموذج للدليل المحاسبي 4 مستويات.rar