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

تتضمن هذه المقاله ارتباطات الي المقالات التي توفر تفاصيل حول الدالات الشائعه المستخدمه في التعبيرات في المايكروسوفت أكسس اتمنى تستفيدون من هذه الرابطة مع التوفيق للجميع رابطة عربي https://support.office.com/ar-sa/article/الدالات-مرتبة-حسب-الفئة-b8b136c3-2716-4d39-94a2-658ce330ed83 رابطة انجليزي https://support.office.com/en-us/article/Access-Functions-by-category-b8b136c3-2716-4d39-94a2-658ce330ed83

جدول أكسس به 6236 آية قرآنية بالتشكيل لمصممي برامج القرآن الكريم لا تتعجب من اسم الجدول واسم الاستعلام فكلاهما نفس الاسم وهو اسم غير موجود هههههههه على العموم هذه خدعة لكن الكود الغريب هو كود الاستعلام : SELECT * FROM ‍‌; فعلا الكمبيوتر آلة غبية جدا ههههههه quran.rar

Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus) استدعاء المنطقة واللغةوالوقت والتاريخ والحاسبة.rar

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

دوختنا شوية شقلبة يسيطة في سطرين الاضافة لتصبح Private Sub comm_add_Click() 'If Me.taxt_date1 > Me.txtHijriDate Then 'MsgBox " áã íÓÊßãá ÈÚÏ ãÏÉ ÇáÊÑÞíÉ", vbCritical, "SOFT SAMPLE" 'Else DoCmd.GoToRecord , , acNewRec taxt_now = 2 'End If End Sub انشاء الله تنحل وتحياتي

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

انظر الملف المرفق . يوجد جدولين كلاهما بنفس الاسم تماما وهو الرقم:(5) تماثل تام في التسمية ، لا مسافات ولا فراغات وبرغم ذلك متواجدين متجاورين كجداول مستقلة tbls.rar

السلام عليكم هناك العديد جدا من الطرق .. اليك =VLOOKUP(C5,IF(المصروف!$F$5:$F$10=الموقف!D5,المصروف!$E$5:$G$10,""),3,FALSE) و =INDEX(المصروف!$E$5:$G$10,MATCH(1,(المصروف!$E$5:$E$10=الموقف!C5)*(المصروف!$F$5:$F$10=الموقف!D5),0),3) و =VLOOKUP(C5&D5,IF({1,0},المصروف!$E$5:$E$10&المصروف!$F$5:$F$10,المصروف!$G$5:$G$10),2,0) معادلات صفيف بعد كتابتها يتم الضغط على CTRL + SHIFT + ENTER معادلة على اساس شرطين الرقم والتاريخ.rar

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

السلام عليكم وكما قال أخي شفان ، إذا كان الحقل مضمن ، فمعناه ان له قيمه تحدده من الجدول ، فاذهب الى إعدادات الحقل في الجدول وغير نوع الرقم من رقم كامل long integer الى Double جعفر

وعليكم السلام جرب هذا ، انت تقرر Round الى اي عدد بعد الفاصلة ، 2 او 3 مثلا ، وعدم وضعك لرقم معناه انك تقرب الرقم بدون كسور بعد الفاصلة: taxt_n1: Round([taxt_t1]/[d2]*[d1],3) taxt_n4: Round(1/[d2]*[d11],2) جعفر

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

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

تحية طيبة استاذ جعفر الكود يعمل مليون بالمية بعد تعديل السطرين التاليين السطر الاول من cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" الى cmmd = App_Location & " shell input text " & ChrW(34) & "I am testing'" & ChrW(34) & "; sleep 1" و السطر الثاني من cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" الى cmmd = App_Location & " shell input tap 60 640" & "; sleep 1"

لا أعتقد أنه يوجد كود يتحكم في هذا الأمر

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

