halwim قام بنشر ديسمبر 1, 2006 مشاركة قام بنشر ديسمبر 1, 2006 بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ، إن شاء الله يكون الطلب واضح ويكون أوضح بالنظر في المرفق التالي . تحياتي ____________________.rar رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر ديسمبر 1, 2006 مشاركة قام بنشر ديسمبر 1, 2006 شاهد المرفق، ____________________.rar رابط هذا التعليق شارك More sharing options...
halwim قام بنشر ديسمبر 3, 2006 الكاتب مشاركة قام بنشر ديسمبر 3, 2006 (معدل) أشكرك يا أساتذي مقدما ,, وجاري الإطلاع , http://www.officena.net/ib/index.php?showtopic=11617 وأتمنى أن يكون الرابط مفيدا لوجود علاقة مشابهه فيه ، بطلب كتابة الصيغة بمجرد كتابة رقم الصف .... أعتقد ممكن الإستفادة من الأفكار كما في مرفق الأستاذ حسام نور بالمشاركة رقم 2 أيضا ممكن أن يستفاد في الموضوع بهذا الرابط : http://www.officena.net/ib/index.php?showtopic=8310 تحياتي تم تعديل ديسمبر 3, 2006 بواسطه halwim رابط هذا التعليق شارك More sharing options...
علي السحيب قام بنشر ديسمبر 3, 2006 مشاركة قام بنشر ديسمبر 3, 2006 (معدل) http://www.officena.net/ib/index.php?showtopic=11617 وأتمنى أن يكون الرابط مفيدا لوجود علاقة مشابهه فيه ، بطلب كتابة الصيغة بمجرد كتابة رقم الصف .... أعتقد ممكن الإستفادة من الأفكار كما في مرفق الأستاذ حسام نور بالمشاركة رقم 2 لا أدري لماذ أرفقت هذا الرابط .. مع أنه لا يمت للموضوع بصله لا من قريب ولا حتى من بعيد .. وعلى فكرة الكود الذي أشتمل عليه مرفق الأخ حسام وكما قال صاحب الموضوع إنه أطول كود رآه في حياته .. وهو على حق .. ولا أدري كيف تريدني أن أستفيد منه .. وقد أختصرته إلى كود يحتوي على سطر واحد فقط بدلاً من أكثر من ألف سطر .. وأيضاً إلغاء محدودية الكود ليذهب حتى آخر صف في ورقة العمل بدلاً من الألف سطر الأولى فقط. وهذا هو الكود: Sub GoTo1() Range("B" & [C1]).Activate End Sub وهذا أيضاً كود آخر يقوم بنفس المهمة: Sub GoTo2() Cells([C1], 2).Select End Sub وهذا أيضاً كود ثالث لنفس الغرض: Sub GoTo3() [B1].Offset([C1] - 1, 0).Select End Sub وبالنسبة للرابط الثاني .. فربما يكون له علاقة .. ولكنه يختلف كثيراً عما أشرت إليه في سؤالك. شاهد المرفق، ________________.rar تم تعديل ديسمبر 5, 2006 بواسطه علي السحيب رابط هذا التعليق شارك More sharing options...
halwim قام بنشر ديسمبر 4, 2006 الكاتب مشاركة قام بنشر ديسمبر 4, 2006 السلام عليكم ورحمة الله ،، أستاذنا العزيز ،، علي السحيب تحياتي لك رائع يأستاذي القدير ، يعجز اللسان عن شكرك ، والمعذرة على تأخري في الرد بسبب عدم وجود اشتراك انترنت لدي هذه الأيام ... كانت مشاركتي السابقة من أحد المقاهي وقبل تجريب المرفق ، وكما تعلم ليس كل المقاهي بها برامج أوفيس فكنت وضعت الروابط فور حصولي عليها من البحث لذلك أشرت لك أنه جاري الإطلاع ... على أي حال ،، أعجبني إختصاركم لكود الأخ حسام نور ،، واقعا إختصار مذهل من رجل مذهل ،،، لك الشكرررر نعود للمرفق في إجابتكم على أول مشاركة أرجو مراعاة مايلي : ـ بالنسبة لصفحة "قائمة أسماء" تعمل بشكل ممتاز ، وهل يمكن الإستفادة من الكود الذي فيها لمعادلات أخرى غيرالمعادلة "=$A$" ؟ ـ بالنسبة لصفحة "نقل الصيغة إلى الصف الجديد" واقعا الكود أعجبني وأبهرني رغم انه صغير إلى درجة اني ماكنت متوقع الحل!! ولكن فوجئت بالحل وزيادة فهو يقوم بكتابة المتبقي رغم مسح الصيغة بزر DEL فبمجرد المسح ومغادرة الخلية تعود الصيغة من جديد لتعطي المبلغ المتبقي !! وهذا شيء أكثر من راااااااااائع سلمت وغنمت . ولكن هل لكم أن تشرحو لنا عمل الكود وما علاقته بكلمة "المجموع" التي في مؤخرة العمود C ؟ ـ بالنسبة لصفحة "صلة القرابة" فقد جربتها وفعلا تقوم بجعل الرقم المدخل في معادلة مثبته ولكن عند إدخال الرقم ثم الضغط على إنتر يوجد نوع من الثقل والبطأ وهذا ربما لايشكل عقبة ،،،، ولكن المشكلة عند إدراج صف جديد سوف يتوقف إكسل عن العمل ، يعمل هنق !! أرجو التأكد من صحة الكود ودمتم . تحياتي ونظرا لقلة دخولي الانترنت ،، سأرفق هنا ملفا فيه بعض الطلبات المشابهة أرجو الإطلاع والإفادة بعد الخلاص من ملاحظات المرفق السابق : تحياتي ___________________________.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.