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

السلام عليكم ورحمة الله وبركاته أحبائى أعضاء وأساتذة هذا الصرح العلمى الكبير تحية طيبة وبعد سؤال كثيرا منا يتسائل ما هى أسباب وضع فاصلة أم فاصلة منقوطة في معادلات الإكسل؟ هل تذكر أول مرة كتبت فيها معادلة أو دالة Function في برنامج إكسل، وخاصة إذا كنت تعلمتها بطريقة نظرية – وليست عملية – يعني مكتوبة على ورق وحفظتها وفهمتها ثم تبدأ بالتطبيق العملي باستخدام برنامج الإكسل. ببساطة أنت تبدأ بكتابة المعادلة كما تعلمتها بالضبط، وتحاذر الخطأ، لكن مرة بعد مرة تظهر لك رسالة خطأ السبب بسيط، وهو أنك كتبت فاصلة (,) Comma وكان يجب أن تكتب بدلا منها فاصلة منقوطة (;) Semi-Colon أو العكس. إذًا لماذا تكتب المعادلة نفسها على جهاز آخر بنفس الخطأ، ولا تظهر رسالة خطأ وتسير الأمور بصورة طبيعية وينتج ناتج الدالة بشكل صحيح. لا تنزعج، وتقول عيب الجهاز. يرجع الأمر إلى أن الإعدادات في لوحة التحكم ببرنامج ويندوز Windows قد تختلف من جهاز لآخر. على كل حال إذا أردت من برنامج الإكسل أن يقبل منك الفاصلة في المعادلات أو الفاصلة المنقوطة بدلا منها، فعليك بعمل ذلك مرة واحدة من لوحة التحكم افتح لوحة التحكم من قائمة إبدأ ثم لوحة التحكم. اختر التاريخ والوقت. Date, Time, Language, and Regional Options اختر تغيير تنسيق الأرقام والتواريخ والأوقات. Change the format of numbers, dates, and times اختر تخصيص Customize اكتب في خانة فاصل القائمة List separator أكتب فاصلة أو اكتب فاصلة منقوطة، كما تريد. فهذه الفاصلة أو الفاصلة المنقوطة هي ما ستكتب به المعادلات في الإكسل. انقر موافق Ok ثلاث مرات. انتهي

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

بداية أشكر أخانا وأستاذنا جعفر طربيق على موضوعه حرك الماوس فوق الخلية و غير لونها ثم بين صورة أحد أعضاء المنتدى في الخلية المجاورة والذى يعتمد على اسلوب Rollover Technique و اثراء للموضوع أقدم لكم هذا الأسلوب فى صورة بسيطة مجرد دالة تقوم بالعمليات الحسابية الأربع جمع طرح ضرب قسمة خلايا نطاق محدد وذلك فى حالة مرور الماوس فوق خلية يتم استخدام هذه الدالة مع الدالة HYPERLINK و IFERROR أيضا لكن لا DEFINE NAME و لا صور تحياتى لكم ولا تنسونا فى دعائكم العمليات الحسابية بمجرد المرور بالماوس فوق خلية.rar

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

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

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

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

اخى الكريم جرب المرفق وابدى ملاحظاتك fatorrr_3.zip

أخي الكريم محمد الخازمي لا إزعاج ولا داعي للاعتذار فقط أردت التنويه لا شيء آخر عموماً جرب الدالة المعرفة التالية علها تفي بالغرض (مع العلم أنني لا أستحب استخدام التنسيق الشرطي بهذا الشكل المفرط الذي يؤدي إلى ثقل التعامل مع الملف) Function CountCFCells(Rng As Range, C As Range) Dim I As Single, J As Long, K As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 K = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Str1 = Application.ConvertFormula(Str1, xlA1, xlR1C1) Str1 = Application.ConvertFormula(Str1, xlR1C1, xlA1, , ActiveCell.Resize(Rng.Rows.Count, Rng.Columns.Count).Cells(K + 1)) If Evaluate(Str1) = True Then J = J + 1 K = K + 1 Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J End Function جمع2.rar

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

برنامج حسابات ، اتمنى انه يفيد ولو شخص واحد برنامج محاسبى.rar

نسيتوا لمسة جامدة بقي تضاف علي الزرار تعمل كمان image فيها لمعه وتتفعلها بالحدث Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) img3.Visible = True End Sub Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) img3.Visible = False End Sub وادعيلي

اخي الحبيب ياسر الموضوع محتاج اما ان تكون لديك خلفية باستخدام برامج مثل الفوتوشوب ويمكن البحث عن صورة button in psd fprmat والتعديل عليها او تقوم بالحصول على صورتين للزرار في حالة الضغط وحالة الترك من اي مصدر ثم اضافتهم للفورم فوق بعض بنفس الطول والعرض ثم وضع ليبل فوقهم مع تفريغ التكست الخاصة بالليبل ووضع حدث اظهار الصورة واحد واخفاء الصورة اتنين في داخل Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) او العكس ارجوا من الله ان اكون استطعت ايصال الفكرة ولو حد محتاج حاجة في الفوتوشوب يقول :) أسعدني مرورك اخي تقبل تحياتي اخي ياسر تعبكم راحة ارفقت شرح الفكرة في ردي على اخي ياسر لعلها تكون كافية اما ان لم تكن فحينها ساقوم بعمل فيديو تفصيلي للموضوع تقبل تحياتي

