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

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

السلام عليكم ورحمة الله وبركاته كل عام وأنتم إلى الله أقرب...آمين بارك الله بكم جميعاً.. حقيقة غيابك أستاذنا أقلقنا ...الحمد لله على عودتك بالسلامة.

كل عام و انتم جميعا بخير عودا حميدا استاذنا الفاضل / عادل حنفي و نتمنى وجودك دائما بيننا

أخي وحبيبي في الله عادل حنفي كل عام وأنت بخير ونتمنى تواجدك فيما بيننا على الدوام ..فقد رجعت وانقطعت مرة أخرى تقبل وافر تقديري واحترامي

وعليكم السلام استاذ محمد الفكرة نفسها .. لكن بما ان الورقة 3 بها صفان فارغان قبل الجدول .. فقط قم باضافة +2 كما في الصيغة الاتية =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف")

المثال المرفق يبين كيفية اختيار بيانات من مجال محدد عن طريق كومبو و اظهار النتيجة كصف فى مكان آخر و لأن هذه الطريقة تعيد القيمة فى خلية واحدة فقط فقد تم الاستعانة بالدالة vlookup لعرض باقي القيم أولا : من تخصيص اليقونات اضغط علي صندوق الادوات Toolbox و ختار القائمة المنسدلة combo box و ضعها فى ورقة العمل اختار القائمة المنسدلة بالزر الايمن ثم Format Control control وحدد مجال الادخال و النتيجة ( راجع المثال ) combo1.xlsx

لا اعرف اذا كان هذا المطلوب بالضبط tekrar one_time 1.rar

عليكم السلام اخي الغالي ابو يوسف هل يزيد مجرد صف واحد الذي يسببه صف الاجمالي بالاسفل اذا كان كذلك فضع المعادلة هكذا =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+1;"الانتقال إلى آخر صف") باضافة +1 فقط بدلا من +2 لتجنب زيادة صف الذي سببه الاجمالي اما اذا كان غير ذلك فياريت ترفق ملف به نفس الجدول الذي تعمل عليه ببيانات وهميه تقبل تحياتي

حبيبي ياسر الله يخليك المنتدي منور بيكم وكل سنه وانت بكل خير تحياتي

وانت بالف صحة وسلامة حبيبي ا / عادل عودا حميدا نورت المنتدى تقبل فائق احترامي

Sub UpdateFooter_Header1() Dim SH As Worksheet For Each SH In Worksheets With SH .PageSetup.RightHeader = Sheets("البيانات").Range("Q3").Value & Chr(13) & Range("Q4").Value .PageSetup.CenterHeader = Sheets("البيانات").Range("P1").Value & Chr(13) & Range("R1").Value .PageSetup.LeftHeader = Sheets("البيانات").Range("Q5").Value & Chr(13) & Range("Q6").Value .PageSetup.RightFooter = Sheets("البيانات").Range("A1000").Value .PageSetup.CenterFooter = Sheets("البيانات").Range("b1000").Value .PageSetup.LeftFooter = Sheets("البيانات").Range("c1000").Value End With Next End Sub

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

السلام عليكم ورحمة الله وبركاته نبدء بشرح برنامج Omar_Progress وهو عباره عن فورم وموديول كود الموديول يتم التعديل فيه كالاتى اللوب الموجود به ( For ..Next) يعدل ليكون هو اللوب للبرنامج الخاص بك كالاتي هذا اللوب () سيكون اللوب الرئيسي لبرنامجك مع تغير قيم ( Start_Counter و End_Counter ) لتكون هي قيم اللوب الخاص لبرنامجك او او استبدال متغيرات ( For … Next) وهي ( Start_Counter و End_Counter ) بمتغيرات البرنامج الخاص بك ( For … Next) فقط لا غير Sub Omar_Progress() ' Dim Per As Single, x As Double End_Counter = 50 '========================================================================================== For Start_Counter = 1 To End_Counter O_Omar_Progress_O.Caption = Space(12) & Start_Counter & Space(3) & "مـن إجمـالـى" & Space(3) & End_Counter Per = Start_Counter / End_Counter O_Omar_Progress_O.Label_Bar.Caption = Format(Per, "00%") MyProgress Per DoEvents '========================================================================================== ' My Code '========================================================================================== Next ' End Sub Omar_1.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة بدأه الاستاذ / ياسر خليل أبو البراء تم ارفاق كود الحل من الافاضل/ الحسامي_ الخالدي _ بن علية حاجي _ ياسر خليل أبو البراء _ أبوعبد الله_ عبد الفتاح كيرة _ يحيى حسين_ وائل مراد 700 و لا تنسونا من صالح الدعاء تحياتى اسماء مكرره_الحسامى.rar قائمة الاسماء المكررة _الخالدى).rar الاسماء المكررة1 _بن عليه حاجى).rar ListOfRepeatedNames تعديل ابو البراء_.rar NEW_PROGRAM-kemas (1).zip قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر -ابو عبدالله_2.rar _ابو عبدالله _3_قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر مع شرح الكود.rar Test2 عبد الفتاح كيره_.rar www.Excel4Us.com يحيى حسين.rar _الخالدى_الانتقال بين المكررات.rar فحص المكرر وائل مراد).rar قائمة بالمكرر وعدد مرات التكرار وعناوين المكرر _ابو عبدالله).rar

