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

السلام عليكم الله وبركاته بداية أقدم كل التحية والتفدير والاحترام الى أساتذتى الكرام وأخص بالذكر الأستاذ عبدالله باقشير الذى أوحى إلىّ بهذه الدالة فقد قدم لنا الأستاذ الفاضل دالة للجمع بناء على لون الخلية وهى : Function kh_SumColor(RngColor As Range) As Double Dim cel As Range Dim sm As Double For Each cel In RngColor If cel.Interior.Color = Application.Caller.Interior.Color Then sm = sm + Val(cel) Next kh_SumColor = sm End Function وعن طريق الصدفة وجدت طلبا فى أحد المنتديات الأجنبية التى أشترك فيها يسأل عن Sum Cells by Font Color فجااء ببالى لماذا لا نستفيد من دالة أستاذى الفاضل ولكن بطريقة أخرى وهى الجمع بناء على لون الخط فأصبحت الدالة بهذا الشكل : Function MOKHTAR_SumFontColor(RngFontColor As Range) As Double Dim cel As Range Dim MOKH As Double For Each cel In RngFontColor If cel.Font.Color = Application.Caller.Font.Color Then MOKH = MOKH + Val(cel) Next MOKHTAR_SumFontColor = MOKH End Function وبمجرد أن أنتهيت من المطلوب قررت وضعه هنا فى المنتدى ليستفيد منه الزملاء أرجو من أستاذى أن يعذرنى على هذا الاقتباس فقد ينفع يوما بعض الناس . تقبلوا جميعاً تحياتى وهذا مرفق للدالة Sum Cells by Font Color.rar

السلام عليكم إخواني الكرام في المنتدى الرائع أقدم لكم كود بسيط يتم وضعه في حدث Worksheet_BeforeDoubleClick يقوم الكود بوضع علامة صح عند النقر المزدوج على أي خلية في النطاق A1:A100 يمكنك تغيير النطاق إلى أي نطاق تريده .. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

بعد اذن الاستاذ جعفر ! والله جهزت الحل قبل اشوف ردكم !! ولكم اجمل تحية ضع 600000 عند خاصية الفاصل الزمني للنموذج وهذا الكود عند الحدث عند عداد الوقت للنموذج مع ملاحظة انه تم اضافة عند الوصول لاخر سجل يعود مرة اخرى لاول سجل Private Sub Form_Timer() If CurrentRecord = Me.RecordsetClone.RecordCount Then DoCmd.GoToRecord , , acFirst: Exit Sub DoCmd.GoToRecord , , acNext End Sub بالتوفيق

اخوانى الافاضل ها قد انتهينا من شرح مجموعة الدروس الخاصه بالبحث عن طريق conditional formatting ارجو ان اكون قد وفقت فى الشرح وان تكون هذه الدروس مفيده مرفق شيت اكسيل به التطبيقات تقبلو تحياتى Conditional-Formatting.rar

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

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

اخى الحبيب يوضع هذا الجزء فى بداية اكواد الفورم Option Explicit 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 Const GWL_STYLE = -16 Const WS_SYSMENU = &H80000 ثم يوضع هذا الجزء مستقل Private Sub UserForm_Initialize() Dim hWnd As Long, lStyle As Long If Val(Application.Version) >= 9 Then hWnd = FindWindow("ThunderDFrame", Me.Caption) Else hWnd = FindWindow("ThunderXFrame", Me.Caption) End If lStyle = GetWindowLong(hWnd, GWL_STYLE) SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU) End Sub اخفاء زر الخروج.zip

تفضل اخي شوف ينفع معك ولا لا فاتورة خردة - Copy.rar

أخي وحبيبي في الله مختار جزاكم الله خير الجزاء في الدنيا والآخرة ونفع بكم ورزقكم من حيث لا تحتسب هو دا الكلام يا كبير تسلم وتعيش وتاكل قراقيش (ولا مفيش في الصعيد منه)

الأخ الكريم أهلا بك بين إخوانك وأحبابك في الله ------------------------------- يرجى تغيير اسمك للغة العربية لسهولة التواصل كما يرجى الإطلاع على رابط التوجيهات لمعرفة قواعد المنتدى ------------------------------- رحبنا وعرفنا القواعد إليك الملف التالي وإن شاء الله يفي بالغرض Hyperlink Formula YasserKhalil.rar

