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

بسم الله الرحمن الرحيم وجدت كثيرا من الاعضاء تطلب هذا الموضوع كثيرا وعندما وضعت مثال لشاشة دخول بكلمة مرورظهر ليا مشرف كدا كالعادة وقالي البوقين دول كنت أفضل يكون في موضوع مستقل لأن المشاركات الفرعية تندثر مع الوقت لما تلاقي نفسك عملت ملف مميز زي كدا .. افتح موضوع جديد واشرح بالتفصيل (مش ترمي الملف وتجري ..) وبعد كدا في المشاركة الفرعية تضع رابط للموضوع ليستفيد أكبر عدد من الأعضاء إذ أن المتابعين للمشاركات قلة .. ولكن هناك كثر في انتظار الموضوعات الجديدة للتعلم والاستفادة .. متنساش كلامي يا سكر زيادة وانا حبيت اوجه له رسالة من هنا واقول له انا بحب الشاي سكر خفيف المهم حبيبي الغالي فعلا صدق في كلامه فا نخش في الموضوع وبلاش رغي بقي اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد ونقوم بوضع عدد واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه اثنين تكست بوكس الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله GAME OVER بمعني انه استنفذ كل المحاولات وجاري اغلاق البرنامج وواحد كومند زرار يعني عشان ندوس عليه للدخول ز ما احنا شايفين وطبعا متنسوش تحطه خلفيه حلوة كدا للفورم دا اهم حاجه عندي اه كله الا الجماليات وموضوع الجماليات دا نعمله موضوع قريب ان شاء الله بس تكون عندكو لسعه فوتوشوب بس وطبعا نخلي الخلفية علي وضع الاسترتش اه يعني الصورة تبقي لازقه في الفورم كيبر تكبر معاه يصغر تصغر معاه تمام كلنا عارفين الاسترتش كويس زي ما احنا شايفين نيجي بقي للاكواد اول كود نحطه في الجينرال بقي اول حاجه Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 والكود التاني في حدث تهيئة اليوزر فورم Private Sub UserForm_Initialize() Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub toolwindowودول لزوم الفشخرة والمنظره وعشان نقصقص البتاعه دي ويضفي جمالا للفورمة هي الخيارات بتاعتها متاحه في الفيجوال بيسك عادي زي كدا ننفض للحته دي نخش علي الكود اثالث ودا هيبقي في تنشيط اليوزر فورم Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub ايه الكلام دا دا ياسيدي بنقوله كبر لنا البرنامج ملئ الشاشة Maximized لما تفتح اليوزر فورم زي الشاطر خلي مقاسات اليوزر فورم زي مقاسات البرنامج واحنا مكبرين شاشة البرنامج يبقي كدا اليوزر فورم هيبقى كبير زي البرنامج تمام كدا الكود الرابع Private Sub CommandButton1_Click() If TextBox1.Text = "123" Then Me.Hide Else am = am + 1 MsgBox " لقد استخدمت " & am & " محاولة من اصل 5 محاولات, vbCritical, "elmalak_elhazen_yasser@yahoo.com" If am = 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub اكيد دماغكو لفت معايا معلش انا شرحي علي قده استحملوني دا كود بيقول اذا كانت التكست بوكس واحد بتساوي 123 اذن ياعم اخفيني من وشك ويظهر معاك ملف الاكسيل عادي طيب اذا ما حصلشي بقي نعمل ايه تعالا بقي am دي اسم التكست بوكس اتنين بس انا غيرته الى am ندوس علي التكست بوكس اتنين ونغيره من هنا ومننساش نخفى التكست بوكس دا من هنا واحد فكيك بقي يقول ليه am اقوله ياناصح دول اول حرف من اسيل واول حرف من محمد ولادي تمام يامعلم محدش يشتم ولا يضرب المهم بقي ان am بتساوي نفسها + 1 تمام اه قبل ما انسى نخلي قيمة am دي بصفر نكتب جواها صفر عشان لما يعد يعد من بعد الصفر يعني كل ما المعلم يدوس غلط يزود رقم واحد وتطلع رسالة تقوله وصلت لكام محاولة ولما يوصل للمحاولة الخامسة يقوله بالسلامة ياحبي انا هقفل وانام وتمام كدا زي الفل والكلام خدنا والدرس خلص شفتوا انتو مش مصحصحين ازاي نسينا نحط كود فتح الفورم في حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub وبعدين انا مش هحط امثلة زي واحد صاحبي وحبيبي بيقول انكم لازم تتعبوا شوية وتعملوها بنفسكوا بدل ما تخدو كوبي وبست وخلاص للحديث بقية باذن الله لاستكمال اضافات تانيه اتمنى من الله ان ينفعكم هذا الشرح تقبلو تحياتي ياسر العربي قلت اضيف صورة الكود لكمعشان ميبقاش ليكو حجه

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

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

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