جرب هذه المغادلة في الخلية A2 و اسحب نزولاً (تعمل على 2007) =IF(B2<>"",SUBTOTAL(103,$B$2:B2),"")

جرب هذا الملف tekrar one_time.rar

نعم استعلام اجرائي Database3.rar

جزء من المطلوب تحياتى الاسماء المكررة _معدل_g (2).rar

السلام عليكم : أسأل الله بالتوفيق والعافية للعاملين على هذا المنتدى لما ينشروه من العلم

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

جزاك الله خيرا على الرد السريع للأسف هذه الدالة تعمل على 2010 و أنا عندي 2007 سأنزل 2010 الآن و سأجربها فورا شكرا لك

ضع في الخلية A2 الصيغة الاتية واسحب لاسفل =AGGREGATE(3;7;$A$1:A1)

هذا يعطي تاريخ ميلاد تقريبي لليوم الذي تم الاحتساب فيه : Date() - 30 * 365 على اعتبار ان عمره = 30 سنة

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

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه ...أما بعد: السلام عليكم ورحمة الله وبركاته إخوتي وأساتذتي الكرام... تابعت مؤخراً طرق متعددة للارتباطات التشعبية وكان أحدها يوصلك سريعاً إلى آخر خلية تمت الكتابة بها في عمود لأحد أساتذتنا الكرام =HYPERLINK("#"&"ورقة1"&"!"&"b"&COUNTA(ورقة1!B:B);"الانتقال إلى آخر صف") وقد كانت معادلة رائعة لكنها ضمن نطاق لا جدول ... ما أرغبه هو النتيجة ذاتها ولكن ضمن جدول لا نطاق وقد أرفقت ملفاً يبين المطلوب وهو أن نقوم بالورقة2 بإدراج ارتباط تشعبي يبرز آخر اسم في الجدول ضمن الورقة3 والسلام عليكم ورحمة الله وبركاته.. ارتباط تشعبي متقدم.rar

الحمد لله الذي بنعمته تتم الصالحات تقبل تحياتي

بارك الله فيك اخي الكريم

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

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

