شوقي ربيع

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

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

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

الملف كيف اتخلص من كلمه ( !VALUE# ).rar

السلام عليكم استعمل دالة IFERROR مثال ان كانت النتيجة خاطاءة يعطي فراغ كما يمكنك اختيار اي شيء لضهر مكان علامة الخطاء =IFERROR( B8*D8/100;"")

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

السلام عليكم بعد اذن الاستاد العزيز أبو حنين وللافادة هذا كود يبحث عن اسم او رقم او اي شىء في ورقة العمل وفي اي عمود كان حيث انه أولا يتم اختيار عمود البحث بواسطة InputBox ثم يأخذك الى الخلية التي فيها ماتبحث عنه يمكن استعمال هذا الكود بعد التعديل عليه في مهام اخرى كالتعديل او ماشابه Sub Test() Dim sh As Worksheet Dim Lr As Long Dim i As Integer Dim Name As String, Clon As String Set sh = ThisWorkbook.Sheets("Sheet1") 1 Clon = InputBox(prompt:="اختيار عمود البحث.", _ Title:="اختيار عمود", Default:="اكتب اسم العمود الذي تريد البح فيه هنا") If Clon Like "[A-z]" Then Lr = sh.Cells(sh.Rows.Count, Clon).End(xlUp).Row GoTo 2 Else MsgBox " A-Z يجب ان تكون الحروف " GoTo 1 End If 2 Name = InputBox(prompt:="ادخل الاسم او الرقم ", _ Title:=" بحث حسب العمود المختار", Default:="اكتب الاسم او الرقم الذي تبحث عنه هنا") For i = 1 To Lr If sh.Range(Clon & i) = Name Then sh.Range(Clon & i).Select Exit For ElseIf i = Lr Then MsgBox "الاسم الذي ادخلته غيرموجود" End If Next End Sub تحياتي للجميع بحث حسب العمود.rar

السلام عليكم هذا المرفق به الكود السابق من اجل حفظ الملف على شكل PDF في المسار المدرج في الكود مع اضافة كود ارسال الملف المحفوظ عبر البريد الالكتروني بواسطة Outlook فونكسيو استدعاء Outlook Function OutlMail_PDF(FileNamePDF As String, StrTo As String, StrSubject As String, StrBody As String, Send As Boolean) Dim OutApp As Object Dim OutMail As Object Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = StrTo .CC = "" .BCC = "" .Subject = StrSubject .Body = StrBody .Attachments.Add FileNamePDF If Send = True Then .Send Else .Display End If End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Function وهذا كود الحفظ والارسال معا Sub PDF_ALL() Dim MyName As String MyName = "D:\MR_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True OutlMail_PDF MyName, "***@example", "موضوع الرسالة", _ vbNewLine & "مع تحيات اخوكم في الله شوقي ربيع", False Else MsgBox "لم يتم الحفظ" End If End Sub ملاضة يمكنك ملئ محتوى الرسالة مباشرتا بتعديل عبارة (مع تحيات اخوكم شوقي ربيع) من محرر الاكواد ارجو ان يكون هذا هو مطلبك تحياتي للجميع SavePDF and Send by mail.rar

هذا ليكون اسم الملف بتاريخ الغد Sub PDF_ALL() MyName = "D:\MR_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("åá ÇäÊ ãÊÇßÏ ãä ÇÊãÇã Úãáíå ÇáÍÝÙ", 4, "ÊäÈíå") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "Êã ÇáÍÝÙ" Else MsgBox "áã íÊã ÇáÍÝÙ" End If End Sub

السلام عليكم اذا كنت تريد تفعيل المسطرة فكل ماعليك هو ترك فراغ بين الحرف الأول المطة مثال If ChrW(KeyAscii) Like "[!A -Z]" Then KeyAscii = 0 مثال اخر هذا الكود لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. If ChrW(KeyAscii) Like "[!A .-Z]" Then KeyAscii = 0 ارجو ان تكون قد وصلت الفكرة تحياتي

السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي Convert to PDF.rar Convert to PDF.rar

السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما اني جعلة مسارحفظ ملف PDF الذي سينشاء وتسميته ايضا اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي

السلام عليكم هذه ابسط وافضل اكواد ممكنة لفعل ذالك توضع في حدثKeyPress لتاكست بوكس 1 لجعل التكست بوكس لاتقبل الا الارقام If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 2 لجعل التاكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0 3 لجعل التاكستبوكس بوكس لاتقبل الا الحروف الانجليزية الكبيرة If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0 4 لجعل التكستبوكس تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0 5 لجعل التكست بوكس لا تقبل الا الحروف العربية If ChrW(KeyAscii) Like "[!أ-ي]" Then KeyAscii = 0 وهذا الملف مطبق عليه هته الاكواد ارجوا انيفيدك ويفيد جميع الاعضاء مثال توضيحي.rar

شاهد المرفق Desktop.rar

السلام عليكم الدالة صحيحة المشكل في تنسيق رقم الحساب حيث انو في ملف منسق على انه عددي اما الاخر على انه نصي كما انه يوجد في ملف book1 اسماء كود السلف الخاص بها غير موجود وهو سبب ضهور تلك العلامة لكي تتخلص من علامة N/A# عليك بدالة IFERROR حيث يصبح الكود كاتالي =IFERROR(VLOOKUP($A2;[Book1.xlsx]سلف!$C$7:$E$3700;3;VRAI);"") ارجو ان يكون الشرح قد وصلك وهذا الملف مطبق عليه المعادلات Desktop.rar

تفضل هذا الكود يضع علامت x عند تحديد الخلية ويفرغها اذا كانت العلامة موجودة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Selection Case "x": Selection.ClearContents Case "": Selection.FormulaR1C1 = "x" End Select End Sub

و من الافضل ان ترفق ملف وستجد الحل باذن الله

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

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

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

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

تجد الحل في هذا الموضوع للاخ محمدي عبد السميع http://www.officena.net/ib/?showtopic=41708

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

شكرا استادنا على التوضيح

شاهد هذا الرابط يشرح طريقت اصلاح ملف تالف http://office.microsoft.com/ar-sa/excel-help/HA001034656.aspx