السلام عليكم جرب أخى هذا الكود يقوم بالترحيل مع انشاء الصفحات مع نسخ التنسيقات لعله يكون كما يريد Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "البيانات" Then sh.Range("A1:J1000").ClearContents End If Next LR1 = Cells(Rows.Count, 6).End(xlUp).Row LR2 = Cells(Rows.Count, 8).End(xlUp).Row Set Rng1 = Range("F2:F" & LR1) Set Rng2 = Range("H2:H" & LR2) Set Rng = Union(Rng1, Rng2) For Each cl In Rng x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("البيانات").Range("A1:J1").Copy Sheets(x).Range("A1").PasteSpecial xlPasteValues Sheets(x).Range("A1").PasteSpecial xlPasteFormats Sheets("البيانات").Cells(cl.Row, 1).Resize(1, 10).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("البيانات").Select Application.ScreenUpdating = False End Sub 2متابعة .rar

تفضل أخى علما بان اسم المستخدم ragab وكلمة المرور 123 ويمكنك تغيرهما من الخلايا AZ1 و AZ2 من الصفحة الأولى prchi Raspi Food Cost 1.rar

السلام عليكم ورحمة الله وبركاته انا احد الاشخاص الذين لا يحبذ ان يستعمل الكود في تخفيف أمان الاكسس ، فقد وضعته شركة مايكروسوفت في حزمة الاوفيس حتى تحمينا من ايدي المخربين ، وفي هذا الرابط شرحت كيفية عمل مجلد موثوق به للأكسس 2007 فما فوق: http://www.officena.net/ib/topic/66450-دمج-ملف-وتشغيله-قبل-أو-مع-بدء-اكسس/#comment-432363 المشكلة في كود تخفيف الامان ، انه لا يخفض مستوى أمان الاكسس لبرنامجك فقط ، وانما يخفض مستوى أمان جميع برامج الاكسس. ولكننا كمبرمجين لدينا مشكلتنا ، في انه اذا ارسلت برنامجك الى شخص ما ، فلا بد من التواصل معه و اعطاؤه الخطوات كما في الرابط ، وإلا فالبرنامج لن يعمل ، لان البرنامج يشتمل على الماكرو والوحدات النمطية. هنا اقدم لكم طريقة لجعل برنامجي فقط يعمل بمستوى أمان أقل ، فلا تظهر لي رسالة الأمان من الاكسس. العمل كله يدور حول كود ، ويجب حفظ الكود هذا في ملف بصيغة vbs ، والذي يجب ان نفتح برنامجنا عن طريقه. الكود يعمل على برامج الاكسس بصيغة mdb و accdb ، والمفروض ان يعمل على جميع اصدارات الاكسس 2003 فما فوق ، وعلى الاكسس 32بت و64بت (انا هنا اطلب من الشباب تجربته بإصدارات الاكسس التي يعملون عليها ، وإخبارنا بالنتيجة لوسمحتوا). اليكم طريقة العمل (رجاء انزال المرفق وفكه في المسار C:\jj ، وذلك حتى يمكنكم متابعة خطواتي): رجاء وضع البرنامج المرفق Seq.mdb حسب المسار التالي: C:\jj\Seq.mdb الآن اذهب الى المجلد C:\jj وافتح البرنامج Seq.mdb بالنقر المزدوج ، عند فتحه نرى رسالة أمان الاكسس ، وهذا متوقع ، وذلك بسبب انه في مجلد غير موثوق به (رجاء لا تضف هذا المجلد كمجلد أمان ، وانما اخرج من البرنامج). . الملف الآخر المرفق Seq.vbs ، يحتوي على هذا الكود: rem http://www.accessmvp.com/jconrad/accessjunkie/macrosecurity.html rem expression.OpenCurrentDatabase(filepath required, Exclusive optional, bstrPassword optional) dim o set o=createobject ("Access.Application") o.automationsecurity=1 ' set macro security LOW. o.opencurrentdatabase "C:\jj\Seq.mdb" o.usercontrol=true set o=nothing . تستطيع ان تجعله في اي مجلد (ممكن تجرب نسخه منه في اي مجلد شئت) ، وانقر مرتين على هذا الملف بُغية تشغيله ، سترى انه فتح البرنامج Seq.mdb ، وبدون رسالة أمان الاكسس ، وهو المطلوب ------------------------------------------------------------------------------------------------------------------------------------------- هذه الخطوة إضافية ، وهي لتحويل الملف السابق من صيغة vbs الى exe ، واختيار ايقونه للملف الجديد الآن ننتقل للخطوة التالية ، وهي ، اننا لا نريد ان ايقونة vbs ، وانما نريد ايقونه خاصة لبرنامجنا. هناك طريقتين: 1. ايقونة مختصر البرنامج Shortcut: وهي ان نعمل مختصر لملف Seq.vbs ، ولكن وللأسف مختصر ملف vbs يعطينا نفس ايقونة الملف نفسه ، وما عندنا طريقة لتغييرها!! لذلك ، سنعمل مختصر لملف الاكسس ، ونغير البيانات كالصورة التاليه ، بحيث يصبح مختصر ملف vbs يحتوي على ايقونة ملف الاكسس (طبعا يمكنك ان تغير الايقونة الى اي شئ شئت): . . . . وبهذه الطريقة غيّرنا ايقونة برنامج vbs الى ايقونه اخرى مناسبة 2. تحويل ملف vbs الى ملف تنفيذي exe ، وتختار له الايقونة التي تعجبك: رجاء انزال البرنامج المجاني Vbs to Exe من الرابط التالي: http://www.f2ko.de/en/v2e.php احد اسباب اختياري لهذا البرنامج ، اننا نستطيع التحكم به عن طريق Commandline ايضا ثم نتبع الخطوات التالية: ونستطيع ان نعمل لبرنامج vbs هذا كلمة سر كذلك ، . في الخطوة 6 تستطيع ان تكتب معلومات شركتك ، ونختار الايقونه التي نريدها للبرنامج (الخطوة 5) . . وتستطيع ان تجعله على سطح مكتب كمبيوترك الميزة في هذه الطريقة ، ان المستخدم لن يعرف مكان برنامج قاعدة البيانات Seq.mdb ، ولن يعرف الكود الذي كان في Seq.vbs ارجو ممن يضع ردا على الموضوع ، ان يذكر: 1. اذا اشتغل البرنامج على كمبيوتره ، 2. نسخة الاكسس التي يستخدمها. ملاحظة: الظاهر ان بعض متصفحات الانترنت حجبت انزال المرفق Seq.zip ، وذلك بسبب احتوائه على ملف vbs ، والذي يستخدمه الكثيرون لتخريب الكمبيوتر ، لذلك ، ارفق لكم Seq_2.zip والذي يحتوي على نفس ملفات Seq.zip ، ولكني غيرت صيغة الملف Seq.vbs الى Seq.txt . بعد انزال المرفق وفك ملفاته في الكمبيوتر ، رجاء تغيير مسمى الملف Seq.txt الى Seq.vbs جعفر Seq.zip Seq_2.zip

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

