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

و عليكم السلام و رحمة الله وبركاته جرب هذا الكود Sub Mokarar() Dim Q1, FR, TR, TC For FR = 5 To 9999 Q1 = Cells(FR, 3) If Q1 = "" Then GoTo 7 For TR = FR + 1 To 9999 If Cells(TR, 3) = Q1 Then For TC = 1 To 33 Cells(TR, TC).Clear Next End If Next 7 Next End Sub ان شاء الله يكون به ماتريد

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

بسم الله الرحمان الرحيم السلام عليكم بعد غيابي الطويل عن هدا المنتدى العزيز لاسباب ........؟ اتركوها على الله لم اشاء ان اعود خالى اليدين لدى ارتأيت ان اضع بين ايديكم هدا الملف المتواضع وهو عبارة عن برنامج خاص لاصحاب محلات بيع الموبيلات كنت قد صممته لاحد اصدقائي بدون اطالة الباسوورد 123 لاغلاق الفورم وفتح ملف الاكسل Alt + b الباسوورد 111118 ارجو ان ينال اعجابكم تحياتي لكم Archivé Mobile V 1.001.rar الملف الاصلي بدون عمله ملف تنفيذي

بسم الله الرحمن الرحيم اخواني في الله نظرا لان منتدى اوفيسنا من افضل المنتديات وهو يعتبر كنزا لرواد العلم .. حفظ الله اهله وصاحب هذا المنتدى .. يارب فقد آثرت ان اجمع درر الاعمال واضعها هنا لعل ذلك ينفع احدا ... فنشارك في الاجر والثواب من الله كيفية عمل فلترة ديناميكية بواسطة TEXTBOX ..للاستاذ الكبير ماجد ماهر وهذا هو باب الكنز https://www.youtube.com/channel/UCm_KFnYAIq_WAsfVl_5qUnQ/videos?view_as=subscriber وعلى الله قصد السبيل

بسم الله الرحمن الرحيم اخواني في الله نظرا لان منتدى اوفيسنا من افضل المنتديات وهو يعتبر كنزا لرواد العلم .. حفظ الله اهله وصاحب هذا المنتدى .. يارب فقد آثرت ان اجمع درر الاعمال واضعها هنا لعل ذلك ينفع احدا ... فنشارك في الاجر والثواب من الله ===== بحث وترحيل على الشيت باستخدام كومبوبوكس للمتألقه / ساجدة العزاوي وهذا هو باب الكنز https://www.youtube.com/channel/UCSEHgnsy257rL_Wca02Tx_w/videos?disable_polymer=1 وعلى الله قصد السبيل

السلام عليكم أهل المنتدى الكرام أقدم اليكم اليوم برنامج متخصص فى الفواتير والمخازن يارب يعجبكم ..بارك الله فيكم وغفر لكم takala-برنامج المحاسب العربى.rar

جرب هذا الماكرو Option Explicit 'Macro to delete duplicates in Columm Sub del_row() Dim i%, k% Dim x% k = Range("a6").CurrentRegion.Rows.Count For i = 6 To k If i > k Then Exit For x = Application.CountIf(Range("c6:c" & i), Cells(i, 3)) If x > 1 Then Cells(i, 1).EntireRow.Delete: i = i - 1: k = k - 1 Next End Sub

اخي الكريم عنوان موضوعك مخالف .. ان لم تعدل العنوان ففي الغالب سيتم اغلاقه من قبل الادارة وبالتالي لن تستفيد شيء

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

أخي العزيز على كل حال اليك اقتراحي sDate حقل التاريخ ، Text0 حقل إظهار الكود للسنة و الشهر ، Text6 حقل رقم السند الحالي حسب التاريخ المدخل في الحقل sDate Private Sub tDate_Exit(Cancel As Integer) 'By Nart Lebzo For www.officena.net '04/04/2018 Dim sCount, sMin, sMax, sGap Me.Text0 = Format(Left(tDate, 10), "yymm") sCount = DCount("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") ' Strings sMin = DMin("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") sMax = DMax("[strNum]", "tblTest", "[strNum] like '" & Me.Text0 & "*'") sGap = Right(sMax, 3) - Right(sMin, 3) + 1 Me.Text6 = sMax + 1 If sCount = 0 Then Me.Text6 = Me.Text0 & "001" End If If sGap > sCount Then MsgBox " There is a gap in the sequence of bond numbers " & vbNewLine & " -- " _ & vbNewLine & "هناك ثغرة في تسلسل أرقام السندات ", , " Attention -- تنبيه " End If End Sub و الله من وراء القصد ...

