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

السلام عليكم حلو الموضوع هذا كود يعطيك عدد الخلايا في لاي اصدار Sub Test() Dim wSh As Worksheet: Set wSh = ActiveSheet Dim lRrw As Long: lRrw = wSh.Rows.Count Dim lClm As Long: lClm = wSh.Columns.Count Dim dNRng As Double: dNRng = Val(lRrw) * Val(lClm) MsgBox "عدد الخلايا هو " & dNRng End Sub

للافادة كما قال اخي ياسر هذا الكود يعطيك الاصدار و عدد الصفوف وعدد الاعمدة وعدد الخليا Sub Test() Dim wSh As Worksheet: Set wSh = ActiveSheet Dim lRrw As Long: lRrw = wSh.Rows.Count Dim lClm As Long: lClm = wSh.Columns.Count Dim dNRng As Double: dNRng = Val(lRrw) * Val(lClm) Dim sTex As String Select Case Val(Application.Version) Case 9: sTex = "أوفيس 2000" Case 10: sTex = " أوفيس 2002" Case 11: sTex = " أوفيس 2003" Case 12: sTex = " اوفيس 2007" Case 14: sTex = " أوفيس 2010" Case 15: sTex = " أوفيس 2013" End Select MsgBox "الاصدار " & sTex & vbNewLine & _ "عدد الصفوف " & lRrw & vbNewLine & _ "عدد الاعمدة " & lClm & vbNewLine & _ "عدد الخلايا " & dNRng End Sub

تعلم أكسس 2007 | الفصل الأول : بدء العمل مع أكسس

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

السلام عليكم ان كنت تبحث عن ابسط كود يفي بالغرض هاك هدا الكود Sub Test() MsgBox Cells.CountLarge End Sub

وعليكم السلام اخي محمد تم التعديل كما في الصورة انظر للمرفق مساعدة في تعديل علي فورم بحث.zip

انظر النموذج الجديد tblGyab student.rar

اليك هذه الروابط http://www.officena.net/ib/index.php?showtopic=51013 http://www.officena.net/ib/index.php?showtopic=150 http://www.officena.net/ib/index.php?showtopic=15722&hl= http://www.officena.net/ib/index.php?showtopic=40690 وهناك المزيد بس انت اكتب في خانة البحث (الجداول المحورية) وستجد ما يسرك

ماعليك سوى نسخ الكود كما هو ووضعه في الوحدة النمطية للنموذج دون أي تعديل

السلام عليكم جزاك الله خير اخي المجتهد ابن مصر هذا اختصار بسيط للكود ائراءا للموضوع Sub cmdRename_EN_Click() Dim i As Integer On Error Resume Next For i = 1 To Sheets.Count ThisWorkbook.VBProject.VBComponents(Sheets(i).Name).Name = "sheets" & i Sheets(i).Name = "sheets" & i Next End Sub Sub cmdRename_AR_Click() Dim i As Integer On Error Resume Next For i = 1 To Sheets.Count ThisWorkbook.VBProject.VBComponents(Sheets(i).Name).Name = "ورقة" & i Sheets(i).Name = "ورقة" & i Next End Sub تحياتي

السلام عليكم 1> تعتمد هذه الفكرة على كلمة المرور المتغيرة عند فتح الملف سيظهر لك مربع حوار في أعلاه عدد مكون من خمسة أرقام (وهذا العدد متغير وليس ثابت) مثلا 10547 قم بضرب أول رقمين في آخر رقمين والناتج هي كلمة المرور الصحيحة في مثالنا ستكون كلمة المرور هي 10×47=470 كلمة المرور هي 470 انتيه ! لم نستعمل الرقم 5 في الحساب ولكن وضع للتمويه على المستخدم فقط 2> قمت بإخفاء كل الشيتات التي فيها الحسابات حتى لو تم تعطيل الماكرو ستكون شيتات الحساب كلها مخفية ويظهر شيت آخر فارغ 3> عند تغيير اسم الملف أو تغيير مكانه في الكمبيوتر فلن يعمل البرنامج وسيطلب كلمة المرور من المستخدم 4> لنفترض أنني عملت على هذا البرنامج وأغلفته ثم قام صديق لي في العمل بنسخ هذا البرنامج في فلاشه فلن يستطيع تشغيله على جهازه إلا إذا أعطيته أنا كلمة المرور يجب على صديقي أن يفتح البرنامج من على جهازه وفي نفس اللحظة يتصل بي لأعطيه كلمة المرور لأنه لو أقفل مربع الحوار (الذي سيظهر لإدخال كلمة المرور) بدون إدخال الكلمة أو أدخلها بالخطأ فستتغير كلمة المرور في المرة القادمة عندما يفتح البرنامج مع كل ما تقدم من الشرح إلا أن العمل قد لا يخلو من الخطأ أو الخلل فأرجو المعذرة جرب الملف تفضل أبوعيد.rar

بسم الله ما شاء الله ..الموضوع شكله هيطلع الإبداع اللي عند الناس كلها... الأخ الحبيب ابن مصر المبدع دائماً بارك الله فيك الأخ شوقي ربيع يشرفني ويسعدني مرورك العطر على الموضوع .. بس أفضل إجابة هتكون الأقصر حلاً (لا نريد أن يخرج الموضوع عن نطاق الترفيه ..بس كود في منتهى الروعة وكنا أكيد هنستفيد من خبرات حضرتك) نقطة مهمة بالنسبة لإخوانا المتابعين لحلقات افتح الباب Dim dNRng As Double استخدم الأخ شوقي المتغير Long في الإعلان عن المتغير الخاص بعد الأعمدة ، والمتغير الخاص بعد الصفوف ..أما المتغير dNRng فأعلن عنه من النوع Double حيث أن عدد الخلايا في ورقة العمل يتعدى حدود النوع Long .. جميل جداً إخواني ، وما زلت في انتظار حلول أخرى

شاهد المرفق 2010 Insert Vacc Code_Req-233.rar

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

جرب أخي الحبيب الملف التالي Filter Table.rar

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

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

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

السلام عليكم اخى الكريم فائده الضرب فى العدد 1 او علامة النفى المضاعف هو --( ) او جمع الرقم 0 متى تستخدم ؟ تستخدم عندما تعيد الصفائف قيما منطقيه (TRUE او FLASE) وفى برنامج الاكسيل تمثل القيمة TRUE القيمة 1 , والقيمة FLASE القيمة 0 ويمكنك استخدام 3 عمليات حسابيه لتحويل القيم المنطقية الى ارقام اولا : الضرب فى العدد 1 : X=1*X ثانيا :اضافة الرقم 0:X=0+X ثالثا:النفى المضاعف X=X-- العمليات الحياديه.rar

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

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

وجدتهما في مكتبتي PSchool.rar School.rar