اخي الفاضل يمكنك تجربة الملف التالي ويارب اكون فهمت المرة دي لاني لو مفهمتش يبقى عندي مشكلة كبيرة هههههه 12.rar

السلام عليكم ورحمة الله وبركاته فورم إضافة وبحث وتعديل مرن (الاصدار الثالث) بمعية فورم لادخال التاريخ الجديد في هذا الاصدار 1 - امكانية اضافة التاريخ في تاكست الادخال بوضع مؤشر الفارة على التاكست والضغط عل الزر Calendar 2 - اضافة زر اختيار للبحث للتبديل بين البحث العام والبحث من بداية الكلمة 3 - اضافة زر للذهاب الى السجل النشط شرح امكانيات الفورم وكيفية الاستخدام 1 - استخدام الفورم لاكثر من قاعدة بيانات في المصنف على ان يكون لكل قاعدة كود لاظهار الفورم يتغير فيه معطياتك في متغيرات kh_SetAddrss اولاً : اسم ورقة البيانات ( افتراضي ) ثانياً : نطاق صف رؤوس اعمدة البيانات ( افتراضي ) ثالثاً : عمود التسلسل ( اختياري ) اذا اردت ادخال رقم تسلسل البيانات الخاص بالفورم تلقائيا في عمود معين سجل عنوان راس العمود . مع ملاحظة انه لا يكون من ضمن نطاق رؤوس اعمدة البيانات كما هو معمول في المثال 2. 2 - تستطيع اضافة قائمة لعمود معين في الفورم باضافة تعليق على عنوان العمود وتكتب اسم نطاق القائمة . 3 - ينسخ التنسيقات والمعادلات في السجل الجديد . 4 - يبحث في جميع الاعمدة حسب الاختيار من القائمة في الفورم . 5 - يعطي نتائج صحيحة عند البحث عن تاريخ اذا شيكت الزر البحث عن تاريخ . 6 - امكانيات زر البحث عن تاريخ يتم تحويل اي قيمة تضعها في مربع النص للبحث الى تاريخ بالتنسيق الافتراضي للفورم ,, مع امكانية ادخال رقم صحيح بين 1 الى 31 ليفهم على انه تاريخ اليوم للشهر الحالي والسنة الحالية 7 - ثوابت بامكانك تغييرها حسب طلبك بداية اكواد الفورم 1- تغيير تنسيقات إظهار التاريخ في الفورم في الثابت DtF 2- تغيير عٌرض مربعات الادخال في الثابت iWgt1 8 - بامكانك انتقاء الاعمدة التي تريدها عند تسمية النطاق وترتيبها حسب ما تريد مع ملاحظة ان العمود الذي يعتمد عليه في احتساب آخر صف هو العمود الاول من التسمية مثلا "E15,C15,H15:AX15" الشرح بداخل الملف للاستخدام يجب نقل الفورمين الى ملفك المرفق 2003 فورم ادخال و تعديل مرن بمعية فورم ادخال التاريخ.rar ============================================ تم اضافة زر للطباعة في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=52300 ============================================

السلام عليكم ورحمة الله وبركاته هدفيه للعاملين بالكنترولات المدرسيه ...... _ سجلات اعمال الكنترول كامله ... _ توزيع الملاحظين اليا على اللجان .... مع تحياتى ....

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله وبركاته.. أعزائي واخواني: هذا رابط لإضافة وظائف إضافية مجاني. في الحقيقة أعجبتني، وأردت أن تشاركونني. ففيها فوائد كثيرة ومتنوعة. ..أسأل الله أن تكون نافعة للجميع.. ..وفقني الله وإياكم لما يحب ويرضى.. رابط صفحة التحميل: http://www.ribboncommander.com/

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

