omar elhosseini

عفوا قم بتعديل هذا السطر Wb_Name = "Test" الي Wb_Name = ActiveSheet.Name

رمضان كريم شاهد المرفق Show _And_Copy_Sh.xls

هل المظلوب غير واضح لأعيد صياغتة

نرجو المساعدة

نرجو المساعدة

السلام عليكم ورحمة الله وبركاتة من خلال كود VBA Excel عمل الاتى لملف ورد مفتوح 1 – عمل برواز لصفحة واحدة 2 – ان يكون الجدول من اول سطر في الصفحة 3 – توسيط الجدول افقيا بالنسبة الي الصفحة ولكم الشكر مقدما Crear_Word_From_Exce.xlsb Test.docx

السلام عليكم ورحمة الله وبركاته 1 – عمل برواز لصفحة واحدة 2 – ان يكون الجدول من اول سطر في الصفحة 3 – توسيط الجدول افقيا بالنسبة الي الصفحة 4 – الأرقام بالعربية بدلا من الانجليزبة ولكم الشكر مقدما Crear_Word_From_Exce.xlsb Test.docx

شكرا لك اخي جزاك الله كل خير

لا تأسف اخي هو فعلا يعمل جيدا علي نظام 64 bit ههل قمت بتفعيل تشغيل الماكرو شاهد الفيديو وهو يعمل علي نظام 64 bitVideo_1.rar Video_1.rar

الاخ ابو طيبه شكرا لك عزيزي الاخ saad abed اضرب لي مثال حتي تتضح لي الرؤية

الأخ mohamedamrawy تفضل اخي عمل لوحة اوامر بالضغط علي الزر الأيمن الماوس وايضا عمل لوحة اوامر بالضغط علي الزر الأيسر من الماوس !_Right&Left_Mouse_Click_On_UserForm.xls

اخي انا كده مش فاهم المطلوب ايه ارجو مزيد من التوضيح وماذا تقصد ب

المرفق الأخير في الخلايا C1-D1-E1-F1-G1 حدد في اي شيت واي عمود توجد هذه البيانات المناظرة للعمود

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

تفضل اخي شاهد المرفق مع تحياتي Test_1.xls

بعد أذن الأخ Ali Mohamed Ali الأخ Saadrafic شاهد المرفق هو يعمل جيدا مع ويندوز 64 والمفروض انه يعمل مع ويندوز 32 لقد قمت بتجربة الكود علي windows 32 bit وهو يعمل جيدا ايضا اذن الكود المرفق سابقا يعمل علي كل من نسختي ال windows سواء كانت 32 bit أو 64 bit Show_Keyboard.xlsm

وضح ماذا تقصد

تحت امرك اخي في اي تعديل بالتوفيق دائما

اخي ليتم ذلك عليك ان 1- عليك وضع جميع اسماء الاصناف بالكامل في الملف لمعرفة النمط الذي تعمل عليه 2- وضع الاختصارت التي تقول انك تعلم كيف تقوم بانشاء اختصارت لها كنموذج حتي نعرف ما تتوقعه من نتائج وحتي نري ايهما افضل سواء ما تتبع من اسلوب او استنباط اسلوب اخر تحياتي

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

نعم اخي تفضل شاهد المرفقات Test_1.xls

اخي العزيز احذف هذين الكودين ثم ضع الأكود التي في المثال التالي المرفقات Test_1.xls

المعادلات الموجوده في الشيت من اين تأخذ قيمها هذا هو مصدر البيانات

ما هي الشواهد لو مثال يكون افضل

بعد فحص الاكود وجدت هذا الكود فإذا كان ما تقصده هذا الكود ضعه في فورم مستقل فقط الكود وجربة ستجد انه لا يفعل شئ واذا كنت تقصد كود اخر فضع الكود هنا Private Declare Function GetSystemMenu Lib "USER32" _ (ByVal hWnd As Long, _ ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib "USER32" _ (ByVal hme2nu As Long, _ ByVal nPosition As Long, _ ByVal wFlags As Long) As Long Private Declare Function FindWindowA Lib "USER32" _ (ByVal lpClassName2 As String, _ ByVal lpWindowName2 As String) As Long Private Const MF_BYPOSITION As Long = &H400 Public Sub FormatUserForm(UserFormCaption As String) Dim lFrmHdl As Long Dim iCount As Integer lFrmHdl = FindWindowA(vbNullString, UserFormCaption) If lFrmHdl <> 0 Then For iCount = 0 To 1 RemoveMenu GetSystemMenu(lFrmHdl, False), 0, MF_BYPOSITION Next iCount End If End Sub