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

اعرض الملف أداة إنشاء النصوص ثلاثية الأبعاد {سلسلة الأدوات المساعدة المخصصة} اقدم لكم اليوم أداة جميلة لكل من يبحث عن التميز وإظهار نماذجة وتقاريره بعناوين ثلاثية الأبعاد الحقيقة أني حصلت على هذه الأداة من موقع أجنبي فقمت بتعريبها وتبسيطها أكثر ستجدون ضمن المرفقات الأداة ومجلدين ومستند وورد يحتوي على تعليمات ارجو ان يتم قراءة مستند الوورد أولاً لمعرفة طريقة الإستفادة من الأداة بشكل صحيح تحياتي صاحب الملف منتصر الانسي تمت الاضافه 10/11/25 الاقسام قسم الأكسيس  

وعليكم السلام ورحمة الله وبركاته اعتقد تقضد العمود E فهو مخصص لايام الغياب خسب ملفك الكود يحسب جميع الأيام المتتالية السابقة بما في ذلك يوم التاريخ المحدد ولا يخسب الايام التالية بعد التاريخ المحدد اليك الملف test1.xlsb

لا حرمني الله منك اخي الحبيب الغالي تم الامر كما ينبغي

تقضل استاذ @ابو عبد الرحمن اشرف الشرح والكود . Private Sub txtFrom_AfterUpdate() If Me.txtFrom > Me.txtTo Then MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical Undo Exit Sub End If End Sub Private Sub txtTo_AfterUpdate() If Me.txtFrom > Me.txtTo Then MsgBox "يجب تاريخ النهاية يكون اكبر من أو يساوي تاريخ البداية", vbCritical Undo Exit Sub End If End Sub

وعليكم السلام ورخمة الله وبركاته اليك التعديل وارجو ان يكون فيه طلبك غياب 1طلاب.xlsb تحياتي

بعد اذن استاذنا @ابوخليل تفضل استاذ @sabry fahmy مشروع كامل بطلبك ادرسه جيداً . ووافني بالرد . Sabry_Fahmy.rar

وعليكم السلام ورحمة الله وبركاته 🙂 عمل رااااااائع وتنفيذ أروع عمي فادي 😊 ألعابنا القديمة اللي كنا فقط نلعبها صرنا اليوم نصنعها بأنفسنا .. شي رااائع فعلا 😇🌼

اللهم آمين يارب العالمين وإياكم يارب 🙂 والشكر لك على إطلالتك الجميلة ( حضورك يعطي للمكان حلاوة ) 😊🌷 في وندوز برنامج شبيه بهذه الإضافة واسمه Sticky notes الملاحظات اللاصقة (شكلهم ماخذين الاسم من عندي 😅🖐) تلاحظ أن مكتوب فيه عبارة توضح الهدف منها ببساطة ( أكتب أي شيء لتتذكره ) وهذا باختصار الهدف من تصميمه .. وأنا فقط قمت بتصميم نسخة شبيهة بها يمكن دمجها مع برامج العمل اليومية لكتابة الملاحظات التي تستدعي التذكير بأي أمر ما ( إجتماع ، اختبار ، تدوين أفكار ، كتابة مسودات، التذكير بالمواعيد ، ... ، .... الخ ) وللناس الراقية والمبدعة اللي تحب تتوسع وتطور وتضيف أفكار احترافية إضافية فباب الإبداع لهم مفتوح وكله جمال فوق الجمال 😊. وسلامتكم 😇🌹

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

