ياسر العربى

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

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

تكرم حبيبي ربنا يجازيك كل خير ولك بمثل ما دعوت به كنت عايز ابارك لك على المشاركة رقم 8888 ولكن يشاء القدر ان مشاركتك 8889 تكون لي وبوظت ليك الرقم ههه تقبل تحياتي

تفضل اخي ابو البراء وجدت لك كود اخر اجمل ويعتمد علي استخدام ال IDs جرب وشوف قوائم بطريقة افضل add menu yasser.rar

انا عن نفسي لو Id هيختصر جزئية من الكود ماشي افضله اما اذا كان مجرد تبديل المسمى بالID فالمسميات اكيد هتبقى اسهل في التعامل خصوصا ان الاكواد مش حفظينها اما المسميات فمعروفة للجميع ولا انت شايف ايه؟؟؟؟

اخي الغالي توكل المرفق السابق للكومند بار الخاصة بمحرر الاكود اما قوائم برنامج الاكسيل نفسة 2003 هنا https://support.microsoft.com/en-us/kb/213552 اما اذا كنت حابب تحط اضافة لقوائم 2007 فما فوق للقوائم القديمة فاليك هذا المرفق اما اخي الغالي ابو البراء معرفتي من معرفتك بردو كل اللي اعرفه انه اختصار مثلا بدل ما تكتب مثلا File تكتب 30002 وهكذا ولكن هذا في اوفيس 2003 فما اقل منه يعني مثال Application.CommandBars("Worksheet Menu Bar").Controls("File").Enabled = False ويتم استبداله بالسطر دا Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30002).Enabled = False اما تطبيق هذه الاكواد على 2007 فيما فوق مجربتش الصراحه تقبلو تحياتي add menu.rar

تفضل اخي Command barsID.rar

ياريت توضيح اكتر لتجد مساعدة ؟؟ ارفق الملف وبه المطلوب والنتائج المطلوبة ومتى تكون النتيجة True ومتى تكون النتيجة False وما يترتب بعد ذلك عليها وشكرا

تفضل لعله المطلوب yes or no.rar

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

تفضل اذا عرض الملف عند الفتح ف وضع القراءة فقط يتم اغلاقه يعني مفيش معاينه على النت لازم يحمله ويفتحه تمام كدا؟ test.rar

ياريت توضيح اكتر اخي الغالي وكيف يكون ReadOnly بعد ارساله؟؟؟؟؟

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

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

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

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

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

تفضلو الملف نفسه للاخت الفاضلة ساجدة وبه طريقتين لتجنب صغر حجم القائمة المنسدلة اما بعمل زوم للشيت عند تحديد القائمة المنسدلة او الاستغناء عن القائمة بالكومبوبوكس وعمل لينك بين الخلية التي تحتوي علي قائمة وبين الكومبوبوكس والفكرة بسيطة وياريت كل واحد يعملها بطريقته ونبدأ نطبق بنفسنا لانه التطبيق يثبت المعلومة اكثر وتستطيع اضافة بعض اللمسات الخاصة بك مما يجعلك قادر على التطوير والابتكار ============================= ولا بأس اخي ابو يوسف بالتذكير فقط والله المستعان تقبلو تحياتي size list drp.rar

صباح الفل ياريس الغيبة طالت فينك انت اللي ليك وحشة وحشة يعني الكود دا يطبع اللي انت هتحدده من الشيتات بنفسك يعني لو حددت شيتين هيطبعهم تلاته هطبعهم وهكذا دا في المعاينة اما الطباعة هيطبع الشيت النشط فقط لانك حددت الاكتف شيت بس اما التعديلات فتفضل Sub yasser() Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _ PrintOut Copies:=1, Preview:=True A = MsgBox("هل تريد الطباعة", vbYesNo + vbQuestion, "طباعة مجموعة اوراق") If A = vbYes Then With Sheets(Array("ورقة2", "ورقة6", "ورقة11", "ورقة12", "ورقة14", "ورقة15", "ورقة16")). _ PrintOut End With End If Range("A1").Activate End Sub

تفضل جرب انسخ والصق في اي مكان اخر التعديل بسيط جدا تحديد ونسخ فقط بضغطة زر.rar

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

اخي الغالي هناك اداة بالويندوز تجعلك تتحكم في الويندوز عموما عن طريق المايك فلتراجع بعض هذه الشروحات للاداة Speech Recognition وهذه بعض الراوبط من اليوتيوب لعلها تنفعك https://www.youtube.com/watch?v=Qxf7jZOBpUM وهذه للتعامل مع الاكسيل تفضل https://www.youtube.com/watch?v=oTTWztPVMug https://www.youtube.com/watch?v=OmgxAOACXRk وهذه صفحة بها اكثر من طريقة مع الاكسيل https://www.youtube.com/results?search_query=Speech+Recognition+and+excel

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

تفضل مثال New folder.rar