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

السلام عليكم ملف للتحميل : https://app.box.com/s/v94a80af0wlm284d057fhqsjeqxdpd1y الكود التالي يعتمد طريقة فريدة و غريبة بواسطة دالة ال HYPERLINK 1- الكود في موديول عادي : Option Explicit Private Type POINTAPI x As Long y As Long End Type #If VBA7 And Win64 Then Private Declare PtrSafe Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long #Else Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long #End If Private ThisCell As Range Private myShape As Shape Private linitialColorIndex As Long Private linitialFontColorIndex As Long Public Sub MyMouseOverEvent_Hyplnk() Set ThisCell = Application.Caller With ThisCell Set ThisWorkbook.oWsh = .Worksheet If .Interior.ColorIndex = 6 Then .Interior.ColorIndex = linitialColorIndex If .Font.ColorIndex = 3 Then .Font.ColorIndex = linitialFontColorIndex linitialColorIndex = .Interior.ColorIndex linitialFontColorIndex = .Font.ColorIndex .Interior.ColorIndex = 6 .Font.ColorIndex = 3 Set myShape = .Parent.Shapes(Replace(.Name.Name, "_", "")) myShape.Left = .Offset(0, 2).Left + 2 myShape.Top = .Offset(0, 2).Top + 1 myShape.Width = .Offset(0, 2).Width - 2 myShape.Height = .Offset(0, 2).Height - 2 myShape.OnAction = "Dummy" myShape.Visible = msoTrue Call MouseExit End With End Sub Private Sub Dummy() End Sub Private Sub MouseExit() Dim tPt As POINTAPI Do GetCursorPos tPt If TypeName(ActiveWindow.RangeFromPoint(tPt.x, tPt.y)) <> "Range" Then Exit Do If ThisCell.Address <> ActiveWindow.RangeFromPoint(tPt.x, tPt.y).Address Then Exit Do DoEvents Loop ThisCell.Interior.ColorIndex = linitialColorIndex ThisCell.Font.ColorIndex = linitialFontColorIndex Set ThisCell = Nothing myShape.Visible = msoFalse End Sub 2- الكود في ThisWorkbook Module : Option Explicit Public WithEvents oWsh As Worksheet Private Sub Workbook_Open() Set oWsh = Sheets(1) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim oShp As Shape On Error Resume Next For Each oShp In oWsh.Shapes oShp.Visible = msoFalse Next End Sub Private Sub oWsh_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub Private Sub oWsh_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Cancel = True End Sub

تقصد كده يابشمهندس معادلة تسلسل.rar

السّلام عليكم و رحمة الله و بركاته أخى الحبيب الغالى ياسر العربي انا لم اقصد تجاهل معظم ردود لكن كانت عندي مشكلة في صندوق ردود ولم انتبه اعلاان تمت الترقية الي الاصدار 4.1 - يرجي عمل ريفريش عند الدخول لاول مرة 05 نوف, 2015 السلام عليكم تمت الان الترقية اذا واجهتكم مشكلة يرجي عامل ريفريش Ctr+F5 فعلن آسف .. جد آسف أستاذي القدير ياسر العربي فائق إحتراماتي

