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

جرب هذا الملف هناك خياران الصفحة Targ والصفحة second_sh لا ادري ايهما تريد Copy_Many_times.xlsm

السلام عليكم تواجه كثيراً من مستخدمي إكسل مشكلة تشفير الكتابة العربية في الملفات وخاصة تلك المصدرة من الأجهزة والبرامج الأخرى كجهاز البصمة أو الملفات المحملة من الإنترنت أقدم لكم هذا الكود الذي كتبته بعد بحث في موضوع اليونيكود خاصة أني سابقاً قد عانيت من المشكلة و الحلول البديلة تسمح بمعرفة المحتوى دون القدرة على تحويل الملف بالكامل. ملاحظة : يفضل نسخ الملف المشفر قبل إجراء التحويل عليه. a Code shows invalid/ decrypted characters in Excel properly والحمد لله الذي بنعمته تتم الصالحات و صلى الله على سيدنا محمد وعلى آله وصحبه أجمعين وسلم تسليماً كثيراً. عند فتح الملف هنا زر بالنقر عليه تفتح نافذة لاختيار الملف المطلوب ثم مربع حوار لكتابة اسم الورقة ثم مربع حوار اختيار المجال المراد تغييره عن طريق التحديد. الفانكشن في البداية يمكن استدعاؤها كدالة من دوال إكسل ضمن ورقة البيانات يكفي لذلك = InStead(YourText or Cell Address) Public Function InStead(T1 As String) ' Created by Khalf Officena Forums 20/02/2020 ' www.officena.net ' Hamdi Edlbi ' This Code for Showing Arabic Characters Properly In Excel Dim w As Integer w = Len(T1) For X = 1 To w T2 = Mid(T1, X, 1) T3 = AscW(T2) T4 = Chr(T3) T5 = T5 & T4 Next X InStead = T5 End Function Sub InSteadAll() ' This Sub For Call the Function In The Current Sheet On Error Resume Next Dim C As Range For Each C In Selection C.Value = InStead(C.Value) Next End Sub Sub ChooseRange() 'Choose the Range Dim rng As Range Set rng = Application.InputBox("Select The Range", "Decryption Characters", , , , , , 8) Application.Goto rng ' Call The Sub InSteadAll Call InSteadAll End Sub Sub OpenWorkbook() 'Apply The Code to Another Workbook On Error Resume Next Dim strFile As String Dim X As String strFile = Application.GetOpenFilename() Workbooks.Open (strFile) ' These Followed Couple of Lines are Optional In Case You Need to Get Specific Sheet X = Application.InputBox("Select The Sheet", "Decryption Characters", , , , , , 2) Sheets(X).Activate Call ChooseRange End Sub Decryption_Invalid_Characters.xls

السلام عليكم للاخوة المبتدئين طريقة اخراج او طباعة تقرير بنظام (بي دي اف ) Pdf

عندي ملاحظة لا ادري هذا القائم على هذا الموقع يقوم بحدف بعض التعليقات يبدو انه لايميز متى ما اراد يقوم بحدف التعليقات رغم اني تعليقاتي لايوجد بها تجاوزات ويا ريت يشرحلنا ليش عم بيحدف تعليقاتي وليست المرة الاولى

برنامج رسم قطاعات الترع مع حساب الحفر تم عمل هذا البرنامج لكي يكون الاسهل في الاستخدام فتم استخدام برنامج الإكسيل لحفظ وإدخال البيانات وبرنامج الأوتوكاد لرسم القطاعات العرضية للترع ولتشغيل البرنامج يتم فنح ملف اكسيل ولتَعَرُّف على طريقة البرنامج تفتح ملف الإكسيل فتجد نموذج لبيانات قطاعين ترعة فيمكن أن تتعرف على طريقة إدخال البيانات بسهولة ولبدء رسم قطاعات ترع جديدة نفتح ملف الإكسيل ويتم إدخال بيانات مناسيب القطاعات والقطاع التصميمي ثم نَفْتح ملف أوتوكاد جديد ثم نتحول إلى الإكسيل ونضغط على زر "مربع حوار رسم" الموجود في ورقة العمل "قطاعات" في الصف الأول فنجد أنه تم اقتراح بعض الإعدادات التي يمكن تغييرها مثل صف بداية بيانات القطاعات وصف النهاية وبداية أول قطاع والمسافة بين القطاعات واسم طبقات كل عنصر من عناصر الرسم بعد تغيير هذه البيانات نضغط زر "رسم القطاعات" ثم نتحول إلى الأوتوكاد فنجد أنه تم رسم جميع القطاعات رسم قطاعات الترع.rar

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