تفضل 1. التوقيت: البرنامج يفحص وقت الكمبيوتر كل دقيقة ، 2. هذا هو كود الفحص: Private Sub Form_Timer() Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC 'Debug.Print Format(Now, "hh:mm") & vbCrLf & Format(rst!Class_Time_From, "hh:mm") & vbCrLf & Format(rst!Class_Time_To, "hh:mm") & vbCrLf 'compare the timer with the Class_Time If Format(Now, "hh:mm") >= Format(rst!Class_Time_From, "hh:mm") And Format(Now, "hh:mm") <= Format(rst!Class_Time_To, "hh:mm") Then 'Debug.Print "I am in" rst.FindFirst "[Class_Number]=" & rst!Class_Number Me.Bookmark = rst.Bookmark Exit Sub End If rst.MoveNext Next i Debug.Print "------" End Sub 3. اضفت 3 حقول في الجدول: Class_Number: لرقم كل حصة ، ومافي داعي لها ، لكنها لتسهيل الشغل (يعني بالعربي ، انا حطيتها ، وبعدين شفت مافي داعي لها ، بس كنت كتبت الكود ومستكاود اغيره ) ، Class_Time_From: البرنامج يفحص الوقت "من" و "الى" ، وحسب التجربة ، يفضل ان يكون الوقت بينهم على الاقل 3 دقائق ، Class_Time_To: جعفر 60.تجريبي.mdb.zip

هذا بالضبط اللي اعمله الان شكرا لك أخي أبوآلآء جعفر

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

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

السلام عليكم ورحمة الله وبركاته إخواني الأحبة في المنتدى الأغر إليكم معادلة بسيطة جداً تقوم بتوليد تواريخ عشوائية بين تاريخين .. بفرض أن تاريخ البداية في الخلية A2 وتاريخ النهاية في B2 فإن المعادلة تكون بهذا الشكل : =RANDBETWEEN(DATE(YEAR($A$2),MONTH($A$2),DAY($A$2)),DATE(YEAR($B$2),MONTH($B$2),DAY($B$2))) الدالة Randbetween تقوم بتوليد أرقام (شغالة داية ..بس الحكومة بتطاردها) .. وبما إن التواريخ عبارة عن أرقام تسلسلية في الأساس ، فإنه يمكن استخدام الدالة لتوليد تواريخ عشوائية بين تاريخين. الدالة لها عدد 2 بارامتر : البارامتر الأول عبارة عن البداية (Bottom) أو الحد الأدنى أو القاع (كل الترجمات مقبولة .. المهم المعنى يكون واضح) والبارامتر الثاني عبارة عن النهاية (Top) أو الحد الأعلى أو القمة (وهقول مرة تانية كل الترجمات مقبولة ، والحمد لله مقبولة اتجوزت وعندها عيال على وش جواز) المهم .. ما بين البداية والنهاية ، تقوم الدالة بعملية التوليد .. وإن شاء الله العملية تنجح (ونضحي بالأم والجنين عشان الداية تعيش) هنا تم استخدام الدالة Date والتي لها ثلاثة بارامترات الأول خاص بالسنة والثاني خاص بالشهر والثالث خاص باليوم .. أرجو أن تكون الدالة مفيدة لكم كان معاكم أخوكم أبو البراء (من بيت الحاجة أم عنايات الداية ...) دمتم على طاعة الله Random Dates Between Two Dates.rar

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

الأخ الفاضل الساهر ----------------- إليك الكود التالي في حدث ورقة العمل لعله يكون المطلوب Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Long LR = Cells(Rows.Count, 2).End(xlUp).Row If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("B6:C6")) Is Nothing Then With ActiveSheet .AutoFilterMode = False With .Range("B8:C" & LR) .AutoFilter Field:=1, Criteria1:=">=" & Range("B6").Value, Operator:=xlAnd .AutoFilter Field:=2, Criteria1:=">=" & Range("C6").Value, Operator:=xlAnd End With End With End If End Sub وأخيراً لا تنسى أن تحدد الإجابة كأفضل إجابة في حالة أن تم حل المسألة تقبل تحياتي :fff: AutoFilter Automatically YasserKhalil.rar

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