السلام عليكم ورحمة الله انسخ هذا الكود و الصقه فى موديول و خصص له زر كما يلى : من قائمة insert ---------- Devolper ثم اضغط على زر من القائمة المنسدلة ورابطه بالكود السابق كما ارجو ان تقوم بازالة التنسيق الشرطى كى ترى الدوائر Sub Circles() Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range Set ws = Sheets("شيت") If LR < 14 Then LR = 14 LR = ws.Range("C" & Rows.Count).End(xlUp).Row Arr = Array(10, 11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) For R = 14 To LR For i = LBound(Arr) To UBound(Arr) For Each Cel In ws.Cells(R, Arr(i)) If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub

استاذنا @ابوخليل @محمد ايمن @omarahmed1424 @abosherif1 @wael_rafat في هذا الرابط راح تجدون ما طلبتم الكود مع شرح بالفيديو https://whatsmate.github.io/2017-02-04-send-whatsapp-message-vba/ و استاذنا @Elsayed Bn Gemy انت مطلوب هنا للمشاركة في هذا الموضوع اذا عندك معلومة عنه

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

الاخوة الزملاء شرح مبسط للاكسل بالبوربوينت للمبتدئين بعض الصور رابط الموضوع https://www.4shared.com/rar/SgZgpiN9ei/___.html

كيف مو مشكلة!! اذا استعملت: DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo او DoCmd.OpenReport "Rreceipt", acViewPreview, , stLinkCriteria, acHidden DoCmd.SelectObject acReport, "Rreceipt" DoCmd.PrintOut , , , , 1 PauseTime = 5 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 PauseTime = 4 ' Set duration. Start = Timer ' Set start time. Do While Timer < Start + PauseTime DoEvents ' Yield to other processes. Loop DoCmd.PrintOut , , , , 1 DoCmd.Close acReport, "Rreceipt", acSaveNo والاكسس اظهر لك التقرير ، معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي جعفر

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

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

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

طيب رجاء تجربة المرفقين الاتيين المرفق الاول لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد عدد عشر صور بعدد العشر ورقات التى تم مسحهم ضوئيا Archive v10.rar المرفق الثانى لو عدد الاوراق المراد مسحها ضوئيا 10 وسيتم العمل والمسح الضوئى من خلال نموذج الصادر لو كان رقم الصاد 2 بمجرد الضغط على زر الامر ادارج مرفقات من الاسكنر ستجد النتيجة الاتية ان شاء الله تعالى بعد انهاء عملية المسح الضوئى - بجورقاعدة البيانات مجدل باسم archives ثم تجد بداخله مجلد باسم sader ثم تجد بداخله مجلد باسم 2017 ثم تجد بداخله مجلد برقم الصادر وسيكون 2 وبداخل هذا المجلد تجد صورة واحده فقط بصيغة tif وعند فتحها تستطيع ان تستعرض فيها عدد العشر ورقات التى تم مسحهم ضوئيا مثل الـ pdf Archive-Scan multiple files v11.rar

تمام الحمد لله

طيب سؤال وش الرابط بين الاسماء

عليكم السلام اتفضل اخي الكريم docmd.runcommand accmdprint

::: هذا يعني انه يطالب بعلاقة مع الجدول Users . ::: تفضلي تم اضافة التعديلات ... Referral2_UP.rar

اسم الجدول بالنقاط ..... quran 02.rar