رجاء كود او برنامج لتحويل الاسماء باللغة الانجليزية فى حقل الى اسماء باللغة العربية فى حقل اخر مثال Ahmed mohamed الى احمد محمد

جزاك الله خيرا أخى الفاضل ابو حمادة شكرا جزيلا على هذا الدعاء الطيب

تفضل أخى الدوائر الحمراء.rar

تفضل أخى جرب المرفق تم تظبيط كود الدوائر فى صفحة AA جرب وأخبرنى بالنتيجة الدوائر الحمراء.rar

على فكرة الموضوع أصبح ملحوظ ومتكرر عدد غير قليل من الموضوعات الجديدة يتم تكراره مرتين أو أكثر

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

تفضل أخى تم وضع تاريخ الشهر فى الصفحة D فى العمود A بالمثل كما فى صفحة الارشيف ترحيل بيانات.rar

ولاثراء الموضوع هذا كود آخر Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long, x As Long, i As Integer, D As Boolean Dim ws As Worksheet, cl As Range '================================================== If Target.Address = [A3].Address Then x = Val([A3]) For i = 1 To 3 LR = Sheets(i).Range("A10000").End(xlUp).Row For Each cl In Sheets(i).Range("A1:A" & LR) If cl = x Then [B3] = Sheets(i).Name [C3] = cl.Address(0, 0) D = True Exit For End If Next Next If Not D Then Range("B3:C3") = "رقم غير موجود" End If End Sub مثال2.rar

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