عمل رائع أخى / وائل وأنا مع أخى الحبيب أ / ياسر خليل إننا نتعبك شوية وتشرح لنا بالتفصيل الممل كيفية عمل ذلك جزاك الله خيرا

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

السلام عليكم ورحمة الله وبركاته أقدم لكم اليوم كود يقوم بتكبير القائمة المنسدلة بمجرد الوقوف داخل الخلية الموجود بها القائمة المنسدلة أرجوا أن ينال إعجابكم جرب إضغط على الخلية A2 وشاهد بنفسك Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$2" Then ActiveWindow.Zoom = 150 Else ActiveWindow.Zoom = 100 End If End Sub تكبير القائمة المنسدلة.rar

الحمــد لله رب العالـــمين، اللهـــم صـــل وسلـــم وبــاركــ على رســــولك الأمــيـن وعلــــى آلـه الطاهــــرين . بأســمك اللهم نبتدئ، وبكتابك القويم نهـــتدي، وبرســــولك الكـــريم نقــــتدي فوفقنا يا رب إلى أحسن الأقوال، وأصلـح أعمالنا وأتنا رشـدنا... فما توفيقنا إلا بكـ وما توكلــنا إلا عــليكـ، ومـــــــا توجـــهـنا إلا إليكــ . لقد استـشعر بعضنا واجبه نحو منتدانا ( أوفيسنا ) وتســــلح بالحـــزم والعـــزم ليقــوم بمــا قــــدّره الله عليــه ، بمـــــــن يسـرهـم الله لليسرى وأجـرى عــلى أيديهـم كل خير. وسـاعدونا في إصـــدار مجلة أوفيسنا وما صاحبها من نجاح في الاعداد التي صدرت وساهمت بطريقة او اخري مع موقع اوفيسنا في سرد المواضيع المتداولة بالاضافة الي موضوعات عامة تهم المستخدم العربي في شتى المجالات . فاللهم ثبتنا بالقـول الثابت، وأشرح صـدورنا وأنــر بصائرنا، وسدد خُطانا، وأربط على قلوبـنا، وأجر الخير على ألسنتنا وأقلامنا... يطيب لي ان اقدم الشكر والثناء لجميع من أسهموا في اخراج هذه الأعداد الي حيز الوجود واخص اخواني ا/ شوقي ربيع وأ/ قنديل الصياد وا/ رجب جاويش . وتجديدا للعهد والعطاء اطرح مبادرة لتنظيم فريق عمل جديد يشرف علي اصدار المجلة ومرفق نموذج الترشيح للتعاون والمساهمة كل بما يسر له الله من وقت او جهد في الاعداد او اعمال الاخراج والمونتاج واعمال التصميم ومانحو ذلك . برجاء تعبئة النموذج المرفق عند الرغبة في الاشتراك في اعداد واصدار مجلة اوفيسنا نموذج الاشتراك في اعداد مجلة أوفيسنا والله ولي التوفيق

أخي الكريم نصر اضغط Ctrl + P لتظهر لك خيارات الطباعة .. من القائمة المنسدلة المسماة Printer افتح وشوف الطابعة ..المتوصلة بالجهاز وأعطنا صورة من النافذة بخياراتها ..كما يرجى وضع بيانات الطابعة . وهل الطابعة مثبتة على جهازك؟

تفضل اخي الغالي الترحيل زر طباعة.rar

دا زر طباعة الفورم نفسها هل تقصد هذا ام شئ اخر زر طباعة.rar

السّلام عليكم و رحمة الله و بركاته مجرّد رؤية اسمك مدوّن بموضوعي .. تأكدت أستاذي الغالي ياسر خليل أبو البراء أنّ تجارتي العلمية فاقت ال ISO 9002 .. بارك الله فيك .. جزاك الله خيرًا و زادك من علمه و فضله و أدامك أستاذًا قديرًا تعلّمنا منك الكثير و مازلنا نتعلم منك أكثر بإذن الله خالص إحتراماتي

ولإثراء الموضوع هذه أداة Add-Ins تضاف داخل الإكسيل وتظهر الساعة الرقمية أيضا TMDigitalClock.zip

بارك الله فيك أخي الغالي عبد العزيز ومشكور على الهدية الرائعة تقبل تحياتي

جميلة بارك الله فيك تحياتي

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

السلام عليكم ورحمة الله اخى عبد العزيز .. تحياتى لحضرتك بالفعل اخى الحبيب الفكرة فى تنسيق الخلايا .. اما من خلال قائمة Format Cells كما تفضلت حضرتك او من خلال الكود حيث قمت بتغيير تنسيق قيمة المتغير X بإستبدال السطر التالى بهذا السطر تقبلوا خالص تحياتى

