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

أخي الكريم أما آن لك أن تقوم بتغيير اسم الظهور للغة العربية مسألتك في منتهى البساطة وليس لها علاقة بالكود ... في الملف يوجد تنسيق شرطي ..يمكنك الإطلاع عليه من التبويب Data ثم الأمر Conditional Formatting واختار Manage Rules ستجد معادلة التنسيق بهذا الشكل =NOT(ISBLANK(A6)) وتعني إذا لم تكن الخلية في العمود الأول فارغة يتم التنسيق بالشكل المطلوب وبجانب المعادلة يوجد النطاق الذي سيتم تطبيق التنسيق عليه قم بتعديل النطاق ليناسب الأعمدة التي تريدها =$A$6:$I$40 لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "أعجبني هذا" وأن تلتزم بالتوجيهات والنصائح المقدمة لك من الأخوة الأعضاء (يا مستر تويوتا)

السلام عليكم اخوانى وأساتذتى فى المنتدى وكل عام وأنتم بخير بمناسبة عيد الفطر اليوم أقدم لكم كيفية عمل اختصار لملف اكسل به صورتك على سطح المكتب فقد لفت نظرى طلب أحد الأخوة لهذا الموضوع لذلك قررت أن أضع بين أيديكم الطريقة الآتية 1 - فى ملف اكسل أدرج هذا المديول Option Explicit Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Integer) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function GetActiveWindow Lib "user32" () As Integer Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (ByVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String) As Long Private Declare Function ShellAbout Lib "shell32.dll" Alias "ShellAboutA" (ByVal hWnd As Long, ByVal szApp As String, ByVal szOtherStuff As String, ByVal hIcon As Long) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long Const CSIDL_PERSONAL = &H5 Private Type SHITEMID cb As Long abID As Byte End Type Private Type ITEMIDLIST mkid As SHITEMID End Type Dim FSO As New FileSystemObject Dim FLD As Folder Function UserNameOffice() As String UserNameOffice = Application.UserName End Function Public Function DesktopAddress() As String DesktopAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator End Function Private Function GetSpecialFolder(CSIDL As Long) As String Dim Path As String Dim FolderPath As Object Dim IDL As ITEMIDLIST Dim sh As New Shell32.Shell Set FolderPath = sh.NameSpace(5) If Not FolderPath Is Nothing Then GetSpecialFolder = FolderPath.Self.Path Exit Function End If GetSpecialFolder = "" End Function Function DirExists(strDirectory As String) As Boolean DirExists = (Dir(strDirectory, vbDirectory) <> "") End Function Sub Desktop_Shortcut() Dim WBName As String, Path As String, WB_Link As String, WB_Name As String Dim DesktopPath As String, TargetPath As String, StrSave As String Dim WSHShell As Object, MyShortcut As Object Set WSHShell = CreateObject("WScript.Shell") Dim FSO As Object, Folder As Object, File As Object Set FSO = CreateObject("Scripting.FileSystemObject") Dim WB As Workbook Set WB = ThisWorkbook Dim WSh As Worksheet Set WSh = Sheet1 WBName = WB.Name Path = "MyFile" DesktopPath = WSHShell.SpecialFolders("Desktop") WSh.Range("C2").Value = WB.Name WB_Name = WSh.Range("C3").Value WB_Link = WSh.Range("C4").Value On Error GoTo ErrHandle If Not DirExists("C:\" & WB_Name) Then 'Check C Drive If Not DirExists(GetSpecialFolder(CSIDL_PERSONAL) & "\" & WB_Name) Then 'Check My Documents Set FSO = CreateObject("Scripting.FileSystemObject") 'If not in C Drive or My Documents - then create shortcut FSO.CreateFolder "C:\" & WB_Name ChDir "C:\" & WB_Name SavePicture Sheet1.Image1.Picture, WB_Name & ".ico" 'Picture pasted onto Image1 on Sheet 1 - Link Shortcut Set FSO = CreateObject("Scripting.FileSystemObject") Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & WB_Link) With MyShortcut .TargetPath = WB.FullName .IconLocation = "C:\" & WB_Name & "\" & WB_Name & ".ico" .WindowStyle = 1 .Description = "EEZIAdmin" .WorkingDirectory = WB.Path .Save End With Else End If End If ErrHandle: Set WSHShell = Nothing End Sub 2 - فى شيت 1 الخلية C3 ضع المعادلة =IF($C$2="";"";IF(MID($C$2;(LEN($C$2)-4);"1")=".";LEFT($C$2;LEN($C$2)-5);IF(MID($C$2;(LEN($C$2)-3);"1")=".";LEFT($C$2;LEN($C$2)-4);""))) وفى الخلية C4 ضع المعادلة الآتية =IF($C$3<>"";$C$3&".lnk";"") 3 - فى شيت 1 ادراج Image وعليها صورة : ندرج الـ Image كالتالى من developet tab ثم insert ثم more controls ثم Microsoft forms 2.0 image ثم ok ارسم الـــــ Image فى الشيت وبعدين كليك يمين عليها واخنر Properties فى قائمة الخصائص التى تظهر دور على الخيار Picture واعمل ادراج لأى صورة من على جهازك على الـ Image واحفظ وشغل الكود لكم كل التحية والتقدير Desktop Shortcut mokhtar.rar

تم تعديل الملف كي يعمل فقط على المعادلات اختر فقط من القائمة المنسدلة رقم السيارة و اكسل يقوم بالباقي اضغط اعجبني او افضل اجابة اذا كان كذلك المخالفات.zip

أخي الكريم عبد الواحد بعد فتح الملف بكلمة السر المميزة للأخين محمد حسن وعلاء رسلان (علامة النجمة) روح للأمر Save As حفظ باسم واختار تنسيق الملف Xlsm نفس التنسيق القديم وبجانب كلمة Save ستجد كلمة Tools بجانبها سهم صغير (ممكن تستخدم عدسة مكبرة عشان السهم صغير) انقر السهم هتلاقي General Options أي خيارات عامة انقر عليها واحذف كلمة السر واضغط Ok ثم أخيراً Save لو هتحفظ الملف في نفس المسار هيظهر لك رسالة تأكيد الاستبدال .. اضغط Yes للموافقة على الاستبدال أو غير اسم الملف الجديد باسم تاني وخلي القديم بكلمة السر زي ما هو (زي ما تحب .. تاكل سوداني أو تأزأز لب)

أخي الحبيب علاء بدلاً من استخدام جدول للنوع يمكن تعديل المعادلة لتؤدي الغرض بهذا الشكل بدون الاستعانة بجدول =VLOOKUP(A2,{"ذكر","ي";"أنثى","ت"},2,0)&IF(H2>=16,"وجه",IF(AND(G2>=10,H2<16),"نتقل","عيد السنة"))

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

اليك هذا الملف يمكنك اختايار المرتبة التي تريد و تبديل الاسماء التي تناسب العاشرة /الرابعة /الاولى حسب الختيار من الخلية J1 اضغط افضل اجابة اذا كان كذلك أعلى نتيجة اختيارية.zip

بارك الله فيك أخي وحبيبي في الله خالد الرشيدي معادلة في منتهى الجمال والروعة زيادة في الخير وإثراءً للموضوع أقدم لكم حل بدالة معرفة والدالة للعلامة الكبير عبد الله باقشير - غفر الله لنا وله - Function Kh_Names(FullName As String, ParamArray Index1()) As String Dim I As Integer Dim Kh_Split, MyArray, Arr Dim Kh_String As String, SN As String, RE As String On Error GoTo Err_Kh_Names MyArray = Array("عبد ", "أبو ", "ابو ", "آل ", " الله", " الدين", " الإسلام", " الاسلام", " الحق", " النصر", " العهد", " النور", " بالله") SN = Application.WorksheetFunction.Trim(FullName) For Each Arr In MyArray RE = Replace(Arr, " ", "^") SN = Replace(SN, Arr, RE) Next Kh_Split = Split(SN, " ", , vbTextCompare) On Error Resume Next For I = 0 To UBound(Index1) Kh_String = Kh_String & " " & Kh_Split(Index1(I) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") Kh_Names = Kh_String Exit Function Err_Kh_Names: Kh_Names = "" End Function استخدام الدالة =Kh_Names($F2,COLUMN(A$1)) أو يمكن بهذا الشكل =Kh_Names($F2,1) الرقم 1 يمثل الاسم الأول .. استخدم نفس المعادلة واستبدل الرقم 1 برقم 2 لاستخراج الاسم الثاني وهكذا تقبلوا تحياتي :fff: Split Compound Names.rar

الأخ الفاضل محمود بك إليك شرح للخطوط العريضة فقط وليس لتفاصيل المعادلة Transfer Data Based On Two Conditions By Formulas Help.rar

سلسلة تعليم اكسل(vba) للمبتدئين الجزء الاول

برنامج المتابعة اليومية للطلاب يحتوي عل التالي : 1- الغياب اليومي للطلاب 2- تسجيل الملاحظات لكل طالب اثناء الحصة من تأخر - آداء الواجبات - السلوك الذي يصدر من الطالب اثناء الحصة .... 3- طباعة تقارير لكل طالب على حده 4- طباعة تقارير خاصة بكل شعبة 5- طباعة احصائيات عن الغياب والسلوكيات المختلفة لكل طالب. 6- استمارة تحويل الطالب على لجنة السلوك بالمدرسة 7- يمكنك حفظ السجل على شكل ملف اكسل. اتمنى ان يحيز اعجابكم ويساعد المعلمين على متابعة الطلاب Follow-Up.rar

الحل الوحيد اللي خلاني مرضي شوية إني غيرت اسم الملف بتاعك وقبل التنفيذ غيرت الصورة ... ونجحت عملية إنشاء الاختصار بعد ما طلعت روحي الحمد لله هنام وأنا شايف صورتي الوحشة على سطح المكتب .. مقدرش أشوف سطح المكتب عندي عليه صورة حلوة وجميلة (دا مستحيل أبداً) تقبل تحياتي أخي الغالي مختار :signthankspin:

ماشاء الله على الابداع جزاكم الله خيرا

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

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

اخى الفاضل جرب المرفق لعلة المطلوب وابدى ملاحظاتك ان كان ما تريد قم بتحديدة كمجاب إقرار.rar

الاخ و الاستاذ الحبيب مختار حسين الف مليون مبروك على ترقيتك والشكر موصول لاستاذنا ومشرف اوفيسنا ياسر خليل واشكرك على تهنئتكم لى وكل عام وانتم بخير ومش عاوزينك تغيب عننا بقى علشان بتوحشنا تحياتى

اليكم الفيديو الثانى ادراج الصور وعمل موضوع بها وقريبا الفيديو الثالث

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

اخ ايمن /السلام عليكم جرب هذا الشيء المصنف1.zip

مخطئ تماما أيها الأخ الكريم أبو صاصا و كلامك مردود عليه أولا : لم تراعى قواعد المشاركة فى الموقع http://www.officena.net/Tips/Questions.htm خمسة دقائق لن تكلفك الكثير و ستريحك فى التعامل مع الموقع بشكل صحيح و فعال و إيجابى . ثانيا : لم تراعى قواعد المشاركة فى منتدى الأكسيل http://www.officena.net/ib/index.php?showtopic=60147 خمسة دقائق أخرى من وقتك الثمين و ستجد متعة فى التعامل بشكل صحيح و ميسر لك و لكافة الاعضاء ثالثا : جميع القواعد معلنة و بارزة و بمكان واضح و ليس مخفية أو سرية ستجعل منك عضوا متميزا فى أسلوبه و طرحه لمواضيعه سواء كانت سؤال او استفسار او شرح رابعا : أنت بكلامك قد أسئت للمنتدى بشكل صريح دون أن يكون هناك سبب لهذا التهجم و ذلك لأنك أهملت فى قراءة القواعد خامسا : أسئت لأحد المشرفين بشكل واضح و مباشر بالتعرض لإختصاصاته و مهامه الأساسية فهو القائم على تنفيذ قواعد المنتدى بشكل صارم و الا يعتبر مهملا كأى عضو عادى بالمنتدى لا يلتزم بالقواعد و لا يستحق منصبه القائم عليه سادسا : أسئت لغيرك من الأعضاء برغم من أن أحد لم يتأخر فى تقديم يد المساعدة و العون .. نحن هنا جميعا نساعد و نعاون دون أى مقابل الا مرضاة الله سبحانه و تعالى و نقتطع من أوقاتنا لمساعدة غيرنا على حلول مشاكلهم مع الأوفيس و غيره من البرامج أعضاء و مشرفين سابعا : لمجرد عدم حصولك على اجابة تصب جام غضبك على المنتدى برغم عراقته و كذلك كونه من أفضل المنتديات فى مجاله .. أنت لست أول و لا آخر واحد لا يجد لا لطلبه المسئلة قائمة على الفهم الصحيح للمشكلة حتى يتم حلها ( ليس سلق بيض أو قالب محفوظ ) و قائمة على تفهم قواعد الموقع و المنتدى و على إدراك صاحب المشكلة أنه قد أوصل مشكلته بشكل صحيح و مفهوم ثامنا : إن كنت ترى ان تأديه المشرف لمهامه استخفاف و إهانه فإن من واجبى كمسلم نصحك و إرشادك الى أنك مخطئ أخى الكريم من قمة رأسك لأخمص قدميك أرجو منك قراءة القواعد بعناية و قراءة كلامى بشكل صحيح حتى تعلم مكمن الخطأ و لا تظلم أحد فالظلم ظلمات يوم القيامة و بالنيابة عنك أعتذر لأخى الكريم ياسر خليل عما بدر من العضو الكريم من تعرض للمنتدى و له بشكل شخصى ارجو أن يتقبل أسفى و أعتذارى الشديد و لأخوتى الأفاضل 10 دقائق فقط يمكنها أن تجنبنا الخطأ و تقلل منه بشكل كبير بتفهمنا للقواعد تاسعا : الأخ الكريم أبو صاصا .. لم ترد على أى استفسار من الأعضاء و بدلا من ان ينصب همك على المشكلة انصب همك على شخصك و تحول الموضوع لمسئلة شخصية و ثأر وهميا فى مخيلتك .. فلا أنت تعرفنى بشكل شخصى او تعرف الأخ ياسر أو غيره و لا نحن نعرفك حتى نهينك او نستخف بمشاعرك على ما تظن و تعتقد عاشرا : نحن هنا جميعا فى خدمة بعضنا البعض دون مقابل الا مرضاة الله سبحانه و تعالى و كل شخص على قدر معرفته و علمه و كل منا يختفى وراء كلماته التى تفضح شخصيته الكلمة الطيبة يبقى أثرها فى النفوس و تذكر بخير و الكلمة الخبيثة يبقى اثرها و تذكر بشر مهما حاولنا و مهما اختفينا وراء الكلمات فهى تفضح مكنون النفوس فتخير كلماتك أخى الكريم و أحسن عرض أسلوبك لمسئلتك و انتقى من الخطوط ما يسر القلب و ما يريح العين ... ان كان كلامى خير فمن الله و فضله و ان كان كلامى شر فمن نفسى و أستغفر الله لى و لكم دمتم بخير جميعا و أعزكم الله

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

السلام عليكم ...بصراحة بهذه المعادلة ...اختصرت معادلات..جزاك الله خيراً...ناجحة 100%

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

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

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

أخي علاء المحترم السلام عليكم ورحمة الله وبركاته: لست أدري ما سرّ هذا الملف من EXCEL الذي حاولت مراراً وتكراراً فتحه إلا أنه أبى... حتى أنني لم أر حرفاً مما هو مكتوب به لا شاشة افتتاحية (بداية ) ولا غيرها.. عجيب.. تقبلوا تحياتي....السلام عليكم.

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

السلام عليكم إخوتي الأكارم:كل عام وأنتم إلى الله أقرب.. يرجى ملاحظة أنه لا يمكن استدعاء بيانات الصف الثاني لمخالفة التاريخ لنص المخالفات الذي تديرون عليه حلقة بحثكم هذه.. يرجى معالجة ذلك لربما يكون السبب متعلق به.. تقبلوا تحياتي.

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

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

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

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

أخي الكريم أشرف .. وهشام كمال الأخ الحبيب المتابع للموضوع من بدايته أخي وحبيبي علاء رسلان إليكم إصدار أفضل من الدالة المعرفة .. وبالمثال يمكنكم التعامل مع أي بيانات إن شاء الله Public Function Wish(RngData As Range, RngWish As Range, Start_WishColumn As Long, End_WishColumn, MarkColumn As Long) Dim ArrData, ArrWish, ArrOut, ArrSwap Dim ColCount As Long, I As Long, J As Long, K As Long ArrData = RngData.Value ArrWish = RngWish.Value For I = 1 To UBound(ArrWish, 1) ArrWish(I, 2) = ArrWish(I, 2) Next I ReDim ArrOut(1 To UBound(ArrData, 1), 1 To 1) ColCount = UBound(ArrData, 2) ReDim ArrSwap(1 To 1, 1 To ColCount) For I = 1 To (UBound(ArrData, 1) - 1) For K = I To UBound(ArrData, 1) If ArrData(K, MarkColumn) > ArrData(I, MarkColumn) Then For J = 1 To ColCount ArrSwap(1, J) = ArrData(I, J) ArrData(I, J) = ArrData(K, J) ArrData(K, J) = ArrSwap(1, J) Next J End If Next K Next I For I = 1 To UBound(ArrData, 1) For J = Start_WishColumn To End_WishColumn If ArrOut(I, 1) = "" Then For K = 1 To UBound(ArrWish, 1) If ArrData(I, J) = ArrWish(K, 1) Then If ArrWish(K, 2) > 0 Then ArrOut(I, 1) = ArrWish(K, 1) ArrWish(K, 2) = ArrWish(K, 2) - 1 End If End If Next K End If Next J Next I For I = 1 To (UBound(ArrData, 1) - 1) For K = I To UBound(ArrData, 1) If ArrData(K, 1) < ArrData(I, 1) Then ArrSwap(1, 1) = ArrData(I, 1): ArrSwap(1, 2) = ArrOut(I, 1) ArrData(I, 1) = ArrData(K, 1): ArrOut(I, 1) = ArrOut(K, 1) ArrData(K, 1) = ArrSwap(1, 1): ArrOut(K, 1) = ArrSwap(1, 2) End If Next K Next I Wish = ArrOut End Function يتم تحديد النطاق الذي تريد النتائج به S8:S27 ثم في شريط المعادلات ضع المعادلة التالية =Wish(D8:R27,U12:V23,3,14,15) ثم اضغط على Ctrl + Shift + Enter البارامترات الخاصة بالمعادلة : البارامتر الأول : نطاق البيانات بالكامل D8:R27 البارامتر الثاني : نطاق الرغبات والذي يحتوي على الرغبات والحد الأقصى المسموح به البارامتر الثالث: عمود بداية الرغبات وهو في المثال العمود رقم 3 والعد يبدأ من بداية نطاق البيانات .. أي أن العد في المثال يبدأ من العمود D البارامتر الرابع: عمود نهاية الرغبات وهو في المثال العمود رقم 14 وكما أخبرنا العد يبدأ من بداية نطاق البيانات البارامتر الخامس والأخير: هو رقم عمود المجموع وهو في المثال رقم 15 وكما أخبرنا ونؤكد أن العد من بداية نطاق البيانات لا تنسونا من صالح دعائكم Pupils Distribution According To Marks & Wishes V2.rar

الأخ الكريم هشام كمال أعتذر عن التأخر في الرد إليك الملف التالي عله يفي بالغرض ماستر 2015-2016.rar

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

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

و عليكم السلام و رحمة الله و بركاته كل سنة و أنت و الأسرة الكريمة بخير و عيد مبارك لا أعرف لماذا أشعر اننى شاهدت هذا الموضوع من قبل و كان به ردود ؟ ربما ألتبس علي الأمر من كثرة ترددى على المنتدى و لكن مازال الشعور يداهمنى بشدة غير انه ربما هناك خلل بذاكرتى الواهنة العجوز انها تتلاعب بى كثيرا يا لها من ذاكرة لعوب و لكنها أحيانا تصدمنى بحقائق أنها مازالت بخير لم يدركها المشيب كفودي شعرى .. أرجو أن تتحمل إطالتى هذه فهى تعيننى على علاج الذاكرة ربما أكرر كلمات ربما أهذى و لكن لا تلومننى على هذا اللوم كل اللوم عليها ( من هى ؟ ) ذاكرتى هل اتحدث عن غيرها هنا ، ستجد ان شاء الله من خيرة شباب العرب و عباقرها من يساعدك للوصول الى حل لموضوعك ان شاء الله .. من أنا و ماذا أفعل ؟ هل هذا سؤال طوق النجاة يا هذا الذى يلقيه العباقرة لإنقاذ الغرقى هو يساعدك على التماسك و الإنتظار حتى ينتشلك ذوى الخبرة من الغرق تقبل مرورى و سماجتى و سخافتى عموما اذا أثرت فيك الضحكة فقد نجحت فى إعطائك الأمل اذا أصبت بخيبة أمل من تعقيبى هذا فإننى أعتذر لعدم قدرتى فى إعطائك الحل الذى يريحك و تهتدى به فى طريقك الممتلأ بالصعاب و الذى سيكون سهلا بالعزيمة و الصبر و الاجتهاد دمت بخير و أعزك الله .

بارك الله فيك استاذ ابوخليل , وشكرا للاستاذ يوسف

اخي الحبيب / خالد الرشيدي يسعدني مرورك كل سنة وحضرتك طيب

الاستاذ يوسف يستخدم اوفيس 2013 الخلل موجود في المكتبات واخص مكتبة البريد Outlook يمكنك استبدالها بالاصدار الاقدم

معك حق المرفق يشتمل على خطأ غير مقصود كان مصدر النموذج الفرعي استعلام محذوف تم اصلاح المثال في مشاركتي الاولى يمكنك التجربة الآن Experiment treeview2.rar

الجزء السابع للمبدع اسلام رجب

الجزء السادس

الجزء الثاني

أخي الفاضل يرجى عدم الالحاح في الطلب .. من لديه القدرة على المساعدة ، سيقوم بذلك بدون إلحاح .. تفضل الملف المرفق بالمعادلات .. ومتنساش تحدد أفضل مشاركة اللي فيها الإجابة المطلوبة كأفضل إجابة تقبل تحياتي Transfer Data Based On Two Conditions By Formulas.rar

نحدد قيمة حقل بالاعتماد على قيمة حقل آخر تلقائيا .... Private Sub Textbox1_AfterUpdate() If Textbox1.Value = "1" Then Textbox2.Value = "10" End If End Sub

الكود التالي يعيد كافة القيم الإفتراضية لحقول النموذج ، وكأننا ننتقل لسجل جديد ... Private Sub btnClear_Click() Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Value = ctl.DefaultValue Next Set ctl = Nothing End Sub والسلام ختام

السلام عليكم ورحمة الله و بركاته بعد اذن الاخوة تعديل بسيط على الفورم و الكود و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته قاعدة بيانات ادخال وبحث HaNcOcK 2.rar

الخطوه الأهم في تصميم اي قاعدة بيانات هي وضع مخطط العمل , و لكي نعرف مخطط العمل لابد من الاحاطه بالهدف المطلوب من انشاء قاعدة البيانات . لدينا شركة NorthWind أو الرياح الشماليه , شركة تقوم بشراء وبيع البضائع , عملية الشراء غير مطروقه في هذه القاعده , و انما الاهتمام كله موجه لعملية البيع ( و طبعا بالامكان تصميم مايلزم لعمليات الشراء ) . عملية البيع تتم بناء على طلبيات مسبقه من العملاء , بحيث يتم تحديد الأصناف المطلوب ارسالها للعميل و الأسعار ووسيلة الشحن وموعد الشحن المطلوب و رقم الموظف الذي قام بتسجيل بيانات الطلبيه . بالنسبه للبضائع لابد من مراعاة أن يكون هناك مخزون متوفر حيث أن البضائع التي تم بيعها للعملاء ستخفض الرصيد الموجود بالمخازن , و طبعا في حال انخفاض هذا الرصيد عن حد اعادة الطلب , فيجب اعداد طلبية شراء لتغذية المخزون , و لكن كما ذكرنا عملية الشراء غير متطرق اليها في هذه القاعده . اذا يمكننا الآن أن نضع تصورا للجدول التي ينبغي انشاؤها حيث : - طالما لدينا بضائع يتم بيعها اذا لابد من انشاء جدول خاص بالبضائع Product - لدينا عملاء اذا نحتاج الى جدول للعملاء Customers - لدينا طلبيات اذا نحتاج الى جدول خاص للطلبيات اذ لكل عميل طلبيه مستقله Orders هذه هي الجداول الرئيسيه التي نحتاجها و سنقوم بتصميمها الآن . قبل البدء بتصميم الجداول لابد من الاشاره الى بعض التوصيات في بناء الجداول و هي : أولا : الجدول هو المادة التخزينيه للبيانات الرئيسيه , اذ يجب أن يحتوي على القيم التي لاتتأثر بغيرها اي على سبيل المثال اذا كانا نريد حساب المعادله التاليه القيمه = الكميه * سعر الوحده يمكن أن نضع حقلا للكميه المباعه و حقلا لسعر الوحده أما القيمة و التي هي عباره عن سعر الوحده * الكميه , فلا يجب أن يكون حقلا ضمن الجدول وذلك لأنه يتأثر بقيمة كل من الكمية و السعر فاذا تغير سعر الوحده فان الجدول لايستطيع حساب القيمه من تلقاء نفسه الا من خلال تشغيل كود معين , لذلك يستعاض عن هذا باستخراج القيمة من خلال استعلام يحوي حقل محسوب يساوي الكميه * السعر ثانيا : يجب فصل البيانات الخاصه بجزئيه معينه عن بعضها , مثلا الجدول الرئيسي لدينا هو جدول الطلبيات , و حيث أننا نريد أن ندخل اسم العميل في الطلبيه , و حيث أننا نحتاج بنفس الوقت لمعرفة بيانات كامله عن هذا العميل , فاذا كنا سنقوم بادخال بيانات العميل هذه كل مره في جدول الطلبيات فسيكون هذا عملا مرهقا , لذلك احتجنا أن تكون بيانات العميل في جدول مستقل تجتمع فيه بياناته الكامله , و نكتفي في جدول الطلبيات بوضع حقل واحد لرقم العميل , و بعملية الربط بين الجدولين نستطيع معرفة مانريد من بيانات عن هذا العميل . ثالثا : يفضل أن تكون استخدام الأسماء الانكليزيه لكل مكونات قاعدة البيانات و خاصة اسماء الجداول و الحقول , لأن استخدام الأسماء العربيه يسبب ارباكات أثناء العمل بالمعادلات و أكواد الفيجوال بيسيك رابعا : تجنب وضع مسافات في التسميات , مثلا اذا كنت تريد تسمية Product List فالأفضل وصلها هكذا ProductList لنبدأ الآن بتصميم الجدول الأسهل في هذه القاعده و هو جدول العملاء , و لنتصور أنه يحتوي الحقول التاليه : اسم العميل CompanyName العنوان Address المدينه City الدوله Country المنطقه Region الرمز البريدي PostalCode الهاتف Phone الفاكس Fax و سنحتاج اضافة لذلك بيانات عن الشخص الذي سنتصل به مثل اسمه ContactName و عمله الوظيفي ContactTitle و طبعا قبل كل ذلك نحتاج الى كود العميل CustomerID و هو الذي سيكون صلة الربط مع الجداول الأخرى و المفتاح الرئيسي لهذا الجدول قاعدة البيانات هذه موجوده بشكل جاهز مع الأكسس من قائمة الأدوات - أمثله , يمكن تنزيلها للاطلاع عليها , و لكن من أراد أن يستفيد أكثر فليحاول التصميم بنفسه لزيادة مهارته و ليبدأ بتصميم جدول العملاء و سنتابع ان شاء الله بقية الجداول في الدرس التالي