السلام عليكم تفضل اخي الكريم علة المطلوب تماماً Sub Add() Dim LR, LE As Long '=========================================================== Dim sh1 As Worksheet: Set sh1 = Sheets("بيانات اساسية") Dim sh2 As Worksheet: Set sh2 = Sheets("كشف") LE = sh1.Cells(Rows.Count, "Q").End(xlUp).Row ' sh1 بشيت Range("B6:B" & LE) بدلاله النطاق A1 عدد مرات تكرار اسم الكشف الموجود في شيت كشف خليه If Application.WorksheetFunction.CountIf(sh1.Range("B6:B" & LE), sh2.Range("a1").Value) > 29 Then MsgBox "لا يمكن استدعاء كل البيانات " ' تفريغ نطاق نتيجة البحث بشيت كشف sh2.Range("B6:BH35").ClearContents ' انهاء عمل الكود Exit Sub End If ' ان لم يتحقق الشرط السابق بحيث عدد النتائج اقل من او يساوي 29 ' تفريغ نطاق نتيجة البحث بشيت كشف ' بحيث يهيأ لاستقبال النتائج الجديده فى كل مرة sh2.Range("B6:BH35").ClearContents '=========================================================== ' وقف اهتزازات الشاشة اثناء عمل الكود Application.ScreenUpdating = False '=========================================================== Dim cll As Range 'sh1.Range("B6:B" & LE) عمل حلقة تكرارية - ساقية - علي كل صفوف النطاق For Each cll In sh1.Range("B6:B" & LE) 'sh2.Range("A1") لو ان قيمتها تساوي قيمة الخلية If cll.Value = sh2.Range("A1").Value Then ' انسخ الصف الذي تحقق به الشرط sh1.Range("Q" & cll.Row & ":BX" & cll.Row).Copy 'شيت كشف B لصق الصف في اول خليه فارغة في العمود sh2.Range("B" & sh2.Range("B35").End(xlUp).Row + 1).PasteSpecial Paste:=xlPasteValues ' انتهي الشرط End If ' نقطه بدء ونهاية الساقيه لحين الانتهاء من الدوران على كافة الصفوف المحددة Next ' ازالة التحديد عن النطاق المنسوخ Application.CutCopyMode = False ' اعادت تحديثات الشاشه Application.ScreenUpdating = True End Sub تفضل المرفق استدعاء بيانا_2.rar

الفكرة ان الجدول باسم مسافة ( ) ثم تم اخفاءه وهذا الملف بعد اظهار الجدول تحياتي quran.rar

للاسف يرفض قبولها فى الكود

Docmd.save Docmd.refresh جرب

عفوا استاذ جعفر النتيجة ممتازة فى الاستعلام ولكن عند استخدامها فى كود VBA تعطي نفس النتيجة فى المشاركة الالولى taxt_n1 = Round([taxt_t1] / [d2] * [d1], 3) taxt_n4 = Round(1 / [d2] * [d11], 3) اكتشفت بعد كتابة التعليق هذا انه يجب ان تكون الحقول غير منضمة يعنى اذا كانت الحقول غير منضمة تعطى نتيجة ممتازة مثل الاستعلام بالظبط فهل من حل لكي احفظ القيمة فى الجدول

السلام عليكم اردت المشاركة في هدا الموضوع واعتبره موضوع مهم بنسبة لصناعة البرامج الباركود هدا المثال من الاخت الكريمة (( زهرة )) فاحببت ان اشارك به لعله ينفع من يبحث عن الباركود وطريقة طباعة الملصقات بالطابعة العادية ورق A4 هدا نمودج لاختيار الاصناف المراد طباعتها وهدا تقرير جاهز لطباعة بالعدد المحدد للاصناف وهدا مثال للاخت زهرة zaBarCode_Items.rar

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

:::اوك سانظر ما يمكنني فعله مساءا .

هلا والله أخوي وائل حل مشكلتك بسيط ، بس بيكلفك عشاء ، لا ومب عشاء واحد ، وانما عشاء عن توفير وقت كل تقرير وإلا خليني اسهل الموضوع ، عشاء واحد بس اجيب معاي كل الحبايب و أولهم أخونا العود @ابو خليل اذا اتفقنا ، شوف الحل التالي: مشكلتك في طريقة طباعتك للتقرير انك تجلب وتفرز وتصفي 34 الف سجل 3 مرات ، بينما الطريقة التالية تخليك تجلب وتفرز وتصفي 34 الف سجل مرة واحدة فقط ، ولكن تطبع التقرير 3 مرات: DoCmd.OpenReport "Rreceipt", acViewPreview, , , acHidden DoCmd.PrintOut acPrintAll, , , , 3 DoCmd.Close acReport, "Rreceipt", acSaveNo جعفر

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