العفو اخي الحمد لله انه المطلوب

تفضل اخي حتى تعلم كيف تم عملها ادخل على اليوزر فورم واشر على التيكست بوكس الذي تريده ومن قائمة خصائص ابحث عن كلمة lock تجدها false خليها true انظر الى الصورة المرفقة نسخة تجريبية.xlsm

بعد اذن الاستاذ نبيل عبد الهادي واثراء للموضوع جرب المرفق اخفاء اوراق العمل بناء على معلومة في خلية.xlsm

بارك الله فيك مزيدا من العلم والعطاء

جرب هذا الكود اخي ابو الخضر Sub print_sheet() Range("A4:w47").Select ActiveSheet.PageSetup.PrintArea = "A4:w47" ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True End Sub

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

السلام عليكم ورحمة الله وبركاته أخى فى الله الاستاذ / خلف أحسنت واحسن الله اليك وبارك الله فى عمرك وحفظك من كل سؤ وجزيت خيراً وجعلك الله عوناً لكل من يريد المساعدة فى منتدانا العظيم اوفيسنا *** تمت الإجابة ****

تفضل تم وضع كود الأستاذ ابراهيم بملفك وربطه بالزر 111.xlsm

السلام عليكم لقد أضفت نموذجاً للإدخال فيه سائر الخصائص مع إمكانية الإدخال و التعديل بانتظار أي استفسار. HamdiE33مثال.accdb

بالخدمة اخي العزيز جرب هذا الملف وهو مبني على قاعدة بياناتك مع تغيير اسماء الجداول الى اللغة الانجليزية وحذف بعض السجلات من الجداول لعدم الحاجة لها مع بقاء المضمون حسب فهي لقاعدة البيانات ارجو موافاتي بالنتيجة Root111.rar

وعليكم السلام ورحمة الله وبركاته من الاستعلام استخدم B : Text1 & "" & Text2 & "" & Text3 & "" & Text4 & "" & Text5 & "" & Text6 عن طريق الكود ضع هذا الكود في وحدة نمطية Public Function All_Text(ID As Long) As String On Error GoTo err_All_Text Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl1 Where ID=" & ID) All_Text = rst!Text1 & "" & rst!Text2 & "" & rst!Text3 & "" & rst!Text4 & "" & rst!Text5 & "" & rst!Text6 Exit_All_Text: rst.Close: Set rst = Nothing Exit Function err_All_Text: If Err.Number = 3265 Then All_Text = "" Resume Exit_All_Text Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function ثم استدعي الكود في الاستعلام بالشكل التالي A: All_Text([id]) مرفق مثال ارجو ان يفيدك D55.zip تحياتي

السلام عليكم ورحمة الله استخدم هذا الكود Sub UnhideSheets() Dim Sh As Worksheet For Each Sh In Worksheets Sh.Visible = xlSheetVisible Next End Sub

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

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

المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device

كما تفضل الاخ احمد يوسف جزاه الله خيرا ماهو المطلوب عمله حتى يقوم الاساتذة بعمله ؟ مع ذلك انا لاحظت بعض المشاكل وحلها ولعله هو المطلوب . والا ابدا بشرح المشكلة وماهو المطلوب لكم تحياتي كتاب++.xlsm

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

برنامج بيع بالاكسيل vba مجاني اسم المستخدم :مدير الرقم السري:5555 برنامج الافق __.rar

أخي الكريم جرب هذا الكود فهو أكثر ديناميكية، لان حل الموضوع في الملف السابق تظهر بعض الأخطاء أتمني أن يفيدك هذا العمل مرفق الملف cascadingcombosinexcel_ii.rar

السلام عليكم أخي الكريم ابحث أولا بالمنتدي ستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية وستجد هنا http://www.officena....فرعية كلها مواضيع تناولت هذه النقطة والكثير الكثير أيضا من المواضيع التي تناولتها فقط إبحث