السلام عليكم ورحمكم الله جرب الكود كلمة السر 123 Sub AdvancedProtectFormulas() Dim ws As Worksheet Set ws = ActiveSheet On Error Resume Next ws.Unprotect "123" On Error GoTo 0 Application.ScreenUpdating = False ws.Cells.Locked = False Dim formulaCell As Range For Each formulaCell In ws.UsedRange.SpecialCells(xlCellTypeFormulas) formulaCell.Locked = True Next formulaCell ws.Protect Password:="123", _ AllowFiltering:=True, _ AllowSorting:=True, _ AllowFormattingCells:=False, _ AllowFormattingColumns:=False, _ AllowFormattingRows:=False, _ AllowInsertingColumns:=False, _ AllowInsertingRows:=False, _ AllowInsertingHyperlinks:=False, _ AllowDeletingColumns:=False, _ AllowDeletingRows:=False, _ AllowUsingPivotTables:=True, _ DrawingObjects:=False, _ Contents:=True, _ Scenarios:=False, _ UserInterfaceOnly:=True Application.ScreenUpdating = True End Sub كما يمكنك السماح ببعض الخصائص والشيت محمى من خلال التعديل في هذا الجزء TRUE او FALSE ' حماية ورقة العمل بكلمة المرور "123" ws.Protect Password:="123", _ ' السماح بتصفية البيانات AllowFiltering:=True, _ ' السماح بفرز البيانات AllowSorting:=True, _ ' عدم السماح بتنسيق الخلايا (مثل تغيير الألوان أو الخط) AllowFormattingCells:=False, _ ' عدم السماح بتنسيق الأعمدة (مثل تغيير العرض أو التنسيق) AllowFormattingColumns:=False, _ ' عدم السماح بتنسيق الصفوف (مثل تغيير الارتفاع أو التنسيق) AllowFormattingRows:=False, _ ' عدم السماح بإدراج أعمدة جديدة AllowInsertingColumns:=False, _ ' عدم السماح بإدراج صفوف جديدة AllowInsertingRows:=False, _ ' عدم السماح بإدراج روابط تشعبية (Hyperlinks) AllowInsertingHyperlinks:=False, _ ' عدم السماح بحذف الأعمدة AllowDeletingColumns:=False, _ ' عدم السماح بحذف الصفوف AllowDeletingRows:=False, _ ' السماح باستخدام الجداول المحورية (Pivot Tables) AllowUsingPivotTables:=True, _ ' عدم حماية الكائنات (مثل الأشكال أو المخططات) DrawingObjects:=False, _ ' حماية محتوى الخلايا (لا يمكن تعديل القيم مباشرة) Contents:=True, _ ' عدم حماية السيناريوهات (Scenarios) Scenarios:=False, _ ' السماح للأكواد البرمجية (VBA) بالتعديل على الشيت حتى مع الحماية UserInterfaceOnly:=True تحياني

