halwim

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

أستاذنا الفاضل ،، شكرا على المرور والتوضيح

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أضع بين يديكم شرح الكود الأخير من هذا الموضوع ، وهو الكود الذي يجعل التاريخ يخرج تلقائيا في مدى معين وذلك إذا تم تحرير خلايا مدى معين آخر ، سواء في نفس الصفحة أو في صفحة أخرى واقعا الكود استفدت منه كثير كثير وأود أن يستفيد منه باقي الأعضاء . وعلى بركة الله نبداء بالشرح ، وهذا هو الكود الذي سنشرح : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A30")) Is Nothing Then Sheets("ورقة2").Range(Target.Address).Offset(0, 3) = Date & " " & Time Sheets("ورقة2").Cells(31, 1).Offset(0, 3) = Date & " " & Time End If End Sub ملاحظة / بإمكانكم تغييرإسم الصفحة من ("ورقة2") إلى إسم أي صفحة من مستنداتكم أو باسم نفس الصفحة التي فيها الكود لكي تخرج التواريخ فيها . سنبداء بشرح الأسطر الهامة من الكود والتي تتسبب في تغيير المدى ، السطر الذي يخص مدى إدخال البيانات : If Not Intersect(Target, Range("A2:A30")) Is Nothing Then هذا المدى ("A2:A30")) يمثل المدى المطلوب معرفة تاريخ الإدخالات فيه من الصفحة التي يوجد فيها هذا الكود . السطر الذي يخص مدى خروج التواريخ في صفحة أخرى : Sheets("("ورقة2")").Range(Target.Address).Offset(0, 3) = Date & " " & Time ـ ("ورقة2") هي الصفحة التي تخرج فيها تواريخ المدى المذكور أعلاه وهي نفس الصفحة التي فيها هذا الكود . بالنسبة لـ (0, 3) فإن رقم الصفر (0) يشير إلى أول صف يتكون منه المدى المحدد أعلاه وهوهنا الصف رقم 2 كما هو واضح ، من صفحة ("ورقة2") ـ ملاحظة / ضبط الصفوف بشكل متوازي مع صفوف صفحة إدخال البيانات كما هو الحال هنا ، مهم جدا لمعرفة تاريخ كل إدخال من خلال معرفة رقم صفه . أما رقم ثلاثة 3 فهو يشير إلى العمود المطلوب أن تخرج فيه التواريخ - وللتسهيل يمكننا أن نقول هو تماما يناظر ثالث عمود بعد عمود مدى إدخال البيانات، في صفحة خروج التواريخ ؛ وهو هنا العمود D - من صفحة ("ورقة2") ـ السطر الذي يخص خروج تاريخ آخر إدخال من مدى البيانات : Sheets("("ورقة2")").Cells(31, 1).Offset(0, 3) = Date & " " & Time ("ورقة2") هي الصفحة المطلوب أن يخرج فيها تاريخ آخر إدخال في مدى إدخال البيانات . بالنسبة لـ (31, 1) ملاحظة / يفضل أن يبقى رقم 1 كما هو أما 31 فيعتمد على صف آخرخلية من مدى إدخال البيانات . و رقم 31 يشير إلى الصف 31 من نفس الصفحة ("ورقة2") ، وهو الصف الذي سيخرج فيه تاريخ آخر إدخال في مدى البيانات - وهو أول صف بعد صف آخر خلية يتكون منها مدى خروج التواريخ المناظر لمدى صفحة إدخال البيانات التي فيها الكود . ورقم واحد 1 يشير إلى أول عمود يتكون منه مدى خروج التواريخ في صفحة ("ورقة2") وهو هنا يشير إلى نفس العمود D المشار إليه سابقا برقم 3 - و لوغيرنا الرقم 1 إلى رقم 2 فإنه سوف يشير إلى عمود E لأنها أبجديا تقع بعد D وذلك لأن رقم 2 يأتي بعد رقم 1 رياضيا ،، وهكذا . بالنسبة لـ (0, 3) ملاحظة / يلزم أن يكون هذين الرقمين مطابقين تماما لنظيرهما السابق كما في السطرأعلاه. رقم الصفر(0) يشير إلى أول صف بعد آخرصف من مدى خروج التواريخ في صفحة ("ورقة2") وهو هنا الصف رقم 31 وهو الصف المراد أن يخرج فيه آخر تاريخ يقع في المدى A2:A30 . أما رقم 3 فهو يشير إلى العمود الذي يناظر ثالث عمود بعد (عمود مدى إدخال البيانات) وهو هنا العمود D الذي تخرج فيه تواريخ صفحة إدخال البيانات التي فيها الكود. ملاحظة / أرجو من الأستاذ تامر أو ممن لديه المعرفة، أن يوضحو لنا سبب تكرار (31, 1) و (0, 3) في السطر الأخير من الكود ، رغم أنهما يشيران إلى مدى واحد ؟ كما اتضح لنا من الشرح و التجربة . تم الشرح ولله الحمد ،، تحياتي halwim

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هل يمكن الإضافة على المرفق التالي : تحياتي ______________________.rar

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أحيانا ألا حظ ولعلكم أيضا تلاحظون ، خروج رسائل تحذيرية وأحيانا هذه الرسائل ترشد إلى تخفيض أمان الماكرو وذلك عند محاولة فتح ملفات إكسل سواء التي تحتوي على أكواد تعمل بشكل تلقائي ، أو بعض أنواع الماكرو العادي وكما تعلمون أن تخفيض أمان الماكرو يدويا متعب نوعما ، إضافة إلى جهل البعض بكيفية التعامل مع هكذا أمور .... لذلك فإن تجاهل الرسالة أو ترك الماكرو على أمان مرتفع يبطل خصوصية الكود بحيث يصبح الملف لايعمل بنتائج سليمة وحيث أن الملف ربما يستخدمه أكثر من شخص ، بل ربما يستخدم على أكثر من جهاز ، ولا نستطيع الجزم بأن جميع أجهزة الناس معدة على أمان منخفض ، لذلك أود الحصول على كود أو طريقة معينة نضمن من خلالها أن الأكواد سوف تعمل 100% أينما وقع الملف وعلى أي جهاز ، بحيث تصبح تعمل وبشكل تلقائي وذلك بمراعاة مايلي : أولا : إلغاء خروج الرسائل ثانيا : تخفيض أمان الماكرو من مرتفع إلى منخفض رابعا : المرجو إرفاق ملف بعد تجهيزه بالفكرة . * وقد لاحظت بعض الملفات مجهزة بالفعل بأكواد تؤدي أغراض مشابهة للغرض المطلوب ، فمثلا خصوصية ملئ الشاشة أساسا لاتتم إلى عن طريق إختيار الحجم يدويا من تكبير / تصغير ، ولكن وجدت أن بعض الملفات تفتح على ملئ الشاشة رأسا بفضل كود أو ماكرو ، لذلك أتمنى أن تلقى أمنيتي القبول . تحياتي

