حامل المسك

السلام عليكم ورحمة الله ومساؤكم سعيد أساتذتنا الكرام إذا تم عمل ماكرو لإدراج صورة معينة ووضعها خلفية في الصفحة وتحديد مقاسات الصورة بـ 29.7 طولا وعرضا 21 سم وتوسيطها بالأفق والطول.. لا تعمل مع الماكرو سوى يقوم بإدراج الصورة فقط ولا يعمل على تنسيق أبعادها وتوسيطها.. فهل من حل سلمكم الله،،؟

سلمت..كتب الله أجرك ورضي عنك..

السادة الكرام.. سلام علكيم ورحمة من الله ورضوان،، وبارك الله لكم فيما رزقكم وأعانكم،، لدي ملف وورد به عدد كبير من الأرقام المقلوبة التي تحمل الصيغة التالية ####/ ##/ ## أريد تعديلها جمعيا إلى النحو التالي ##/ ##/ #### فهل هناك طريقة لعملية البحث والاستبدال.. مع جزيل الشكر وعظيم الامتنان،،

أستاذنا القدير @kanory أستاذنا القدير @شايب كلمات الشكر لا تفيكم حقكم... فالحقيقة أن هذا المثال فتح لي آفاق كثيرة وكبيرة.. مع عدم اعتقادي بدءا بالإمكانية.. ولكن ذلك فضل الله علينا وعليكم في هذه العشر المباركات.. بارك الله لكم في أهلكم ومالكم وولدكم ورضي عنكم ورحم والديكم،، تمت الإجابة ولله الحمد والمنة..

الله الله إبداع إبداع.. لا حرمكم الله الأجر.. وأسعدك ورضي عنكم،، نحتاج تعديل أخير حتى لا تتكرر الفواصل في حال كانت الخلية فارغة.. حيث بالضغط في كل مرة يضع الفواصل فنجتاج لتعديل بحيث يتم نقل المعلومات في الخلية التي بها معلومات فقط.. Dim currentText As Variant Dim newText As String newText = infoa.Value & ", " & anfo2.Value & ", " & info3.Value currentText = allinfo.Value If currentText <> "" Then allinfo.Value = currentText & ", " & newText Else allinfo.Value = newText End If infoa.Value = "" anfo2.Value = "" info3.Value = ""

سلمت .. أعطاني هذه الرسالة

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

أستاذنا القدير @Foksh أستاذنا القدير @Barna أستاذنا القدير @ابوخليل عجزت الكلمات.. تلعثم اللسان.. توقف الكلام.. تراجع البنان.. واحتار الفكر في جمال العطاء .. بأفكاركم الرائعة .. والسبق النبيل.. الحقيقة أنا اليوم السعيد بكم.. وبمعرفتكم وعطائكم،، فإني أقف خجلا من كرمكم العامر.. ولكن خير الجزاء صدق الدعاء والسعي لنشر هذه الأفكار لتكون محط زاد مستمر لأصحاب الفضل من أمثالكم.. شكر الله لكم ورحم والديكم وبلغكم شهر الخيرات وأنتم في أحسن حال وأفضل صحة وخير وعافية..

تعتذر وانت صاحب الفضل.. هذا من طيب المنبع وحسن التربية وجمال الأخلاق فرحم الله رحما حملك وأبا رباك.. والعلم رحم بين أهله.. والحمد لله الفائدة حاصلة بدءا بجهودك الرائعة وبمشاركة أستاذنا @Barna وإنما التكامل هنا للإثراء بجمال المعلومات واختيار أفضل الطرق.. لتكون لنا ولمن بحث وكتب ومر على هذا المنتدى الرائع.. وهذا الأثر الذي يبقى نفعه ويعم خيره.. شكرا لك @Foksh شكرًا لك @Barna قدمتم فأجدتم وأحسنتم نفعا وتكاملا..

ممتاز نتيجة جيدة .. هل يمكن أن يكون كل عام في صف؟..

نفس النتيجة السابقة

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

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

سلمتم أيها الكرام.. كتب الله أجركم ورضي عنكم.. تمت الإجابة بتكامل بناء من أساتذتنا الكرام.. لكم صادق الدعوات كتب الله أجركم ورضي عنكم وأرضاكم،،

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