بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 08/21/19 in all areas
-
تفضل ..... fld_distrb.rar4 points
-
MP3_WAV_Player_SEMO_Pa3x(3).accdb3 points
-
الموضوع الذي طرحه أخي @ابو البشر فيه طرح شامل ووافي للموضوع ثانيا : عادة الدرايف C يعتبر محمي في بعض الاجهزة ولايمكن اضافة ملف فيه الا من المسؤول على العموم جرب ملفك لأضافة ملف txt في الدرايف D z.accdb3 points
-
رائع بارك الله فيك أستاذنا الفاضل أستاذ سليم بعد إذن حضرتك أرى يجب تعديل بإضافة سطر لمسح المحتويات قبل الترحيل حتى لو أنه كان هناك تعديل لا يستبب في مشاكل فيصبح الكود هكذا Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select My_sh.Range("A5:t1005").ClearContents For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Shool.xlsm2 points
-
لا أعلم لما هذا التفصيل والاطالة في الكود واستعمال ثلاث متغيرات(R,M,O) (الجزء الاول من الكود) يمكن الاختصار هكذا (اذا كنت لا تريد ان يعمل علي اوتو _فلتر) Option Explicit Private Sub ComboBox1_Change() Dim R As Integer, M%: M = 5 Dim My_sh As Worksheet Application.ScreenUpdating = False Select Case Me.ComboBox1.Value Case "راسب": Set My_sh = Sheets("رسوب") Case "ناجح": Set My_sh = Sheets("ناجح") Case "دور ثانى": Set My_sh = Sheets("دور ثان فى") Case Else: GoTo End_Me End Select For R = 5 To 100 If Sheets("الشيت").Cells(R, 20) = Me.ComboBox1.Value Then Sheets("الشيت").Range("A" & R).Resize(1, 20).Copy My_sh.Range("A" & M).PasteSpecial xlPasteValues M = M + 1 End If Next End_Me: Application.CutCopyMode = False Application.ScreenUpdating = True End Sub2 points
-
استخدم هذا ... Me.nv = Me.test.Column(3) & " " & Me.test.Column(4) & " " & Me.test.Column(5)2 points
-
اخي الكريم يبدو انه لا يمكن تعديل قياسات الموقع الالكتروني من خلال متصفح الاكسس لكن هنالك اقتراح توجد العديد من المواقع و البرامج لتصميم صفحات الويب بلغة HTML اقترح عليك استخدام الفرونت بيج فهود احد اصدارات اوفيس القديمة 2003 و سهلة الاستخدام عند انشاء صفحة قم وضع الصورة التي ترغب بها و ضع في رأس الصفحة <head> <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> يقوم هذا الكود بتحجيم جميع العناصر داخل الصفحة بما يتناسب مع اي مقاس للشاشة في العادة نقوم باستخدامه لانشهاء موقع ويب يتناسب مع الهواتف المحمولة و الاجهزة اللوحية شكرا2 points
-
السلام عليكم ورحمة الله وبركاتة يكثر السؤال عن الغاء الحفظ التلقائي في الاكسس وهذه الخاصية بطبيعة الحال غير موجودة مع النماذج المنضمه ولتغلب على هذا الأمر نحتاج لعمل طريقة نتحايل بها على الاكسس لنعيد السجل بالنموذج الرئيسي وكل السجلات بالنموذج الفرعي إلى سابق عهدها قبل التعديل عند النقر على زر أمر تراجع عن التعديل أو التراجع عن إضافة سجل المثال المرفق فيه فكرة لذلك عن طريق عمل جداول مؤقته نأخذ منها قيم السجلات قبل التعديل وتحديث السجلات من خلالها في الجدول الاساسي هناك فكرة أخرى عن طريق عمل المصفوفات وهي للاستغناء عن الجداول المؤقت ولكنها صعبة نوعا ما ولا أجيد التعامل معها باحترافية لعل احد الاساتذه أو الاعضاء يطبق الفكرة من خلال المصفوفات وإليكم المثال قم بالتعديل او الحذف للحقول في النموذج الاساسي والنموذج الفرعي واحذف وأضف سجلات كاملة بالنموذج الفرعي ثم أنقر على زر تراجع وانظر النتيجة ::بالتوفيق للجميع :: disableSavKaser96.rar
1 point -
تحويل pdf الي اكسيل و العكس بدون برامج | PDF to Excel Converter نتناول في هذا الدرس طريقه احترافيه في تحويل ملف pdf الي اكسيل بدون برامج و تدعم اللغه العربيه حيث ان معظم برامج تحويل pdf لا تدعم اللغه العربيه https://www.youtube.com/watch?v=xS8dN6XSIbM وهذا هو ملف العمل لإكتمال الإستفادة PDF to Excel Converter.xlsm1 point
-
الشارة % هي اختصار لعبارة As Integer واشارة # هي اختصار لعبارة As Double واشارة $ هي اختصار لعبارة As String وهناك الكثير1 point
-
الطابعة اذا كانت جاهزة فيطبع دون سؤال هذا كان حسب سؤال لأنك لم توضح .... أنظر لطلبك داخل البرنامج ....
1 point -
و عليكم السلام و رحمة الله و بركاتة تفضل اخى الكريم لك ما طلبت Helwan Branch QC Daily Report.xlsx1 point
-
السلام عليكم و رحمة الله و بركاتة الاخوة الكرام اعضاء المنتدى اقدم لكم برنامج بسيط من تنفيذى لادخال فواتير المبيعات و ترحيل البيانات الاساسية للفاتورة فى شيت و بيانات الاصناف فى شيت اخر يمكن ترحيل اكثر من صنف فى الفاتورة مع تكرار البيانات الاساسية فى شيت الاصناف اتمنى ان يستفيد الاخوة من البرنامج ملحوظة شيت Invoice محمى باسورد (1234) vba Invoice.xlsm1 point
-
بارك الله فيك وزادك الله من فضله1 point
-
دكتور هذا الموقع محمي بكلمة مرور كيف سنطلع على التجربة ؟؟
1 point -
تفضل اخي الكريم للاسف ما افهم الجدول المرسل من قبلكم و قمت باضافة بعض البيانات store_universty_Backup.rar يتم كتابة الرقم عن طريق النموذج الذي تم انشائه1 point
-
تفضل التعديل اخي الكريم store_universty_Backup.rar1 point
-
السلام عليكم ورحمه الله وبركاته اننى لدى شيت وفى بعض الصفوف لات عمل القائمه المنسدله فى IN/OUT اريد ظبط المعادله اخواتى الاعزاء افادكم الله مرفق الشيت من فضلك اخى الكريم فقد تم الرد على نفس السؤال من قبل عليك الا تكرر نفس المشاركات ,تجنبا لعدم اهدار وقت الأساتذة -فقد تم دمج الموضوعين وبه ما تريد مخزن الاثاث.xlsm1 point
-
في اعتقادي انه حتى الان لا يوجد تطبيق يفتح نماذج الاكسس الافضل ان تقوم بإنشاء صفحات ويب بنفس تصميم نماذج الاكسس لديك بعدها تستطيع رفع تلك على الصفحات على اي استضافة مجانية مع قاعدة البيانات كانت لدي نفس المشكلة و قمت بعمل نفس الحل مرفق رابط الموقع فقط للاطلاع طبعا هذا الرابط متوافق فقط مع الهواتف اما اجهزة الحاسب الآلي لا و هذا بناء على طلب العميل فقط باضافة الكود التالي للتصميم و بناء جميع العناصر بكامل حجم مساحة العمل <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> الموقع الذي تم تصميمه مع العلم بأن هذا الموقع مرتبط قاعدة بيانات اكسس1 point
-
اخي الكريم مع الابقاء على نفس الجداول ينبغي عليك توريد كميات الاصناف في جددول InvoiceTT تحت بند "شراء" تم اضافتها مع كل عملية اضافة / حذف للاصناف سيتم تحديث المخزون تلقائيا مرفق التعديل InvoiceSale_8.accdb1 point
-
1 point
-
اسم التطبيق لو تكرمت للتشغيل1 point
-
نعم أستاذ يوجد برنامج لتشغيل ملفات الاكسس على الجوال لنظام الاندرويد ولكن ليس لتعديل عليها أي فقط التشغيل1 point
-
الكود مقتبس من احد المواقع الاجنبية ولا اذكر اسمه1 point
-
أبدعت فأحسنت استاذى سليم كود ممتاز جعله الله فى ميزان حسناتك1 point
-
جرب هذا الكود مع شرح لكل سطر من الكود باللغة الاجنبية Option Explicit Sub SheetsToWorkbooks() 'Step 1: Declare all the variables. Dim ws As Worksheet 'Step 2: Turn screen updating off to speed up your macro code Application.ScreenUpdating = False 'Step 3: Start the looping through sheets For Each ws In ThisWorkbook.Worksheets 'Step 4: Copy the target sheet to the new workbook ws.Copy 'Step 5: Save the new workbook with sheet name. ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws.Name ActiveWorkbook.Close SaveChanges:=True 'Step 6: Loop back around to the next worksheet Next ws 'Step 7: Turn screen updating on Application.ScreenUpdating = True End Sub1 point
-
ابداع اخي حسين زادك الله علما الفكرة رائعة وممتازة ولكن تحتاج الى تعديل من حضرتك طبعا رقم المورد يمكن ان يتكرر كما في الملف عند اختيار مورد من الكمبوكس تظهر قيمة المبلغ الغير مسدد وعند الضغظ على تسديد المفترض ان يضع رقم 1 امام المبلغ الذي تم تسديده فقط ولكن الملاحظ انه يقوم بوضع رقم 1 امام المورد اينما وجد فيتم تسديد الديون بالكامل والواقع انه سدد دين واحد فضلا منكم نأمل تعديل الكود السيد حليم ناصر تم وضع التاريخ عند التسديد وفي نفس الصفحة كما طلبت جرب الملف تحياتي فلتر الفواتير (2).xlsm1 point
-
اخي الكريم اقصد ماهي الجداول التي تريد ان تقوم بتجميع البيانات منها عند تصفحي لقاعدة البيانات وجدت الجدول operation_store و اعتقد انه خاصة لحركة الدخول و الخروج فقط قم بتحديد اي من الجداول التي تريد بناء التقرير عليها1 point
-
السلام عليكم جرب الملف الخيارات مفتوحة لجميع الاحتمالات حسب الاختيار من c3 و d3 اي اظافات او تعديل لا تخجل في الطلب تحياتي الكود للسيد سليم حاصبيا وفقه الله فلتر الفواتير.xlsm1 point
-
هذا الاخير اظنه قريب لطلبك MP3_WAV_Player_SEMO_Pa3x(3).accdb1 point
-
بالمرفق نسخة "مفتوحة المصدر" تقبلوها كهدية . وأتمنى من الأخوة الزملاء المساهمة في تطوير البرنامج كل من لديه فكرة لا يبخل بها بل يضيفها لتعم الفائده للجميع . ولا تنسوني من دعائكم . وبالتوفيق TestM.rar1 point
-
في هذا الملف يوجد ما طلبته بالضبط حول الرقام 2.4841 >>>>> 2.49 25.36457 >>>>> 25.37 87.324 >>>>> 87.33 24.6359 >>>>> 24.64 85.5635 >>>>> 58.56 المعادلة =ROUND(A1,2)+IF(MID(ROUND(A1,2),FIND(".",A1)+1,2)+0<50,0.01,0) CREASY_ROUND.xlsx1 point
-
فى فورم emp1 اريد ان اضغط على زر البحث يفتح فورم بحث و عند اختيار بيان محدد يتم كتابتة فى خانة الكومبو بوكس مرفق فورم لتوضيح المطلوب وشكرا لكم مشروع ادارة الاجازات للموظفين.mdb1 point
-
صديقي انا اطلعت على البرنامج اول اشي عندك مشكلة في العلاقات لعمل تقرير بالموجود بالمخزن اعمل استعلام كالتالي اول المدة + المشتريات - المبيعات حاولت التطبيق على البرنامج لكن هناك خطأ في ربط العلاقات رفض عمل بيع وشراء لوجود سجلات مرتبطة0 points