بسم الله الرحمن الرحيم أستاذنا الفاضل شكرا على المرور و يوجد لي موضوع على الرابط التالي : http://www.officena.net/ib/index.php?showtopic=14024 أرجو التفضل بالجواب أو التعليق على سؤال رقم 3 السؤال موجود بالمرفقات هناك ، ولو تكرمت بقليل من وقتك الثمين بالرد أيضا على باقي الأسئلة هناك أكون شاكرا . وجدت هذا الرابط ،وهو للأستاذ محمد طاهر له علاقة بالتاريخ التلقائي أحببت أن أضعه هنا من أجل إثراء الموضوع : http://www.officena.net/ib/index.php?showtopic=3235 تحياتي

السلام عليكم ورحمة الله وبركاته أستاذي العزيز ، لا حرمنا هذا السخاء ، بارك الله فيك وفي جهودك التي بذلت والتي ستبذل ، ، اسم عضويتي في هذا المنتدى (halwim) تشير بالحرف الأولية إلى هويتي ، وعلى أي حال إن أحببتم مناداتي بالعربي فكنيتي ( أبا أحمد ) وشكرا على اهتمامك أخي تامر . بالنسبة للمرفق الأخير ما هي الفائدة من وجود modul1 فقد قمت بحذفه ومع ذلك كل شيء تمام والتواريخ تخرج بشكل تلقائي في أماكنها كما هو المطلوب . و بالنسبة لمشكلة عدم احتساب التغير الغير، مباشر نأمل في حال وجود الحل التعقيب على الموضوع . كان قصدي من آخر إقتباس في مشاركتي السابقة هو لماذا لا يتم توحيد الكود يعني يكفي كود واحد مزود بمسار الصفحات الأخرى .... بحيث إذا تمت الكتابة في صفحة 3 تخرج التواريخ في صفحة 4 من غير الحاجة لوضع كود في صفحة 3 يعني المفروض يكفي الكود الذي في صفحة رقم1 . هذا وأتمنى أن تتم إضافة التعديلات الشاملة للصق الجماعي ، على أول ملف مرفق من قبلكم الذي في المشاركة رقم 2 تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته tameromar أستاذنا الكريم يعجز اللسان عن شكرك ،، نعم هذا هو المطلوب 100% ملاحظة بسيطة : كنت قد وضعت مكان خروج التواريخ في العمود A من الصفحة الثانية لمجرد طلب مثال أما غرضي الحقيقي ففي عمود آخر ولنفترضه العمود D من الصفحة الثانية لكن مشكلة الكود المعدل الذي في المرفق الأخير هو أنه ليس فيه تعليمة أو شيء يشير إلى إمكانية تغيير مجال ظهور التواريخ في الصفحة الثانية وهذا هو الكود : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2:A30")) Is Nothing Then Sheets("ورقة2").Range(Target.Address) = Date & " " & Time Sheets("ورقة2").Cells(31, 1) = Date & " " & Time End If End Sub أرجو إرفاق الكود بعد تغيير مكان ظهور التواريخ بحيث تخرج التواريخ في عمود D من الصفحة رقم 2 أيضا هذا هو أول كود تم إرفاقه في هذا الموضوع وهو الذي يخرج التواريخ في نفس الصفحة المطلوب تعديله بحيث تخرج التواريخ حتى مع النسخ واللصق يعني نريد إضافة التعديل الأخير عليه . Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A2:A30")) Is Nothing Then With Target(1, 3) .Value = Date & " " & Time .EntireColumn.AutoFit End With Cells(31, 3) = Date & " " & Time End If End Sub مع بقاء نفس المجال . أخيرا أود التعليق على : تحياتي