السلام عليكم وحياالله الشباب بالاضافة الى ما تفضل به أخي أوس رجاء تلاحظ تسلسل الارقام ، فهي 2 ثم 1 ، الاستعلام 1 مافيه مشكلة ، ولكنك لما تفتح الاستعلام 2 والذي مصدره الاستعلام 1 ، والظاهر ان فيه معيار فرز او تصفية في حقل معين ، اي حقل فيه معيار في الاستعلام او الكود ، يجب ان تجعل الحقل مفهرس في الجدول ، وإلا ستحصل على تأخير وعند تغيير الحقل في الجدول الى حقل مفهرس ، يجب ان تعمل Compact and Repair للقاعدة التي بها البيانات ، حتى يستفيد الاكسس من هذا التغيير. جعفر

يوزرفور بحث و تعديل وحذف مرن يصلح لأي قاعدة بيانات محفظة اكواد للفورم Transpose_Notes فورم بحث في تفسير القرآن الكريم واياته فورم طباعة الفورم بالكامل Randbetween without repetition برنامج تسجيل بيانات لروضة أطفال - الاصدار الثاني ايام العمل المشتركة بين عاملين Calendar by Choise حماية الخلايا غير الفارغة بواسطة باسوورد اخر صف في كل ورقة تحديد المكررفي كل صف مع تجاهل الفراغات مجموعة من الارقام العشوائية بشرط اختيار الكلمة حسب رقم ورودها في النص تحويل البيانات من عامودين الى جدول مطاطي جدولة الديون قائمة بمحتويات التحديد و عنوانه لائحة يالاسماء حسب الديون المراتب من 1 الى 100 السنوات الكبيسة بين عامين الاعداد الأولية حذف مشاركة مكتبة الموقع - تحديد الأوزان النسبية و التقييم + تطبيق بالإكسيل محمد طاهر *************** مكتبة الموقع - اضافة محتوى القائمة المنسدلة آليا محمد طاهر *************** الزام المستخدم بمسافة واحدة بين كلمتين سليم حاصبيا *************** اظهار اجزاء من صورة بواسطة اكسل سليم حاصبيا *************** تجزئة الاسماء المركبة وفصلها عن الاسماء العادية سليم حاصبيا *************** من الغاز الاكسل سليم حاصبيا *************** استعمال REGULAR EXPRESSION في اللغة العربية سليم حاصبيا *************** Random Between Without Repetition سليم حاصبيا *************** كيف تدفع او تقبض مبلغ من المال بأقل عدد من الأوراق المالية سليم حاصبيا *************** كيف نختار مجموعة عشوائية من التلاميذ سليم حاصبيا *************** عدد ايام معينه بين تاريخين سليم حاصبيا *************** قائمة منسدلة متناقصة و مطاطة في نفس الوقت سليم حاصبيا *************** فاتورة الكهرباء سليم حاصبيا *************** الطباعة الذكية سليم حاصبيا *************** Filter By_Selection سليم حاصبيا *************** حماية خلايا بدون حماية الشيت سليم حاصبيا *************** كيف نبحث عن كلمة او حرف او عبارة داخل نص سليم حاصبيا *************** كيف نجعل الخلية تتمرد على تحديدها سليم حاصبيا *************** لائحة أسماء دون تكرار ومرتبة أبجدياً سليم حاصبيا *************** مجموع صناديق وقناني سليم حاصبيا *************** لائحة أسماء دون تكرار ومرتبة أبجدياً سليم حاصبيا *************** صادر وارد سليم حاصبيا *************** ترقية UDF سليم حاصبيا *************** جدول أرقام سليم حاصبيا *************** التغلب على الدالة Match سليم حاصبيا *************** كيف تجعل زر الأمر يتحرك سليم حاصبيا *************** استخراج الارقام أو الأحرف او الكلمات من نص سليم حاصبيا *************** اختيار عشوائي سليم حاصبيا *************** الزام المستخدم بالكتابة بالترتيب في نفس الصف داخل الجدول سليم حاصبيا *************** الكتابة باحرف كبيرة أو صغيرة فقط سليم حاصبيا *************** الفورم السحري إضافة حذف تعديل ترحيل تحميل الصور و طباعة شوقى ربيع *************** فورم حاسبة القروض ضاحى الغريب *************** الحنين الى VBA بنكهة C# برنامج الموردين شوقى ربيع *************** برنامج الموردين معدل (متوافق مع win7) شوقى ربيع *************** كتابة جدول مرتب ابجدياً سليم حاصبيا *************** كيف نحدد تاريخ الأحد القادم و الأحد السابق لاي تاريخ محمد طاهر *************** تحديد الصفّوف المكررة سليم حاصبيا *************** تحديد الصفّوف المكررة ( تابع) سليم حاصبيا *************** ٍكيف نحصل على Timer بسيط سليم حاصبيا *************** من مقالب نيسان في Excel سليم حاصبيا *************** التاريخ في الكومبو بوكس سليم حاصبيا *************** كيف نقوم بفلترة نطاق بواسطة UserForm واخنيار ما نريد من الفلتر سليم حاصبيا *************** مكتبة الموقع - مؤشر تقدم العمل بتنسيق معين محمد طاهر ***************

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

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