وعليكم السلام ايش رايك اعلمك كيف تصيد بدل ما اعطيك سمكة في احد مواضيعي السابقة ، تعمقت في الاختيارات الموجودة عندنا عند النقر على اي من مكونات الشجرة ، لذا ، في الكود على النقر على الشجرة ، اكتب هذا الكود: On Error Resume Next Debug.Print "node.Child; " & Node.Child Debug.Print "node.Children; " & Node.Children Debug.Print "node.Expanded; " & Node.Expanded Debug.Print "node.FirstSibling; " & Node.FirstSibling Debug.Print "node.FullPath; " & Node.FullPath Debug.Print "node.Index; " & Node.Index Debug.Print "node.Key; " & Node.Key Debug.Print "node.LastSibling; " & Node.LastSibling Debug.Print "node.Next; " & Node.Next Debug.Print "node.Parent; " & Node.Parent Debug.Print "node.Previous; " & Node.Previous Debug.Print "node.Root; " & Node.Root Debug.Print "node.Selected; " & Node.Selected Debug.Print "node.Sorted; " & Node.Sorted Debug.Print "node.Tag; " & Node.Tag Debug.Print "node.Text; " & Node.Text Debug.Print "----------------------" وتأكد بانك فتحت نافذة النتائج (النافذة في اسفل VBA): فكلما نقرت على الشجرة ، على طول اذا لتلك النافذة وشاهد النتيجة ، وعلى اساسها ستعرف الامر الصحيح للوصول لما تريد وإحنا في الخدمة بعد محاولاتك جعفر

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

الأخ الفاضل يرجى تغيير اسمك للغة العربية لسهولة التواصل جرب الملف التالي تم عمل قائمة منسدلة اختار منها رقم العملية سيتم نقلك إليها وعند الانتقال للورقة الأخرى يمكنك الرجوع إلى الورقة الرئيسية بمجرد النقر المزدوج داخل أي خلية في العمود G دا الكود الأول في حدث ورقة العمل الأولى Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Long If Target.Cells.CountLarge > 1 Then Exit Sub On Error Resume Next If Not Intersect(Target, Range("H3")) Is Nothing Then Sheet2.Activate X = Application.WorksheetFunction.Match(Sheet1.Range("H3").Value, Sheet2.Columns("G:G"), 0) Sheet2.Cells(X, "G").Select End If End Sub ودا الكود الثاني في حدث ورقة العمل الثانية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Columns("G:G")) Is Nothing Then Sheet1.Activate End If End Sub تقبل تحياتي ولا تنسى التوجيهات (حدد أفضل إجابة ليظهر الموضوع منتهي ومجاب) Hyperlink Formula YasserKhalil V2.rar

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه أما بعد: السلام عليكم ورحمة الله وبركاته. كنت أتابع طريقة عمل الكومبو بوكس وإمكانية تفعيلها في الخلايا المطلوبة وبعد أن وجدت ضالتي وعرفاناً بجميلكم أحببت أن أشكركم على كل ما قدمتموه أفق واسع وعلم نافع بإذن الله راجياً لكم ولهذا المنتدى الرائع دوام السطوع ليشرق على أرضنا التي ملئت ظلماً وظلاماً ... وها أنذا أستشهد ببيتين للإمام الشافعي رحمه الله: شَكَوْتُ إلَى وَكِيعٍ سُوءَ حِفْظِي *** فَأرْشَدَنِي إلَى تَرْكِ المعَاصي وَأخْبَرَنِــــــــــــي بأَنَّ العِلـْمَ نُورٌ *** ونورُ الله لا يؤتى لعــــــاصــي والسلام عليكم ورحمة الله وبركاته.

الله يبارك فيكما استاذ غسان العبيدي واستاذ ياسر خليل ويمدكما بالصحة والعافيه ويجعل الله أعمالكما في كفة حسناتكما آمين .. يارب العالمين

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

تفضل اخى الحبيب ضع هذا الكود فى الفورم Option Explicit 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 Const GWL_STYLE = -16 Const WS_SYSMENU = &H80000 Private Sub UserForm_Initialize() Dim hWnd As Long, lStyle As Long If Val(Application.Version) >= 9 Then hWnd = FindWindow("ThunderDFrame", Me.Caption) Else hWnd = FindWindow("ThunderXFrame", Me.Caption) End If lStyle = GetWindowLong(hWnd, GWL_STYLE) SetWindowLong hWnd, GWL_STYLE, (lStyle And Not WS_SYSMENU) End Sub تقبل تحياتى

ماشاء الله عمل اكثر من رائع

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

طالما أن الموضوع انتهى يرجى الالتزام بالتوجيهات واختيار أفضل إجابة تقبل تحياتي