السلام عليكم ورحمة الله وبركاته ماشاء الله تبارك الله ،، عمل وجهد متقن وإن شاء الله من حسن إلى أحسن . تحياتي

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته الأستاذ ،، تامر ،، شكرا لك سلمت وغنمت نعم هذا هو المطوب ، لاحظت أن الكود مكرر في الصفحة رقم 1 والصفحة رقم 3 أليس بالإمكان توسيع نطاق عمل كود واحد ليشمل عدة صفحات ؟ مجرد استفسار . واسمح لي إذا قلت يوجد نقص فني في الكود، وهو عندما ننسخ مبلغ أو عدة أرقام من عمود آخر وليكن من D10:D15 ثم نقوم بلصقها في العمود A في المجال A10:A15 فإنه من المفروض أن تخرج التواريخ تلقائيا في أماكنها مقابل كل خلية تم النسخ الجماعي فيها... لكن للأسف لاتخرج التواريخ . صحيح أن التاريخ يعمل مع نسخ رقم من خلية واحدة ولصقه في عمود A ولكن مع لصق أكثر من خلية لايعمل . هذا وألفت الإنتباه إلى أني غير متأكد من أن التاريخ التلقائي هل سيعمل مع أكواد الترحيل فيما لوتم الترحيل إلى العمود A أو مع الماكرو ؟ بمعنى آخر نتمنى أن يتعامل التاريخ التلقائي مع أي مصدر لتدخيل البيانات . بانتظار إرفاق التعديلات وشكرا ..... أخيرا لا ننسى تقديم الشكر للأخ علي السحيب على تشريفه بالمرور . تحياتي

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ،، أخي الكريم tameromar أكثر من رااااائع يأستاذنا الكبير ، وقت سريع و قياسي ومختصر في رد الجواب ، أسأل الله أن يخفف ويختصر وقوفك عند الحساب ويتجاوز عنك وعنا آمين . تحياتي

