halwim

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

السلام عليكم آمل أن تساعدك هذه الروابط : http://www.officena.net/ib/index.php?act=S...f=51&t=2407 http://www.officena.net/ib/index.php?act=S...f=14&t=3642 http://www.officena.net/ib/index.php?act=S...f=14&t=3767 http://www.officena.net/ib/index.php?act=S...f=14&t=1783 http://www.officena.net/ib/index.php?act=S...f=52&t=1972 تحياتي

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

بسم الله الرحمن الرحيم إخواني مشرفين وأعضاء السلام عليكم ورحمة الله وبركاته ،، لدي طلب أرجو أن أوفق في الحصول على الجواب ، في المرفق التالي قمت بجعل الجزء الأعلى ثابت ومجمد ووضعت فيه أسهم رباعية الإتجاه أريد برمجتها بكود أو بماكرو يجعل المستخدم أن يتصفح البيانات بيسر وسهولة ، ووضعت أرقام تسلسلية تقطع الشاشة عموديا و أفقيا من أجل التأكد من صحة عمل الأزرار ؛ إذا تمت برمجتها ؛ بحيث تصبح وظيفة الأزرار ( الأسهم ) كما يلي : عند الضغط مرة واحدة على سهم ( الأعلى ) انطلاقا من أي مكان من جسم الورقة يتم تحريكها بمقدار شاشة للأعلى ابتداء من مكان آخر مشاهدة قبل الضغط على السهم ، فمثلا لوكنت حاليا أشاهد بيانات الورقة ، ولكن حجم شاشتي لايستوعبها كاملا ، فقط تستوعب الشاشة من رقم 1 إلى رقم 23 عموديا ومن رقم 1 إلى رقم 15 أفقيا . فنريد بحيث لو ضغطنا على سهم ( أسفل ) يكون الصف 24 هو الصف الأول في الشاشة ، يعني نريد بضغطة زر ( من خلال أحد الأسهم ) يتم تصفح شاشة أخرى بحيث يتم عرض بيانات غير مقروأة سابقا ؛ بل يتم عرض البيانات التي في جنبها أو تحتها أوفوقها انطلاق من نقطة الوقوف الحالية . ربما ترشدوني لاستخدام :عرض / تكبير/ تصغير . لكن لا أريد ذلك تقبلوا تحياتي ________________.rar

السلام عليكم جميعا ورحمة الله الأستاذ / علي الأخ / harv الأخ / hageb الأخ / مزلزل شكرا لكم جميعا على إثراء الموضوع ، و المروو ، و المشاركة ... معلومات جديدة ومفيدة . أستاذنا أبا حسين ، مارأيكم لو تضيفون إلى الكود جميع أوامر القائمة ؟ كما في صورة الأخ harv بالمشاركة رقم 3 ؟ وتلك الأوامر هي : مجموع ، أدنى أقصى ، عدد الأرقام ، عدد ، معدل . كما أرجو توضيح الفرق بين "عدد" وعدد الأرقام " ؟ تحياتي

السلام عليكم ورحمة الله وبركاته ،، أرجو أن تتقبلوا هذه المساهمة المتواضعة وهي عبارة عن فائدة عملية ؛ لاستخراج مجموع عدة أرقام بمجرد تحديد الخلايا التي تحتوي الأرقام ، طبعا بدون دالة وبدون أي كود ؛ وهي خدمة ذاتية في الإكسل . شاهد المرفق تحياتي _________________.rar

السلام عليكم ورحمة الله أشكركم على الإبداع الكبير ، أستاذنا العزيز أباحسين دمت فخرا . الملف إلى حدما يفي بالطلب ، ولكن عليه بعض الملاحظات التالية : 1 - ربما لاحظتم عند مانريد كتابة سجل جديد نبدأ من أول خلية فارغة تحت آخر سجل غير فارغ ، وتلك الخلية كما في المرفق الأخير خلية إدخال إسم العميل (A20) وعندما ندخل الإسم ونضغط إنتر فإنه على الفور يتم التركيز على الخلية (A21) وينفتح سجل جديد ! ! هذا غير مطلوب ، المطلوب : بعد ضغط إنتر يتم التركيز على خلية إدخال المبلغ وهي (B20) ثم يتم التركيز على خلية إدخال التاريخ وهي (C20) وبعد إدخال التاريخ فيها وضغط إنتر حينئذن يتم الإنتقال إلى الخلية (A21) لفتح سجل جديد وهكذا.. 2- يفترض أننا إذا قمنا بإدخال إسم عميل جديد يتم إضافته إلى قائمة المجاميع بحيث تخرج نتيجة مجموع المبالغ في آخر صف من قائمة المجاميع ويكون هذا الصف أيضا متحرك للأسفل كلما تم إدخال إسم عميل جديد وهكذا . 3 - أنتم تعلمون أن العمود B مهيء لإدخال مبالغ بشكل مستمر وقد تصل السجلات إلى الصف الأخير ذو الرقم ( 65536 ) بينما صيغة المجموع في خلية (B21) حاليا مقتصرة على صف (20) بهذا الشكل (=SUM(B4:B20)) وعندما حاولت توسيع نطاق الجمع إلى صف (B400) مثلا ، تم رفض الصيغة وتخرج رسالة تفيد بأنه لايمكن لإكسل حساب صيغة تشير مراجع الخلية فيها إلى نتيجة الصيغة نفسها ، منشئة مرجعا دائريا ! إذن ما هو الحل ؟ . وعندما نقلت صيغة المجموع برمتها الى الخلية (C21) المجاورة ، تم اجتياز مشكلة الحساب الدائري ولكن حينما حاولت مسح كلمة " المجموع " من خلية (A20) لكي أضعها في (B21) بجوار خلية المجموع ، تخرج رسالة خطأ من محرر الفيجوال بيسك إما debug أو nd أرجو عمل اللازم لتجاوز هذه المشاكل . * *** ***** 4 - أخيرا أرجو تنفيذ الطلب ذو الرقم واحد من المرفق بخصوص تجميد العمود و الصف معا . تحياتي