بس دا كدا بيزعل الناس اللي بيحبوا 2003 خصوصاً .. ولازم نتعامل مع أي أوفيس وكل أوفيس ، وإن كنت أفضل شخصياً مواكبة التطور .. الناس في دول العالم راكبين صواريخ وإحنا لسه راكبين عجل .. ويا ريت محصل عجل سباق ( دا يدوب عجلة بعجلتين واحدة منفوخة وواحدة مهوية) تقبل تحياتي أخي الغالي مختار

وعليكم السلام اليك الطريقة بالصور: آخر سجل في الجدول ، والمطلوب طباعته . في الاستعلام ، يجب ان نفرز بحقل يحتوي على آخر معلومة ، ممكن ان نستخدم Descending ، او DLast او DMax ، او اي فرز يوصلنا لعرض النتائج ، بحيث يصبح السجل الذي نريده اول سجل . هنا نرى ان السجل المطلوب اصبح اول سجل . في اعدادات الاستعلام ، نقول له ان يعطينا سجل واحد في الاستعلام فقط . والنتيجة . والتقرير الذي على اساس الاستعلام . جعفر 249.Seq.mdb.zip

عذرا أخى الفاضل أقصد بان تضع السطر الخاص بالحماية بعد هذا السطر Set Sh = ورقة3

أخى الفاضل / مختار جزاك الله خيرا على هذا المرور العطر ويظهر ان الحل الوحيد لنسيان تعريف المتغيرات هو Option Explicit أصبت وأحسنت تقبل تحياتى

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

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

الاخت الفاضله ربى جربى المرفق هل هو طلبك تم عمل المطلوب بالمعادلات وليس الاكواد لو عايزه بالاكواد نعمله بس جربى المرفق وممكن تسحبى المعادلات اللى بالعمود B & C لاسفل الى ما تريد من صفوف تقبل تحياتى ======================================================== مثال.zip

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

تفضل أخى ترحيل بيانات.rar

السلام عليكم لم تظهر معي هذه المشكلة ، و سيتم بحث الامر للتأكد باذن الله تعالي مع الشكر و التقدير

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

السلام عليكم والله يا أخوي حربي ، انا ضايع في البرنامج بس اعمل هذه الملاحظات ، وان شاء الله يتم الازم: جدول "ترميز_استقطاعات" ، يجب ان: 1. تعمل صح في حقل "كل الموظفين" ، 2. النوع "1" ، 3. وتضع النسبة "3" ، للسجل "رعاية القاصرين": . وهذا هو كود الحدثين: الكود للحدث 1 If قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 End If الكود للحدث 2 ElseIf قائمة0.Column(0) = 22 Then Me.النسبة = Val(قائمة0.Column(2)) Me.المبلغ = الراتب * النسبة * 0.03 Me.المبلغ.Locked = -1 Me.نوع_الاستقطاع = 1 . ثم شغل البرنامج بالطريقة العادية ، وان شاء الله تلقى النتيجة المطلوبة جعفر

