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

تتضمن هذه المقاله ارتباطات الي المقالات التي توفر تفاصيل حول الدالات الشائعه المستخدمه في التعبيرات في المايكروسوفت أكسس اتمنى تستفيدون من هذه الرابطة مع التوفيق للجميع رابطة عربي 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

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

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد) والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل: Private Sub cmd_WhatsApp_Click() Dim cmmd As String Dim cmmd1 As String Dim cmmd2 As String Dim cmmd3 As String Dim cmmd4 As String Dim cmmd5 As String Dim cmmd6 As String Dim cmmd7 As String 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'Send a message from MS Access through WhatsApp cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; " cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; " cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; " cmmd4 = "input text " & Me.To & "; sleep 1; " cmmd5 = "input tap 400 700" & "; sleep 2; " cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) Exit Sub 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & Me.To & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) End Sub جعفر Send_WhatsApp_messages.mdb.zip

تحية طيبة استاذ جعفر الكود يعمل مليون بالمية بعد تعديل السطرين التاليين السطر الاول من 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"

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

السلام عليكم ورحمة الله انسخ هذا الكود و الصقه فى موديول و خصص له زر كما يلى : من قائمة 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 ساعات جعفر

كيف مو مشكلة!! اذا استعملت: 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 والاكسس اظهر لك التقرير ، معناته لازم نشوف لنا صرفة مع الاكسس ، ومو يشتغل على كيفه ، وإلا يعني هوش بلا راعي جعفر

ياســـــــــــــــــــــــــــــــــــــــــــــــــــــلام عليك الله يفتــــــــــــــــــــــــــــــــــــــــــح عليك اكرمك الله وزادك من العلم اخي الفاضل / ابا جــــــــــــــــــــــــــــودي (محمد عصام ) الشــــــــــــــــــــــــــكر موصول لاخي العزيز / محمد ايمن لا انسي تعبه معي اخيرا هذا هو المطلوب الله يرحمك والديك في الدنيا والآخرة شوف بقي استاذ / محمد عصام المرفق الاول Archive v10.ra يعمل 100% اما الثاني يسحب صورة واحدة فقط طب لماذا افتح كل هذه المجلدات حتي اجد العشر صور هل يمكن جعله مجلد واحد بداخله مجلدات باسماء الرقم الصادر يعني هل يمكن تقليل عدد فتح المجلدات اخر شئ استاذنا : هو أن انا لا احتاج في نموذج الصادر كل هذه الاشياء انا اريد فقط رقم الصادر وزر سحب الاسكنر اريد ان احذف الاستعلامات والجداول والوحدات النمطية التي لا احتاج اليها فكيف ذلك عموما جزاك الله خيرا وبارك الله فيك

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

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

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

File > Options > Trust Center > Trust Center Settings > Privacy Options > Remove personal information from file properties on save > OK.

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

استأذن من السيد @co2002co اولا في النموذج بها كومبوبوكس وليس ليست بوكس للعلم اتفضل بطريقة هذه الاستعلام .. استعلام التوحيد SELECT T1.حقل1 FROM T1 GROUP BY T1.حقل1 ORDER BY T1.حقل1 union SELECT T2.حقل1 FROM T2; واليك ملفك بعد تعديل ListBox.rar

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

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

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

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

Docmd.save Docmd.refresh جرب

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

ربما يفيدك هذا التعديل في التنسيق والمعادلة تاريخ اخلاء2.rar

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

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

مجرد خطأ فى المسميات بين Reqid و Request ID واتفضل قاعدتك بعد التعديل referral.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

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

من خلال متابعة الموضوع توصلت إلى أنه يمكن عمل استدعاء لأكثر من 20 مندوب والطريقة : أن نجعل ملفات التكس لكل مندوب مرقمة بأرقام تسلسلية بدلا من ahmad.txt or ali.txt ستكون الملفات هكذا 1.txt و 2.txt و 3.txt وهكذا إلى آخر عدد من المندوبين ثم من ملف ابراهيم استطيع عمل حلقة تكرارية تبدا من 1 إلى آخر ملف ويتم بضغطة واحدة إحضار جميع الملفات هذه هي الفكرة

نعيد برمجة ملف ابراهيم بطريقة أبوالبراء ابراهيم.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

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