السلام عليكم ورحمة الله وبركاته أتمنى أن يكون الرابط التالي وافي للغرض المنشود : http://www.officena.net/ib/index.php?showtopic=11566 أخي megonil تحياتي لك ،، سبق أن شاركت في موضعك الرائع " إمساكية ذكية " على الرابط الذي أنت وضعت أعلاه ولي هناك طلب تستطيع عليه إن شاء الله أرجو أن أجده في زيارتي المقبلة للرابط . وشكرا مقدما .

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

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

بسم الله الرحمن الرحيم السلام عليكم جميعا ورحمة الله ،، المطلوب : إذا تمت كتابة المبلغ أ و التعديل عليه أو تم مسح المبلغ من صفوف العمود ( A) فإنه على الفور يتم إدراج التاريخ الحالي في العمود ( C ) مع الساعة والدقائق والثواني تلقائيا . بحيث يكون كل تاريخ في عمود ( C ) مقابل كل مبلغ من العمود (A) أعتقد أن الفكرة واضحة. يوجد ملف مرفق لنفس الطلب أرجو التعديل عليه . ولكم جزيل الشكر مقدما . أخوكم halwim ____________________________.rar

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

بسم الله الرحمن الرحيم السلام علسكم ورحمة الله وبركاته ،، مطلوب : ما المقصود من ( استخدم الحل الخاص بمشكلة كليك يمين ) تحياتي

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

السلام عليكم كيف يمكن الحصول على الأسماء الناتجة في العمود E المطلوب نسخ النصوص فقط وليس المعادلة + النصوص . فإن نسخ الخلية يؤدي لنسخ المعادلة وهذا لايمكنك من أخذ الأسم الرباعي المجموع كنص تستطيع لصقه في الوورد او المفكرة مثلا . تحياتي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ... أستاذنا الفاضل .... أباحسين ، ماشاء الله تبارك الله ، أربع طرق لتلوين الصفوف تلقائيا ، وفي ملف واحد ............. نعم هذا هو ما كنت أتمناه بالظبط سلمت يداك . بالنسبة للصيغة ممكن إيضاح عمل الدالة COUNTA أو شرح الصيغة معها ؟ =AND(COUNTA(1:1)>0;MOD(ROW();2)=1) مع بيان الفروقات بينها وبين الصيغة التالية يعني مالفرق بين الصيغتين : =AND(COUNTA($A1:$G1)>0;MOD(ROW();2)=1) تحياتي .

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

السلام عليكم ورحمة الله وبركاته أستاذنا الكبير " علي السحيب " لا تتصور كم نحن نغبطك على ماتبذل وماتقدم من جهود يشهد بها الجميع ، أنظر إليك بكل تقدير وإكبار ،،،،،، شكرا على متابعة الموضوع حتى نهايته ،، وأخيرا حصلت على رابط أيضا للأستاذ أباحسين ، ذو صلة بالموضوع أحببت وضعه هنا لتعم الفائدة : http://www.officena.net/ib/index.php?showtopic=8586 تحياتي الأستاذ " تامر " تحياتي الكثيرة لك ،، بالنسبة لمرفقكم الموجود أعلاه ( عدد مرات فتح الملف ) بالفعل جميل ، ولكن لاحظت عليه أمر غريب جدا ، فعند تنزيل الملف من الإنترت قمت بفك الضغط ونسخت الملف ولصقته في أكثر من مكان يعني جعلت نسخة على القسم D و نسخة على E ونسخة على C على سطح المكتب . إلى هنا أصبح لدي ثلاث نسخ من الملف نفسه وغيرت الإسم فأصبح لكل ملف إسم مختلف ، وعند ما فتحت الملف الذي على سطح المكتب مرتين تم تسجيل الرقم (2) في العداد وهذا صحيح ، لكن المشكلة عندما إنتقلت إلى القسم D وفتحت الملف ، تم تسجيل الرقم (3) في العداد وهذا خطأ لأنه يفترض أن يتم تسجيل رقم ( واحد ) نظرا لكونها الزيارة الأولى بالنسبة لهذه النسخة . كذلك عندما فتحت الملف الموجود على E تم تسجيل رقم 4 في العداد وهذا خطأ ،،،،،، يعني الملاحظ أنه يعتبر كل النسخ كنسخة واحدة لماذا ؟؟ وقد قمت بنقل الملف إلى جهاز آخر ، ونفس المشكلة لاتزال . أرجو التعديل . تحياتي