جزاكم الله خيرا اخى رجب واخى ياسر تمنياتى لكم بالتوفيق

السلام عليكم تفضل أخى كود الاخفاء Sub ragab() Dim rng As Range Dim cl As Range Dim LC As Integer Application.ScreenUpdating = False LC = Range("A1").End(xlToRight).Column Set rng = Range(Cells(11, 2), Cells(11, LC)) For Each cl In rng If cl.Value = 0 Then cl.EntireColumn.Hidden = True End If Next Application.ScreenUpdating = True End Sub وهذا كود الاظهار Sub ragab1() Dim rng As Range Dim LC As Integer Application.ScreenUpdating = False LC = Range("A1").End(xlToRight).Column Set rng = Range(Cells(11, 2), Cells(11, LC)) rng.EntireColumn.Hidden = False Application.ScreenUpdating = True End Sub Book2.rar

وعليكم السلام الطريقة الصحيحة لوضع قاعدة البيانات على الشبكة ، هي ان تعملها جزئين ، جزء للجداول (وتسمى BE) ، وجزء لباقي كائنات البرنامج (وتسمى FE)، جزء الجداول يكون على مجلد على الشبكة ، ويكون لجميع المستخدمين صلاحيات القراءة/التغيير ، جزء بقية الكائنات ، يكون على كمبيوتر كل مستخدم ، وتكون جداول الجزء الاول مرتبطة مع هذا الجزء. هناك عدة طرق لعمل تحديث لجزء الكائنات ، بحيث يقوم المبرمج بوضع النسخة الجديدة في نفس مجلد جزء الجداول على الشبكة (لأن جميع المستخدمين عندهم صلاحيات القراءة/التغيير للمجلد هذا ، مما يجعل هذا المجلد هو المجلد الاسهل للإستعمال)، احد طرق التحديث: 1. ان تعمل جدول في جزء الجداول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم التحديث ، وطبعا هذا الجدول سيكون مربوط مثل بقية الجداول ، بالجزء الثاني ، 2. وفي جزء بقية الكائنات ، تعمل جدول محلّي ، اي غير مرتبط مع الجزء الاول ، ويكون فيه حقل واحد ، وقيمة واحدة فقط ، وهي رقم النسخة الحالية للجزء الثاني ، 3. عند تشغيل الجزء الثاني ، فسيعمل مقارنة بين رقم نسخته (من الجدول المحلي) ، ورقم نسخة التحديث (من الجدول المرتبط) ، فاذا تطابقت الارقام ، فمعناه انه لا يوجد نسخة جديدة ، اما اذا لم تتطابق الارقام ، فمعناه ان هناك نسخة جديدة موجودة ، ويجب ان يتم استبدال نسخته (التي على كمبيوتره ، بتلك التي في الشبكة) هذه صلب الفكرة جعفر

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

وعليكم السلام أخي ناصر لا تستطيع بالماوس ، فانت تتكلم عن قاعدة بيانات طريقة تسلسل السجلات هي نفسها في الجدول او الاستعلام او النموذج ، وهي عن طريق الفرز والتصفية انا في بعض برامجي ، اعمل في كل جدول حقل رقمي خاص للتسلسل ، اسميه Seq ، وعليه اعطي السجلات التسلسل المطلوب ، ثم اعمل الفرز على اساس هذا الحقل جعفر

سبق ان رأيت مثل هذه الفكرة ولكن في ملف للاكسيل .. نتمنى ان نرى مثلها في الاكسس

يمكن استخدام مفتاح الاختصار Ctrl + End للوصول آخر النطاق المستخدم

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

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

السلام عليكم . . . . والنتيجة: جعفر

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

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

السلام عليكم بورك فيكم و الكل يتعلم ممكن استخدام Value لاستخدام الارقام المخزنه كنص(قد تشذ القاعدة احيانا) =SUM(VALUE(B2),VALUE(B1)) وهي تعمل

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