شكرا أستاذي العزيز ،، فعلا جهازي غير متصل بطابعة . تحياتي .

ألف شكر ياأستاذ على التعليقات الواضحة .

بخصوص بياني السابق حول الماكرو : أرجو التعليق ،، ملاحظة / عند الظغط على أحد أزرار الطباعة من المرفق تخرج رسالة تطلب حفظ الملف بإسم وحفظه كنوع mdi وعند الموافقة يتم فتح برنامج غير الإكسل وهو برنامج Microsoft Office document imaging لماذا يحدث هذا ؟ وهل سنظطر في كل مرة للطباعة عن طريق برنامج وسيط غير إكسل ؟ تحياتي

السلام عليكم ورحمة الله شكرا على تكلفك عناء الرد والتعليق . معك حق ،، ولكن في هذه الصورة ألايمكن الإستفادة من الكود الموجود في المشاركة رقم 12 الذي في المرفق ؟؟ وهذا رابط الموضوع : http://www.officena.net/ib/index.php?act=S...=14&t=12754 أريد وضع الكود هنا لكي يتم زيادة المبلغ المدفوع في عمود B بدون مسح مايحتويه من مبالغ سابقة ، ولكن للأسف لم أفلح في الجمع بين عدة أكواد ،، أتمنى أن يوضع هذا الكود في المرفق الأخير الذي يحمل المشاركة رقم 22 من هذا الموضوع وشكراااا. تحياتي

الأستاذ تامر تحياتي لك كل مانعرفه عن البروسيسور قطعة جهاز تعالج المعلومات وليس لغة من لغات البرمجة ! إذن فما المقصود من ذلك ؟

السلام عليكم ورحمة الله ،، أكثر من رائع وفي نفس الوقت جاء حسب الطلب ألف ألف شكر لسيادتك . ولكن أولا : من أي ناحية أنت غير مقتنع ؟ هل يوجد عيبما ؟ ثانيا أتمنى شرح الكود التالي الذي في الصفحة 1 من المحرر ولو بشكل سريع : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count = 1 Then If Not Intersect(Target, Range("B3:B30")) Is Nothing Then If IsDate(Range(Target.Address).Offset(0, 1)) Then Range(Target.Address).Offset(0, 3) = Date & " " & Time Cells(32, 5) = Date & " " & Time Else Range(Target.Address).Offset(0, 1) = Date & " " & Time Cells(32, 3) = Date & " " & Time End If End If End If End Sub ثالثا يبدولي أن الكود الموجود في الموديل1 هو نفس الكود السابق وهو : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B3:B30")) Is Nothing Then Sheets("ورقة1").Range(Target.Address).Offset(0, 1) = Date & " " & Time Sheets("ورقة1").Cells(32, 3) = Date & " " & Time End If End Sub فهل وضعتموه عن طريق النسيان ؟ أم أن له وظيفة أخرى ؟ ولماذا لم يكتفى بالكود أعلاه ؟ رابعا أتمنى وكلي أمل رجاء رجاء أرجو إعادة إرفاق الملف الموجود في المشاركة رقم 18 من هذا الموضوع - ولكن يتم إرفاقه بعد إضافة التعديل الأخير ، وتصحيحه من مشكلة التعدي على بيانات العواميد المجاوره عند ضغط زر المسح del . تحياتي