بسم الله الرحمان الرحيم السلام عليكم اولا ما هو النص التنبئي باختصار هو تنبئ البرنامج او الدالة او الكود بالكلمات التي تبحث عنها من خلال كتابة اول حروف الكلمة مثل مايحدث اثناء البحث عن طريق محرك البحث قوقل هذا الموضوع ليس جديد فهناك كود في المنتدى يعتمد على مربع نص وليست بوكس لاكني منذ فترة حاولت تطبيق الامر على الكمبوبوكس الى ان وفقني الله الى ذلك وها انا الان اشارككم الموضوع ما هي الفائدة من هذا الموضوع كثيرا ما يكون لدينا قاعدة بيانات كبيرة مثلا الاصناف في الفواتير و غالبا متكون عمليات الادخال خاصتا مكررة و كثيرة فهذه الطريقة ستساعدك كثيرا في ادخال الاصناف بسلاسة وسهولة بدل عناء اعادت كتابت الصنف مرارا وتكرارا لا اطيل عليكم في المرفق تجد مثال توضيحي احدهما مطبق على الشيت وهو مايهم اصحاب ادخالات الفواتير والثاني مطبق على الفورم صورة توضيحية بالنسبة للمثال المطبق على الشيت كما في الصورة من جهة اليمين عند الضغط على اي خلية ملونة بالاخضر تظهر كمبوبكس اكتب داخلها اي حرف لتجلب لك الكلمات التي تحمل تلك الحرف كما في الصورة يمكنك التنقل بين النتائج بواسطة سهم الاعلى والاسفل من الكبيور اضغط انتلر لادخال النتيجة في الخلية وانتقال الكمبو الى اسفل الخلية المفعلة بالنسبة للمثال المطبق على الفورم كما في الصورة من جهة اليسار نفس الامر كما في المثال الاول فقط الاختلاف في ان ادالبحث يكون من الفورم ارجو ان يكون الموضوع مفيد للجميع تحياتي للجميع تنويه تم استبدال المرفق بعد 23 تحميل texte prédictive 2007 2003.rar

الأعضاء الأعزاء أسعد الله أوقاتكم بكل خير فيما يلي الدرس الأول من دورة "إكسيل 2013 المستوى المتقدم" بعنوان: التنسيق الشرطي المتقدم (المعتمد على المعادلات) سيتم نشر باقي الدروس تباعاً في هذا الموضوع بالإضافة الى نشر كل درس في موضوع مستقل خاص به لسهولة الوصول الى كافة الدروس... فانتظرونا ***ملاحظات*****... ملاحظة 1/ المتطلب السابق لهذه الدورة: معرفة جيدة باستخدام برنامج اكسيل ويمكن لمن أحب الرجوع لدورتنا السابقة "مهارات استخدام برنامج اكسيل 2013 " والتي نشرح فيها أساسيات ومبادئ برنامج الاكسيل. سوف تجدون رابطها في الرابط التالي: ملاحظة 2/ ملف التمارين الخاص بهذا الدرس موجود في الرابط التالي: http://www.4shared.com/file/NNsDhqPQce/1-_conditional_formatting_form.html ملاحظة 3/ لا تنسوا الاشتراك في قناتنا على اليوتيوب حتى يصلكم كل ما هو جديد أولا بأول ملاحظة 4/ لايك و شير x الخير حتى تعم الفائدة دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

السلام عليكم ورحمة الله وبركاته أسعد الله أوقاتكم جميعا وكنتم جميعا فى أحسن حال أتقدم إليكم اليوم بمعادلة جميلة جدا جدا تقوم بعمل بحث فى عمود عن أول حرف عن طرق وضع الحرف المراد إظهار النتائج التى تبدأ بهذا الحرف فى خلية ما فيظهر فى العمود المقابل كل الاسماء التى تبدأ بهذا الحرف المعادلة معادلة صفيف يعنى الضغط على Ctrl+Shift-Enter وليس Enter {=IFERROR((IF(ROW()=2;INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT($A$1:$A$100;1)))));0)));((INDIRECT("$A$"&(MATCH(1;(((--($B$2=LEFT(INDIRECT(IF(C1="";"";"$A$"&(MATCH(C1;$A$1:$A$101;0)+1))&":$A$100");1)))));0))+(MATCH(C1;$A$1:$A$101;0)))))));" ")} مرفق ملف به المعادلة والتنفيذ أرجوا من الله العلى القدير ان يستفاد منه الجميع Find.rar

السلام عليكم اخي ياسر فتحي اشكرك على مرورك العطر ولك مثل دعائك اضعاف مضاعفه ان شاء الله الاخ والاستاذ ياسر خليل اليك المرفق ان شاء الله ان تم حل اشكاليته Kh_Srech_Al_###.rar

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

