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

اعتذر عن التأخير الكود سيكون كالتالي DoCmd.OpenReport "rpt1", acViewPreview, , Me.Filter حيث أن rpt1 هو اسم التقرير مرفق مثال لتتضح لك الفكرة بالتوفيق للجميع filterName.rar

السلام عليكم أخى الفاضل استخدم هذه المعادلة =IFERROR(INDEX(J2:J9;MATCH(1;(E3=G2:G9)*(A6=H2:H9)*(B6=I2:I9);0));"")

رجاءا لا تشكرني على اي شي اريد بدل الشكر ان تدعوا لنا استخدمت هذا كود

السلام عليكم اضافه الى ما تفضل به اخي العزيز صالح يمكن وضع القيمه التاليه بباراميتر اسم الفلتر بامر فتح التقرير Me. Filter المعذره انا اكتب من الموبايل لظروف السفر و ارجو ان تكون الفكره واضحه بالتوفيق للجميع

وجدت لك مثالا بهذا الخصوص لضبط وتنسيق النص داخل التقرير باستخدام الكائن RTF Control من اعداد الاخت الكريمة زهرة تنسيق خلية في تقرير.rar

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

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

وأخيراً تمت مشاركة ملف الإكسيل في شبكة محلية مع الموظفين وتم تبادل البيانات معهم والتعديل عليها.. تابعونا لمعرفة الخطوات.

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

مشالله تبارك الله بس ياليت ابو خليل والا احد الاخوان يضيف كود لمنع تراكم النسخ الاحتياطيه ويكون فيه خيار عدد اخر ايام يتم ابقائها والباقي يحذفها ويتم ضبطها من الاعدادات

جربت الملف ويعمل بشكل جيد .. تأكد من أن الملف قد تم استخراجه من الملف المضغوط بشكل صحيح ثم حاول مرة أخرى .. اضغط Alt + F8 بعد فتح الملف ، واختر الماكرو الموجود ثم انقر Run

قم بالإطلاع على الملف في الرابط التالي لعله يفيدك إن شاء الله الرابط من هنا

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

وعليكم السلام Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim myDate As Date myDate = CDate(ComboBox1.Value) TextBox1.Value = Format(Day(myDate), "ddd") TextBox2.Value = MonthName(Month(myDate)) TextBox3.Value = Year(myDate) End Sub

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

كود ممتع ومميز يحفه الابداع من كل ناحية .. الابداع يصنعه المبدعون أمثالكم أبا البراء..

اذا تتذكر من قبل كان قلت لي اريد ان يبدأ بالرقم اللي انا اكتبه في تسلسل الاول ؟ هل تتذكر لذا اي رقم تكتبه في الاول راح يبدأ من ذاك الرقم واذا كتبت رقم صفر لتسلسل الاول راح يبدأ من صفر واذا كتبت رقم واحد في التسلسل الاول راح يبدأ من رقم 1 لكن العلاج بسيطة اذا تريد ان يبدأ من رقم التالي اي اذا تكتب رقم صفر وتريد ان يبدأ من رقم 1 افتح محرر فيجوال اللي بها اكواد واحذف ناقص 1 H + A - 1

ما فهمت قصدك ممكن تنطي مثال حي اي يعني توضيح وين المشكلة

اتفضل اتمنى هذا بيكون اللي تريد db6.rar

تفضلوا ملف أخونا ابراهيم مع المندوبين الثلاثة، حاولو تنقلوا الملفات في المكان الذي فيه مجلد info (وليس داخله) والذي سبق أن تم تنزيله من قبل ، ومن ثم جربوا فتح ملفات المندوبين وأخيراً ملف أخونا ابراهيم وقومو باستدعاء الملفات الثلاثة إليه. وتقبلوا تحياتي. allfiles.rar

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

شكرا اخي kaser906 على المعلومة بارك الله فيك وزادك علما ونورا اوليس من الخطر وضع الجداول في القرص C كون هذا القرص مع للخطر اكثر من غيره من الاقراص

عملنا نموذج وشوف الشرح بالصور وبكود اسهل اولا حددنا حقل الصنف وبعدين رحنا الى مصدره شوف المصدر الحقل هو استعلام وفيه ثلاث حقول والارقام حقول يبدأ من رقم صفر شوف خصائص الحقل صنف كولوم كوانت يساوي 3 و كولوم وايدث يساوى حقل الاول يساوي 0 مساحة و الحقل الثاني يساوي 2 سم مساحة والحقل الثالث يساوي 0 مساحة لكي يظهر حقل الثاني فقط في حقل صنف حين تختار صنف من الاصناف وشوف كود بعد تحديث للصنف قلنا السعر يساوي حقل صنف و عمود 2 لكي يظهر السعر مع تقدير

احسنت يا أ. ياسر ربنا يبارك فيك

جزاكم الله خيرا وجعله الله فى ميزان حسناتكم

اوليس من الخطر وضع الجداول في القرص C كون هذا القرص مع للخطر اكثر من غيره من الاقراص

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

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

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

أخي أبا سلمان الملف يعمل وبشكل سليم أمس عملته في البيت وأنا أستخدم نسخة أوفس 2016 مرخصة من مايكروسوفت أيضا واليوم أنزلته من المنتدى في المكتب وهو يعمل ولامشكلة فيه لست أدرى أين المشكلة.

خطوط الدهبي والجزيره وخط GoldenLotus Stg1_Ver2 http://up.top4top.net/downloadf-333a1p6m1-rar.html

أخي مختار.. الظاهر إنك كسرت علي الباب وأنا قاعد أجهز الدرس.. المرة الجاية راح أشتغل بعيد عن الباب.. تحياتي القلبية

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

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

بالفعل أخى الحبيب تم على لايك

انظر المرفق يمكننا التحرير بواسطة الوورد InDoc.rar

وهذه وظيفة add-in تعمل باركود ولكنى لم اجربها وهذا شرح فيديو للوظيفة وهذا موقع التحميل http://www.tec-it.com/en/software/barcode-software/office/word-excel/Default.aspx بالتوفيق BarcodeFunctions.zip Excel Example.rar

Télécharger gratuitement Barcode Add in for Word and Excel على هذا الرابط من هنا هذا وانظر المشاركة هذه كذلك على هذا الرابط اما في ما يخص عمل النظام على الاكسل لقراءة الرموز فسيجيبك عليها المختصين في الاكسل مع مطالعة هذا الرابط او هذا الرباط والسلام عليكم ورحمة الله وبركاته