وعليكم السلام تفضل قم بالضغط علي زر print_all الحد الأقصى نهائي معدل 2018.xlsm

جرب هذا الملف(لعله المطلوب) ADD_SHEETS.xlsm

تفضل أخى لك ما تريد وهذا فيديو أيضا للشرح اضافة أسطر في جدول.xlsx

الاجازات التي تمنح للموظف يتم تسجيلها في جدول الاجازات ويسجل فيها العام وعدد الايام و من /الى ولكن قبل هذا يجب ان تعمل معادلة تجلب لك استحقاق الموظف من اول يوم عمل وحتى اليوم الحالي وهذه المعادلة ثابتة ويمكن ان نسمي ناتج العملية : بالاستحقاق الكلي وكل ما عليك عمله عند الرغبة في منحه اجازة جديدة هو عمل مقارنة او بالاصح عملية حسابة تطرح مجموع ما استمتع به من ايام تطرحها من استحقاقه الكلي ، والمتبقي هو رصيده التراكمي من أيام الاجازة المستحقة المهم مسألة انك ستتعامل مع كل سنة واجازاتها على حدة متعب برمجيا ونتائجه غير دقيقة آمل ان تستوعب الفكرة

بالتوفيق اخي ابو زاهر

بعد اذن اخي شريغ هذا الكود (يمكن ان يكون اسرع قليلاُ) Option Explicit Sub Filter_For_Me() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With On Error GoTo Exit_sub Dim i% Dim t% Dim arr(): arr = Array("م", "غ", "<50", "صفر") Dim My_Rg As Range Dim FinaL_row%: FinaL_row = Sheets("data").Cells(Rows.Count, 2).End(3).Row Set My_Rg = Sheets("data").Range("b2:M" & FinaL_row) For i = 2 To Sheets.Count With Sheets(i) .Range("a2:M1000").Clear .Range("Xfd1") = .Name .Range("xfd2").Resize(4, 1) = Application.Transpose(arr) My_Rg.AdvancedFilter Action:=2, _ CriteriaRange:=.Range("xfd1:xfd5"), _ CopyToRange:=.Range("a2"), Unique:=False .Range("a1").CurrentRegion.Columns.AutoFit .Range("xfd1:xfd5").Clear For t = 12 To 5 Step -1 If .Cells(2, t) <> .Name Then .Cells(2, t).EntireColumn.Delete Next t End With Next i Exit_sub: With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With Erase arr End Sub الملف مرفق استدعاءبشروط Salim1.xlsm

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

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

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

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

السلام عليكم ورحمة الله تقصد هكذا 2222.rar

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

أخي العزيز / أحمد المرفق به نموذج لإعداد قيد يومية مع مراكز تكلفة بفكرة عمل كل قيد بورقة منفصلة وبشكل تلقائي بالضغط على مفتاح قيد جديد يعطيك قيد BLANK بمسلسل تلقائي كما يمكنك إضافة حسابات جديدة ومراكز تكلفة وبيان يتكرر معك فبدل كتابته كل مرة تبحث عنه ويضع تلقائياً بالنقر عليه بالفورم الخاص بالبحث عن بيان وكل المعلومات الأساسية تعمل بفكرة الإضافة والبحث ومن المهم أن تقرأ التعليقات برأس جدول بيانات القيود ومن المهم جداُ ألا تترك صفوف فارغة عند إكمالك للقيد وطلبك لقيد جديدولديك فكرة النقرة المزدوجة بأي صف في عمود المدين لتضيف أسفله ماتريد من صفوف تحتاجها لإكمال القيدوطبعاً تسجيل رقم وإسم الحساب ومركز التكلفة والبيان كله يتم من خللا البحث بنقرة مزدوجة بالحقل الخاص بكل عنصر على مستوى الجدول بالكامل . لا أحب أن أطيل وأي استفسار لا تتردد في طرحه . تحياتي أبو عبدالله JOURNAL VOUCHER FORM.rar