شرح المعادلة المستخدمة على مثال مبسط المطلوب بالمرفق استيراد البيانات_3.rar

السلام عليكم تم تنفيذ المطلوب باحد الطرق الكثيرة وهى الدالة VLOOKUP جرب المرفق وابدى ملاحظاتك استيراد البيانات.rar

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

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

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

السّلام عليكم و رحمة الله و بركاته طيّب أخي الكريم عبد الواحد أحمد .. المشكلة التي أشرت إليها بأي ملف ظهرت ؟؟ على كلّ حال .. تفضّل للإضافة و لتنويع الطرق كلمة المرور للماكرو بثلاث محاولات .. و إذا كانت المحاولة الثالثة خاطئة سيتم الخرورج من الملف نهائيا "ممنوع التلاعب بالفواتير" الكود تم وضعه في حدث الشيت المقصود و ليس كموديل .. حدف فاتورة باسورد 4.rar

عذرا اخي عبدالعزيز لم انتبه الى كلمة المرور ارفع الملف الان بدون كلمه مرور واذا استمر هذا الخطأ قم بأعاده تعين الماكرو بالنسبة للفاتورة اختر show وبالنسبة للخروج اختر xxx فاتورة44.rar

السّلام عليكم و رحمة الله و بركاته أخي الكريم عبد الواحد أحمد .. الإضافة المميّزة للأستاذ القدير ياسر العربي تعمل بشكل ممتاز .. جزاه الله خيرًا و زادها بميزان حسناته قمت بوضعها بالملف رقم 1 .. و أضفت لك ملفين .. و الملفات الثلاث المختلفة الجزئيات تعمل بشكل ممتاز و قمت بتجربتها .. جرّب و أخبرنا لو تكرّمت فائق إحتراماتي كلمة المرور للماكرو.rar

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

السلام عليكم استاذى / محمد الريفى .. تحياتى لحضرتك اخى م/ ياسر قدم استاذنا محمد احد الحلول باستخدام الدالة INDEX + MATCH وكذلك الدالة VLOOKUP يمكن ان تؤدى العمل ذاتة =IFERROR(VLOOKUP(D4;Data!B5:C34;2;0);"") ولكن اعتقد ان هذا المثال التوضيحى ليس بالدقة الكافية حيث لو ان هناك اكثر من عميل كل منهم له جدول خاص به .. اذا من اى جدول سيتم جلب البيانات ! وفقا للحلول المقدمة سيتم جلب البيانات من جدول العميل جلال دون النظر الىا سم العميل فى الخلية B9 لهذا.. ان كنت على صواب . ارجو عمل مثال اكثر تفصيلاً ودقة تقبل تحياتى

اخى الكريم افرد مشاركة جديدة حتى لا يتم غلق الموضوع

تكملة لهذا الموضوع http://www.officena.net/ib/index.php?showtopic=52980 وإن شئت قل تحسين وابتكار لطريقة افضل للتعامل مع حماية وندز عند نسخ الملفات وخاصة المكتبات التشغيلية المصاحبة لبرنامجك وتسجيلها داخل النظام كثير من اخواني ممن قاموا بمحاولة تركيب برامجهم على الاصدارات الحديثة من وندز وقف امامهم مسألة الملفات التشغيلية المصاحبة للبرنامج وخاصة تسجيلها داخل النظام حيث يستعصي التسجيل حتى بعد تخفيض امان وندز الى ادنى حد مما يضطرون معه الى استخدام طرق بديلة ومنه التسجيل اليدوي عن طريق الدخول الى الــ DOC وكتابة الاوامر هناك وهذا يعني وجوب تواجد المبرمج او من يقوم مقامه .. وهذه لاشك غير عملي ومقلق في الوقت نفسه سأقوم بشرح طريقة تمكن من نسخ الملفات وتسجيلها برمجيا مهما بلغت حماية وندز للحديث بقية ...