استاذ @احمد العدوى الرسالة التي تظهر في الصورة تقول: "يتبيّن عن التعبير عند الفتح الذي أدخلته كإعداد خاصية الحدث الخطأ التالي: Return without GoSub." المعنى: يوجد خطأ في كود VBA داخل أحد أحداث النموذج أو التقرير (غالبًا في حدث On Open أو On Close أو On Load)، حيث يحتوي الكود على عبارة Return بدون أن يكون هناك أمر GoSub قبلها. 1- في أحد أكواد الأحداث، هناك سطر مثل: Return لكنه غير تابع لأي كتلة GoSub ... Return. وهذا غير مسموح في VBA (يُستخدم GoSub وReturn فقط معًا داخل نفس الروتين). 2-أو قد يكون حدث النموذج (مثل On Close أو On Load) يشير إلى ماكرو أو دالة لم تعد موجودة أو تمت إعادة تسميتها. أحيانًا يظهر هذا الخطأ إذا تم كتابة اسم الماكرو أو الدالة في خاصية الحدث (Event Property) خطأ، مثل: =MyMacro() بينما الماكرو نفسه تم حذفه أو تغيّر اسمه. ✅ الحلول المقترحة خطوة بخطوة: افتح النموذج (أو التقرير) الذي يظهر عند إغلاق الملف أو فتحه (غالبًا Form_Main أو Form_Login). من طريقة العرض التصميم (Design View)، حدد النموذج واضغط F4 لفتح "ورقة الخصائص (Property Sheet)". راجع الخصائص التالية في تبويب حدث (Event): عند الفتح (On Open) عند التحميل (On Load) عند الإغلاق (On Close) عند إلغاء التحميل (On Unload) 🔧 مثال توضيحي: إذا وجدت أن هناك اسم دالة أو ماكرو مكتوب فيها (مثل =MyFunction() أو MyMacro😞 اضغط على الزر […] بجانبها، وافتح محرر الكود، وتأكد أن الكود موجود وسليم. إذا لم تكن تستخدم هذا الحدث، احذفه (اجعلها فارغة). ابحث في الكود داخل النموذج أو الماكرو عن أي سطر فيه Return بدون GoSub. إما احذفه أو استبدله بـ Exit Sub أو Exit Function حسب السياق. 🔧 مثال توضيحي: ❌ الكود الخطأ: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Return End Sub ✅ التصحيح: Private Sub Form_Close() If Me.Dirty Then Me.Dirty = False End If Exit Sub End Sub إذا أردت، أرسل لي الكود الموجود في حدث Form_Close أو Form_Unload من النموذج الذي يظهر عند الإغلاق، وسأحدد لك السطر المسبب للخطأ بالضبط.

نسخه جديده مستحدثه بعد التعديل عليها EMA.zip

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

السلام عليكم ورحمة الله وبركاته استيراد اسطر معينة من ملف نصي (مفكرة) بدلالة كلمات موجودة في اسطر الملف النصي وهو طلب لاحدهم جعلته هنا لتعم الفائدة http://www.officena....showtopic=43791 الكود : Option Explicit ''''''''''''''' ' اسم ملف النص Const tName As String = "QQQ.txt" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الكود كما هي في ملف النص Const S1 As String = "كود:" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الاجمالي كما هي في ملف النص Const S2 As String = "الأجــمــالي" ''''''''''''''''''''''''''''''' Sub kh_Import_Lines_of_TextFile() Dim MySplit Dim MyFile As String, MyText As String Dim iRow As Long '============================= ' مسح محتويات الجدول Range("A3:F14").ClearContents ''''''''''''''''''''''''''''''' ' tName الاسم الكامل لملف النص الموجود في مسار ملف الاكسل والذي تم تعيين اسمه في الثابت MyFile = ThisWorkbook.Path & ThisWorkbook.Application.PathSeparator & tName ''''''''''''''''''''''''''''''' ' اول صف لنقل البيانات iRow = 3 '============================= Application.ScreenUpdating = False '============================= Open MyFile For Input Access Read As #1 '============================= While Not EOF(1) Line Input #1, MyText ''''''''''''''' ' S1 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S1) Then ' معالجة السطر لاعطائنا الرقم فقط MyText = Mid$(MyText, InStr(MyText, S1)) MyText = Replace(MyText, S1, "") MyText = WorksheetFunction.Trim(MyText) Range("A" & iRow).Value = MyText End If ''''''''''''''''''''''' ' S2 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S2) Then ' معالجة السطر وتحويله الى اعمدة بالنص الرقمي المطلوب MyText = Replace(MyText, S2, "") MyText = WorksheetFunction.Trim(MyText) MySplit = Split(MyText) With Range("B" & iRow).Resize(1, UBound(MySplit) + 1) .Value = MySplit ' تحويل النص الرقمي في الخلية الى رقم .Replace ",", "." End With iRow = iRow + 1 End If ''''''''''''''''''''''' Wend Close #1 '============================= Application.ScreenUpdating = True '============================= End Sub المرفق ملف اكسل 2003-2007 ملف نصي + صورة استيراد اسطر معينة من ملف نصي.rar =========================================== المرفق الثاني امثلة لاستيراد وتصدير لجدول بيانات مرتب Dim MyCode As Double, MyCur As String, MyDate As Date Sub ExportRange() Dim r As Integer Open ThisWorkbook.Path & "\textfile.txt" For Output As #1 ''''''''''''''''''''' Do r = r + 1 With Range("B6") If Len(Trim(.Cells(r, 1))) = 0 Then Exit Do MyCode = .Cells(r, 1) MyCur = .Cells(r, 2) MyDate = .Cells(r, 3) End With ''''''''''''''''''''' Write #1, MyCode, MyCur, MyDate ''''''''''''''''''''' Loop ''''''''''''''''''''' Close #1 ''''''''''''''''''''' End Sub Sub ImportRange() Dim i As Integer Range("B6").Resize(1000, 3).ClearContents On Error GoTo 1 Open ThisWorkbook.Path & "\textfile.txt" For Input As #1 While Not EOF(1) Input #1, MyCode, MyCur, MyDate i = i + 1 ''''''''''''''''''''' With Range("B6") .Cells(i, 1) = MyCode .Cells(i, 2) = MyCur .Cells(i, 3) = MyDate End With '''''''''''''''''''' Wend Close #1 1: End Sub المرفق ملف اكسل 2003-2007 استيراد تصدير.rar

وهذا الملف جمعت فيها ملف الف الكود المعمول بالاكسس ليتم التعرف على الية عمل هذه المحفظة تفضلوا شوفوا وجربوا وعدلو محفظة اكواد.rar

السلام عليكم اضافة عناصر الى فورم مع استخدام class Modules لربط هذه العناصر بالاكواد في المرفق مثال لاضافة OptionButton الى فورم لاسماء اوراق العمل مع ربط هذه العناصر بكود باستخدام class Modules طلب لاحدهم http://www.officena.net/ib/index.php?showtopic=30450&st=0#entry152538 ووضع هنا لتعم الفائدة اضافة عناصر الى فورم.rar

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

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

السلام عليكم هذدا طلب لاحد الاخوة في المشاركة: http://www.officena.net/ib/index.php?showt...mp;#entry110359 حبيت ان يكون في مشاركة مستقلة لتعم الفائدة للجميع تحياتي وشكري ____________.rar

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

بسم الله الرحمن الرحيم السلام عليكم اخوتى جميعا اسف لتاخرى على الرد وكان ذلك بسبب انقطاع النت عندى وعندما دخلت وجدت المنتدى مغلق وجدت فى الجزء الثالث الاتى :- - فى الاية رقم 255 (وَلاَ يَؤُودُهُ ) واو زائدة - فى الاية رقم 259 مئة (مائة) - فى الاية رقم 275 الرِّبَا تكون الرِّبَوا مع التشكيل لانى لم اعرف اشكلها - فى الاية رقم 277 الصَّلاَةَ -- الصلوه التشكيل لانى لم اعرف اشكلها - فى الاية رقم 288 وَلاَ تَسْئَمُوْاْ---- وَلاَ تَسَْمُوْاْ - فى الاية رقم 14 الماب الْمئَآبِ غير انة فى التشكيل ينقص بعض الكلمات لانه مكتوب ببرنامج القرآن الممزوج مع الوورد (وهو لكتابة الايات القرانية) والله اعلم فبحثت على الانترنت ووجدت القرآن الكريم بالكتابة العثمانية المشكلة جيدا فى الكلمات القرآنية (قران النور) فارفقتة فى المرفقات لكى ينتفع به اخى خبور ويدخلة فى البرنامج هذا طبعا اذا وافق هو واخوتى فى الله لكى ينتفع به اكبر عدد وشكرا واسف على الاطالة مرفق ملفين لكبر حجمهما ملحوظة: يجب فك الملف الخاص بال font وادخالة مع ال font الخاص بنسخة الويندوز وهذا فى control panel فى font نقوم بنسخهم داخلة فقط لكى يعمل الخط العثمانى والسم عليكم ورحمة الله وبركاتة ____1.rar font.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الاخ / Skyblue المحترم التعديلات الجديدة: 1ـ اضافة ورقة جديدة ( حساب) 2ـ حذف ورقة 3ـ ادراج التاريخ الافتراضي تاريخ اليوم ومع اختيارات اخرى 4ـ طباعة مع الفرز بالنسبة لفورم البحث ( ما هو المعيار ومن اي ورقة ) انظر الى المرفق: ودمتم في حفظ الله وسلامته تحياتي وسلامي اخوكم/ خبور ____________________3.rar

بسم الله الرحمن الرحيم برنامج دوريات مفتوح لعمل اي دوري فيه ينفع للدوريات في المدارس متاح لعشرين فريق ارجوا ان تنتفعوا فيه خبور _______________.rar