بسم الله الرحمن الرحيم أستاذنا الفاضل " تامر " أسعدت صباحا ومساء . * ما المقصود من ( الاسمبلي ) بالتحديد ؟ هل هي لغة برمجة أم برنامج كسر حمايات ؟ أم ... * سبق أن رأيت تعليق للأستاذ فلسطيني عن نفس البرنامج يقول بأنه غير كامل ولكن بعد أن تحققت لم أرى مكان لوضع السيريا نمبر ولا يوجد تحذير بإيقاف البرنامج لمدة معينة . وإذا كان بالفعل البرنامج ( ديمو ) أرجو إرفاق الكراك أو طريقة جعله دائم وشكرا . تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله ،، أستاذي الكبير ،، أبا حسين تحياتي لك طرأ على ذهني فكرة أود الإستفسار بخصوصها ، لاحظت أن الصفوف التي يتم تلوينها عن طريق الكود هي إلى حدما تشبه التلوين اليدوي من خلال تنسيق خلايا ثم نقش (لون الخلفية) بودي أن أعرف حقيقة عمل الكود هل هو يقوم بنفس الفكرة من خلال ضغط زر الماوس الأيمن ثم اختيار "تنسيق خلايا" ، ثم اختيار التبويب " نقش " بحيث يتم ذلك نيابة عن المستخدم بالكود ؟ ثم مالفرق بين تلوين الكود وبين التلوين اليدوي من " تنسيق خلايا " ؟ وزبدة المقال : وجدت طريقة تقوم بالتلوين وبوظائف ربما تكون أكثر شمولية من الكود ومن "تنسيق خلايا " هذه الطريقة يمكن تطبيقها من خلال تحدي الصفوف المراد تلوينها ، ثم من قائمة " تحرير " اختر "بحث" أوضغط ctrl+f ثم اختر تبويب " استبدال " ثم اختر الزر " تنسيق " أو إضغط على السهم الصغير الموجود في حافة هذا الزر وسترى خيارين " تنسيق " و " اختيار التنسيق من الخلية " وهناك خيارات يمكن تطبيقها على أي جزء من المستند في لحظات دون تعب وعناء . بقي أن اسأل هل الكود مصمم على الإستفادة من هذه الطريقة ؟ بحيث يبحث عن أي تنسيق تلقائي ويستبدله بتنسيق ملون ؟ تحياتي

شكرا

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته لدي سؤالين أرجو التصويب : 1 - عندما أريد طباعة نطاق محدد من خلال زر وليكن هذا النطاق A1:D15 أقوم بمايلي : * أقوم بإدراج شريط نماذج من خلال وضع علامة صح على كلمة "نماذج" من أشرطة الأدوات * أقوم بضغط زر تسجيل ثم موافق من الرسالة التي تخرج بعد عمل الزر أو أشغل أداة التسجيل من قائمة أدوات ثم ماكرو ثم تسجيل ماكرو جديد . * أقوم بتحديد المدى A1:D15 من خلال الماوس * أضغط على زر طباعة كأني أريد أن أطبع * أقوم بعملية إيقاف تسجيل الماكرو من خلال ضغط أيقونة التوقيف من المربع الصغير أو من قائمة أدوات ثم ماكرو ثم إيقاف التسجيل . بهذا تم عمل زر لطباعة المدى A1:D15 وهو جاهز للعمل بمجرد الظغط عليه تتم الطباعة . وهذه الطريقة صالحة لتوظيف الزر بأي عملية أخرى غير الطباعة ، على ضوء رصد أمر تسجيل الماكرو لكل التحركات . * سؤالي هل هذه الطريقة صحيحة وآمنة كما نشاهد في بعض أزارير البرامج المصممة ؟ أم توجد طرق أخرى أكثر دقة من خلال الأكواد أوغيرذلك من مختلف الطرق ؟ 2 - أتمنى عمل نفس الطريقة كما في الرابط التالي بحيث تتم الطباعة بدون الإنتقال إلى مكان النطاق المراد طبعه - من خلال زر وليس بالكود . http://www.officena.net/ib/index.php?showtopic=7462 تحياتي للجميع

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته إن شاء الله تكون الفكرة واضحة من العنوان ، وهي بخصوص طلب معرفة كيف يتم الزحف بصف مجموع النتيجة كلما استجد سجل جديد فوقه . يوجد مزيد من التفاصيل في المرفق التالي ، تحياتي _________________.rar

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

شكرا على سرعة الرد و التوضيح بودي توضيح على أي أساس يتم صرف لون معين بشكل عشوائي وتلقائي . ثم ماذا سيحصل لوبلغ عدد التكرارأكثر من 56 ؟ السلام عليكم

السلام عليكم ورحمة الله وبركاته ،،، دائما في الطليعة يا أستاذ علي ، ماشاء الله عليك ، إبداع × إبداع = إبداع ، زادك الله من كل إبداع . ياليت لو توضح أكثر عن آلية عمل الكود بشكل عام خصوصا خصوصية توفير لون لايشابه اللون المحجوز أو بمعنى آخر خصوصية تبادل الألوان حيث لاحظت أن ألوان المكرر القديمة تتحول إلى لون آخر حينما تستجد أرقام مكررة جديدة . ثم أنه لو كثرت الأرقام المكررة ؛ لنفترضها أصبحت ألفين رقم مكرر هل سيصرف لكل رقم متكرر لون مختص به ؟ أم أنه في نهاية المطاف تتشابه الألوان ويختلط الحابل بالنابل ؟ تحياتي واحتراماتي . والسلام

بسم الله الرحمن الرحيم السلام عليكم جميعا ورحمة الله وبركاته ،، يوجد ملاحظة أو خلل فني على الكود ويوجد طلب آخر ، أرجو التصحيح والتعديل على الطلب. في المرفق التالي . تحياتي _____________.rar

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

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