في اكسس يمكنك التراجع بسهولة ضمن حقول سجل معين مادام التركيز قائم على ذلك السجل منطقيا وحسب العناصر الموجودة في برنامجك حاليا لا يمكن التراجع ولكن يمكننا اظهار آخر ما تم التعديل عليه مهما بلغ عدد السجلات المعدل عليها ويتم تطبيق ذلك بإضافة حقل جديد( تاريخ/وقت) داخل الجدول وعند التعديل على الحقول يتم ادراج التاريخ والوقت الحالي ( Now) وهكذا يمكننا الرجوع الى آخر تعديل كما يمكننا التصفية كمجموعات اتمنى اني افدتك بهذا البيان المختصر

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

تفضل تم التعديل بما رأيته يتناسب وحاجتك sscc60.rar

أخي الكريم ما تريده بالضبط موضح في درس الفيديو التالي (بدءا ً من الدقيقة الثامنة الى نهاية الدرس) حيث أننا استخدمنا دالة INDIRECT للوصول للهدف. بالطبع أنصحك بمتابعة الفيديو من البداية حتى تعرف كيف تجري الأمور تحياتي https://youtu.be/_H4Fr52BEkY

السلام عليكم أعتقد أن هذه المعادلة سوف تفي بالغرض =SUM(IF(COUNTIF($G$13:$G$32;G13:G32)>1;1;0)) مع العلم أن هذه معادلة مصفوفة أي أنه يجب أن تضغط CTRL+SHIFT+ENTER عند ادخال المعادلة بدلا من ENTER للمزيد من المعلومات حول صيغ المصفوفات أنصحك بالرجوع الى الدروس الخاصة بالمصفوفات من دورة الاكسيل 2013 المتقدم وهي الدروس من الخامس وحتى الثامن على الرابط التالي: دورة اكسيل 2013 المستوى المتقدم ملاحظة/ نطاق هذه المعادلة هو العمود G فقط واذا كنت تريد إضافة العمود F الى النطاق ليصبح النطاق هو F13:G32 فيجب عليك تعديل التنسيق الشرطي الموجود لديك حتى تحصل على النتيجة المطلوبة. تحياتي

الاخ محمد المحترم اشكرك على الرد... حجم جدول الاس كيو ال المراد تحويله الى الاكسيس هو 2 غيغابايت.... ف هل من طريقة للحل ؟

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

وعليكم السلام لا بد من معرفية قيمتين : تاريخ التعيين و أكبر قيمة للدرجة الوظيفية لاحظ المرفق تم إدراج تاريخ التعيين لكل موظف مع فرض أن أكبر قيمة للدرجة الوظيفة هي 5 ملاحظة / العمود E عمود مساعد جرب المرفق السلم الوظيفي1.rar

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

الاخ الحبيب ابراهيم ابوليله جرب المرفق هل هو طلبك تقبل تحياتى واحترامى استخراج.zip

لا عليك أخي الكريم وأهلا بك

جرب الآن المشكلة ليست عندي ربما في النت البطيء show_names_1_2_by letters.zip

السلام عليكم ورحمة الله الشيت اهويا ا/ محمد

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير وصحه وعافية قمت بعمال هذه الاسطوانه فيها برامج هامة للمعلمين والاوفيس ارجو ان تنال اعجابكم ولا تنسونا من دعائكم الاسطوانه مقسمه على أربعة اجزاء قم بتنزيل الاربعة اجزاء فى فولدر واحد ثم قم بفك الضغط وهذه صورة للاسطوانة فى المرفقات وهى اهداء الى العميد استاذنا / جمال دغيدى والفارس السورى النبيل ياسر الحافظ وكل الاخوة فى المنتدى http://www.4shared.com/rar/k5E2_-ns/My_Projectpart1.html http://www.4shared.com/rar/lG250Inp/My_Projectpart2.html http://www.4shared.com/rar/CGWvDatP/My_Projectpart3.html http://www.4shared.com/rar/x1Ceh9c0/My_Projectpart4.html dfgdfghgjghj.bmp

وهذا حل ثالث عن طريق التنسيق الشرطى plane3.rar