تفضل اخي الغالي =HYPERLINK("#"&"اليومية"&"!"&"d"&COUNTA(مبيع17[[#All];[الاسم Account Name]])+12;"الانتقال إلى آخر صف") ارتباط تشعبي.rar

جرب اخي هذا الملف بعد التعديل توزيع الحجم الكلي المطلوب لعدد من الحجوم.rar

السلام عليكم احسنت اخي عبد السلام واسمح لي بالمشاركة اخي Kel1110 جرب الملف المرفق test.rar

السلام عليكم ورحمة الله وبركاته أشكر أخويَّ الكريمين ياسر العربي أبو أسيل وعبد السلام أبو العوافي على المبادرة للإجابة عن موضوعي الذي طرحته وقد كانت إجاباتهما موفقة وغاية في الروعة بارك الله بكما.. إجابة أخي الكريم عبد السلام: =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(ورقة3!B:B)+2;"الانتقال إلى آخر صف") إجابة أخي الكريم ياسر العربي: =HYPERLINK("#"&"ورقة3"&"!"&"b"&COUNTA(الجدول1[[#All];[الاسم ]])+2;"الانتقال إلى آخر صف") جزاكما الله خيراً وجعله بموازين حسناتكم ...آمين والسلام عليكم

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

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

حقيقة لازلت افكر في هذه المعضلة .. المرفق يبين ان 0.15*3 يساوي 0.45 عن طريق المعادلات بينما لا يساويه عن طريق الاكواد .. 0.45 not equel 0.45.rar

الاخ طاهر محمد الخ أبو حنــــين طريقه اخري بالمرفقات 1_مشتريات - جديد.rar

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

الا خ مصطفى محمود مصطفى استخدم هذا الكود قبل الطباعة Sub CopyHeadersFooters() ' Dim Sh As Worksheet Sheets("البيانات").Select With ActiveSheet.PageSetup lh = .LeftHeader ch = .CenterHeader rh = .RightHeader lf = .LeftFooter cf = .CenterFooter rf = .RightFooter End With For Each Sh In Worksheets With Sh.PageSetup .LeftHeader = lh .CenterHeader = ch .RightHeader = rh .LeftFooter = lf .CenterFooter = cf .RightFooter = rf End With Next ' End Sub

تم جلب البيانات لكن ان تظهر البيانات على شكل جدول هذا ليس لي به علم مشتريات - جديد.rar لكن يمكن التحايل بهذه الطريقة لرسم الحدود الرأسية للجدول مشتريات - جديد2.rar

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

البروجرز بار الثالث و الرابع والخامس وتستخدم بنفس الاسلوب الاول Omar_3_5.rar ملحوظه : مؤشرات التقدم الخمس صناعة عربية مصرية 100% لكم مني كل تحية الاخ أبو يوسف شكرا لك اخي هذا اكثر مما استحق فهذه البرامج من مكتبتي وقد انشأتهم منذ عدة سنوات سابقه

البروجرز بار الثاني ويستخدم بنفس الاسلوب السابق Omar_2.rar

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

أليك أخي المطلوب وأنا تحت أمرك وأهلا بك أخا عزيزا بين أخوتك ربط عمود بأخر.rar

وعليكم السلام، شاهد أخي المرفق التالي وأخبرني إذا كان هو ماتريد، ________________________________.rar

السلام عليكم مرفق ملف مضغوط به خطوط عثمانية وملف وورد به مثال (سورة الفاتحة) أرجو إنزال الخطوط أولا في مجلد Fonts داخل الويندوز ثم فتح ملف الوورد أتمنى الإفادة للجميع OthmanyFonts.rar

أيضا راجع هذه المواضيع التنبه عند تكرر قيمة http://www.officena.net/ib/index.php?showtopic=581 ما هي الداله التي تحسب التكرار http://www.officena.net/ib/index.php?showtopic=1217 معرفة هل السجل له مثيل و تحديد عدد التكرار http://www.officena.net/ib/index.php?showtopic=78

فى المثال المرفق ثلاث طرق للتحكم فى البيانات المدخلة الأولي بالكود و هنا يتم التحقق من أن البيانات المدخلة فى الخلية d2 لابد أن تبدأ ب FGK Private Sub Worksheet_Change(ByVal Target As Range) If UCase(Left(Range("d2").Value, 3)) <> "FGK" Then MsgBox "Not Accepted Entry, should start with FGK" Range("d2").Value = "FGK" Exit Sub End If End Sub و الثانية عن طريق معادلة if الشرطية و اظهار النتيجة فى الخلية المجاورة و الثالثة عن طريق أمر Validation من قائمة data و عليه يوجد 3 امثلة الاول للتحكم بان الرقم بين 10 و 100 و الثاني لأن النص لا يزيد عن 5 حروف و الاخير لان الرقم أقل من 1000 و فى الاخير تم استخدام خاصية الرسالة التي تظهر عند الوقوف فى الخلية و تغيير رسالة الخطأ و ذلك ايضا من امر validation من قائمة data Validation.zip

عندما نقوم بحماية ورقة العمل ، كيف يمكننا إستثناء بعض الخلايا من الحماية ؟؟ الإجابة : عن طريق استثناؤها من الحماية في الاكس بي Tools protection allow users to edit ranges ثم عرف المجال الذي تريد أو اختار الخلية و من القائمة المختصرة للماوس Format Cell و أزل خيار Locked ثم طبق الحماية علي ورقة العمل ستجد أن الخلية مستثناة من الحماية أي تقوم بعمل إستثناء للخلايا من الحماية عن طريق إختيارها ثم إختيار خصائص ، و حماية ، و الغاء تأمينها ثم عندما تطبق الحماية علي ورقة العمل ، تكون هذه الخلايا قد أستثنيت منها بالفعل