نعم ، ممكن ، ولو ان سؤالك يختلف عن السؤال الاصلي في الواقع انت تريد انت تفتح نموذج ثابت ، ولكن معلومات الصف والشعبة هي التي تختلف ، اي انت تريد ان تعمل تصفية للنموذج. جعفر[

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

السلام عليكم ورحمة الله وبركاته اخوتى وأساتذتى الأجلاء عبدالعزيز البسكرى و ياسر خليل أبى البراء و ياسر فتحى بــــــــــــــــــــــارك اللــــــــــــــــــــــــه فيــــكم وجزاكم عنا خيــــــــــــــــــــــرا كثير من المستخدمين ـ و منهم أنا ـ منبهرين لاكتشاف هذا الأساوب فى الفيجوال بيزك . انه سلس وسريع و يوفر فى حجم الملف الى جانب أنه شيق ويشعر المستخدم وكأنه على صفحة نت كما يمكن استغلاله فى صور لا حصر لها كما وضحت فى مشاركتى الاولى كما يمكن استغلاله كدالة من دوال البحث زى Vlookup مثلا كما فى المرفق التالى Vlookup Using Rollover Technique.rar اخوتى الأفاضل شاكر مروركم كما أشكر جزيل الشكر لأخينا جعفر طربيق مرة أخرى . تقبل الله منا ومنكم

وعليكم السلام انا استخدم الاستعلام التالي لقراءة جميع النماذج ، ماعدا النموذج form0 (وطبعا تستطيع تضبيطه لقراءة اسماء الجداول او الاستعلامات او التقارير او ...) : SELECT msysObjects.Name FROM msysObjects WHERE (((msysObjects.Name)<>'Form0') AND ((msysObjects.Type)=-32768) AND ((Left([Name],2)) Not In ("~s","ms","f_"))) ORDER BY msysObjects.Name; جعفر 242.db1.mdb.zip

أخى الحبيب / ابو القبطان شرفت بمرورك وكلامك الرائع

جرب الملف التالي user_form1.zip

تسلملي ياغالي ايوه كدا طلع المديح علي طريقتكم وانا هبقى اسمعك احلي مدح مصري

السلام عليكم نعم اخي الكريم الملف المرفوعه صورته اعلاه ملف sql server وماخوذ من سيرفر عن طريق back up الطريقه الوحيده لفتح هذا الملف ان يعاد هذا الملف الى السيرفر الاصلي الماخوذ منه عن طريق restor database للامان العالي الذي يتمتع فيه sql server ومن السيرفر يمكنك ان تستورد الجداول الموجوده في قاعدة البيانات الى ملف اكسس او اذا امكنكم ان تستوردوا الجداول الموجوده في قاعدة البيانات من السيرفر مباشر واقصد الاصليه اذا اتيح لكم الخول على السيرفر بالتوفيق السلام عليكم الاخ محمد قريبا جدا سوف نشارك بموضع يخص ما تطلب نحن بصدد اعداد الموضوع مع فديوات توضيحيه لجميع العمليات وبالترتيب التي يمكنكم من خلالها عمل تقارير ونماذج واستعلامات من خلال الاكسس وربطها مع sql sever بالتوفيق

السلام عليكم ملف للتحميل : 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

بعد اذن أستاذنا جعفر أضع تصورى للفكرة الفكرة تعتمد على أسلوب يسمى : Rollover Technique تعتمد طريقته على حدوث شىء ما ( ظهور صورة أو نص أو ......أو ... الخ فى خلية ) بمجرد مرور الماوس على خلية أخرى والعكس أخى وأستاذى ياسر خليل : الصور مخزنة فى الملف وتكون متاحة أو غير متاحة حسب مرور الماوس على الخلية الكيلك اليمين تعطيله كعدمه ليس له علاقه بالاكواد الأصلية زيادة وتفصيل فى المرفق التالى تحياتى لمن أتى لنا بالفكرة . فكرة Rollover Technique.rar

شكرا يااخي لابد استفيد من ملف بارك الله فيك

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

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

تفضل اخى الكريم جرب الملف المرفق تقبل تحياتى 123.zip

ودي لو هتكتب قيم غير الموجودة عشان تلافي الخطأ جدول رقم 1 - Copy.rar

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

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

مبارك - زادتك الله من علمه وفضله

دعاء لأستاذنا الغالى رحمه الله / عماد الدين الحسامى

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

جرب هذا الملف التقييم النهائي salim.zip

الحمد لله يا اخى والله ما اخلفنا موعدك بملكنا وبكن اشغال والحمد لله ان وفقك لما تريد

السلام عليكم اخي العزيز ضع الكود ادناه في حدث بعد التحديث لمربع التحرير والسرد mm me.txtName=me.mm.column(0) me.txtFile=me.mm.column(1) حيث txtName هو اسم مربع النص الخاص بالاسم txtFile هو اسم مربع النص الخاص برقم الملف mm هو اسم مربع التحرير و السرد بالتوفيق