نعيد برمجة ملف ابراهيم بطريقة أبوالبراء ابراهيم.rar

بارك الله فيك أخي الكريم الزباري اسمح لي بمشاركة بسيطة بالموضوع .. طالما أن كود الاستدعاء يمكن أن يستخدم أكثر من مرة فالأفضل وضعه في إجراء يمكن الاستدعاء منه ..اطلع على الكود وستعرف مقصدي Sub ImportAhmad() ReadString "ahmad", Sheet2 End Sub Sub ImportAli() ReadString "ali", Sheet3 End Sub Sub ImportYosuf() ReadString "yosuf", Sheet4 End Sub Sub ReadString(customer As String, sh As Worksheet) Dim sLine As String Dim sFName As String Dim intFNumber As Integer Dim lRow As Long Dim lColumn As Long Dim vDataValues As Variant Dim intCount As Integer sFName = ThisWorkbook.Path & "\Info\" & customer & ".txt" intFNumber = FreeFile On Error Resume Next Open sFName For Input As #intFNumber If Err.Number <> 0 Then MsgBox "Text File Not Found!", vbCritical, "Error!" Exit Sub End If On Error GoTo 0 sh.Cells.Clear lRow = 1 Do While Not EOF(intFNumber) Line Input #intFNumber, sLine vDataValues = Split(sLine, vbTab) With sh lColumn = 1 For intCount = LBound(vDataValues) To UBound(vDataValues) .Cells(lRow, lColumn) = vDataValues(intCount) lColumn = lColumn + 1 Next intCount .Cells.EntireColumn.AutoFit .Activate .Range("A1").Select End With lRow = lRow + 1 Loop Close #intFNumber MsgBox "Values From File '" & sFName & "' Were Imported To Sheet '" & sh.Name & "'!", vbInformation End Sub

1-كود المعاينة ممتاز 2-مرفق ملف المستخدم هو wzالباسورد هو 214 يوجد داخل الملف كود لااخفاء واضهار الاشرطة اريد كود اخر عند اخفاء الاشرطة يظهر لي شريط الحالة فقط وباقي الازرار توضح نفسها ويوجد مثال حي للطلبات علي الالة الحاسبة مثال.rar

السلام عليكم عفواً هذا هو الاصدار الذي حملته من الموقع ياشباب اي واحد من مصر بجرب البرنامج لو سمحتوا ويرد علينا اذا نجح ام لا تحياتي sms22.rar