حقاً والله فأنا أشعر أني في بيتي عندما أتصفح هذا المنتدى ، وأشعر بالاختناق عندما أبتعد عنه وكلنا نتعلم الكثير والكثير عاشق الإكسيل

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

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

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

السلام عليكم الدالة FIXED تفيد تثبيت عدد الأرقام العشرية بمعني أن لو ناتج العملية مثلا 10.33354 ثم طبقت عليه هذه الدالة =FIXED(A1,2) فإن الناتج سيكون 10.33 أو =FIXED(A1,3) فإن الناتج سيكون 10.334 وإذا لم تذكر المعرف أي فقط =FIXED(A1) فإنه =2 أي أن الناتج سيكون 10.33 أيضا

السلام عليكم أختي الفاضلة البرامج تعمل بشكل جيد وجربتها مراراً ما المشكلة عندك بالضبط؟ *** أبشري سأعطيك برنامج آخر حملي البرنامج من هنا http://www.officena.net/team/hs889/DownLoa.../Protection.rar وهذا رقم التسجيل الخاص به AOXPPR-PRO-LWXFW-46678-FTDBV-66344 طريقة استخدامه: بعد تنصيب البرنامج نقوم بتسجيله من help نختار enter.... ومن ثم ندخل مفتاح التسجيل الآن نذهب إلى file ومن open نختار ملف الوور ستخرج لي رسالة أضغط ok الآن سيعطيك لوحة فيها خانتان ضعي في الأولى أي كلمة مرور ؛ مثلا بسم الله وفي الثانية أعيد كتابة الكلمة نفسها ومن ثم موافق نغلق البرنامج ونذهب لملف الوورد سنجد أن كلمة الحماية أصبحت بسم الله نضعها وسيتم فك الملف أي استفسار أنا بالخدمة على فكرة: قمت بفك الملف 4،5 وهم بالمرفق abo_akram_4_5.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذه هي النسخة المعدلة من برنامج المخازن ولقد قمت بتجارب كثيرة عليه وانشا الله لا تحتوي على اية خطأ كما قمت بتعديل بسيط على القوائم واظهار واخفاء اشرطة الادوات ارجو ان تنال اعجابكم طريقة تشغيل البرنامج اولا فك االملف المضغوط باستخدام برنامج وين رار ثم شغل الملف المسمى المخازن اذا كانت بعض المراجع لديك غير معرفة سوف تظهر لك رسالة خطأ اضغط على زر debug ستفتح لك قائمة هي قائمة refrences والتي من خلالها يتم اضافة المراجع وهي على الشكل التالي اولا قم بازالة جميع المراجع الموجود عندك في الجهاز هناك بعض المراجع التي لايمكن ازالتها لانها قيد التشغيل ثم اضف المراجع كما هي بالصورة المرفقة اعلاه ملاحظة قد لا تحتاج الى كل المراجع الموضحة بالصورة ولكنني اضفت بعضها تحسبا ملاحظة اذا لم تفتح شاشة ال refrences تلقائيا يمكن فتحها عن طرق التالي اضغط alt +f11 يفتح مشروع فيجوال بيسك ثم من القائمة tools اختر refrences ثم قم باضافة المراجع حسب الشرح ملاحظة بالنسبةللطباعة اذا لم يكن لديك طابعة مثبة على الجهاز قد تظهر رسالة خطأ للحيلولة دون ظهورها عليك ان تثبت طابعة على الجهاز حتى لو لم يكن عندك طابعة تستطيع ذلك عن طريقة اضافة طابعة من لوحة التحكم بالنسبة لاستخدام البرنامج الافضل استخدام الارقام العربية وهي على الشكل التالي بالنسبة لارقام الاصناف يفضل استخدام الحروف الانجليزية مع الارقام العربية على الشكل ارجو ان ينال البرنامج اعجابكم واذا كان لديكم اية ملاحظات او استفسارات لا تترددو في طرحها هنا almakhazn.rar