انسخ هذا الكود وصعه في حدث الصفحة: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range For Each rng In Target.Cells If rng.HasFormula Then ActiveSheet.Protect Exit Sub Else ActiveSheet.Unprotect End If Next rng End Sub

الاخ الفاضل تركي إليك الكود مشروح بالتفصيل Sub YasserKhalil() Dim WS As Worksheet, SH As Worksheet Dim LR As Long, rCell As Range Dim I As Long Dim X As Long, Y As Long 'تعيين أوراق العمل Set WS = Sheets("السرب"): Set SH = Sheets("التمام") 'تحديد رقم آخر صف به بيانات في ورقة العمل المسماة السرب LR = WS.Cells(Rows.Count, "K").End(3).Row 'إلغاء بعض خصائص الإكسيل Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False 'مسح محتويات النطاق الذي ستظهر فيه النتائج المطلوبة SH.Range("B26:V1000").ClearContents 'بدء التعامل مع ورقة العمل المسماة السرب لفلترة البيانات بها With WS 'إلغاء عملية الفلترة إذا كانت موجودة مسبقاً .AutoFilterMode = False 'فلترة نطاق الصف الأول لقاعدة البيانات .Range("A1:K1").AutoFilter End With 'حلقة تكرارية للأعمدة في ورقة العمل المسماة التمام من أول العمود الثالث وحتى العمود الحادي والعشرين For I = 3 To 21 Step 2 'بدء التعامل مع ورقة العمل المسماة السرب مرة أخرى للفلترة ونسخ البيانات المفلترة With WS 'فلترة البيانات في الحقل أو العمود رقم 11 والشرط هو أحد محتويات الصف رقم 24 في ورقة العمل التمام .Range("A1:K1").AutoFilter Field:=11, Criteria1:=SH.Cells(24, I).Value 'نسخ البيانات الظاهرة فقط من العمود الخامس والسادس .Range("E1").Offset(1, 0).Resize(LR, 2).SpecialCells(xlCellTypeVisible).Copy 'لصق البيانات التي تم نسخها إلى الصف رقم 26 في ورقة العمل التمام في العمود المناسب SH.Cells(26, I).PasteSpecial xlPasteValues End With 'الانتقال للعمود التالي في ورقة العمل التمام Next I 'إلغاء عملية الفلترة في ورقة العمل السرب WS.Cells.AutoFilter 'إلغاء خاصية النسخ والقص Application.CutCopyMode = False 'إعادة تفعيل خصائص الإكسيل Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تم التعامل مع طلبك الثاني ، متنسناش بدعوة تقبل تحياتي AutoFilter Multi Criteria YasserKhalil V2.rar

تفضل أخى الكريم عله يفى بالغرض فى المرفق الأول أدخل عدد مرات الطباعة تم أدخل عدد الصفحات 1 للصفحة الاولى 2 تعنى أول صفحتين وهكذا فى المرفق الثانى أدخل عدد مرات الطباعة تم أدخل رقم الصفحة 1 للصفحة الاولى 2 للصفحة الثانية وهكذا ملحوظة : انقل زر استدعاء الفورم لأى ورقة عمل فى الملف وأى عملية طباعة ستكون على الورقة النشطة تحياتى recharche XD.rar recharche XD 2.rar

شوف الملف اللي نفع معاك وحدد عليه افضل اجابة علشان تظهر انها مجابة فضلاً وليس أمراً

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

حضرتك تقصد عاوز تبحث عن الاعمار بين 20و30 مثلا ولا حاجة تانية

عفواً اخي الشيت مش فاهم منه شيئ ممكن توضح اكثر

هل هذا ماتقصد ابلغني بالنتيجة العمر.rar

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

تفضل اخي الكريم حل بطريقة اخرى بع اذن الاساتذة الافاضل راتب.rar

الملف بين يديك اضغط اجبني في حال كان كذلك حسومات.rar

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

الأخ الحبيب علي الرويلي أكيد ممكن مش ممكن ليه تفضل جرب الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A100,C1:C100,M1:M100")) Is Nothing Then Cancel = True Target.Font.Name = "Marlett" If Target = vbNullString Then Target = "a" Else Target = vbNullString End If End If End Sub

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

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